|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - sircuit
1
« en: Viernes 21 de Abril de 2006, 00:13 »
Buenas. Estoy creando una página en PHP donde quiero mostrar el estado de un computador (dirección ip), es decir conectado o no. El problema es que el tiempo que se demora es demasiado para comprobar la conexión. Lo hago de la sgte. manera: $conex = @fsockopen($IP, $PORT, &$errno, &$errstr, 10);
OJO  EL 10 se refiere al tiempo de espera para la lectura y escritura UNA VEZ CONECTADO, no el tiempo para la conexión. Alguna idea? Gracias.
2
« en: Domingo 30 de Octubre de 2005, 04:17 »
Buenas
saben que estoy creando un proyecto y me vi en la necesidad de hacerlo mas seguro.
el punto esta en que nesecito ocultar el proceso (no la aplicacion con App.TaskVisible = False) en sistemas NT ya que en win9x no hay problema.
ojala me puedan ayudar.
gracias.
3
« en: Miércoles 23 de Febrero de 2005, 18:00 »
 emmm solo tengo que dar las gracias todo solucionado  salu2 y ojala no moleste tanto jaja
4
« en: Martes 22 de Febrero de 2005, 17:22 »
mira alle la forma de comprobar si el archivo existia o no y le di "prolijidad" al codigo quedandode la siguiente forma: x = Dir(App.Path & "\datos.dat") If x <> "" Then GoTo addbase Else quest = MsgBox("La base de datos no existe." & vbCrLf & "Desea crear una nueva ?", vbYesNo + vbQuestion, "Información") If quest = vbNo Then Exit Sub Else addbase: Dim conf canalf = FreeFile conf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información") If conf = vbNo Then Exit Sub Else Open App.Path & "\datos.dat" For Append As canalf Write #canalf, Text1.Text Write #canalf, Text2.Text Write #canalf, Text3.Text Write #canalf, Text4.Text Write #canalf, Text5.Text Close canalf End If End If End If
Ahora viene el tema en cuestion: COMO PUEDO HACER PARA QUE ME COMPRUEBE QUE SI LOS DATOS INGRESADOS (ESPECIFICAMENTE DEL PRIMER TEXT) YA EXISTE EN EL ARCHIVO DATOS.DAT salu2
5
« en: Miércoles 9 de Febrero de 2005, 22:03 »
mira yo recien lo pude lograr pero que me creo dos archivos totalmente distintos y de forma erronea, por lo que yo quiero es que sea el mismo archivo (si se puede) lo que tengo es algo asi: TENIENDO EN CUENTA EL ARCHIVO EXISTE CON NOMBRES YA INGRESADOS PERO LO QUE QUIERO es QUE LO ABRA PERO EN BLANCO EN LA PRIMERA EJECUCION Y ESCRIBA LOS CAMPOS"Dim conf iCanal = FreeFile conf = MsgBox("Desea añadir la ficha de " & Text1.Text & " a la base de datos ?", vbInformation + vbYesNo, "Información") If conf = vbNo Then Exit Sub Else Open "C:\Documents and Settings\usuario\Escritorio\datos.dat" For Input As 1 Do While Not EOF(iCanal) Input #1, namec Input #1, dirc Input #1, telc Input #1, emc Input #1, conc Select Case Text1.Text Case Is = namec MsgBox "La ficha ingresada ya existe en la base de datos", vbInformation + vbOKOnly, "Información" Text1 = namec Text2 = dirc Text3 = telc Text4 = emc Text5 = conc Label8.Caption = "Ficha existente:" Case Is <> namec Open "C:\Documents and Settings\usuario\Escritorio\datos2.dat" For Append As 2 Write #2, Text1.Text Write #2, Text2.Text Write #2, Text3.Text Write #2, Text4.Text Write #2, Text5.Text Close #2 End Select Loop Close #1 End If End Sub
gracias
6
« en: Miércoles 9 de Febrero de 2005, 21:30 »
Buenas
saben que me ha surgido otro rollo
como les contaba a alguno estaba creando una mini agenda y ya solucione el apartado para buscar una ficha pero ahora tengo otro para añadir una ficha
consiste en que, inicualemente se añadia una ficha sin ningun problema sin comprobar si el archivo existia y ademas si la ficha tb existia
para hacerla mas completa estube tratando de buscar la forma que me leyera la base de datos de manera que si las variables leidas son igual a los textos apareciera un msg mencionando que esa ficha ya existe
el problema surge que tengo como primero que me abra el archivo en modo INPUT... pero QUE VA A LEER SI ES PRIMERA VEZ QUE EJECUTO EL PROGRAMA....
ENTONCES
Como pueo allar la forma de que primero cree el archivo y de ahi me lea las variables, que si es igual al primer textbox, que aparesca el msgbox, de lo contrario que abra el archivo en modo APPEND para poder escribirlo...
osea algo asi
me cree el archivo ya sea . dat o txt
hasta que no llegue al final de archivo
que me lea todas las variables como cuantos text allan dentro del form
si el text1 es igual a la primera variable me salga el msgbox
de lo contrario
que me abra el MISMO ARCHIVO en modo append para que pueda escribir en el todo los text que allan dentro del form
end
7
« en: Miércoles 9 de Febrero de 2005, 16:51 »
 muchas gracias salu2
