26 Februari 2013

Program Output Paralel AT89x52 menggunakan BASCOM

Mikrokontroler AT89S52 memiliki 4 buah port paralel, yaitu PO, P1, P2, dan P3. Kita menggunakan 8 buah LED yang dihubungkan secara paralel.Untuk lebih jelasnya lihat gambar di bawah! $regfile = "8052.dat"$crystal = 12000000Dim n As Byte, x as byte‘$simFor n = 1 to 4Pl = &h01 Waitms 10 Pl = &h02Waitms 10Pl = &h04Waitms 10Pl = &h08Waitms 10Pl = &h10Waitms 10Pl = &h20Waitms 10Pl = &h40Waitms 10Pl = &h80Waitms 10NextFor x=l to 4Pl=1Waitms 10For n =1 to 8SHIFT Pl, LEFT,1 Waitms 10NEXTNext Penjelasan program di atas sebagai berikut:$regfile = “8052.dat”$crystal = 12000000Pernyataan di atas disebut compiler directive (pengarah kompiler), yang berarti memberitahu ke kompiler bahwa mikrokontroler yang digunakan adalah AT89S52. Anda dapat menggantinya sesuai dengan yang Anda gunakan Frekuensi crystal yang Anda gunakan adalah 12MHz.Dim n As Byte , x As BytePernyataan ini merupakan pendeklarasian variabel n danPl = &h01 Waitms 10 Pl =&h02 Waitms 10Pernyataan yang digunakan untuk mengeluarkan data Port 1, kemudian ditunda selama 10 ms dan mengeluarkan data selanjutnya, sehingga kita akan mendapatkan efek LED yang bergeser dari kiri ke kanan.For n =1 to 8
SHIFT Pl, LEFT,1 Waitms 10
NEXTUntuk menggeser LED ke kiri atau ke kanan selain menggunakan perintah secara langsung, kita bisa pula menggunakan rutin yang telah disediakan oleh BASCOM yaitu SHIFT Pl, Left, 1.Perintah berarti menggeser data F ke arah kiri (dari LSB ke MSB) satu kali. Dalam prograrr agar LED terlihat bergeser, maka perintah diulasebanyak 8 kali menggunakan perintah For…Next. Untul-menggeser data ke arah kanan, kita cukup mengganti Left: menjadi Right.

View the original article here

Ikuti Blog ini

Langganan

Mau dapet Update-an Blog ini lewat e-mail? Masukkin aja alamat Email kamu disini:

Dikirim Oleh FeedBurner