Private Sub MSComm1_OnComm()
Dim rs232 As String
Dim dato_1 As String
Dim dato_2 As String
Dim dato_3 As String
If MSComm1.CommEvent = comEvReceive Then
rs232 = "" 'limpiamos la varible que recibe
rs232 = MSComm1.Input 'obtenemos el valor del buffer
End If
dato_1 = Left(rs232, 1) 'como los datos recibidos son 3 filtro primero de lado izquierdo un numero
dato_2 = Mid(rs232, 2, 1) ' luego tomo el segundo numero que practicamente se encuntra en medio de los 3
dato_3 = Mid(rs232, 3, 1) 'por ultimo obtengo el ultimo dato tambien puedes usar rigth(rs232,1)
Texto_recibido.Text = Asc(dato_3) 'como los datos vienen en ascii los convierto a decimal
Texto_recibido.Text = Asc(dato_1) '& Chr(32) & Asc(dato_2) & Chr(32) & Asc(dato_3)
Yo tampoco soy muy fana de los simuladores, todavia me queda ver el asunto del pin gp5, no voy a saber hasta que tenga un rato y lo arme
@ device xt_osc
define osc 4
DEFINE ONINT_USED 1
Symbol T9600 = 2
TX var Byte
RX var Byte
A VAR WORD[3]
flag0 var bit
flag0 = %0
ADCON1=%100
trisb=%00000000 'puerto b como salida
portb=%00000000 'set a cero el puerto b
trisc=%11111101 'set entradas y salidas
portc=%00000000 'set en cero al
MAIN:
PAUSE 500
X:
ADCON0 =%1000001
GOSUB LEER
A(0)= ADRESH
Y:
ADCON0 =%1001001
GOSUB LEER
A(1)= ADRESH
Z:
ADCON0 =%1011001
GOSUB LEER
A(2)= ADRESH
SerOut PORTC.6, T9600,[#A(0) ,"/",#A(1),"/",#A(2)]
GOTO MAIN
LEER
PAUSEUS 100
ADCON0.2 = 1
PAUSEUS 50
RETURN
endMe acabo de dar cuenta que yo tampoco! estuve con el HyperTerminal de windows y recibir recibe, se ven las 6 lineas que tendrian que decir "CANAL X: vdc" pero con caracteres extraños...
Dim bit(7) As Integer, i As Integer
a = 254 ' tu codigo asciii
For i = 0 To 7
If a And 2 ^ i Then bit(i) = 1 Else bit(i) = 0
Next ia=254 'tu codigo ascii
bit=8 ' el bit a leer
mi_var=iif((a And 2 ^ bit)=0,0,1)Private Sub MSComm1_OnComm()
Dim MySplit() As String
Buffer = MSComm1.Input
RX.Text = Buffer
MySplit = Split(Buffer, "/")
A0.Text = Val(MySplit(0))
A1.Text = Val(MySplit(1))
A2.Text = Val(MySplit(2)) -[COLOR="Red"]Al agregar esta linea me da error [/COLOR]
End SubPrivate Sub MSComm1_OnComm()
Dim MySplit() As String
Buffer =[B]Trim( MSComm1.Input & "/")[/B]
RX.Text = Buffer
MySplit = Split(Buffer, "/")
A0.Text =[B]Str(Asc(MySplit(0)))[/B]
A1.Text = [B]Str(Asc(MySplit(1)))[/B]
A2.Text = [B]Str(Asc(MySplit(2))) [/B]Private Sub MSComm1_OnComm()
Buffer = " "
Buffer = MSComm1.Input
Select Case Left(Buffer, 1)
Case "A"
A0.Text = Val(Right(Buffer, Len(Buffer) - 1)) 'borro A y dejo solo los numero
Case "B"
A1.Text = Val(Right(Buffer, Len(Buffer) - 1))
Case "C"
A2.Text = Val(Right(Buffer, Len(Buffer) - 1))
Case "D"
A3.Text = Val(Right(Buffer, Len(Buffer) - 1))
End Select
End Sub
