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
<