Catatan (untuk pembelian online):
Tambahkan Rp. 50.000* untuk biaya pengiriman Luar P. Jawa
Tambahkan Rp. 40.000* untuk biaya pengiriman P. Jawa
*Pengiriman barang menggunakan Jasa TIKI, biaya jasa pengiriman tersebut dapat berubah disesuaikan dengan KG barang + kemasan dan lokasi pemesan, dengan waktu pengiriman paling lama 4 hari untuk Luar P.Jawa.

Dapatkan discount untuk pembelian dengan jumlah 10 kit

7.2. Percobaan scan data keypad 4x4 dan mengeluarkan ke LCD

Pada percobaan ini, akan dilakukan scan data keypad dan mengeluarkan data ke LCD Karakter.
Untuk melakukan percobaan ini lakukan beberapa langkah sebagai berikut:
4. Pasang jumper EN_LCD
5. Buka jumper pada EN_DAC, apabila sedang terpasang
6. Hubungkan modul Microcontroller Trainer dengan power supply +5V
7. Hubungkan modul Microcontroller Trainer dengan rangkaian programmer
8. Buka Program M-IDE Studio for MCS-51, sebagai editor dan compiler program
9. Ketik program berikut ini:(download file prog72a.asm)

col4 bit P2.0
col3 bit P2.1
col2 bit P2.2
col1 bit P2.3
row1 bit P2.4 
row2 bit P2.5
row3 bit P2.6
row4 bit P2.7
keydata   	equ 70h
keybounc  equ 71h
keyport   	equ P2
       	org 0h
       	mov P2,#11111111b
     	call Init_LCD
start:call keypad4x4    	;calling subroutine keypad4x4
       	Mov A,keydata     	;A = keydata  
       	Cjne A,#0FFh,WrLCD;
       	sjmp start        		;LOOPING FOREVER PART 1
;
WrLCD: 	Mov R1,#80h      ;Pick DDRAM 1st row and 1st col
       	call write_inst
       	Mov R1,#30h
       	Add A,R1
       	Mov R1,A
       	call write_data   		;write data
       	Sjmp start        		;LOOPING FOREVER PART 2;
;
Init_lcd:
    		mov r1,#00000001b 	;Display clear
    		call write_inst  	;
    		mov r1,#00111000b 	;Function set, Data 8 bit,2 line font 5x7
        	call write_inst 	;
    		mov r1,#00001100b 	;Display on, cursor off,cursor blink off
    		call write_inst
    		mov r1,#00000110b 	;Entry mode, Set increment
    		call write_inst
    		ret
;
Write_inst:
    		clr P3.6  		; P3.6 = RS =0 
    		mov P0,R1 		; P0 = D7 s/d D0 = R1
    		setb P3.7 		; P3.7 =EN = 1 
    		call delay		; call delay time
    		clr P3.7  		; P3.7 =EN = 0
    		ret
;
Write_data:
    		setb P3.6 		; P3.6 = RS =1
    		mov P0,R1 		; P0 = D7 s/d D0 = R1
    		setb P3.7 		; P3.7 =EN = 1
    		call delay		; call delay time
      	call delay			; call delay time
    		clr p3.7 			; P3.7 =EN = 0
    		ret
;====================================
; subroutine scan keypad 4x4
;====================================
Keypad4x4:
       	mov keybounc,#50    		;keybounc = 50          
       	mov keyport,#0FFh  		;keyport=P2= FF
       	clr col4            			;col4 =  0
;
keyCOR: jb row4,keyMEN      	; Key COR
      	djnz keybounc,KeyCOR
      	mov keydata,#0Ah		;Data Output
      	ret 
;
keyMEN: jb row3,keyUpA      	; Key MEN
      	djnz keybounc,keyMEN
      	mov keydata,#0bh		;Data Output
      	ret

keyUpA: jb row2,keyDnA ;            Key Up Arrow
           djnz keybounc,keyUpA
           mov keydata,#0ch ;Data Output
           ret
           ;
keyDnA: jb row1,key3 ; Key Down Arrow
           djnz keybounc,keyDnA
           mov keydata,#0dh ;Data Output
           ret
           ;==========================================
key3: setb col4
           clr col3
           jb row4,key6
           djnz keybounc,key3 ; Key 3
           mov keydata,#03h ;Data Output
           ret 
           ;
key6: jb row3,key9
           djnz keybounc,key6 ; Key 6
           mov keydata,#06h ;Data Output
           ret
           ;
key9: jb row2,keyENT
           djnz keybounc,key9 ; Key 9
           mov keydata,#09h ;Data Output
           ret
           ;
keyENT: jb row1,key2
           djnz keybounc,keyENT ; Key ENT
           mov keydata,#0eh ;Data Output
           ret
           ;============================================
key2: setb col3
           clr col2
           jb row4,key5
           djnz keybounc,key2
           mov keydata,#02h ;Data Output
           ret 
           ;
key5: jb row3,key8
           djnz keybounc,key5
           mov keydata,#05h ; Data Output
           ret 
           ;
key8: jb row2,key0
           djnz keybounc,key8
           mov keydata,#08h ;Data Output
           ret
           ;
key0: jb row1,key1
           djnz keybounc,key0
           mov keydata,#00h ;Data Output
           ret
           ;==============================================
key1: setb col2
           clr col1
           jb row4,key4
           djnz keybounc,key1
           mov keydata,#01h ;Data Output
           ret 
key4: jb row3,key7
           djnz keybounc,key4
           mov keydata,#04h ;Data Output
           ret
key7: jb row2,keyCAN
           djnz keybounc,key7
           mov keydata,#07h ;Data Output
           ret
keyCAN: jb row1,Nokey
           djnz keybounc,keyCAN
           mov keydata,#0Fh ;Data Output
           ret
Nokey: mov keydata,#0FFh 
           ret
;================================
;The end of Keypad 4x4 subroutine
;================================
delay: mov R0,#0
delay1: mov R2,#50
           djnz R2,$
           djnz R0,delay1
           ret
           end

5. Simpanlah program yang anda ketik dan beri nama : prog72a.asm
6. Pada program MIDE tersebut pilih Build /F9 atau untuk melakukan kompilasi program dari *.asm ke *.hex.
7. Lakukan pemrograman mikrokontroller dengan menggunakan Program ISP Software ( Lihat Petunjuk Penggunaan)
8. Lakukan pengamatan pada LCD
9. Lakukan modifikasi pada program tersebut untuk menampilkan data keypad ke lokasi DDRAM LCD:

10. Lakukan modifikasi pada rangkaian tersebut untuk menampilan data keypad ke display 7 segmen sesuai dengan percobaan 3.

BACK

Komentar, pertanyaan dan diskusi tentang topik tersebut. Klik disini