MEMBUAT TULISAN BERJALAN PADA DOT MATRIK DENGAN IC AT89S51

        I.            Nama berjalan dot matrik 

                   DISIGNER EKO WAHYUDI      

 TU       TUJUAN

SETELAH SELESAI PRAKTEK SISIWA DIHARAPKAN DAPAT:

Ø  Trampil menjelaskan port IC AT89S51.

Ø  Merencanakan program dengan pengendali dengan modul AT89S51.

Ø  Menulis program dengan menggunakan computer.

Ø  Mengkopilehasil pemprogaman dengan ASM51.

Ø  Mensimulasikan progam dengan isis proteus.

Ø  Mendownload progam kedalam modul AT89S51.

Ø  Mencoba hasil download kedalam display / hardware.

Ø  Trampil membuat laporan.

      II.            ALAT DAN BAHAN YANG DIPERGUNAKAN:

A.      Alat:

v  Modul AT89S51.

v  Modul DOT matrik.

v  Power suplay 5 VDC.

v  Computer dilengkapi software pendukung.

B.      Bahan:

v  Kabel data parallel.

v  Kabel data IDC.

v  Software lec-isp.

v  Software ASM51.

v  Software isis proteus.

    III.            STANDART OPERATING PROSEDUR:

Ø  Membuat perencanaan program assembler.

Ø  Mengajukan alart dan bahan kepada petugas.

Ø  Menyiapkan alat  dan bahan yang akan digunakan.

Ø  Pastikan alat dan bahan yang diterima sesuai dengan ketentuan.

Ø  Mengajukan rencana progan kepada instruktur.

Ø  Menulis progam ke computer dengan aplikasi note pad.

Ø  Menyimpan progam dengan extention *asm.

Ø  Mengkompile file dengan BASCOM-AVR.

Ø  Melakukan perbaikan progam jika terjadi kesalahan.

Ø  Mendownload progam dengan lec-isp.

Ø  Menguji coba hasil download dengan hardware (modul).

    IV.            TUGAS:

Ø  Rencanakan progam untuk mengendalikan nyala lampu berjalan kekanan kemudian ke kiri dan kembalilagi.

Ø  Tuliskan progam pada lembar yang telah disediakan.

Ø  Buat rangkaian simulator.

Ø  Lakukan compiler progam asm to hex.

Ø  Download file hex ke rangkaian simulator.

Ø  Jalankan progam.

      V.            GAMBAR KERJA:

    VI.            PROGAM :

$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 255

  E = S + 4

  For Refresh = 1 To 5

   Scan = &H01

   For I = S 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

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 &H7F , &H49 , &H49 , &H49 , &H41 , &H00                'E

Data &H7F , &H08 , &H14 , &H22 , &H41 , &H00                'K

Data &H3E , &H41 , &H41 , &H41 , &H3E , &H00                'O

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00                '

Data &H7F , &H02 , &H04 , &H02 , &H7F , &H00 ,              'W

Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A

Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00                'H

Data &H60 , &H10 , &H0F , &H10 , &H60 , &H00                'Y

Data &H7E , &H01 , &H01 , &H01 , &H7E , &H00                'U

Data &H7F , &H41 , &H41 , &H41 , &H3E , &H00                'D

Data &H00 , &H41 , &H7F , &H41 , &H00 , &H00                'I

Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H7F , &H49 , &H49 , &H49 , &H41 , &H00                'E

Data &H7F , &H20 , &H10 , &H20 , &H7F , &H00                'M

Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A

Data &H00 , &H41 , &H7F , &H41 , &H00 , &H00                'I

Data &H7F , &H01 , &H01 , &H01 , &H00 , &H00                'L

Data &H00 , &H00 , &H14 , &H00 , &H00 , &H00                ':

Data &H7F , &H49 , &H49 , &H49 , &H41 , &H00                'E

Data &H3E , &H41 , &H41 , &H41 , &H22 , &H00                'C

Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00                'H

Data &H60 , &H10 , &H0F , &H10 , &H60 , &H00                'Y

Data &H01 , &H01 , &H01 , &H01 , &H01 , &H00                '_

Data &H7F , &H02 , &H04 , &H02 , &H7F , &H00 ,              'W

Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A

Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00                'H

Data &H60 , &H10 , &H0F , &H10 , &H60 , &H00                'Y

Data &H7E , &H01 , &H01 , &H01 , &H7E , &H00                'U

Data &H7F , &H41 , &H41 , &H41 , &H3E , &H00                'D

Data &H00 , &H41 , &H7F , &H41 , &H00 , &H00                'I

Data &H3E , &H41 , &H5D , &H55 , &H3C , &H00                '@

Data &H60 , &H10 , &H0F , &H10 , &H60 , &H00                'Y

