Hola a todos, os comento mi duda:
Tengo echo en c un programa q envia por el puerto serie unos datos pero con una codificacion delante para q luego el programa en visual basic sepa en q label´s poner cada dato, un ejemplo para explicarme mejor:
el pic envia:
aA4.52
aB6.32
aC7.9
bA2.32
bB9
bC5.6
cA4.7
cB8
cC6.3
bueno es un ejemplo, pero creo q asi se entiende mejor lo q hago. Mi formulario principal es este:
ption Explicit
Private buffer As String
Private canal As String
Private lectura As String
Private Sub cmdCal_Click()
frmCalibracion.Show vbModal
End Sub
Private Sub cmdMed_Click()
frmMedicion.Show vbModal
End Sub
Private Sub Form_Load()
"Dim CommPort As String, Handshaking As String, Settings As String
"Dim buferentrada As String
MSComm1.CommPort = 1 "puerto com1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.InputLen > 9 Then
MSComm1.PortOpen = False
MSComm1.PortOpen = True
Exit Sub
End If
buffer = MSComm1.Input
If buffer = " " Then Exit Sub
canal = Left$(buffer, 2)
lectura = Mid$(buffer, 3,
Select Case canal
Case "aA"
frmCalibracion.LblPot1.Caption = " " & lectura
Case "aB"
frmCalibracion.LblPot2.Caption = " " & lectura
Case "aC"
frmCalibracion.LblPot3.Caption = " " & lectura
Case "bA"
frmMedicion.LblPot1.Caption = " " & lectura
Case "bB"
frmMedicion.LblPot2.Caption = " " & lectura
Case "bC"
frmMedicion.LblPot3.Caption = " " & lectura
Case "cA"
frmMedicion.LblPot4.Caption = " " & lectura
Case "cB"
frmMedicion.LblPot5.Caption = " " & lectura
Case "cC"
frmMedicion.LblPot6.Caption = " " & lectura
End Select
End Sub
Private Sub cmdFinalizar_Click()
Hide
End
End Sub
como veis el quit del asunto este en el CASE, pues bien, me salen perfectamente en su correspondiente label tanto a como b, pero no c. HE comprobado q esten ben puestos los nombres y lo estan, asi q tiene q ser algo q no he tenido en cuenta por desconocimiento, no estoy muy empollao en visual basic.
Pues eso, a ver si alguien puede echarle un vistazo y decirme que puede pasar.
Un saludo
