www.suparno.com

SMK Binawiyata Sragen

  • This is default featured slide 1 title

    Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

  • This is default featured slide 2 title

    Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

  • This is default featured slide 3 title

    Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

  • This is default featured slide 4 title

    Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

  • This is default featured slide 5 title

    Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Tampilkan postingan dengan label Dot Matrix. Tampilkan semua postingan
Tampilkan postingan dengan label Dot Matrix. Tampilkan semua postingan

Belajar Dot Matrix 4

3 komentar


Schematic :
 

Code List :
$regfile = "reg51.dat"
$crystal = 12000000
Do
P1 = &B00000001
P2 = &B11111110
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B01111111
Waitms 250
P1 = &B00000010
P2 = &B01111111
Waitms 250
P1 = &B00000100
P2 = &B01111111
Waitms 250
P1 = &B00001000
P2 = &B01111111
Waitms 250
P1 = &B00010000
P2 = &B01111111
Waitms 250
P1 = &B00100000
P2 = &B01111111
Waitms 250
P1 = &B01000000
P2 = &B01111111
Waitms 250
P1 = &B10000000
P2 = &B01111111
Waitms 250

P1 = &B10000000
P2 = &B10111111
Waitms 250
P1 = &B10000000
P2 = &B11011111
Waitms 250
P1 = &B10000000
P2 = &B11101111
Waitms 250
P1 = &B10000000
P2 = &B11110111
Waitms 250
P1 = &B10000000
P2 = &B11111011
Waitms 250
P1 = &B10000000
P2 = &B11111101
Waitms 250
P1 = &B10000000
P2 = &B11111110
Waitms 250
P1 = &B01000000
P2 = &B11111110
Waitms 250
P1 = &B00100000
P2 = &B11111110
Waitms 250
P1 = &B00010000
P2 = &B11111110
Waitms 250
P1 = &B00001000
P2 = &B11111110
Waitms 250
P1 = &B00000100
P2 = &B11111110
Waitms 250
P1 = &B00000010
P2 = &B11111110
Waitms 250
Loop
Share:
Read More

Belajar Dot Matrix 3

2 komentar

Schematic :
 

Code List :
$regfile = "reg51.dat"
$crystal = 12000000
Do
P1 = &B00000001
P2 = &B11111110
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B01111111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
Loop
Share:
Read More

Belajar Dot Matrix 2

2 komentar


Rangkaian :
 

Code List :
$regfile = "reg51.dat"
$crystal = 12000000
Do
P1 = &B00000001
P2 = &B11111110
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B01111111
Waitms 250
Loop
Share:
Read More

Belajar Dot Matrix 1

2 komentar

Rangkaian :
Code List :
$regfile = "reg51.dat"
$crystal = 12000000


Do
P1 = &B10111111                                             'kolom
P2 = &B00000001                                             'baris
Waitms 250
P1 = &B11111111                                             'kolom
P2 = &B00000001                                             'baris
Waitms 250
Loop
Share:
Read More

Animasi text dengan dot matrix 7 x 40

12 komentar
Rangkaian dan Bahan :


  1. Bahan :
    • 1 IC Atamega 8
    • 8 IC 74HC573
    • 8 Gerbang NOT
    • 8 Dot Matrix 5 x 7
  2. Rangkaian :
  3. Code List :
    $regfile = "m8def.dat"
$crystal = 1000000

Config Portb = Output
Config Portc = Output
Config Portd = Output

Dim Scan As Byte
Dim I As Byte
Dim Refresh As Byte
Dim Index As Byte
Dim S As Byte
Dim M As Byte
Dim E As Byte
Dim A As Byte

