semester 2

NAMA: JERRY PALEEVI
KELAS: 3 ELEKTRO 2
SEKOLAH: SMK BINAWIYATA SRAGEN 






TUGAS 1
#1.judul: MEMBUAT RANGKAIAN LCD KARAKTER 16 X 2
# 2.Tujuan Instrumen Umum (TIU)
#     1.Siswa dapat menunjukan komponen-komponen yang digunakan.
# 3.Tujuan Instrumen Khusus (TIK)
#     1.Siswa dapat merakit Rangkaian di dalam soft were PROTEUS.
#     2.Siswa dapat membuat program dengan menggunakan Notepad .
#     3.Siswa dapat mengirim program tadi ke dalam rangkaian melalui ASM51 dan diteruskan di panggil di rangkaian IC.
# 4.ALAT DAN BAHAN
#     *  ALAT
#     1.PC computer…………………………1buah
#      *BAHAN ic AT89C51 ........................................1 buah
#     resitor 10k ohm ....................................1buah
#     lcd ..................................1 buah
#     capistor 33 pf .......................................2 buah
#     capasitor elektrolit 10 uf ......................1 buah
#     crystal .........................................1 buah
#     respack .......................................1 buah
#     soft ware proteus..................................1
#     software note pad .................................1
#     software asm51 ....................................1
#
#
# 5.KESELAMATAN KERJA
#     1.Sebelum praktek berdoa terlebih dahulu.
#     2.Pakailah seragam praktek saat praktek
#     3.Siswa sewaktu praktek di larang bersendau gurau.
#     4.Gunakan bahan dan alat sesuai dengan fungsinya
#     5.Jika tugas kurang jelas tanyakan pada guru penguji.
#     6.Setelah selesai laporkan pada guru penguji.
# 6.LANGKAH KERJA
#     1.Nyalakan komputer
#     2.Klik START -> all program -> klik soft wre proteus
#     3.setelah masuk pada soft were Proteus,keluarkan komponen-komponen dengan cara klik P pada soft were Proteus yang berada di bagian kiri komputer kita.
#     4.Selanjutnya tulis pada Keywords komponen apa saja yang butuhkan.
#     5.Setelah itu, rangkailah sesuai dengan perintah
#     6.Setelah selesai ,Selanjutnya kita membuat program menggunakan note pad.contoh :
# $mod51

;-------------------------
; program demo untuk menjalankan lcd 16 x 2
; charakter    fn: fn_11.h51
;-------------------------

    org 0h
    nop
    ljmp    mulai;
write_inst:
    mov    p1,#0h    ; untuk menuliskan
    mov    p0,r1    ;instruksi ke lcd
    setb    p1.1    ;module
    clr    p1.1
    acall    delay
    ret;
write_data:
    mov    p1,#01
    mov     p0,r1
    setb    p1.1
    clr    p1.1
    acall    delay
    ret
delay:    mov    r0,#0
delay1:    mov    r5,#50h
    djnz    r5,$
    djnz    r0,delay1
    ret;
ldelay:    mov    r2,#030h
ld1:    acall    delay
    djnz    r2,ld1
    ret;
tulis:    mov    r4,#3
    mov    dptr,#haline
barisa:    mov    r3,#16
    mov     r1,#80h
    acall    write_inst
tulis1:    clr    a
    movc    a,@a+dptr
    mov    r1,a
    inc    dptr
    acall    write_data
    djnz    r3,tulis1;
barisb:    mov    r3,#16
    mov    r1,#0c0h
    acall    write_inst
tulis2:    clr    a
    movc    a,@a+dptr
    mov    r1,a
    inc    dptr
    acall    write_data
    djnz    r3,tulis2
    acall    delay
    djnz    r4,barisa
    ret;
mulai:    mov    r1,#03fh
    acall    write_inst
    mov    r1,#0dh
    acall    write_inst
    mov    r1,#06h
    acall    write_inst
    mov    r1,#01h
    acall    write_inst
    mov    r1,#0ch
    acall    write_inst
    acall    tulis
    sjmp    mulai;
