Jump to content
Fórum Script Brasil
  • 1

ler dados da serial vb6.


vb6

Question

Boa noite!

Tenho programinha que to fazendo para ler dados da serial no meu caso dados de uma balança.

 

segue abaixo o software inteiro:

Private Sub Command1_Click()
MSComm1.Output = Chr$(240) + Chr$(1) + Chr$(1) + Chr$(240)
End Sub


Private Sub Command2_Click()

    ' Usa COM2.
    MSComm1.CommPort = 2
    ' 9600 baud, no parity, 8 data, and 1 stop bit.
    MSComm1.Settings = "9600,N,8,1"
    ' Indica que o controle deve ler todo o conteúdo do buffer
    ' quando o input é usado.
    MSComm1.InputLen = 0
    ' Indica que os dados que chegarem estarão no formato texto
    MSComm1.InputMode = comInputModeBinary
    
    ' Gera um evento OnComm a cada byte recebido
    MSComm1.RThreshold = 1
    ' Espera o buffer de saída ter apenas 1 byte para enviá-lo
    MSComm1.SThreshold = 1
    
    ' Abre a porta.
    MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
 Dim strsaida As Variant
    Dim tamanho, tamanho2 As Integer
    
    Select Case MSComm1.CommEvent
    ' Handle each event or error by placing
    ' code below each case statement
    
    ' Errors
    Case comEventBreak ' A Break was received.
    Case comEventCDTO ' CD (RLSD) Timeout.
    Case comEventCTSTO ' CTS Timeout.
    Case comEventDSRTO ' DSR Timeout.
    Case comEventFrame ' Framing Error
    Case comEventOverrun ' Data Lost.
    Case comEventRxOver ' Receive buffer overflow.
    Case comEventRxParity ' Parity Error.
    
    Case comEventTxFull ' Transmit buffer full.
    Case comEventDCB ' Unexpected error retrieving DCB]
    
    ' Events
    Case comEvCD ' Change in the CD line.
    Case comEvCTS ' Change in the CTS line.
    Case comEvDSR ' Change in the DSR line.
    Case comEvRing ' Change in the Ring Indicator.
    Case comEvReceive ' Received RThreshold # of chars.
    Text2.Text = MSComm1.InBufferCount
    Text2.Text = MSComm1.Input
    
    
    Case comEvEOF ' An EOF charater was found in ' the input stream
    End Select

End Sub

 

O codigo está funcionando......mas no text2.text está recebendo apenas o "?".

neste caso preciso que joga o valor chegando da balança no text2.text,alguém poderia me ajudar?

 

obrigado

 
Edited by vb6
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Que massa também estou criando um sistema para pesagem.

Ainda não cheguei nessa parte de pegar os dados da balança mais em breve terei que fazer isso.

Qual balança você está usando?

Vi que você postou isso em 2017.

Você conseguiu arrumar para que funcione certinho amigo? 

Se sim como fez.

Tou perto de começar a colocar essa função no meu sistema só tou esperando conseguir uma balança 😔😔

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...