8
« en: Martes 8 de Febrero de 2005, 19:23 »
que bien... muchas gracias muhachos pero... tengo una duda mas: por que la nececidad de declarar bEncontrado As Boolean y poner la sentencia Do Until bEncontrado Or EOF(iCanal), no seria maa conveniente como estaba el original osea do while not eof(iCanal) ?salu2
9
« en: Martes 8 de Febrero de 2005, 16:36 »
mmm interesante la forma que tomo pero dime una cosa
para que sirve la instruccion If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
salu2
10
« en: Lunes 7 de Febrero de 2005, 16:53 »
mmm la verdad amigo es que eso no me soluciono el problema...
igual seria interesante que explicaras por que solo agregaste flag=1 y luego flag=0
lo que me ocurre es que si encuentra la ficha escrita dentro de las primeras lineas me la tira como ha sido encontrada ytodo bien... PERO si busco otra ficha me tira como que esa no ha sido encontrada y me sale DOS VECES ese msgbox y luego me dice que la encontro...
tambien si una ficha no esta en datos.dat me tira dos veces el mismo msgbox... por que sera esto ?
11
« en: Domingo 6 de Febrero de 2005, 17:44 »
Si yo de nuevo  hehe saben que estaba aprendiendo a como hacer una mini agenda de manera que lea, escriba y borre (traspase) datos... en fin... todo bien salvo la parte de lea o buscar datos por que al principio no hubo problema pero quise ponerle unos msgox para que se vea mejor que creo que tengo un problema con la estruccturacion de codigo ya que despues de leer los datos, si el text correspondiente a buscar es igual aa la variable que me ponga los datos, de lo contrario que me salga otro msgbox que me diga que no fueron encontrado... resulta que, apesar de que los encontro igual me tira la estrucctura del else lo cual no debiera ocurrir miren: Private Sub Command1_Click() Dim conf As Integer Open App.Path & "\datos.dat" For Input As 1 Do While Not EOF(1) Input #1, namec Input #1, direc Input #1, telc Input #1, emc Input #1, comc If Text6.Text = namec Then Text1.Text = namec Text2.Text = direc Text3.Text = telc Text4.Text = emc Text5.Text = comc MsgBox "La ficha de " & Text6.Text & " ha sido encontrada", vbInformation + vbOKOnly, "Información" Else Call huhu End If Loop Close #1 End Sub Private Sub huhu() conf = MsgBox("La ficha de " & Text6.Text & " no ha sido encontrada." + vbCrLf + "Desea realizar una nueva busqueda ?", vbQuestion + vbYesNo, "Información") If conf = vbYes Then Text6.Text = "" Text6.SetFocus End If End Sub
espero que me puedan ayudar a identificar la parte erronea. salu2
12
« en: Sábado 5 de Febrero de 2005, 22:59 »
ooo si man
muchas gracias
me ahorraste unas cuantas lineas hehe
salu2
13
« en: Jueves 3 de Febrero de 2005, 20:18 »
hola la parte uno seria algo asi
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then If Index < 3 Then 'Ejemplo para 4 text Text1(Index + 1).SetFocus End If End If End Sub
para el segundo si te entendi bien seria algo asi:
Dim veces As Byte Private Sub Command1_Click() Randomize x = Rnd() * Len(Text1) x=Round(x) If x = 0 Then x = 1 If x > Len(Text1) Then x = Len(Text1) For a = 0 To List1.ListCount - 1 If List1.List(a) = Mid(Text1, x, 1) Then veces = veces + 1 Next MsgBox Mid(Text1, x, 1) & " " & veces List1.AddItem Mid(Text1, x, 1) veces = 0 End Sub
gracias por los ejemplos pero el code uno me tiro un error de manera que me salto una msgbox que habia un error al declarar pero me imagino que funciona siempre y cuando se este en el primer textbox o no ? y el segundo esta re bueno pero tengo que practivar para hacer algunos ajustes.... una cosa.... que significa esa declaracion como index ? es que toy aprendiendo Hola sircuit. Para la primera parte debes, utiliza el TabIndex de los textos y ponlos consecutivos, es decir el TabIndex del Text1 seria 1, el TabIndex del Text2 seria 2 y así sucesivamente, luego haces esto Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" End If End Sub seria para cada texto a menos que crees una matriz con ellos, espero te sirva
gracias pero la verdad, como soy nuevito me puede explicar eso del Tabindex ? gracias a todos
14
« en: Jueves 3 de Febrero de 2005, 20:16 »
Gracias...
vere y les cuento
salu2
15
« en: Jueves 3 de Febrero de 2005, 16:54 »
1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box... Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
La segunda sino se como pueda ser. claro ahi serviria solo para el text1 pero lo que quiero es para todos y no tener que escribir en cada uno esas lineas... yo creo que puede ser por lo que dice el amigo arriba de una matriz o no ?  salu2
16
« en: Miércoles 2 de Febrero de 2005, 22:56 »
Buenas saben que tengo DOS dudaS 1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box... pd: si no entiendieron muy bien mi idea solo expliquen como seleccionar varios objetos para realizar alguna accion determinada 2.- hay un label - tengo una palabra dentro de una variable - y que en el, al presionar un boton, me aparesca algun caracter de la cadena de la variable ... algo asi como un ahorcado y si la letra se repite que aparesca la cantidad de veces que se hace presente en el lugar correspondiente del label... salu2
17
« en: Sábado 29 de Enero de 2005, 21:15 »
 hehe gracias por los de los text box pero como hago lo de la validacion ??? por ejemplo tengo algo asi: que me abra un archivo en modo append que me escriba en el archivo cada linea que hay en los text box y si los datos fueron corretamente guardados que me muestre un msgboxde lo contrario que aparesca un msgbox diciendo que falta rellenar algun dato haciendo el setfocus end lo que esta en negrita es mi duda salu2