haline:    db     'jerry paleevi '
    db    '     outsider '
  
end
#     7.Jika sudah selesai,simpan file dengan menggunakan format ASM ,misalnya lcd.asm
#         Lalu simpan di dalam folder yang ada software asm51 nya
#     8.Setelah selesai buka soft were ASM51.
#     9.Ketik nama softwere pada notepad tadi  tetapi tidak mengunakan kata-kata asm  dan di ENTER.Misal LCD .
#     10Jika soft were benar akan menampilkan 0 ERRORS FOUND
#    11.jika ada kesalahan, missal ditemukan 1 ERRORS , maka buka file lcd. yang berformat lst(missal nya 1.lst)
#    maka disitu akan diberitahukan kesalahan program kita tadi. Lalu benarkan program kita tadi…dan dikompel kembali di software asm51 kembali, kalau sudah benar
#     12.Kemudian masukkan softwere tadi pada rangkaian yang ada pada softwere Proteus.
#     13.Dengan cara mengeklik double pada IC dan panggil soft were dari dalam IC.
#     14.Klik program File,dan pilih softwere yang kita buat tadi.
#     15.Klik ok.
#     16.Coba dan nyalakan hasil rangkaian

# 8.Gambar rangaian
#
#

#TUGAS 2










#1.JUDUL : JAM DIGITAL DENGAN DOT METRIK
# 2.Tujuan Instrumen Umum (TIU)
#     1.Siswa dapat menunjukan komponen-komponen yang digunakan.
# 3.Tujuan Instrumen Khusus (TIK)
#     1.Siswa dapat merakit Rangkaian di dalam soft were PROTEUS.
#     2.Siswa dapat membuat program dengan menggunakan Notepad .
#     3.Siswa dapat mengirim program tadi ke dalam rangkaian melalui ASM51 dan diteruskan di panggil di rangkaian IC.
# 4.ALAT DAN BAHAN
#     *  ALAT
#     1.PC computer…………………………1buah
#      *BAHAN ic AT89C51 ........................................1 buah
#     resitor 10k ohm ....................................1buah
#     lcd ..................................1 buah
#     capistor 33 pf .......................................2 buah
#     capasitor elektrolit 10 uf ......................1 buah
#     crystal .........................................1 buah
#     respack .......................................1 buah
#     soft ware proteus..................................1
#     software note pad .................................1
#     software asm51 ....................................1
#
#
# 5.KESELAMATAN KERJA
#     1.Sebelum praktek berdoa terlebih dahulu.
#     2.Pakailah seragam praktek saat praktek
#     3.Siswa sewaktu praktek di larang bersendau gurau.
#     4.Gunakan bahan dan alat sesuai dengan fungsinya
#     5.Jika tugas kurang jelas tanyakan pada guru penguji.
#     6.Setelah selesai laporkan pada guru penguji.
# 6.LANGKAH KERJA
#     1.Nyalakan komputer
#     2.Klik START -> all program -> klik soft wre proteus
#     3.setelah masuk pada soft were Proteus,keluarkan komponen-komponen dengan cara klik P pada soft were Proteus yang berada di bagian kiri komputer kita.
#     4.Selanjutnya tulis pada Keywords komponen apa saja yang butuhkan.
#     5.Setelah itu, rangkailah sesuai dengan perintah
#     6.Setelah selesai ,Selanjutnya kita membuat program menggunakan note pad.contoh :
;=================================================
;PROGRAM 4.1:
;=================================================

;PORT0=DATA SEGMEN
;PORT2=DIGIT SELECT
;PORT 3.2=SET JAM
;PORT 3.3=SET MENIT
;PORT 3.4=SET DETIK

$MOD51
SEGM    EQU    P0
DGSEL    EQU    P2
    DSEG
    ORG    50H
JAM:    DS 1
MENIT:    DS 1
DETIK:    DS 1
DTK20:    DS 1
TSCAN:    DS 1
DISPBUF:    DS 32
S_DTK    BIT    P3.0
S_MNT    BIT    P3.2
S_JAM    BIT    P2.4

