Receive and Display Serial Data in Visual Basic?

hi all,

i got problem receive data sensor visual basic

this code arduino

int trigpin = 3;
int echopin = 2;

void setup(){
serial.begin(19200);
pinmode(trigpin, output);
pinmode(echopin, input);
}

void loop(){
  int duration, distance;
  digitalwrite(trigpin, high);
  delaymicroseconds (1000);
  digitalwrite(trigpin, low);
  duration = pulsein(echopin, high);
  distance = (duration/2) / 29.1;
  serial.print(distance);
  serial.println(" cm");
  delay(500);
}

this code visual basic

imports system.io
imports system.io.ports
imports system.threading

public class form1
    dim myport array
    delegate sub settextcallback(byval [text] string)

    private sub form1_load(byval sender system.object, byval e system.eventargs) handles mybase.load
        myport = io.ports.serialport.getportnames()
        portcombobox.items.addrange(myport)
        baudcombobox.items.add(9600)
        baudcombobox.items.add(19200)
        baudcombobox.items.add(38400)
        baudcombobox.items.add(57600)
        baudcombobox.items.add(115200)
        connectbutton.enabled = true
        disconnectbutton.enabled = false
    end sub

    private sub serialport1_datareceived(byval sender system.object, byval e system.io.ports.serialdatareceivedeventargs) handles serialport1.datareceived
        dim distance integer = serialport1.readexisting
        sensortextbox.text = distance
    end sub
end class


do know problem here?

what happens if use serial monitor instead of vb?

(please use code tags when posting code)

Arduino Forum > Using Arduino > Interfacing w/ Software on the Computer > Receive and Display Serial Data in Visual Basic?

arduino