Gunakan MimeTex/LaTex untuk menulis simbol dan persamaan matematika.

Selamat datang, Pengunjung. Silahkan masuk atau mendaftar. Apakah anda lupa aktivasi email?

Juni 22, 2021, 08:37:37 PM

Masuk dengan nama pengguna, kata sandi dan lama sesi

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139653
  • Total Topik: 10396
  • Online Today: 88
  • Online Ever: 441
  • (Desember 18, 2011, 12:48:51 AM)
Pengguna Online
Users: 0
Guests: 71
Total: 71

Ikuti ForSa

ForSa on FB ForSa on Twitter

Penulis Topik: Menampilkan data jarak Di VB.Net  (Dibaca 177466 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline masjawa16

  • Siswa Baru
  • *
  • Tulisan: 0
  • IQ: 0
  • ForSa!
Menampilkan data jarak Di VB.Net
« pada: Desember 18, 2013, 03:38:20 AM »


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: http://goo.gl/kJ8Gl
*/

#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

<

 

Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
2 Jawaban
5743 Dilihat
Tulisan terakhir Desember 09, 2010, 01:23:50 AM
oleh bagus yunanto
0 Jawaban
2482 Dilihat
Tulisan terakhir Februari 21, 2010, 12:57:05 AM
oleh Singgih69
7 Jawaban
7462 Dilihat
Tulisan terakhir Juni 23, 2011, 12:16:48 AM
oleh rakanety
3 Jawaban
7645 Dilihat
Tulisan terakhir Juni 27, 2012, 11:14:33 AM
oleh nivahendri
0 Jawaban
2672 Dilihat
Tulisan terakhir April 20, 2011, 02:12:17 AM
oleh onyenk