SoloCodigo

Holaaaaaa:

Okey después de meses ya terminé este programita ayer.
Es muy básico, pero funciona. Se requiere más conocimientos para dejarlo fino, fino.
Está funcionando, pueden modificarlo a su gusto. Es todo suyo
Dentro del Zip hay un Documento en word. Para entenderlo un poco mejor.
Fuente del Programa en VB6....
http://www.box.net/shared/7mcbn6pxb3

Captura programa Graficando, en este caso un diodo....
http://img269.imageshack.us/img269/9067/capture3igi.png
Espero les guste.

Gracias a F_Tanori, Nebire y Moskito por la ayuda pretada en meses pasados.........Gracias muchas gracias......
Saludos

Hola para todos...

Amigos tengo un pequeño inconveniente, he buscado por todas partes algo similar pero no logro
dar con la solución a esto.

Tengo recibiendo por el MSCOMM unos datos en formato texto y los coloco en un TextBox.
Todo trabaja bien hasta allí.
Al tratar de operar o manipular el texto en dicho control se tranca la comunicación o no me muestra nada
el el segundo textbox.

Un poco de código, para hacerme entender.

Puede que este haciendo algo mal, tengo muchos intentos de todo tipo, pero ninguno me resulta.
No estoy seguro si el   svar3 = Mid(svar1, 11, 5) funciona con los textbox. Estoy frustrado de verdad.
Yo recibo estos datos por el Pto Serial:
......
     8ms    00.3mV
     9ms    00.1mV
    10ms    00.4mV
    11ms    00.1mV
    12ms    00.1mV
    13ms    00.3mV
......
Y lo que quiero tomar y meterlo en una variable o arreglo es lo que está en color azul, para graficarlo.
Me parece que debo mandar esto a un archivo de texto.txt, y manipularlo desde el archivo pero lo veo
como infuncional.
No puedo modificar lo recibido, porque es un Multimetro Digital que envía en ese formato.
Puede alguien entender esto y ayudarme?

Cualquier comentario, o ayuda lo agradecería muy grandemente.....

Bye('_')....

Nota: Perdón aquí dejo un link del codigo VB6 funcionando... Pero sin manipular el TextBox.
http://www.box.net/shared/lp89o3rrdg

Hola para todos.
Amigos estoy atrapado en una tontería que no consigo la solución.

Tengo un archivo.dat (es un .TXT) que tiene varios números de 8 caracteres de longitud. En el pueden haber 20, 40, 100 ó XX registros de números guardados.
La pregunta es:
¿Como hago para saber la cantidad de registros guardados en ese archivo.dat?
Esa cantidad de registros es para colocarla en una Variable y luego poder hacer un: FOR 1 to Variable
He intentado varias formas pero no doy con la solución.
Si alguno me pudiera ayudar a resolver esto, le estaría muy agradecido.

Este es uno de mis fallidos intentos. Está un poco confuso como yo.
'''Aquí debo hacer un Get y un For para leer datos en el .Dat
Dim MiCar As String
Open "RS232.dat" For Random As #1 'Len = Len(MiCar)  'Len("RS232.dat")

MiCar = String(41, " ")
 Do While Not EOF(1)               '''Repite hasta el final del archivo.
    Get #1, 8, MiCar      
   'MiCar = Left(Input(1, #1), 8)    '''Lee el siguiente carácter de datos.
   For iCol = 1 To 41 'Asc(MiCar) '41
   Input #1, varLinea
   Next iCol
Loop
Close #1   ' Cierra el archivo.

El programa me funciona, pero debo abrir el archivo.dat contar manualmente cuantos numeros hay,
luego voy al programa y en el "For iCol = 1 To 41" <--Cambio este último número y así trabaja
sin problemas. Como pueden ver es un fastidio, abrir y contar, cambiar y ejecutar.

Este es el original sin cambios.
    Open "RS232.dat" For Input As #2                    '''Abre el archivo para lectura.
    For iCol = 1 To 41  '2 '50 '24 '52         '''armo un contador
      Input #2, varLinea                            '''meto en la variable varLinea cada dato
      aTemp(iCol) = varLinea                        '''paso al ARRAY el valor leído
    Next iCol                                       '''incremento el contador y sigo
    Close #2


Por favor si alguien sabe como hacerlo, les agradecería el auxilio que pudieran darme.
Si gustan, al finalizarlo les paso el programita completo, es bien ponqueto, simpático pués.

Bye('_').

Hola a todos.

Soy un Novato. Este mi primer Mensaje.
Trataré comunicarles mi problema.
Hice a medias un programa que envía al Puerto físico (LPT1) unos Bits.
Luego le añadí un Puerto Lógico (200) y comenzaron los conflíctos.

Ambos Puertos (Lógico y Físico) tienen sus respectivos Módulos.

El programa funciona bién si lo compilo con uno solo de esos puertos (Lógico o Físico).
 
Pero al unir los 2 puertos  en el  "Private Sub Timer1_Timer()", los indicadores de salida (led's), muestran intermitencia.

Entiendame por favor, no le pido, que me lo haga.
Solo que me oriente, en lo que pueda.
Si debo leer algo en particular, muestreme el enlace.
He intentado varias maneras y formas, pero sin resultado.


Por favor.
Dele un vistazo al código, y hágame algún comentario.
Será de mucha utilidad para mí.
Si prefieres bájate el proyecto completo, al final puedes tomarlo.
*-*-* (Gracias y recontra Gracias)*-*-*

Private Sub Timer1_Timer()

    ' Read SIGNED WORD from port 200:
    EmuPto = 200 'READ_IO_WORD(200)
    Dim i As Integer
    Dim v As Byte
    For i = 0 To 7
        v = EmuPto Mod 2 'Cantidad de digitos. 1 y 0 Aquí.
        Led(i).Picture = dig(v).Picture
        EmuPto = Int(EmuPto / 2) '10)
    Next i

'Lee el dato del puerto.  'Inp(&H378)
m = Inp(Puerto)  '+ 1) Esto Daba un problema en la salida.

'Debe ir en éste Orden.
'=========================
'Otra forma de Entenderlo.
If m > 127 Then Bit(7) = 0: m = m - 128 Else Bit(7) = 1 '0 'Invertido
If m > 63 Then Bit(6) = 0: m = m - 64 Else Bit(6) = 1
If m > 31 Then Bit(5) = 0: m = m - 32 Else Bit(5) = 1
If m > 15 Then Bit(4) = 0: m = m - 16 Else Bit(4) = 1
If m > 7 Then Bit(3) = 0: m = m - 8 Else Bit(3) = 1
If m > 3 Then Bit(2) = 0: m = m - 4 Else Bit(2) = 1
If m > 1 Then Bit(1) = 0: m = m - 2 Else Bit(1) = 1
If m > 0 Then Bit(0) = 0: m = m - 1 Else Bit(0) = 1

'Controla los Led's de estado.
For Ciclo = 0 To 7
If Bit(Ciclo) = 0 Then _
Led(Ciclo).Picture = LoadPicture(App.Path + "\LR.BMP") _
Else Led(Ciclo).Picture = LoadPicture(App.Path + "\LG.BMP")
Next Ciclo
End Sub[/size]