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/