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

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya)

Taufik Adi Sanjaya Website penulis : http://www.embeddedsystem.itstoshare.com

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

Lisensi Dokumen: Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.

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

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya) 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

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya) 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

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya) 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 Karakter dikirim dari Karakter mikrokontroller

mikrokontroller

oleh

diterima Keterangan

yang

/ ditampilkan

pada

komputer

laptop

komponen 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 :

label


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

Caption

Cek

Name

Button2

Caption

Set port

Name

Button3

-

-

3

4

5

Button2

Button3

Comport1

Susunan komponen pada form adalah sebagai berikut :


Untuk source code nya adalah sebagai berikut : No 1

Nama komponen Comport1

event onrxchar

Source 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

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya) Conn uC'; end else begin ComPort1.Open; button1.Caption:='Close Conn uC'; end; 3

Button3

Hasil eksekusi program nya adalah sebagai berikut:

Ujicoba nya adalah sebagai berikut : Gambar uji koneksi sukses

Gambar tombol 1 ditekan

comport1.ShowSetupDialog;


Gambar tombol 2 ditekan

Penutup

Semoga bermanfaat dan Selamat Berkarya. Silakan baca tulisan saya di IlmuKomputer.com sebagai berikut:

1. “Akses SMS dengan Delphi 7: Kirim dan terima SMS di Hand Phone Nokia dengan Mudah menggunakan komponen Oxygen SMS pada Delphi7.0” 2. “Akses SMS dengan Delphi 7: Membuat SMS Broadcaster dengan Delphi 7.0 menggunakan komponen oxygen SMS” 3. “Mengakses database Access dengan Delphi 7.0” 4. “Membuat report pada Delphi 7.0 menggunakan komponen Rave Report” 5. “Mengakses port parallel PC dengan Delphi 7.0 menggunakan komponen Small Port” 6. “Cara Instalasi komponen Oxygen SMS pada Delphi 7.0” 7. “Cara Instalasi komponen Small Port pada Delphi 7.0” 8. “Instalisasi Sui Pack Pada Delphi 7.0” 9. “Mempercantik tampilan Program yag dibuat dengan Delphi 7.0 menggunakan Komponen Suipack” 10. “Membuat Web sederhana dengan Joomla” 11. “Membuat Dialog Killer dengan Delphi 7”

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya) 12. “Memproteksi file PDF (PDF SECURE)” 13. “Memproteksi file PDF dengan password” 14. “Program untuk Capture Foto dengan Webcam menggunakan Delphi 7.0” 15. “Menggunakan grafik / chart pada Borland Delphi 7“ 16. “Menghapus karakter / huruf tertentu dalam teks pada komponen edit atau label di Delphi “ 17. “Menghapus SPASI dalam teks pada komponen edit atau label di Delphi “ 18. “Contoh aplikasi komunikasi serial delphi” 19. “Virtual serial port , Solusi simulasi komunikasi serial computer dalam satu computer”

Dan masih banyak lagi

Referensi Biografi Penulis Taufik Adi Sanjaya. Numpang lahir di Garut, Jawa Barat. Dibesarkan di Kulon Progo. Saat ini tinggal di Bantul, Daerah Istimewa Yogyakarta. Konsentrasi Study yang diambil adalah Kendali Industri. Di Universitas Negeri Yogyakarta. Pemrograman Delphi (khususnya Akses Port Paralel PC, port serial, pemrograman mikrokontroller keluarga AVR dengan Bascom AVR.

Website http://www.embeddedsystem.itstoshare.com Blog Resmi Penulis http://taufikadisanjaya.blogspot.com/ Email : [email protected] Hp : 085743320570

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

Recommend Documents