Program mikrokontroler dengan LCD 16 kali 2

Disini saya akan share beberapa program mikrokontroler yang berbasis ATmega 16, program dari bascom ini sebenarnya gak terlalu sulit untuk membuatnya. Sekarang dunia industri banyak yang memakai alat yang otomatis dan menggunakan sebuah IC untuk menjalankan programnya. IC itu sendiri diibaratkan sebagai otak dari alat tersebut, Langsung aja ke programnya.

Untuk membuat rangkaian saya menggunakan software proteus, kalian bisa download dimana saja...
nih gambar dari rangkaiannya.

Dari gambar di atas saya menggunakan port D sebagai output/penggunaan lcd nya, untuk yang sebelah kiri itu rangkaian crystal.

Berikut beberapa program yang saya buat :

> menampilkan kata

$crystal = 4000000
$regfile = "m8535.dat"

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off

Do
   Cls
   Waitms 100
   Lcd "mikroprosesor"
   Lowerline
   Lcd "modul stk 500"
   Waitms 10000

Loop


End

> menampilkan kata berjalan

'deklarasi header
$regfile = "m8535.dat"

'deklarasi crystal
$crystal = 4000000

'lcd & port configuration
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcdbus = 4
Config Lcd = 16 * 2
Dim Geser As Byte
Cursor Off
Geser = 0
Cls

'rutin utama
Do
Locate 1 , 1
Lcd "praktikum mikroprosesor"
For Geser = 0 To 16
Shiftlcd Left
Waitms 400
Next Geser
Geser = 0

Loop

> menampilkan kata yang bergantian

'deklarasi crystal
$crystal = 4000000

'deklarasi header
$regfile = "m8535.dat"

'lcd & port configuration
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off
Cls

Do
'rutin utama
Lcd "agustus"
Waitms 1000
Lowerline
Lcd "01"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "02"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "03"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "04"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "05"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "06"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "07"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "08"
Waitms 1000
Cls

Lcd "agustus"
Waitms 1000
Lowerline
Lcd "09"
Waitms 1000
Cls
Loop



End


*Kalian dapat mengganti kata-katanya dengan mengganti kata yang berada pada tanda "..." dan     kalian dapat mengubah delay time nya sendiri.
  Program ini dapat digunakan hanya dengan sofrtware bascom saja kalau pakek kodevision             programnya lebih rumit lagi....
  Semoga bermafaat dan dapat digunakan sebagai bahan pembelajaran....