Menghitung dan menampilkan jumlah berapa kali tombol pada mikrokontroler ditekan Blog Adi Sanjaya Global Techno Solution - AS-GTS

Menghitung dan menampilkan jumlah berapa kali tombol pada mikrokontroler ditekan 

            Contoh aplikasi ini merupakan  pengembangan selanjutnya dari bagian yang berjudul Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7, dimana pada bagian tersebut tombol ditekan hanya ditampilkan keterangan pada aplikasi Delphi yang dibuat, sedangkan pada bagian ini, setiap kali tombol 1 ditekan, maka pada aplikasi delphi yang dibuat akan di tampilkan keterangan tentang berapa kali  tombol 1 sudah ditekan.Begitu pula dengan tombol 2 , jika tombol 2 ditekan, maka pada aplikasi delphi yang dibuat akan di tampilkan keterangan tentang berapa kali  tombol 2 sudah ditekan.

            Source code pada bagian mikrokontroler sama dengan source code pada bagian yang berjudul Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7, sedangkan source code pada aplikasi komputer yang dibuat dengan Delphi akan di modifikasi dengan menambahkan komponen tambahan dan sedikit tambahan source code sebagai pencacah berapa kali jumlah tombol sudah ditekan.

Berikut ini adalah tambahan komponen yang ditambahkan ke form pada aplikasi Tombol input mikrokontroller ditampilkan pada form aplikasi yang dibangun dengan Delphi 7,

no	Nama komponen	Properties	value
1	Label2	Caption	Tombol 2 ditekan
2	Perubahan pada label1	Caption	Tombol 1 ditekan

sedangkan tampilannya adalah sebagai berikut :

NB :

Jangan lupa deklarasikan 2 buah variable global tekan1 dan tekan2 dengan tipe integer sebagaimana gambar berikut : 

Selanjutnya Source code nya adalahsebagai berikut :

No	Nama komponen	event	Source
1	Comport1	onrxchar	var datain: String; begin ComPort1.ReadStr(datain, Count);  if datain =’1’ then  begin  inc(tekan1);  label1.Caption:=’Tombol 1 ditekan sebanyak = ‘+ inttostr(tekan1) + ‘ kali’;  end  else  if datain =’2’ then  begin  inc(tekan2);  label2.Caption:=’Tombol 2 ditekan sebanyak = ‘+ inttostr(tekan2) + ‘ kali’;  end  end;
2	Button1	Onclick	if ComPort1.Connected then begin ComPort1.Close; button1.Caption:=’Open Conn uC’; end else begin ComPort1.Open; button1.Caption:=’Close Conn uC’; end;
4	Button3	Onclick	comport1.ShowSetupDialog;
5	Form	On create	tekan1:=0; tekan2:=0;

Hasil eksekusi program nya adalah sebagai berikut :

Test koneksi suksesnya sebagai berikut :

Video Pengujian Menghitung dan menampilkan jumlah berapa kali tombol pada mikrokontroler ditekan 

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 

NB : Pada aplikasi lainnya dapat dikembangkan sebagai penghitung jumlah orang yang memasuki sebuah pintu tertentu pada sebuah gedung. Serta dapat pula dikembangkan menjadi sebuah aplikasi client server yang dapat dilihat oleh banyak user dari banyak komputer untuk  mengakses komputer data pada server mengenai informasi jumlah pengunjung tersebut.