Pernah kita bahas tentang membuat monitoring suhu dengan mikrokontroler
Arduino. Kali ini kita coba dengan aplikasi mikrokontroler AVR ATmega8535.
Program di komputer dibuat dengan Delphi. Sedikit modifikasi kita tambahkan
grafik.
$regfile = “m8535.dat”
$crystal = 16000000
$baud = 9600
Dim Data_adc As Word , Suhu As Word
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4
Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2
Cursor Off
Cls
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Lcd “Monitoring Suhu”
Lowerline
Lcd “Temp=”
Start Adc
Do
Data_adc = Getadc(0)
Suhu = Data_adc * 5
Suhu = Suhu / 10
Locate 2 , 6
Lcd Suhu ; Chr(&Hdf) ; “C “
Print Suhu ;
Wait 1
Loop
End
Giliran Delphi untuk digarap. Pertama, pasang 3 buah Label, 1 Panel, 1 Chart, 1 Groupbox, 4 buah Button, 1 Comport dan 1 Timer. Kalau di program Delphi belum ada komponen Comport, install terlebih dulu dengan cara seperti materi .
Timer hanya untuk menampilkan informasi waktu, tanggal dan jam. Klik dua kali pada komponen timer1, kemudian tulis perintah berikut :
label2.Caption:=’Date ‘+ FormatdateTime(‘d/mm/yyyy’,Date);
label3.Caption:=’Time ‘+ FormatDateTime(‘hh:nn:ss’,Time);
Nah bagian yang terpenting adalah menangani data usb yang masuk. Nantinya akan ditampilkan ke Panel1 dan grafik (Chart1). Tentu saja kita menanganinya pada event ‘ComPort1RxChar’. Tulis perintah berikut pada event tersebut :
ComPort1.ReadStr(Str,Count);
panel1.Caption:=Str+’ Celcius';
suhu:=strToint(str);
with series1 do
begin
add(suhu,”,clred);
end;
with chart1.BottomAxis do
begin
automatic:=false;
maximum:=series1.Xvalues.last;
minimum:=maximum-10;
end;
Tombol (Button) Setup untuk membuat konfigurasi comport :
comport1.ShowSetupDialog;
Sedangkan tombol Start untuk memulai komunikasi usb :
comport1.Connected:=True;
button2.Enabled:=False;
button3.Enabled:=true;
Tombol stop untuk mengakhiri komuniikasi usb :
comport1.Connected:=false;
button3.Enabled:=False;
button2.Enabled:=true;
exit untuk keluar dari aplikasi :
application.Terminate;
Setelah program di mikrokontroler aktif, jalankan program di Delphi. Klik Start, maka akan tempil seperti gambar berikut :
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon