TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: loverman24 en 21 de Diciembre de 2005, 11:43:00

Título: problema con muestra de datos en label´s
Publicado por: loverman24 en 21 de Diciembre de 2005, 11:43:00

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, 8)

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

Título: RE: problema con muestra de datos en label´s
Publicado por: BrunoF en 24 de Enero de 2006, 07:15:00

Tarde..Tarde...¿pero seguro?

Y si probas asi? por ahi tenes un problema con las mayusculas o minusculas...

canal = Lcase(Left$(buffer, 2))

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