Coding Lampu Leds dan LCD
$regfile
= "m8535.dat"
$crystal
= 11059200
$sim
Config
Portd = Output
Leds
Alias Portd
Config
Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 ,
E = Portb.4 , Rs = Portb.5
Config
Lcd = 20 * 4
Do
Cls
Leds
= &HFF
Wait
2
Leds
= &H00
Wait
2
Leds
= &H81
Wait
2
Leds
= &H42
Wait
2
Leds
= &H24
Wait
2
Leds
= &H18
Wait
2
Leds
= &H00
Wait
2
Leds
= &HFF
Locate 1 , 1
'
1234567890123456"
Lcd "CANDRA KRISTANTO"
Locate 2 , 1
Lcd " C1155201114"
Locate 3 , 1
Lcd "AKHMAD KHAIRULLAH"
Locate 4 , 1
Lcd " C1155201103"
Wait 3
Loop
End
Pada saat Leds =
&HFF, maka lampu leds akan menyala semua seperti gambar di bawah ini :
Pada saat Leds =
&H00, maka lampu leds akan mati semua seperti gambar di bawah ini :
Pada saat Leds = &H81, maka lampu leds akan
menyala seperti gambar di bawah ini :
Pada saat Leds =
&H42, maka lampu leds akan menyala semua seperti gambar di bawah ini :
Pada
saat Leds = &H24, maka lampu leds akan menyala semua seperti gambar di
bawah ini :
Pada
saat Leds = &H18, maka lampu leds akan menyala semua seperti gambar di
bawah ini :
Pada
saat Leds = &H00, maka lampu leds akan mati semua seperti gambar di bawah
ini :
Pada saat Leds = &HFF, maka lampu leds akan
menyala semua seperti gambar di bawah ini :
H
Hasil Run :
Keterangan program :
$regfile =
"m8535.dat"
|
Jenis/tipe micro yang digunakan.
|
$crystal =
11059200
|
Kecepatan micro.
|
$sim
|
Simulator.
|
Config Portd =
Output
|
Port yang digunakan.
|
Leds Alias
Portd
|
Lampu leds menyala di portd.
|
Wait 2
|
Waktu tunggu.
|
Loop
|
Perulangan
|
End
|
Akhir program.
|
Config LCD
|
Ukuran untuk LCD yang digunakan
|
Locate 1,1
|
Kolom pertama dan baris pertama pada LCD
|
Locate 2,1
|
Kolom kedua dan baris kedua pada LCD
|
Locate 3,1
|
Kolom ketiga dan baris ketiga pada LCD
|
Locate 4,1
|
Kolom ke empat dan baris ke empat pada LCD
|
Config LCDPIN
|
Untuk menunjukkan titik-titik yang muncul pada LCD
|