Forum Sains Indonesia

Ilmu Terapan => Ilmu Komputer => Pemrograman => Topik dimulai oleh: masjawa16 pada Desember 17, 2013, 12:38:20 PM

Judul: Menampilkan data jarak Di VB.Net
Ditulis oleh: masjawa16 pada Desember 17, 2013, 12:38:20 PM


Halo agan agan dan master master, saya punya masalah dalam menampilkan data jarak di Vb.Net

saya menggunakan Arduino untuk pemogramannya, dan sensor  ultrasonic untuk pembacaan jaraknya. program sensor ultrasonic dapat dilihat sebgai berikut:

/*
HC-SR04 Ping distance sensor]
VCC to arduino 5v GND to arduino GND
Echo to Arduino pin 13 Trig to Arduino pin 12
More info at: [pranala luar disembunyikan, sila masuk atau daftar.]
*/

#define trigPin 0
#define echoPin 7

void setup() {
  Serial.begin (9600);
  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;
  if (distance >= 200 || distance <= 0){
    Serial.println("Out of range");
  }
  else {
    Serial.print(distance);
    Serial.println(" cm");
  }
  delay(500);
}

salah satu syarat agar dapat di tampilkan di visual basic adalah adanya {Serial.Print(distance); / Serial.Printn("cm")

>>pertanyaanya :

>>> bagaimana ya caranya agar data pengukuran diatas dapat di tampikan di dalam form "textBox"? ini codingnya untuk komunikasi serial sebagai berikut:

Public Class Optronic

    Private Sub Optronic_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'TODO: This line of code loads data into the 'Data_pasienDataSet.all' table. You can move, or remove it, as needed.
        Me.AllTableAdapter.Fill(Me.Data_pasienDataSet.all)
        Try
            With SerialPort1
                .PortName = "COM1"
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
            End With

            SerialPort1.Open()
            SerialPort1.Write("0s")

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

<