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