...

Taufik Adi Sanjaya tombol input

by user

on
Category: Documents
1

views

Report

Comments

Transcript

Taufik Adi Sanjaya tombol input
( 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
( 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)
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 :
( 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)
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;
( 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)
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
Fly UP