Program Dot matrix 7x5 menggukan Baskom AVR

assalammualaikum wr.wb

wah udah lama ni ndak ngepost sekarang janu akan mempost tentang led matrix atau lebih dikenal dgn dot matrix,sini janu akan memperlihatkan skematik dan juga programnya biar complit.

ini adalah rangkaian skematik dari led matrix 7x5
komponen :
- led 5mm = 35 buah
- R1-R5,1k  = 5
  R6-R12,56 ohm = 5
- transistor bd 547 = 5
rangkaian tersebut inputnya adalah berlogika 1,kolom maupun baris akan bekerja bila diberi logika 1 bisa juga tidak menggunakan transistor dari kaki negatif lang sung nyambung ke pinheatder,contohnya :
dan inputnya untuk kolomnya adlah logika 0,jadi tergantung teman2 mau pakek yg mana.
berikut ini juga skematik mikro yg akan dihubung kan ke led matrix


portc sebagai kolom dan portd sebagai baris
dan berikut ini programnya 

$regfile = "m16def.dat"
$crystal = 8000000

Config Portc = Output
Config Portd = Output

dress Alias Portc
Data_ Alias Portd

Dim Putra As Byte
Dim Man As Byte
Dim N_putra As Byte
Dim N_man As Byte
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte

N_putra = 0
N_man = 0

Do

C = 33
For E = 0 To 33

For B = 0 To 4

For A = 0 To 4

Putra = Lookup(a , Alamat)
adress = Putra

D = A + C
Man = Lookup(d , Janu)
Data_ = Man
Waitms 5

Next
Waitms 1

Next
Decr C

Next

Loop

Alamat:
Data &B11110111
Data &B11101111
Data &B11011111
Data &B10111111
Data &B01111111

Janu:
':D
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B01100110
Data &B01100111
Data &B00000111
Data &B01100111
Data &B01100110
Data &B00000000
'u
Data &B00000000
Data &B01111110
Data &B00000001
Data &B00000001
Data &B00000001
Data &B01111110
Data &B00000000
'n
Data &B01111111
Data &B00000100
Data &B00001000
Data &B00010000
Data &B01111111
Data &B00000000
'a
Data &B00111111
Data &B01001000
Data &B01001000
Data &B01001000
Data &B00111111
Data &B00000000
'j
Data &B01111110
Data &B01000001
Data &B01000001
Data &B01000001
Data &B01000010
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000

Program tersebut akan membuat dot matrix menampilkan "nama saya" sekali kalinebeng, secara geser ke kiri. Dalam program tersebut proses scanning terjadi pada potongan program

For A = 0 To 4

Lima = Lookup(a , Alamat)
Adress = Lima

D = A + C
Tujuh = Lookup(d , Wahyu)
Data_ = Tujuh
Waitms 1

Next

Pada potogan program tersebut terdapat rumus D = A + C, rumus ini digunakan untuk menggeser karakter yang ditampilkan oleh dot matrix sebanyak satu kalikearah kiri. pada potongan program tersebut proses scanning hanya untuk 5 kolomsaja, jika proses ini hanya diulangi sekali saja maka karakter yang ditampilkan tidak akan terlihat karena terlalu cepat, oleh karena itu proses ini juga diulang ulang sebanyak 5 kali supaya tampilan dapat dilihat dengan jelas, sehingga program menjadi

For B = 0 To 4

For A = 0 To 4

Lima = Lookup(a , Alamat)
Adress = Lima

D = A + C
Tujuh = Lookup(d , Wahyu)
Data_ = Tujuh
Waitms 1

Next
Waitms 1

Next

kemudian ditambah lagi dengan satu looping for....next yang digunakan untuk menggeser karakter yaitu.

C = 33
For E = 0 To 33
.
.
.
.
.
Decr C
Next

dan berikut ini contohnya 

sekian dari saya semoga bermanfaat dan selamat mencoba :D
wassalam

sumber : http://janu-tronik.blogspot.com/ dan http://kecoakacau.blogspot.com/