Program Edsim [Keypad+7-Segmen]

Program Edsim [Keypad+7-Segmen]

Berjumpa kembali npgprogram akan memposting program edsim yang berkaitan dengan Keypad+7-Segmen. Semoga   postingan kali ini dapat berguna untuk penggemar program edsim. Programnya mungkin sedikit sulit tapi kalau sudah di pelajari mudah dimengerti. Langsung saja kelisting programnya.

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

;!Program Utama!

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

Main : CALL Keypad

JMP Main

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

;!Scanning Keypad!

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

;Di Edit Oleh :

; npgprogram

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

Keypad:

MOV R0, #0 ; membersihkan R0 – tombol pertama adalah 0

; scan row0

SETB P0.3 ; set baris 3

CLR P0.0 ; Membersihkan baris 0

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row1

SETB P0.0 ; set baris 0

CLR P0.1 ; Membersihkan baris 1

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row2

SETB P0.1 ; set baris 1

CLR P0.2 ; Membersihkan baris 2

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row3

SETB P0.2 ; set baris 2

CLR P0.3 ; Membersihkan baris 3

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

JMP Keypad ; | Kembali memindai baris 0

; | ((Inilah kenapa baris 3 diset pada awal program berjalan

                                ; | Ketika program kembali ke start, baris 3 telah selesai di pindai

finish:

JMP $ ; Eksekusi program sampai disini ketika tombol ditekan, dan tidak melakukan proses apapun

; column-scan subroutine

npgprogram:

JNB P0.4, NPG ; Jika kolom 0 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya.

JNB P0.5, NPG ; Jika kolom 1 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya

JNB P0.6, NPG ; Jika kolom 2 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya

RET ; kembali dari subroutine - key tidak ditemukan

NPG:

SETB P3.3 ; |

SETB P3.4 ; | enable display 3

MOV P1, #11111001B ; Menampilkan angka 1

CLR P3.3 ; enable display 2

MOV P1, #10100100B ; Menampilkan angka 2

CLR P3.4 ; |

SETB P3.3 ; | enable display 1

MOV P1, #10110000B ; Menampilkan angka 3

CLR P3.3 ; enable display 0

MOV P1, #10011001B ; Menampilkan angka 4

JMP Keypad ; jump back to start

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

;!Program Selesai!

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

 Semoga artikel ini dapat bermanfaat bagi semua orang dan jangan lupa untuk mengisi buku tamu yang ada di pojok kanan atas serta jangan lupa untuk berkomentar demi kemajuan blog ini. Silakan copas artikel ini tetapi jangan lupa menyertakan alamat judul posting ini sebagai berikut :http://npgprogram.blogspot.com/2013/01/program-edsim-keypad7-segmen.html. Untuk Sumber Artikel. Dan juga sobat semua harus hati-hati karena blog ini sudah terlindungi DCMA jadi kalu mau COPAS harus menyertakan alamat sumbernya.

Selamat menikmati.

ttd
npgprogram.blogspot.com