Do

 For S = 0 To 165
  M = 165 - S
  E = M + 4
  For Refresh = 1 To 5
   Scan = &H01
   For I = M To E

    Portd = Lookup(i , Text00)
    Portb = 1
    Portb = 0

    A = I + 5
    Portd = Lookup(a , Text00)
    Portb = 2
    Portb = 0

    A = I + 10
    Portd = Lookup(a , Text00)
    Portb = 4
    Portb = 0

    A = I + 15
    Portd = Lookup(a , Text00)
    Portb = 8
    Portb = 0

    A = I + 20
    Portd = Lookup(a , Text00)
    Portb = 16
    Portb = 0

    A = I + 25
    Portd = Lookup(a , Text00)
    Portb = 32
    Portb = 0

    A = I + 30
    Portd = Lookup(a , Text00)
    Portb = 64
    Portb = 0

    A = I + 35
    Portd = Lookup(a , Text00)
    Portb = 128
    Portb = 0

    Portc = Scan
    Rotate Scan , Left , 1
    Waitms 5
    Portc = 0

   Next I
  Next Refresh
 Next S

 For S = 0 To 153
  M = 153 - S
  E = M + 4
  For Refresh = 1 To 5
   Scan = &H01
   For I = M To E

    Portd = Lookup(i , Text01)
    Portb = 1
    Portb = 0

    A = I + 5
    Portd = Lookup(a , Text01)
    Portb = 2
    Portb = 0

    A = I + 10
    Portd = Lookup(a , Text01)
    Portb = 4
    Portb = 0

    A = I + 15
    Portd = Lookup(a , Text01)
    Portb = 8
    Portb = 0

    A = I + 20
    Portd = Lookup(a , Text01)
    Portb = 16
    Portb = 0

    A = I + 25
    Portd = Lookup(a , Text01)
    Portb = 32
    Portb = 0

    A = I + 30
    Portd = Lookup(a , Text01)
    Portb = 64
    Portb = 0

    A = I + 35
    Portd = Lookup(a , Text01)
    Portb = 128
    Portb = 0

    Portc = Scan
    Rotate Scan , Left , 1
    Waitms 5
    Portc = 0

   Next I
  Next Refresh
 Next S


 For S = 0 To 45
  M = 45 - S
  E = M + 4
  For Refresh = 1 To 5
   Scan = &H01
   For I = M To E

    Portd = Lookup(i , Text02)
    Portb = 1
    Portb = 0

    A = I + 5
    Portd = Lookup(a , Text02)
    Portb = 2
    Portb = 0

    A = I + 10
    Portd = Lookup(a , Text02)
    Portb = 4
    Portb = 0

    A = I + 15
    Portd = Lookup(a , Text02)
    Portb = 8
    Portb = 0

    A = I + 20
    Portd = Lookup(a , Text02)
    Portb = 16
    Portb = 0

    A = I + 25
    Portd = Lookup(a , Text02)
    Portb = 32
    Portb = 0

    A = I + 30
    Portd = Lookup(a , Text02)
    Portb = 64
    Portb = 0

    A = I + 35
    Portd = Lookup(a , Text02)
    Portb = 128
    Portb = 0

    Portc = Scan
    Rotate Scan , Left , 1
    Waitms 5
    Portc = 0

   Next I
  Next Refresh
 Next S

Loop
End                                                         'end program

Text00:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H31 , &H49 , &H49 , &H49 , &H46 , &H00                'S
Data &H7F , &H20 , &H18 , &H20 , &H7F , &H00                'M
Data &H7F , &H08 , &H14 , &H22 , &H41 , &H00                'K
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H7F , &H49 , &H49 , &H49 , &H36 , &H00                'B
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00                'i
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
Data &H1E , &H01 , &H06 , &H01 , &H1E , &H00                'w
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00                'i
Data &H18 , &H05 , &H05 , &H05 , &H1E , &H00                'y
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
Data &H10 , &H7E , &H11 , &H01 , &H02 , &H00                't
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H31 , &H49 , &H49 , &H49 , &H46 , &H00                'S
Data &H1F , &H08 , &H10 , &H10 , &H08 , &H00                'r
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
Data &H18 , &H25 , &H25 , &H25 , &H3E , &H00                'g
Data &H0E , &H15 , &H15 , &H15 , &H0C , &H00                'e
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Text01:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H02 , &H01 , &H41 , &H7E , &H40 , &H00                'J
Data &H00 , &H41 , &H7F , &H01 , &H00 , &H00                'l
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A
Data &H7F , &H09 , &H11 , &H11 , &H0E , &H00                'b
Data &H00 , &H11 , &H5F , &H01 , &H00 , &H00                'i
Data &H1F , &H10 , &H0C , &H10 , &H0F , &H00                'm
Data &H02 , &H15 , &H15 , &H15 , &H0F , &H00                'a
Data &H1F , &H08 , &H10 , &H10 , &H0F , &H00                'n
Data &H18 , &H05 , &H05 , &H05 , &H1E , &H00                'y
Data &H1E , &H01 , &H01 , &H02 , &H1F , &H00                'u
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H7F , &H10 , &H08 , &H04 , &H7F , &H00                'N
Data &H0E , &H11 , &H11 , &H11 , &H0E , &H00                'o
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H00 , &H21 , &H7F , &H01 , &H00 , &H00                '1
Data &H36 , &H49 , &H49 , &H49 , &H36 , &H00                '8
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Text02:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Share:
Read More

Jadwal Waktu Sholat

TIME WIB

TV EDUKASI LIVE

Popular Posts

Recent Posts

Pages