Koneksi Erulduino Dengan Visual Basic 6.0 dan Delphi

Salah satu kemudahan yang ada pada Arduino adalah adanya fungsi komunikasi serial yang sudah dibundel pada software Arduino. Dengan adanya fungsi serial, maka Arduino dapat berkomunikasi dua arah
dengan PC atau laptop menggunakan program yang dibuat menggunakan Delphi, Visual C atau Visual Basic.

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), sedangkan Delphi adalah Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGearsebagai divisi pengembangan perangkat lunak. ini merupakan video bagaimana komunikasi antara erulduino dengan VB. Net

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. lebih lengkapnya baca disini

kami membuat contoh program sederhana dan lengkap tentang bagaimana Erulduino berkomunikasi 2 arah dengan komputer menggunakan Visual Basic 6.0 – Dalam contoh ini ditunjukkan bagaimana membaca dan mengirimkan data dari komputer ke Arduino dan sebaliknya. Baik berupa data analog, maupun digital. Contoh yang sangat bagus. dalam kmunikasi erulduino dengan VB berikut ini contoh potongan programnya.

1. Program sensor suhu untuk input dari VB

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

// deklarasi variabel float tempC; int tempPin = 0; void setup() {  // buka serial port, set baud rate 9600 bps  Serial.begin(9600); } void loop() {  // baca data dari sensor  tempC = analogRead(tempPin);  // konversi analog ke suhu  tempC = (5.0 * tempC * 100.0)/1024.0;  // kirim data via serial berupa nilai biner  Serial.print((int)tempC,BYTE);  // tarik nafas sejenak  delay(1000); }

1. Buat sebuah form pada VB6 dan salin program sebagai berikut

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

<span style="font-family: Georgia, 'Times New Roman', 'Bitstream Charter', Times, serif; font-size: 13px; line-height: 19px; white-space: normal;"> <pre class="brush:vb"><pre class="brush:vb"><pre class="brush:vb">Private Sub Form_Load()   With MSComm1     'non aktifkan dulu serial port     If .PortOpen Then .PortOpen = False     'set serial port yang ingin digunakan     .CommPort = 3     'set baud rate,parity,databits,stopbits     .Settings = "9600,N,8,1"     'set DTR and RTS     .DTREnable = True     .RTSEnable = True     'aktifkan event oncomm event     .RThreshold = 1     'non aktifkan event oncomm     .SThreshold = 0     'aktifkan serial port     .PortOpen = True   End With 'MSComm1   'tampilkan tanda derajat   Label2.Caption = Chr(176) + "C" End Sub Private Sub MSComm1_OnComm()   Dim strInput As String   With MSComm1     'test event data masuk     Select Case .CommEvent       Case comEvReceive         'tampilkan data dari Arduino         strInput = .Input         Label1.Caption = Asc(Mid(strInput, 1, 1))     End Select   End With 'MSComm1 End Sub</pre> </pre> </pre> <p> </p> <p></p></span>

selanjutnya kami menyajikan sebuah video bagaimana memanfaatkan Delphi untuk membaca nilai ADC sebagai sensor suhu yang di tampilakan di komputer.

apabila ada kesalahan mohon kasih tahu atau komentar ya guys... biar kita perbarui lagi.