Post Top Ad

Post Top Ad

Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7 Blog Adi Sanjaya Global Techno Solution - AS-GTS


Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7

Pada bagian ini , akan dibahas mengenai tombol pushbutton (push on) pada pin mikrokontroler yang di fungsikan sebagai inputan bagi aplikasi pada yang dibangun dengan Delphi 7. Secara sederhana dapat dijelaskan bahwa jika tombol 1 di tekan, maka pada form Delphi akan di tampilkan keterangan pada label bahwa tombol 1 ditekan , begitupun saat tombol 2 di tekan maka akan ditampilkan pada label bahwa tombol 2 ditekan.
Dalam pembahasan kali ini akan di bahas 2 tombol inputan saja sebagai contoh supaya nantinya pembaca dapat mengembangkan nya menjadi lebih kompleks lagi, semisal untuk jumlah tombol yang jumlahnya lebih banyak lagi.
Pada contoh aplikasi ini , sekali lagi mikrokontroller akan dibungkan ke komputer / laptop melalui port serial atau port usb (menggunakan kabel usb to serial converter). Sedangkan tombol push button input dipasang pada PinD3 dan PinD4 mikrokontroller , konfigurasinya sebagai pin input yang bersifat “low aktif” dimana ketika tombol push button di tekan, maka secara otomatis akan menyebabkan pin mikrokontroller terhubung ke jalur ground rangkaian sehingga berlogika low, nah ketiki logika low inilah “kode” bahwa tombol di tekan dikirim ke PC / laptop. Dalam contoh kasus ini, aturan yang dibuat adalah : ketika tombol 1 ditekan maka mikrokontroller akan mengirim karakter angka “1” ke komputer / laptop melalui komunikasi serial , nah di saat yang lain yaitu saat tombol 2 ditekan  maka mikrokontroller akan mengirim karakter angka “2” ke komputer / laptop.
Source code yang ditulis pada software bascom untuk nantinya dicompile dan kemudian di downloadkan pada mikrokontroller adalah sebagai berikut :
$regfile = "m16def.dat"                                     '  jenis mikro yang digunakan
$crystal = 16000000                                         'Cristal yang digunakan
$baud = 9600                                                'baud rate yang digunakan
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = PortA.2 , Rs = Porta.0
Config Lcd = 16 * 2
cls
Cursor Off
CONFIG PORTC.0 = INPUT
CONFIG PORTC.1 = INPUT
Portc.0 = 1
Portc.1 = 1
Print "Ok!"
wait 1
cls
locate 1 , 1
lcd "INPUT TOMBOL"
locate 2 , 1
lcd "PORT SERIAL"
Do
if PINC.0 = 0 then
WAITms 200
Print "1" ;
WAITms 200
Cls
Locate 1 , 4
Lcd "TOMBOL 1"

elseif PINC.1 = 0 then
WAITms 200
Print "2";
WAITms 200
Cls
Locate 1 , 4
Lcd "TOMBOL 2"
end IF
loop
Sedikit penjelasan pada program utama dari source code di atas adalah bagian source code sebagai berikut :
if PORTC.0 = 0 then
Print "1";
Adalah bagian perintah jika tombol 1 yang terhubung di portd.3 ditekan maka akan mengirimkan karakter “1” ke komputer. Begitu pula bagian source code
elseif PORTC.1 = 0 then
Print "2";
Adalah bagian perintah jika tombol 2 yang terhubung di portd.4 ditekan maka akan mengirimkan karakter “1” ke komputer.
Dari penjelasan jalannya program di atas, dapat dijelaskan bahwa bahwa :
“ketika tombol 1 ditekan maka mikrokontroller akan mengirim karakter angka “1” ke komputer / laptop melalui komunikasi serial , nah di saat yang lain yaitu saat tombol 2 ditekan  maka mikrokontroller akan mengirim karakter angka “2” ke komputer / laptop”
Maka dapat diambil kesimpulan, nantinya komputer akan menerima karakter angka “1” saat tombol 1 ditekan , dan angka “2” saat tombol 2 ditekan. Dari aturan / rule tersebut, nantinya aplikasi yang di buat dengan Delphi akan menampilkan keterangan pada komponen label bahwa “tombol 1 ditekan” atau “tombol 2 ditekan” ketikan tombol 1 atau tombol 2 pada mikrokontroller di tekan.

Secara tabel dapat di tuliskan sebagai berikut :
No
Tombol ditekan pada mikrokontroller
Karakter dikirim dari mikrokontroller
Karakter diterima oleh komputer / laptop
Keterangan yang ditampilkan pada komponen label aplikasi Delphi
1
tombol 1
1
1
tombol 1 ditekan
2
tombol 2
2
2
tombol 1 ditekan

Setelah source code didownloadkan pada mirkokontroller (cara download pada bagian mikrokontroller dapa dilihat pada video yang terlampir pada CD à folder video)
Saat nya di ujicoba melalui hyperteminal, apakah benar saat tombol 1 ditekan, maka mikrokontroller akan mengirim karakter angka 1 ke komputer/ laptop? Demikian juga untuk tombol 2,apakah ketika ditekan akan mengirim karakter angka 2
Berikut ini adalah hasil uji cobanya :





Setelah ujicoba dengan hyperterminal berhasil, selanjutnya pembuatan source code pada aplikasi Delphi yang dipergunakan untuk menampilkan status tombol yang di tekan pada mikrokontroller. berikut ini adalah komponen yang dipergunakan
no
Nama komponen
Properties
value
1
Label1
Caption
Tombol ditekan
2
Button1
Caption
Open Conn uC


Name
Button1
3
Button2
Caption
Cek


Name
Button2
4
Button3
Caption
Set port


Name
Button3
5
Comport1
-
-

Susunan komponen pada form adalah sebagai berikut :



Untuk source code nya adalah sebagai berikut :

No
Nama komponen
event
Source
1
Comport1
onrxchar
var datain: String;
begin

ComPort1.ReadStr(datain, Count);
 if datain ='1' then
 begin
 label1.Caption:='Tombol 1 ditekan'
 end
 else

 if datain ='2' then
 begin
 label1.Caption:='Tombol 2 ditekan'
 end
 end
2
Button1

if ComPort1.Connected then
begin
ComPort1.Close;
button1.Caption:='Open Conn uC';
end
else
begin
ComPort1.Open;
button1.Caption:='Close Conn uC';
end;
3
Button3

comport1.ShowSetupDialog;

Hasil eksekusi program nya adalah sebagai berikut:

Ujicoba nya adalah sebagai berikut :


Gambar uji koneksi sukses


Gambar tombol 1 ditekan



Gambar tombol 2 ditekan




Video Pengujian Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7




jika mebutuhkan source code  aplikasi lengkap beserta file PCB dapat membeli ebook pada link dibawah ini :

http://www.embeddedsystem.itstoshare.com/2011/11/e-book-tutorial-version-step-by-step.html