Data &H3F , &H44 , &H44 , &H44 , &H3F , &H00                'A

Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00                'H

Data &H3E , &H41 , &H41 , &H41 , &H3E , &H00                'O

Data &H3E , &H41 , &H41 , &H41 , &H3E , &H00                'O

Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00                '.

Data &H3E , &H41 , &H41 , &H41 , &H22 , &H00                'C

Data &H3E , &H41 , &H41 , &H41 , &H3E , &H00                'O

Data &H7F , &H20 , &H10 , &H20 , &H7F , &H00                'M

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

  VII.            DATA YANG DIKIRIM KE IC:

: 1000000012c0189518951895189518951895189563

 : 100010001895189518951895189518951895189578

 : 100020001895189518958fe58dbfc0e4e0e44e2e25

 : 1000300084e08ebfd4e0f4e05f2eeeeff3e0a0e6c4

 : 10004000b0e088278d933197e9f766248fef87bb5f

 : 100050008fef84bb8fef81bb80e0809364000091c1

 : 1000600064000f3f10f009f0dac00091640044e032

 : 10007000040fa6e6b0e00c9381e08093620000914b

 : 100080006200053010f009f0c3c081e08093600089

 : 10009000809164008093610040916600009161004e

 : 1000a000041710f009f0adc0e4e2f2e0a1e6b0e020

 : 1000b0008c919927bb27a2e37dd181e088bb80e0aa

 : 1000c00088bb0091610045e0040fa7e6b0e00c9307

 : 1000d000e4e2f2e0a7e6b0e08c919927bb27a2e327

 : 1000e00069d182e088bb80e088bb009161004ae072

 : 1000f000040fa7e6b0e00c93e4e2f2e0a7e6b0e07c

 : 100100008c919927bb27a2e355d184e088bb80e07e

 : 1001100088bb009161004fe0040fa7e6b0e00c93ac

 : 10012000e4e2f2e0a7e6b0e08c919927bb27a2e3d6

 : 1001300041d188e088bb80e088bb0091610044e148

 : 10014000040fa7e6b0e00c93e4e2f2e0a7e6b0e02b

 : 100150008c919927bb27a2e32dd180e188bb80e059

 : 1001600088bb0091610049e1040fa7e6b0e00c9361

 : 10017000e4e2f2e0a7e6b0e08c919927bb27a2e386

 : 1001800019d180e288bb80e088bb009161004ee11c

 : 10019000040fa7e6b0e00c93e4e2f2e0a7e6b0e0db

 : 1001a0008c919927bb27a2e305d180e488bb80e02e

 : 1001b00088bb0091610043e2040fa7e6b0e00c9316

 : 1001c000e4e2f2e0a7e6b0e08c919927bb27a2e336

 : 1001d000f1d080e888bb80e088bba0e6b0e08c91dd

 : 1001e00085bb91e0a0e6b0e0d0d085e090e0bed045

 : 1001f00080e085bba1e6b0e08c918f5f8c9309f025

 : 100200004bcfa2e6b0e08c918f5f8c9309f037cf93

 : 10021000a4e6b0e08c918f5f8c9309f020cf1ccfc7

 : 10022000f894ffcf00000000000000000000000074

 : 1002300000000000000000000000000000000000be

 : 10024000000000000000007f49494941007f081478

 : 100250002241003e4141413e000000000000007f7d

 : 100260000204027f003f4444443f007f0808087fa7

 : 100270000060100f1060007e0101017e007f41418f

 : 10028000413e0000417f41000000000000007f4926

 : 10029000494941007f2010207f003f4444443f00f3

 : 1002a00000417f4100007f010101000000001400b7

 : 1002b00000007f49494941003e41414122007f08f9

 : 1002c00008087f0060100f106000010101010100ab

 : 1002d0007f0204027f003f4444443f007f08080837

 : 1002e0007f0060100f1060007e0101017e007f41e1

 : 1002f00041413e0000417f4100003e415d553c00d0

 : 1003000060100f1060003f4444443f007f0808081d

 : 100310007f003e4141413e003e4141413e000000e0

 : 10032000010000003e41414122003e4141413e006a

 : 100330007f2010207f00000000000000000000006f

 : 1003400000000000000000000000000000000000ad

 : 10035000000000000000000000003197f1f7089550

 : 10036000689462f80895e89462f80895ef93ff9313

 : 10037000ee27e82be92b31f0eaeff0e03197f1f7c7

 : 100380000197d1f7ff91ef910895903039f08c915a

 : 10039000880f08f481609a95d9f78c93089581e0cd

 : 1003a00003c082e001c084e0c8950d9231968a9521

 : 0a03b000d9f70895e80ff91ff2cf06

 : 00000001ff



 DOWNLOAD FILE