Membuat Tampilan Suhu menggunakan Arduino di LCD dan Visual Basic

Seperti Artikel sebelumnya yaitu KOMUNIKASI ARDUINO DENGAN PC UNTUK KONTROL SUHU RUANGAN kali ini saya ingin memberikan suatu project yaitu kita dapat menampilkan 2 buah sistem yaitu kita dapat menampilkan tampilan suhu dengan menggunakan LCD dan juga dapat kita tampilkan pada VB6.0

Langkah – langkah pembuatan siapkan board arduino, bisa membelinya melalui linkberikut ini

http://lapakmikrorobotik.blogspot.com/2011/12/arduino-basic-tolls-kit-untuk.html

lalu siapkan sensor suhu LM35 konekkan kaki sensor suhu menuju tegangan 5V dan juga Gnd dan kaki Out dari sensor dikoneksikan kedalam board arduino pada port yang terdapat ADC nya dalam arduino yang saya buat terletak dalam port A0

lalu kita siapkan LCD 2×16 dan kita koneksikan kedalam port arduino sesuai dengan gambar rangkaian dibawah ini

Lalu buka sofware arduino dan ketikan seperti program yang ada dibawah ini

//deklarasi variabel
float tempC;
int tempPin = 0;
const int ledPin = 13;       //
const int threshold = 100;   //
// include the library code:
#include <LiquidCrystal.h>

// initialize the library with the numbers of the interface pins
LiquidCrystal lcd(12, 11, 5, 4, 3, 2);

void setup()
{
// set up the LCD’s number of columns and rows:
lcd.begin(16, 2);
// Print a message to the LCD.
lcd.print(“Suhu Ruangan”);
Serial.begin(9600); //buka serial port
pinMode(13, OUTPUT);
}
void loop()
{
tempC = analogRead(tempPin); // baca data dari sebsor
tempC = (5.0 * tempC * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC,DEC); //kirim data via serial
delay(1000);
// if the analog value is high enough, turn on the LED:
if (tempC > threshold) {
digitalWrite(ledPin, HIGH);
}
else {
digitalWrite(ledPin,LOW);
}
// set the cursor to column 0, line 1
// (note: line 1 is the second row, since counting begins with 0):
lcd.setCursor(0, 1);
// print the number of seconds since reset:
lcd.print((int)tempC,DEC);
}

lalu download / upload program menuju board arduino dan setelah itu buka program Visual Basic 6.0 dan persiapkan langkah-langkah berikut ini

1. Buka program VB 6.0

2. lalu persiapkan di Form 1 VB isi yang akan dipakai seperti

a. label1

b. label2

c. label3

d. timer 1

e. MScomm1

seperti pada gambar dibawah ini

Setelah selesai ketikan program untuk VB seperti dibawah ini

Private Sub Form_Load()
With MSComm1
‘non aktifkan dulu serial port
If .PortOpen Then .PortOpen = False
‘set serial port yang ingin digunakan
.CommPort = 15
‘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

Private Sub Timer1_Timer()
Label3.Left = Label3.Left + 50
If Label3.Left > 2040 Then
Label3.Left = 120
End If
End Sub
setelah itu diruning, dan lihat hasilnya VB akan menampilkan suhu ruangan begitu juga LCD juga akan tertampil suhu ruangan yang sama persis dengan yang tertampil pada Vb, dengan demikian kita memiliki dua tampilan yang bisa kita gunakan sesuai dengan kebutuhan sistem kita.

About these ads

2 thoughts on “Membuat Tampilan Suhu menggunakan Arduino di LCD dan Visual Basic

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s