VISUAL BASIC 2008 COM RS 232
Bom dia galera, no laboratorio a qual me encontro trabalhando temos uma balança ( Sartorius LP 1200S) que se comunica por uma porta serial RS 232, preciso fazer um programinha que realize a coleta dos dados por esta porta, alguem pode me ajudar com isso, por que não sei nem começar, pois esta parte do visual não conheço, só preciso de umas dicas pra saber por onde começar.
Obrigado.
Obrigado.
Em caixa de ferramentas, aba componentes tem seiralport, ou vc pode tbm procurar esse componte que serve em qualquer versao do VB [Ô]mscomm[Ô] aki mesmo no VBmania tem explição,
vou procura em meu outro micro mas devo ter uma exemplo em c# caso eu encontre eu posto aki pra vc
vou procura em meu outro micro mas devo ter uma exemplo em c# caso eu encontre eu posto aki pra vc
Ok. Obrigado cuiba vou deixar aberto o tópico então, estou procurando no tópico, é que como nunca trabalhei com esta serialport nem sei quais comandos usar...Mas estou pesquisando.
Obrigado.
Obrigado.
Consegui fazer a comunicação da porta com o windows, verifiquei e aparentemente esta funcionando mas não consigo fazer a conexão com sistema, gostaria que os valores da balança aparecessem em uma GradView. E o comando teria que abrir e encerrar a conexão com a porta serial.
Pessoal fiz o seguinte e funcionou.
Dim A As String
Dim B As String
SerialPort1.Open()
SerialPort1.WriteLine([Ô]D01[Ô] & vbCr)
Do
A = SerialPort1.ReadChar
B = B + Chr(A)
If Chr(A) = [Ô]g[Ô] Then
If Len(B) < 7 Then
Exit Do
End If
TextBox1.Text = B
TextBox2.Text = Trim(Mid(B, 1, Len(B) - 1))
TextBox3.Text = Val(TextBox2.Text)
B = [Ô][Ô]
Exit Do
End If
Loop
SerialPort1.Close()
Dim A As String
Dim B As String
SerialPort1.Open()
SerialPort1.WriteLine([Ô]D01[Ô] & vbCr)
Do
A = SerialPort1.ReadChar
B = B + Chr(A)
If Chr(A) = [Ô]g[Ô] Then
If Len(B) < 7 Then
Exit Do
End If
TextBox1.Text = B
TextBox2.Text = Trim(Mid(B, 1, Len(B) - 1))
TextBox3.Text = Val(TextBox2.Text)
B = [Ô][Ô]
Exit Do
End If
Loop
SerialPort1.Close()
Tópico encerrado , respostas não são mais permitidas