• Viernes 29 de Marzo de 2024, 09:14

Mostrar Mensajes

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 - Bopo

Páginas: 1 2 [3]
51
Cita de: "nestor g"
Como introducir un enter en un textbox :
Si hago t.txt = "AA" + chr (13) + chr (10) + "BB"
Me sale AA||BB en vez de
AA
BB

Alguien sabe porqué ?
Gracias
NG
pon multiline wn <_<

52
Visual Basic 6.0 e inferiores / Re: Leer Un Txt
« en: Sábado 17 de Enero de 2004, 21:18 »
Cita de: "Linkup"
Cita de: "Bopo"
Cita de: "Bopo"
Cita de: "Brroz"
Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.

Código: Text
  1.  
  2. Private Sub Leer()
  3.   On Error Goto Err_Lectura
  4.   Dim intCanal as integer
  5.   intCanal = FreeFile
  6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
  7.   Dim strRcd as String, intCta as integer
  8.   Do Until EOF(intCanal)
  9.        intCta = intCta + 1
  10.        Line Input #intCanal, strRcd
  11.        MsgBox strRcd,vbInformation,"Registro " & intcta
  12.   Loop
  13. Exit_Lectura:
  14.   On Local Error Resume Next
  15.   Close #intCanal
  16.   Exit Sub
  17. Err_Lectura:
  18.   MsgBox Err.Description
  19.   Resume Exit_Lectura
  20. End Sub
  21.  
  22.  

Suerte.
y como hago que me lea una linea definida :huh:
ya descubrri como:

a
Line Input #intCanal, strRcd

le agregue

Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd

Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?
creo q si pones LINE Nº osea

Line 3 Input #intCanal, strRcd

creo si me equivoco coriganme ahora mi pregunta...

yo quiero hacer esto pero necesito en un text box y necesito saber como pongo a travez de codigo un "enter" probe con vbclrf pero me salen 2 barras a lo mejor sale en un label o algo asi xq lo copio y me sale un enter XD  :blink: hay alguna solución a eso  :(  :rolleyes:

Salu2!
pon el textbox multiline <_<

P.D: No funiono lo de Line Nº :(

53
Visual Basic 6.0 e inferiores / Re: Deshabilitar Una Tecla
« en: Sábado 17 de Enero de 2004, 17:21 »
Cita de: "_EL_DJ_LU"
Hola a todos ...

Me podrian decir como puedo deshabilitar la teclas de suspender sistema de este teclado...




Ese boton se encuentra entre los numeros y las teclas direccionales... y como podran imaginar .. siempre hay posibilidad de presionarlo cuando estoy jugando ...

Bueno pues por culpa de ese boton muchas veces pierdo...
Me imagino que esto debe de ser igual a lo que se hace para impedir que se pueda presionar las teclas alt + F4, alt + esc, crtl+alt+del, etc... bueno eso pienso..pero no se como hacer con esta tecla.... muchas gracias.........

gracias

gracias a todos...


muchas gracias
No se si se peuda por Visual basic ya que la tecla suspender no tiene un codigo ascii :huh: , pero si lo puedes hacer por BIOS... si no sabes lo que es dime el modelo e tu placa madre y te digo doned deberias entrar en BIOS ;)

54
Visual Basic 6.0 e inferiores / Temperatura Del Procesador
« en: Sábado 17 de Enero de 2004, 06:27 »
¿Cómo puedo sacar la temperatura del PC y que em la devuelva en una variable? :P

55
Visual Basic 6.0 e inferiores / Re: Leer Un Txt
« en: Viernes 16 de Enero de 2004, 23:54 »
Cita de: "Bopo"
Cita de: "Brroz"
Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.

Código: Text
  1.  
  2. Private Sub Leer()
  3.   On Error Goto Err_Lectura
  4.   Dim intCanal as integer
  5.   intCanal = FreeFile
  6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
  7.   Dim strRcd as String, intCta as integer
  8.   Do Until EOF(intCanal)
  9.        intCta = intCta + 1
  10.        Line Input #intCanal, strRcd
  11.        MsgBox strRcd,vbInformation,"Registro " & intcta
  12.   Loop
  13. Exit_Lectura:
  14.   On Local Error Resume Next
  15.   Close #intCanal
  16.   Exit Sub
  17. Err_Lectura:
  18.   MsgBox Err.Description
  19.   Resume Exit_Lectura
  20. End Sub
  21.  
  22.  

Suerte.
y como hago que me lea una linea definida :huh:
ya descubrri como:

a
Line Input #intCanal, strRcd

le agregue

Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd

Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?

56
Visual Basic 6.0 e inferiores / Re: Leer Un Txt
« en: Viernes 16 de Enero de 2004, 23:45 »
Cita de: "Brroz"
Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.

Código: Text
  1.  
  2. Private Sub Leer()
  3.   On Error Goto Err_Lectura
  4.   Dim intCanal as integer
  5.   intCanal = FreeFile
  6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
  7.   Dim strRcd as String, intCta as integer
  8.   Do Until EOF(intCanal)
  9.        intCta = intCta + 1
  10.        Line Input #intCanal, strRcd
  11.        MsgBox strRcd,vbInformation,"Registro " & intcta
  12.   Loop
  13. Exit_Lectura:
  14.   On Local Error Resume Next
  15.   Close #intCanal
  16.   Exit Sub
  17. Err_Lectura:
  18.   MsgBox Err.Description
  19.   Resume Exit_Lectura
  20. End Sub
  21.  
  22.  

Suerte.
y como hago que me lea una linea definida :huh:

57
Visual Basic 6.0 e inferiores / Leer Un Txt
« en: Viernes 16 de Enero de 2004, 00:57 »
Lo que quiero es que el programa lea tal linea del txt y em la deevuelva como una variable,,, cómo se hace :P

58
Visual Basic 6.0 e inferiores / Re: Seleccionar Una Carpeta
« en: Viernes 16 de Enero de 2004, 00:32 »
Cita de: "Bopo"
Y que me de la ruta en una variable :P

¿Cómo se hace?
ya lo hice B)

