Tulisan kali ini akan membahas mikrokontroler atmega16 dengan interface Lcd 16x2, dimana atmega16 akan mengeluarkan karakter ke lcd sesuai tombol-tombol yang di tekan nantinya, programnya pun sangat simple dan mudah, so langsung saja,
berikut gambar simulasinya:
dan berikut coding program dengan bascom-Avr :
berikut gambar simulasinya:
dan berikut coding program dengan bascom-Avr :
$regfile = "m16def.dat"
$crystal = 8000000
Config Portc = Input
Portc = &HFF
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
S1 Alias Pinc.0
S2 Alias Pinc.1
Dim Shift_lcd As Byte
Cls
Do 'memunculkan karakter
If S1 = 0 Then
Cls 'menghapus layar lcd
Lcd "Hello world"
Waitms 100
End If
If S2 = 0 Then 'geser karakter lcd
For Shift_lcd = 1 To 16
Shiftlcd Right
Waitms 100
Next Shift_lcd
End If
Loop
$crystal = 8000000
Config Portc = Input
Portc = &HFF
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
S1 Alias Pinc.0
S2 Alias Pinc.1
Dim Shift_lcd As Byte
Cls
Do 'memunculkan karakter
If S1 = 0 Then
Cls 'menghapus layar lcd
Lcd "Hello world"
Waitms 100
End If
If S2 = 0 Then 'geser karakter lcd
For Shift_lcd = 1 To 16
Shiftlcd Right
Waitms 100
Next Shift_lcd
End If
Loop
download http://adf.ly/1ZL0Fo
Password Rar: ganyang-angkara.blogspot.com
moga bermanfaat bagi agan-agan yang ingin mencobanya,
moga berhasil mencobanya..
*..sesama blogger harus saling menghargai, jika agan-agan ingin mengcopas harap cantumkan alamat urlnya, Terimakasih..*