buenos dias amigos laneros.... les cuento que me he topado con un ENORME dolor de cabeza al querer enviar datos MUNERICO desde mi PC a un PIC usando el VB6.0 y el puerto serie.
estoy usando el MSComm para ello, y parte del codigo problematico es éste:
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Dim Salida as Integer
MSComm1.Output = Salida
el problema es que me dice que el tipo de dato no es adecuado, osea que solo puedo mandar cadenas de caracteres.... asi que hice lo siguiente:
MSComm1.Output = Chr$(Salida)
ya con eso mando el ascii correspondiente al valor numerico de que hay en la variable Salida.
PERO......... en el PIC me aparecen datos al azar en la salida, el codigo del pic es el siguiente:
Define CLOCK_FREQUENCY = 20
AllDigital
TRISB = 0x00
Dim i As Byte
Hseropen 9600
WaitMs 1000
loop:
Hserin i
PORTB = i
Goto loop
alguien me puede ayudar??????
estoy usando el MSComm para ello, y parte del codigo problematico es éste:
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Dim Salida as Integer
MSComm1.Output = Salida
el problema es que me dice que el tipo de dato no es adecuado, osea que solo puedo mandar cadenas de caracteres.... asi que hice lo siguiente:
MSComm1.Output = Chr$(Salida)
ya con eso mando el ascii correspondiente al valor numerico de que hay en la variable Salida.
PERO......... en el PIC me aparecen datos al azar en la salida, el codigo del pic es el siguiente:
Define CLOCK_FREQUENCY = 20
AllDigital
TRISB = 0x00
Dim i As Byte
Hseropen 9600
WaitMs 1000
loop:
Hserin i
PORTB = i
Goto loop
alguien me puede ayudar??????