Led Cub 4x4 dengan atmega8 / atmega 16 / atmega 8535

Led Cub 4x4 dengan atmega8 / atmega 16 / atmega 8535

Skema Led Cub 4x4

Listing kodenya :

'*********************************************

'* This Program Writing By : Hossein Lachini *

'* The Persian LED Sign Board                *

'* For to get more details visit :           *

'* Contact to me by : eLachini@Gmail.com     *

'* Mobile/SMS : +98 912 381 2060             *

'*********************************************

$regfile = "m16def.dat"

$crystal = 1000000

Config Porta = Output

Config Portb = Output

Config Portc = Output

Config Portd = Output

Dim Row As Byte

Dim Scan As Byte

Dim Refresh As Byte

Dim Character As Byte

Dim C As Byte

Do

For Character = 0 To 200 Step 8

For Refresh = 0 To 80

   Scan = &B11111110

   For Row = 0 To 7

      Porta = Scan

      C = Character + Row

      Portd = Lookup(c , Ani)

      Waitus 200

      Portd = 0

      Rotate Scan , Left

   Next Row

Next Refresh

Next Character

Loop

End

Ani:

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B11000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B11111000

   Data &B10000000

   Data &B10000000

   Data &B10000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

   Data &B00000000

**simpan Listing kodenya dalam ekxtensi .BAS

dan buka dengan aplikasi bascom AVR