BARIS    EQU    P0
DTA    BIT    P2.0
MRST    BIT    P2.2
CLOCK    BIT    P2.4
JKL    EQU    40

    CSEG
    ORG 0H
    JMP START

    ORG 0BH
    JMP TIMER0

START:    MOV JAM,#0
    MOV MENIT,#0
    MOV DETIK,#0
    MOV DPTR,#TBL
    MOV TMOD,#11H
    MOV TH0,#HIGH(-50000)
    MOV TL0,#LOW(-50000)
    MOV DTK20,#20
    SETB EA
    SETB ET0
    SETB TR0
MAIN:    MOV TSCAN,#100

LOOP:    CALL DISPLAY
    DJNZ TSCAN,LOOP
    CALL SCAN_INPUT
    JMP    MAIN
;SUB PROGRAM
TIMER0:    MOV TH0,#HIGH(-5000)
    MOV TL0,#LOW(-5000)
    MOV R4,DTK20
    CJNE R4,#10,TXX
    MOV DISPBUF+12,#107
    MOV DISPBUF+26,#107
  
TXX:    CJNE R4,#20,TXY
    MOV DISPBUF+12,#127
    MOV DISPBUF+26,#127

TXY:    DJNZ DTK20,X_TIM0
    MOV DTK20,#20
    INC DETIK
    MOV R4,DETIK
    CJNE R4,#60,X_TIM0
    MOV DETIK,#0
    INC MENIT
    MOV R4,MENIT
    CJNE R4,#60,X_TIM0
    MOV MENIT,#0
    INC JAM
    MOV R4,JAM
    CJNE R4,#24,X_TIM0
    MOV JAM,#0
X_TIM0:    RETI

SCAN_INPUT:
P_JAM:    JB S_JAM,P_MNT
    INC JAM
    MOV A,JAM
    CJNE A,#24,EXIT_SCAN
    MOV JAM,#0
  
P_MNT:    JB S_MNT,P_DTK
    INC MENIT
    MOV A,MENIT
    CJNE A,#60,EXIT_SCAN
    MOV MENIT,#0

P_DTK:    JB S_DTK,EXIT_SCAN
    INC DETIK
    MOV A,DETIK
    CJNE A,#60,EXIT_SCAN
    MOV DETIK,#0
EXIT_SCAN: RET

DISPLAY:CALL CONVERT
    MOV    R0,#DISPBUF
    CALL    RST
    MOV    R6,#0
NKOLOM:    MOV    A,@R0
    MOV    BARIS,A
    CALL    TUNDA
    MOV    BARIS,#127
    CALL    CLK
    INC    R6
    INC    R0
    CJNE    R6,#JKL,NKOLOM

SDATA:    SETB    DTA
    CALL    CLK
    CLR    DTA
    RET

RST:    CLR    MRST
    NOP
    SETB    MRST
    CALL    SDATA
    RET

CLK:    SETB    CLOCK
    NOP
    CLR    CLOCK
    RET

TUNDA:    MOV    B,#60
    DJNZ    B,$
    RET

CONVERT:MOV    DPTR,#TBL
    MOV    R0,#DISPBUF
    MOV    R1,#JAM
N_CONV:    MOV    A,@R1
    MOV    B,#10
    DIV    AB
    PUSH    B
    MOV    B,#6
    MUL    AB
    MOV    B,#6
CON1:    PUSH    ACC
    MOVC    A,@A+DPTR
    MOV    @R0,A
    INC    R0
    POP    ACC
    INC    A
    DJNZ    B,CON1
    pop b
    mov a,#6
    mul ab
    mov b,#6
con2:    push acc
    movc a,@a+dptr
    mov @r0,a
    inc r0
    pop acc
    inc a
    djnz b,con2
    inc r0
    mov @r0,#127
    inc r0
    inc r1
    cjne r1,#detik+1,n_conv
    ret
delay:    mov r6,#10
dly:    mov r5,#150
    djnz r5,$
    djnz r6,dly
    ret