Código: Text
  1. Private Sub Drive1_Change()
  2. Dir1.Path = Drive1
  3. End Sub
  4.  
  5.  

59
Visual Basic 6.0 e inferiores / Re: Seleccionar Una Carpeta
« en: Viernes 16 de Enero de 2004, 00:15 »
Cita de: "QliX=D!"
El ejemplo mas sencillo es:
Pones unavariable global en un modulo:
Public directorioSeleccionado as string.

dps haces un formulario con un dirlistbox y dos botones uno que dice aceptar y otro cancelar.
Supongamos que tenes el boton aceptar se llama cmdAceptar y el de cancerlar cmdCancelar, y el dirlistbox se llama dir1, entonces:
Código: Text
  1.  
  2. sub cmdAceptar_click()
  3.      if (dir1.path <> "") then
  4.            directorioSeleccionado = dir1.path
  5.      else
  6.            directorioSeleccionado = ""
  7.      end if
  8.      unload me
  9. end sub
  10.  
  11. sub cmdCancelar_click()
  12.     unload me
  13. end sub
  14.  
  15.  
Y listo entonces en el formulario "principal", pones:

     frmSeleccionarDirectorio.show

Y cuando necesites usar el directorio seleccionado se encotrara en la variable directorioSeleccionado.

Esperi qeu este mas claro...
slds.
Gracias ;) , em funciono, ahora... como hago para el el el dirbox o como se llame no aparesca solo el Disco C: :huh:

60
Visual Basic 6.0 e inferiores / Re: Como
« en: Jueves 15 de Enero de 2004, 17:55 »
Cita de: "Brroz"
Hola Bopo.

Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("123456789", Chr(KeyAscii)) = 0 and KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Abur.
Gracias ;)

61
Visual Basic 6.0 e inferiores / Como
« en: Jueves 15 de Enero de 2004, 17:38 »
:huh: en un textbox que solo aceeptar  numeros pero no peudo borrar uno con la teclaretroceso o como se llame, el codigo para que acepte solo numeros eseste:

Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

pero como le pongo que oueda borrar tb? :P

62
Visual Basic 6.0 e inferiores / Re: Seleccionar Una Carpeta
« en: Jueves 15 de Enero de 2004, 16:29 »
Cita de: "QliX=D!"
Si tambien podes usar un form con un dirlistbox, hacer que la seleccione ahí poner un boton que diga aceptar, en el cual pone el path en una variable (global por ejemplo) y cierra la ventana.
Y donde devuelve ese valor? :P

