Menampilkan Suhu dari sensor LM35 dan Arduino ke Visual Basic

Sebenernya banyak jenis data yang bisa ditampilkan di visual basic, tidak hanya suhu. Tapi ini berhubung banyak permintaan dan mumpung ketemu pemecah masalahnya, tidak ada salahnya saya bagi ke teman” sekalian. Sudah pasti tujuan akhirnya adalah seperti ini:

Langkah-langkah membuat sensor suhu dengan Arduino dan VB6:

1. Pasang LM5 pada Arduino. Rangkaian seperti ini:
2. Buat program seperti ini pada software Arduino, kemudian upload ke board Arduino.

   /* Program Suhu dan VB 6
    Bangli 2011
    */

   // 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);

   }
3. Buat sebuah form pada VB6 yang berisi Label1 (unutk output Suhu) dan Label2 (untuk output derajat celsius) kemudian salin program sebagai berikut:
   
   
   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
4. Jalankan program VB tersebut dalam keadaan Arduino terhubung dengan komputer. Jangan lupa menyesuaikan nomor port pada program VB anda dengan port yang dipakai Arduino (sudah tau kan gimana cara’a ngecek port yang dipakai Good Luck).

Advertisement