Tutorial AVR

Best Seller Kits and Trainer

Programmer and Target 89s51

Simple Mikrokontroller 89s51 Trainer

Standart
Mikrokontroller 89s51 Trainer

Super Mikrokontroller Trainer 89S52

Dot matrix Trainer
ATMEGA8

Programmer
ISP USB

Continue:

proses_pengukuran:
           acall init_LCD
           acall write_char_Pengukuran
           ;
           write_char_pengukuran:
           mov DPTR,#word2
           mov R3,#16
           mov R4,#80h
           call write_inst
           ;
writEPENGUKURAN:
           clr A
           movc a,@a+DPTR
           mov R4,a
           inc DPTR
           call write_data
           djnz r3,writePENGUKURAN
           ret
tekan_buka:
           acall init_lCD
           acall LCD_ON
           acall write_tekan_buka
           ;
write_tekan_buka:
           mov DPTR,#word3
           mov R3,#16
           mov R4,#0c0h
           call write_inst
           ;
Writetekanbuka:
           clr A
           movc a,@a+DPTR
           mov R4,a
           inc DPTR
           call write_data
           djnz r3,writetekanbuka
           ret
           ;
text_normal:
           mov DPTR,#text1
           CALL BARIS2_LCD
           ret
           ;
Text_tuli_ringan:
           mov DPTR,#text2
           CALL BARIS2_LCD
           RET
           ;
text_tuli_sedang:
           mov DPTR,#text3
           CALL BARIS2_LCD
           RET
           ;
Text_tuli_berat:
           mov DPTR,#text4
           CALL BARIS2_LCD
           RET
           ;
text_tuli_sgt_tuli:
           mov DPTR,#text5
           CALL BARIS2_LCD
           RET
           ;
BARIS2_LCD: 
           mov R3,#16
           mov R4,#0c0h
           acall write_inst
           ;
write1: 
           clr a
           movc A,@a+DPTR
           mov R4,A
           inc DPTR
           acall write_data
           djnz R3,write1
           ret
cetakDB:
           mov DPTR,#text6
           mov R3,#16
           mov R4,#8bh
           acall write_inst
write2: 
           clr a
           movc A,@a+DPTR
           mov R4,A
           inc DPTR
           acall write_data
           djnz R3,write2
           ret
cetakHZ:
           mov DPTR,#text7
           mov R3,#16
           mov R4,#85h
           acall write_inst
write3: 
           clr a
           movc A,@a+DPTR
           mov R4,A
           inc DPTR
           acall write_data
           djnz R3,write2
           ret
           ;
Init_dataF_DB:
           mov 40h,#0
           mov 41h,#0
           mov 42h,#0
           mov 43h,#0
           mov 44h,#0
           mov 45h,#0
           mov 46h,#0
           mov 47h,#0
           mov 50h,#0
           mov 51h,#0
           mov 52h,#0
           mov 53h,#0
           mov 54h,#0
           mov 55h,#0
           mov 56h,#0
           mov 57h,#0
           mov 58h,#0
           mov 59h,#0
           mov 5ah,#0
           ret
           ;
           ;===========================================================
           ;subrutine untuk inisialisasi LCD
           ;============================================================
init_LCD:
           mov R4,#dispclr
           acall write_inst
           mov R4,#funcset
           acall write_inst
           mov R4,#dispon
           acall write_inst
           mov R4,#entrmod
           acall write_inst
           ret
           ;
           ;==============================================================
           ;Subrutine untuk menuliskan instruksi ke LCD module
           ;==============================================================
Write_inst:
           clr P3.6
           mov P0,R4
           setb P3.7
           acall delay
           clr P3.7
           ret
           ;
Write_data:
           setb P3.6
           mov P0,R4
           setb P3.7
           acall delay
           clr P3.7
           ret
           ;
LCD_ON:
           Mov R4,#00001100b
           acall write_inst
           ret
           ;
LCD_Off:
           mov R4,#00001000b
           acall write_inst
           ret
           ;
LCD_cursor:
           mov R4,#00001111b
           acall write_inst
           ret
           ;
           ;============================================================
           ;Subrutine untuk waktu tunda
           ;============================================================
delay:     mov R5,#255
           delay1:mov R7,#255
           djnz R7,$
           djnz R5,delay1
           ret
           ;
dataDecibel:
           DB 89,96,104,113,124,135,146,162,178,200,215,'s'
           dataPrintOutDB:
           DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,20,0,0,0
           DB 0,0,0,0,30,0,0,0,0,0,0,0,0,40,0,0,0,0,0,0
           DB 0,0,0,0,50,0,0,0,0,0,0,0,0,0,0,60,0,0,0,0
           DB 0,0,0,0,0,0,70,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 0,0,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,90,0
           DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
           DB 100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,110
           ;
DataPrintOutFr:
           DB 125,250,50,1,2,4,8
word1:
           DB ' tekan enter ' 
woRd2:
           DB ' PENGUKURAN '
word3: 
           DB ' BUKA '
text1: 
           DB ' HSL:normal '
text2: 
           db ' HSL:tuli ringan '
text3: 
           db ' HSL:tuli sedang'
text4: 
           db ' HSL tuli berat ' 
text5: 
           db ' HSL:sangat tuli '
text6:
           db 'db '
text7:
           db 'Hz '
           ;
           END

Download
MIDE51

Download
Codevision AVR

Download Programmer USBasp AVR-MCS51
ProgISP 1.68

Download Programmer USBasp AVR-MCS51
ProgISP 1.72

Download
Driver USBasp windows 64 bit

Download
Driver USBasp windows 32 bit

Download Keil Microvision

Download Introduction KEIL IDE

Programmer MCS51 USBasp PCB Layout

Minimum System MCS51 Circuit

Programmer USBasp Circuit

Download Tutorial Microcontroller C

Download Tutorial Microcontroller Keil C