VB6.0 DAN DELPHI :: Koneksi Arduino Dengan Visual Basic 6.0 dan Delphi

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

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>