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

Read More

MENGHIDUPKA 7 SEGMEN DAN LED DENGAN IC AT89C51

TEKNIK ELEKTRO

SMK BINAWIYATA KARANGMALANG SRAGEN

MIKROKONTROLER

IC AT89C51 

 Program untuk menghidupkan 7segment P2  Dan Lampu led P1

Design             :eko wahyudi

No Indok        :8193

Kelas               :3Elektro1

1.TUJUAN INSTRUKSIONAL KHUSUS:

·         Terampil dalam merangkai rangkaian mikrokontroler.

·         Terampil menggunakan IC AT89C51.

·         Terampil membaca skema gambar rangkaian pengendali mikrokontroler.

·         Terampil dalam melakukan pemrograman IC mikrokontroler.

·         membuat rangkaian mikrokontroler dengan display 7 segment Dgan Lampu Led

2.ALAT DAN BAHAN:

Alat :

1.PC (personal computer)

2.Software terkait ( Isis Proteus.exe, Notepad,MIDE-51)

3. Alat untuk mengupload data ke IC AT89C51

4.Alat Tulis

     

 BAHAN:  
     1.IC AT89C51  
     2.Resistor 220 omh
     3.Crystal 
          4.Capasitor 10uf
     5.Elco 10uf 16 v
     6.vcc  
     7. Resistor 10k
     8.segment
     9.Led

3. KESELAMATAN KERJA:

                           1.   Gunakanlah seragam praktek saat melakukan praktek.

                           2.   Perhatikan cara memegang komponen yang benar.

                           3.   Jangan menaruh komponen di tepi meja.

                           4.   Perhatikan batas daya pada komponen.

                           5.   Sebelum mencoba pastikan saklar dalam posisi off.

                           6.   Perhatikan tata tertib dan peraturan saat praktek.

                           7.   Telitilah sebelum di coba menggunakan arus.

                           8.   Bila terjadi trouble segera lapor pembimbing.

                           9.   Rangkailah seperti gambar rangkain.

4. LANGKAH KERJA:

·         Pastikan alat dan bahan telah tersedia.

·         Berdoa sebelum melakukan praktek.

·         Perhatikan penjelasan pembimbing.

·         Rangkailah rangkaian mikrokontroler pada computer anda seperti yang diterangkan oleh pembimbing.

·         Buat menggunakan note pad dengan teliti.

·         Mengkompel program.

·         Mengupload program.

·         Mensimulasikan rangkaian.

5. DATA PENGAMATAN:

A.Gambar kerja:

           B.Program:

$mod51

;===================================

;Program menghidupkan 7segment dan led

;by.EKO WAHYUDI

;===================================

      org      0h

mulai:  mov     A,P3          

      cjne     A,#0FEh,banding1

      mov      p1,a          

      mov      P0,#0c0h       

      sjmp     mulai         

banding1:

      cjne     A,#0FDh,banding2

      mov      p1,a

      mov      P0,#0F9h

      sjmp     mulai

banding2:

      cjne     A,#0FBh,banding3

      mov      p1,a

      mov      P0,#0a4h

      sjmp     mulai

banding3:

      cjne     A,#0F7h,banding4

      mov      p1,a

      mov      P0,#0b0h

      sjmp     mulai

banding4:

      cjne     A,#0EFh,banding5

      mov      p1,a

      mov      P0,#99h

      sjmp     mulai

banding5:

      cjne     A,#0DFh,banding6

      mov      p1,a

      mov      P0,#92h

      sjmp     mulai

banding6:

      cjne     A,#0BFh,banding7

      mov      p1,a

      mov      P0,#82h

      sjmp     mulai

banding7:

      cjne     A,#07Fh,mulai

      mov      p1,a

      mov      P0,#0F8h

      sjmp     mulai

;

      End



DOWNLOAD FILE

Read More

FARIASI LED DENGAN IC AT89C51

   TEKNIK ELEKTRO

   SMK BINAWIYATA KARANGMALANG SRAGEN

   MIKROKONTROLER

   IC AT89C51

Lampu Led berjalan kanan , kiri

Nama   :  eko wahyudi
No       :  8193
Kelas   :  3 Elektro 1

I. TUJUAN PRAKTEK

Setelah selesai praktek siswa diharapkan dapat:

1. Tranpil menjelaskan port IC AT89C51
2. Trampil merencanakan progam pengendali dengan modul AT89C51
3. Trampil menulis program menggunakan komputer
4. Trampil mengcompile hasil pemrograman dengan ASM51
5. Trampil mensimulasikan progam Dbg 8051
6. Trampil mendownload progam ke IC AT89C51
7. Trampil mencoba hasil download kedalam display/hardware
8. Trampil membuat laporan dengan bloger

II. ALAT DAN BAHAN YANG DIPERGUNAKAN:

·  ALAT

1. Komputer lengkap beserta software yang dibutuhkan
2. Modul IC AT 89C51
3. Power suply 5v
4. Modul 10 LED

·  BAHAN

1. Kabel data paralel
2. Kabel data IDC 10
3. Software Iec-isp
4. Software ASM51
5. Software Dbg 8051

III. STANDARD OPERATING PROSEDUR:

1. Membuat perencanaan progam asember
2. Mengajukan alat dan bahan kepada petugas(toolman)
3. Menyiapkan alat dan bahan yang diperlukan
4. Pastikan alat dan bahan yang diterima sesuai dengan keperluan
5. Mengajukan rencana progam kepada instruktur
6. Menulis program ke komputer dengan aplikasi notepad,seperti dibawah ini
7. Menyimpan dengan extention *.asm
8. Mengcompail file dengan ASM51
9. Melakukan perbaikan apabila terjadi kesalahan
10. Mendownloads progrm dengan Iec-isp
11.  Menguji hasil download dengan hardware(modul)

I  V.DATA PENGAMATAN

    A.    Gambar kerja

       B.     Program

$mod51

;===================================

;variasi led

;by eko wahyudi

;===================================

org 0h

mulai:    
    mov A,#01111111b

    mov r4,#8

cek1:    
    mov p0,A

    clr C

    rrc A

    call delay

    djnz r4,cek1

    mov r4,#8

cek2:    
    setb c

    rlc a

    mov p0,a

    call delay

    call delay

    djnz r4,cek2

    call delay

    call delay

    call delay

    jmp mulai

delay:    
    djnz r3,delay

    djnz r1,delay

    REt

        end   

DOWNLOAD FILE

Read More