none
necesito obtener el peso desde una balanza digital usando puerto com RRS feed

  • Pregunta

  • este es mi codigo el programa obtiene datos pero no se como depurarlos para que me muestro lo que yo necesito que es el peso

    Private Sub Form_Load()
             Form1.Caption = "App1"
             With MSComm1
                .Handshaking = 3 - comRTS
                .RThreshold = 1
                .RTSEnable = True
                .Settings = "9600,e,8,1"
                .SThreshold = 1
                .PortOpen = True
             End With
             Command1.Caption = "&Consultar"
            
            

          End Sub

          Private Sub Command1_Click()
             If MSComm1.CommEvent = 2 Then
                dato = MSComm1.InputLen
                Text1.Text = Text1.Text & dato
              End If

          End Sub

          Private Sub Form_Unload(Cancel As Integer)
             MSComm1.PortOpen = False
          End Sub

    de antemano gracias

    miércoles, 21 de septiembre de 2011 13:57