63
Visual Basic 6.0 e inferiores / Re: Seleccionar Una Carpeta
« en: Jueves 15 de Enero de 2004, 16:27 »
Cita de: "QliX=D!"
Si tambien podes usar un form con un dirlistbox, hacer que la seleccione ahí poner un boton que diga aceptar, en el cual pone el path en una variable (global por ejemplo) y cierra la ventana.
No les entiendo nada :(

64
Visual Basic 6.0 e inferiores / Re: Seleccionar Una Carpeta
« en: Jueves 15 de Enero de 2004, 15:00 »
Cita de: "Brroz"
Hola Bopo.

Puedes usar una función de este estilo:

Código: Text
  1.  
  2. Public Function RtvPath(ByVal Cadena As String) As String
  3.  
  4.     On Local Error Resume Next
  5.     Cadena = Trim(Cadena)
  6.     Cadena = Replace(Cadena, &#34;//&#34;, &#34;&#092;&#092;&#34;)
  7.     Dim int1 As Integer
  8.     int1 = InStrRev(Cadena, &#34;&#092;&#34;)
  9.     If int1 &#62; 2 Then
  10.         RtvPath = Left(Cadena, int1 - 1) & &#34;&#092;&#34;
  11.     Else
  12.         If Len(Cadena) = 2 And Mid(Cadena, 2, 1) = &#34;:&#34; Then
  13.             RtvPath = Cadena & &#34;&#092;&#34;
  14.         ElseIf Left(Cadena, 2) = &#34;//&#34; And InStr(3, Cadena, &#34;:&#34;) = 0 Then
  15.             RtvPath = Cadena & &#34;&#092;&#34;
  16.         End If
  17.     End If
  18.     
  19. End Function
  20.  
  21.  

Suerte.


Y como hago para que abra la cosa donde se selecciona :unsure:  :losiento:

65
Visual Basic 6.0 e inferiores / Seleccionar Una Carpeta
« en: Jueves 15 de Enero de 2004, 04:16 »
Y que me de la ruta en una variable :P

¿Cómo se hace?

66
Visual Basic 6.0 e inferiores / Re: Darle Formato De Numero A Una Variables
« en: Jueves 15 de Enero de 2004, 04:14 »
Cita de: "Daniel_PC"
como puedo Darle formato de numero a una variables
gracias....
Byte
Integer
Long
Single
Double
Currency
Decimal

De menor a mayor B)  ;)

67
Visual Basic 6.0 e inferiores / Re: Tabstrip
« en: Jueves 15 de Enero de 2004, 04:04 »
Cita de: "Bopo"
Hola :rolleyes: , quisiera saber como manejar el  tabstrip osea que aprete la segunda opcion y me cambie :lol: , como de hace :blink: , es que todavia estoy aprendiendo :smartass:
Lo logreeeeeeeeee :D  :D  :D , soy todo un genio :comp:

68
Visual Basic 6.0 e inferiores / Tabstrip
« en: Jueves 15 de Enero de 2004, 03:39 »
Hola :rolleyes: , quisiera saber como manejar el  tabstrip osea que aprete la segunda opcion y me cambie :lol: , como de hace :blink: , es que todavia estoy aprendiendo :smartass:

69
Visual Basic 6.0 e inferiores / Re: ¿cómo Prender Leds Por El Puerto Serial?
« en: Jueves 15 de Enero de 2004, 03:31 »
Cita de: "Linkup"
Hola... yo soy amigo del Bopo y estamos los 2 en esto... necesitamos el codigo del serial ya q el paralelo es muy grande necesitamos algo pequeño y util... porfavor ayuda  :hola:   :alien:
 :huh:  :huh:  :huh: , lo queremos porque hay solo 1 paralelo :P

70
Visual Basic 6.0 e inferiores / ¿cómo Prender Leds Por El Puerto Serial?
« en: Martes 13 de Enero de 2004, 20:42 »
Y poder prenderlos y apagarlos. :D

71
VBA / ¿cómo Prender Leds Por El Puerto Serial?
« en: Martes 13 de Enero de 2004, 20:41 »
Y poder prenderlos y apagarlos. :rolleyes:

Páginas: 1 2 [3]