;angka
;0123456789=10 chr
tbl:    db 65,46,54,58,65,127        ;0
    db 127,61,0,63,127,127        ;1
    db 29,46,54,54,57,127        ;2
    db 93,54,54,54,73,127        ;3
    db 103,107,109,0,111,127    ;4
    db 88,58,58,58,70,127        ;5
    db 67,53,54,54,79,127        ;6
    db 126,14,118,122,124,127    ;7
    db 73,54,54,54,73,127        ;8
    db 121,54,54,86,97,127        ;9
end
#     7.Jika sudah selesai,simpan file dengan menggunakan format ASM ,misalnya JAM.asm
#         Lalu simpan di dalam folder yang ada software asm51 nya
#     8.Setelah selesai buka soft were ASM51.
#     9.Ketik nama softwere pada notepad tadi  tetapi tidak mengunakan kata-kata asm  dan di ENTER.Misal JAM .
#     10Jika soft were benar akan menampilkan 0 ERRORS FOUND
#    11.jika ada kesalahan, missal ditemukan 1 ERRORS , maka buka file JAM. yang berformat lst(missal nya JAM.lst)
#    maka disitu akan diberitahukan kesalahan program kita tadi. Lalu benarkan program kita tadi…dan dikompel kembali di software asm51 kembali, kalau sudah benar
#     12.Kemudian masukkan softwere tadi pada rangkaian yang ada pada softwere Proteus.
#     13.Dengan cara mengeklik double pada IC dan panggil soft were dari dalam IC.
#     14.Klik program File,dan pilih softwere yang kita buat tadi.
#     15.Klik ok.
#     16.Coba dan nyalakan hasil rangkaian

# 8.Gambar rangaian





1.JUDUL:
Program menghidupkan lampu berkedip dengan ic atmega5835
2Tujuan Instrumen Umum (TIU)
1.Siswa dapat menunjukan komponen-komponen yang digunakan.
3.Tujuan Instrumen Khusus (TIK)
1.Siswa dapat merakit Rangkaian di dalam soft were PROTEUS.
2.Siswa dapat membuat program dengan menggunakan Notepad .
3.Siswa dapat mengirim program tadi ke dalam rangkaian melalui ASM51 dan diteruskan di panggil di rangkaian IC.
4.ALAT DAN BAHAN
*  ALAT
1.      PC computer…………………………1buah

 *BAHAN
  ic ATmega5835 ........................................1 buah
resitor 220 ohm ...................................8buah
led blue ………...................................2 buah
led red .......................................2 buah
led yellow ......................12 buah
led green ..........................................2 buah



5.KESELAMATAN KERJA
1.Sebelum praktek berdoa terlebih dahulu.
2.Pakailah seragam praktek saat praktek
3.Siswa sewaktu praktek di larang bersendau gurau.
4.Gunakan bahan dan alat sesuai dengan fungsinya
5.Jika tugas kurang jelas tanyakan pada guru penguji.
6.Setelah selesai laporkan pada guru penguji.

6.          LANGKAH KERJA
1.       Nyalakan komputer
2.       Klik START -> all program -> klik soft wre proteus
3.       Setelah masuk pada soft were Proteus,keluarkan komponen-komponen dengan cara klik P pada soft were Proteus yang berada di bagian kiri komputer kita.
4.       Selanjutnya tulis pada Keywords komponen apa saja yang butuhkan.
5.       Setelah itu, rangkailah sesuai dengan perintah
6. Setelah selesai kita buat program dengan menggunakan softwae bascom
contoh :
  '======================================
  'lampu
  '======================================
  $regfile = "m8535.dat"
  $crystal = 12000000
  'rutin utama
  Dim Data1 As Byte
  Config Portc = Output
  Data1 = &H01

  Do
  Data1=255
  Portc = Data1

  Waitms 25
  Loop
  end      
7.Jika sudah selesai langsung saja di kompel di soft wre baskom tersebut
kemudan kita save...
8.lalu masukan ke dalam proteus..dg cara mengeklik kanan 2 kal pada ic atmega 5835
 dan panggil program yang telah kita buat tadi...