arduino, eletrônica, robotica...

ajuda finalizar recebimento de variável em VB.net

Estou fazendo um programa em VB 2008 que ira se comunicar com o arduino.

O programa envia pela serial o valor "A", e o arduino quando ler essa mensagem pela serial envia de volta um valor numérico. E isso acontece com outras 2 variáveis(total de 3 variáveis) .

Isso deve acontecer 1 vez a cada segundo.

SerialPort1.Write("a") ' envia o pedido
Dim b As String = SerialPort1.ReadExisting() 'le a resposta
System.Threading.Thread.Sleep(333)

SerialPort1.Write("b") ' envia o pedido
Dim b As String = SerialPort1.ReadExisting() 'le a resposta
System.Threading.Thread.Sleep(333)

SerialPort1.Write("c") ' envia o pedido
Dim c As String = SerialPort1.ReadExisting() 'le a resposta
System.Threading.Thread.Sleep(333)

O meu problema é que as vezes as variáveis estão se misturando.

gostaria de saber se existe alguma forma de colocar uma verificação?

Tipo so sera enviada a string "b" para o arduino depois o VB receber um sinal "x".

Vixi ... espero ter conseguido explicar o que eu estou tentando fazer. Qual quer ajuda é bem vinda

Curtir

0 membros curtem isto

Exibições: 841

▶ Responder esta

Respostas a este tópico

Permalink Responder até Fabiano Bertuche em 10 setembro 2012 at 17:29

Explicando melhor...

Eu preciso que o vb só peça a variável B depois de receber um sinal do arduino.

▶ Responder

Permalink Responder até Bruno Sandivilli em 10 setembro 2012 at 18:13

Já pensou em usar o conceito de Maquina de Estados?

▶ Responder

Permalink Responder até Fabiano Bertuche em 10 setembro 2012 at 18:21

Sou novato em programação...

Vou dar uma estudada nas maquinas de estados. Vc poderia indicar uma boa fonte sobre o assunto?

▶ Responder

Permalink Responder até Jaison em 12 setembro 2012 at 2:49

Boa Noite

Estou um pouco enferrujado em VB.Net e não tenho porta serial então ja peço desculpas se nao funcionar :)

Você não comentou, mas acredito que esteja usando a biblioteca do System.IO.Ports para efetuar a comunicação.

Então vamos lá, você está usando a instrução ReadExisting, ela faz uma tentativa de leitura pontual, caso o buffer da serial esteja vazio ela parte para a próxima instrução, que no seu caso é um sleep na thread (acredito que seja uma tentativa de esperar o buffer da serial encher, se sim, neste caso ele deveria ficar antes do ReadExisting)

EU partiria para uma função usando loop infinito e threads, mas acho que uma pequena adaptação no seu código ja vai fazer funcionar certinho, segue minha sugestão, fiz o código em console application:

Imports System.IO.Ports

Module Module1

Sub Main()

Dim SerialPort1 As New SerialPort

SerialPort1.PortName = "com1"

SerialPort1.Open()

SerialPort1.Write("a")

''Aqui você prepara a variável de Buffer da Serial, considerando que você sempre receberá apenas um byte da serial

ReDim Preserve Buffer(1)

''Enquanto o VB não receber 1 byte na serial ele não sai da linha de baixo

SerialPort1.Read(Buffer, 0, 1)

End Sub