Jump to content
Fabio2017

ler dados da serial vb6

Recommended Posts

Fabio2017

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

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

 

obrigado

Share this post


Link to post
Share on other sites
M6

Antes de mais, tens de saber o protocolo, depois de saberes, lês o valor e atribuis ao text2.text. Pode dar-se o caso do valor não ser recebido de uma vez só e ser necessário ir juntando as leituras, mas para saber como se faz, tens de ver na documentação do protocolo.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.