arduino, eletrônica, robotica...

Comunicação Sensor X arduino X Inferface em VB

Boa tarde, senhores;

Estou desenvolvendo um projeto sem fins lucrativos onde basicamente, explicando somente o conceito para vocês entenderem melhor:

Tenho um sensor LDR e gostaria que quando dada a condição satisfeita dele, na minha tela feita em VB, mudasse a cor de uma forma (shape) que fiz lá.

Ou então, que aparecesse alguma mensagem, não importa, o que importa é o conceito.

Então, gostaria de saber se apenas utilizando a porta COMM/USB isso seria possível, preciso que seja em tempo-real. Eu colocar o dedo no LDR, já aparecesse na minha telinha isso.. entenderam? Tirei o dedo, some a mensagem, ou então troca a cor do shape.

Sei que utilizando interface web seria possível também, e talvez o mais indicado, mas quero visar o custo x benefício e também a linguagem de programação que tenho afinidade.

Curtir

0 membros curtem isto

Exibições: 311

▶ Responder esta

Respostas a este tópico

Permalink Responder até Jose Augusto Cintra em 12 abril 2016 at 14:40

Olá!

Sim é possível estabelecer a comunicação serial pela USB com o VB ou qualquer outra linguagem.

Para ser em tempo real, a aplicação VB teria que ficar "escutando" a porta dentro de um loop.

▶ Responder

Permalink Responder até br1mosciatti em 12 abril 2016 at 14:55

Olá, José! Obrigado pela resposta.

Pensei em fazer algo tipo assim, mas ao contrário... :

int led= 9;

void setup() {

Serial.begin(9600);

pinMode(led, OUTPUT);

}

void loop() {

if (Serial.available())

{

int drukdata = Serial.read();

if (drukdata=='a')

{

digitalWrite(led,HIGH);

}

else if(drukdata=='b')

{

digitalWrite(led,LOW);

}}

}

VB:

Private Sub EXIT_Click()

Form1.Hide

End Sub

Private Sub Form_Load()

MSComm1.RThreshold = 3

MSComm1.Settings = "9600,n,8,1"

MSComm1.CommPort = 2 // (Write Port Number on which your Arduino Board is available).

MSComm1.PortOpen = True

MSComm1.DTREnable = False

Text1.Text = ""

Shape1.FillColor = vbRed

End Sub

Private Sub TURNOFF_Click()

MSComm1.Output = "b"

Text1.Text = "LED IS OFF"

Shape1.FillColor = vbRed

End Sub

Private Sub TURNON_Click()

MSComm1.Output = "a"

Text1.Text = "LED IS ON"

Shape1.FillColor = vbGreen

End Sub