18
« en: Sábado 29 de Enero de 2005, 18:19 »
Buenas saben que he estado haciendo algunos ejemplos de programas y ya he aprendido hacer una mini agenda pero ahora nesecito la forma de mostrar un msgbox cuando un dato es correctamente añadido a la base de datos (.dat o .txt hehe) por ejemplo un form con 5 textbox y con tres botones.... uno de ellos añadir... si todos los datos fueron agregados que aparesca un msgox diciendo "si fueron correctamente añadidos... en fin" y si falta rellenar algun textbox que salte otro msgbox haciendo un setfocus en el textbox que falta.... bueno espero no molestar salu2
19
« en: Miércoles 19 de Enero de 2005, 20:07 »
mmm ya me van aclarando un poquito mas pero todavia sigo sin poder hacer lo que quiero... por ejemplo tengo un textbox que en el cual escribo solo la aplicacion... por ejemplo winamp, entonces al hacer click en un boton me lo ejecute sin la nececidad de tener que escribir la ruta completa... quisas el pc se demore un tanto en buscar el exe y ejecutarlo entonces seria mejor definir algunas rutas como por defecto ? y si no las encuentra en esas rutas especificadas que la busque a si como un bucle hasta que lo ejecute y ahi se pare el bucle obviamente... espero haber sido mas claro esta vez  pd: saben que puse un texto box y luego un command buton... dentro de este puse "Text1.text = Shell("notepad.exe url.dll,FileProtocolHandler " & (FilePath), 1)" y al hacer click en el textbox me aparece un numero que se debe referir a algo interesante me imagino pero una vez abierto el notepad me aparecio quw no se encuentra url.dll,FileProtocolHandler..... por que ocurrira eso ? salu2
20
« en: Martes 18 de Enero de 2005, 21:22 »
ooo muchas gracias en estos dias estoy metiendome un poco mas a si que en un tiempo me quedara todo mas claro una cosa con respecto a: Public Sub ExecuteFile(FilePath As String) Dim ret On Error GoTo error ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath), 1) Exit Sub error: MsgBox err.Description, vbExclamation, "Error" End Sub
por lo que entiendo ese codigo te permite buscar la ruta de un programa para que lo ejecute ? si fuese asi como se podria hacer desde un textbox ? salu2
21
« en: Domingo 16 de Enero de 2005, 16:24 »
pero aclarame una cosa... cuando declaro una variable sin poner el tipo que es, el vb me la denomina como variant o me equivoco ? no seria mejor declarar previamente la x como un string ? en todo caso al escribir hola no pasa nada y se debiera ejecutar notepad.exe
22
« en: Domingo 16 de Enero de 2005, 00:41 »
Select Case Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de instrucciones: Select Case variable ' variable es una variable que puede tomar los valores (p.e.) de 1 a 4 Case 1 Instrucciones a ejecutar en caso de que variable = 1 Case 2 Instrucciones a ejecutar en caso de que variable = 2 Case 3 Instrucciones a ejecutar en caso de que variable = 3 Case 4 Instrucciones a ejecutar en caso de que variable = 4 End Select
esa es parte de un manual pero estuve intentando hacer algunos ejemplos pero no me salio la primera linea, por ejemplo puse: Private Sub Form_Load()
Select Case Text1
Case Is = "hola"
Shell "notepad.exe"
End Select
End Sub pero no pasa nada... help
23
« en: Viernes 14 de Enero de 2005, 17:25 »
ooo ahora si que me pongo contento muchas gracias nuevamente salu2
24
« en: Miércoles 12 de Enero de 2005, 16:10 »
Buenas saben que me estaba lellendo unos manuales de vb y me quede en los bucles... hice algunos ejemplos pero me dan error al compilar... por ejemplo Private Sub Command1_Click() For N=65 To 90 Label1.caption = Chr ( N ) Label1.RefreshN X = 0 Do While X < 1000 X = X + 1 Loop Next N End Sub
luego de salir el error me sale marcada la sentencia .RefreshN que es lo que esta mal ???
25
« en: Miércoles 12 de Enero de 2005, 16:01 »
mmm pero en yousendit.com es posible enviar cosas hasta de 1 gb xD solo lo comprimes en un zip y lo subes... que no demora mas de 2 min... claro si no te quito mucho de tu tiempo  salu2
|
|
|
Mostrar Mensajes
