Program Ini Adalah Program Yang dikhususkan untuk LCD 16x2 di Topview Simulator, Sama halnya dengan postingan saya Sebelumnya yaitu Rangkain Program LCD Menggunakan Topview Simulator Namun Dalam Tampilannya Program ini Berbentuk Text yg Muncul Satu persatu, Nah Sekarang kita Akan membuat program yg lebih Ok lagi, yaitu Program Running Text di LCD Topview Simulator Yang nanti hasil akhirnya Akan Berbentuk Tulisan yang Berjalan, Persis Seperti Kita Membuat Running Text Tapi Masih Dalam Bentuk LCD.
Tanpa Basa-Basi Lama, Kita Mulai Saja Programnya:
* Instal dulu software Topview Simulator Di komputer Anda,
jika Belum Punya, Silahkan Download Disini>>>
* Buka Program Topview Simulato Anda, Dan pertama Kali Anda akan Dihadapkan Dengan Topview Simulator - Select Device;
* Silahkan Pilih pada Select Device nya, Dan kali ini Kita menggunakan Atmel 89C52 >>> Klik Ok.
* Lalu Klik File pada Menu Bar, Lalu Pilih External Module Setting, Pilih LCD
* Maka Akan Muncul Sperti Gambar Dibawah ini, Pada Select LCD Pilihlah Type 2liness X 16 Character. dan Data Bus Width nya Kita gunakan 8 Bit
* Lalu Klik Port Line Selection, Yg Dilingkari Merah
* Silahkan Anda Setting Control Line dan Port Line, Hingga Sesuai dengan Gambar Dibawah ini >>> Lalu Klik Ok.
* Klik Menu View pada Menu Bar >>> Pilih External Modules >>> Klik LCD
Nah.... Selesai Sudah Kita Mengkonfigurasi LCD nya, Sekarang Kita Coba Merangkai Programnya.. :D
* Silahkan Ketikkan Di Notepad Anda Script dibawah ini , Lalu Simpan Dalam Bentuk/Type .Asm
$MOD51
GESERL EQU 00011011B ; 0 0 0 1 S/C R/L X X untuk geser ke kiri
GESERR EQU 00011111B ; 0 0 0 1 S/C R/L X X untuk geser ke kanan
ORG 000H
CLR P3.5
CALL INIT_LCD
START: CALL WRITE_CHAR;CALL INIT_LCD
CALL WRITE_CHAR2
CALL GESER
SJMP START
;
GESER:
MOV R6,#40 ;R7 = 40; GESER SEBANYAK 40 KARAKTER
LAGI: MOV R1,#GESERl ;R1 PERINTAH UNTUK GESER DARI KIRI KE KANAN
CALL WRITE_INST
CALL LDELAY
DJNZ R6,LAGI ;R7=R7-1, JIKA R7 ? 0 MAKA LOMPAT KE LAGI
WRITE_CHAR:
MOV DPTR,#WORD1 ;DPTR = [ ADDRESS WORD1 ]
MOV R3,#25 ;R3=25 pemesanan karakter
MOV R1,#80H ;R1=80H,ADDRESS DDRAM START POSITION
CALL WRITE_INST
;
WRITE1:CLR A ; A = 0
MOVC A,@A+DPTR ; A = [A+ DPTR]
MOV R1,A ; R1 = A
INC DPTR ; DPTR = DPTR +1
CALL WRITE_DATA;
DJNZ R3,WRITE1 ; R3 = R3-1,
RET
WRITE_CHAR2:
MOV DPTR,#WORD2 ;DPTR = [ ADDRESS WORD1 ]
MOV R3,#25 ;R3=16,NUMBER CHARACTER TO BE DISPLAY
MOV R1,#0C0H ;R1=80H,ADDRESS DDRAM START POSITION
CALL WRITE_INST
;
WRITE2:CLR A ; A = 0
MOVC A,@A+DPTR ; A = [A+ DPTR]
MOV R1,A ; R1 = A
INC DPTR ; DPTR = DPTR +1
CALL WRITE_DATA;
DJNZ R3,WRITE2 ; R3 = R3-1,
RET
;
INIT_LCD:
MOV R1,#00000001B ;CLEAR LCD / MEMBUAT LCD JADI KOSONG
CALL WRITE_INST ;
MOV R1,#00111000B ;Fungsi 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 ; RS = P2.0 = 0, WRITE MODE INSTRUCTION
MOV P0,R1 ; D7 S/D D0 = P0 = R1
SETB P3.7 ; EN = 1 = P2.1
CALL DELAY ; CALL DELAY TIME
CLR P3.7 ; EN = 0 = P2.1
RET
;
WRITE_DATA:
SETB P3.6 ; RS = P2.0 = 1, WRITE MODE DATA
MOV P0,R1 ; D7 S/D D0 = P0 = R1
SETB P3.7 ; EN = 1 = P2.1
CALL DELAY ; CALL DELAY TIME
CLR P3.7 ; EN = 0 = P2.1
RET
;
LDELAY: MOV R2,#087H ; UNTUK MENGATUR KECEPATAN GESER
LD1: ACALL DELAY
DJNZ R2,LD1
RET
DELAY: MOV R0,#0
DELAY1: MOV R7,#0FH
DJNZ R7,$
DJNZ R0,DELAY1
RET
;
WORD1: DB ' SELAMAT DATANG DI'; UNTUK MENGISI PADA LCD BARIS PERTAMA (80H)
WORD2: DB ' STMIK BUDIDARMA '; UNTUK MENGISI LCD PADA BARIS KE 2 (0C0H)
;
END
*Setelah Program diatas selesai anda ketik dan anda simpan, Buka Kembali Topview simulator Anda.
*Open File yg anda simpan Tadi, Lalu Build/jalankan
*Tarraaa... Simulasi Anda Berhasil.
Mungkin hanya ini yang dapat saya share tentang Program Running Text di LCD Topview Simulator. Silahkan baca Tentang Artikel Microprosessor Lainnya Seperti Rangkaian Program Untuk LCD 16x2 Menggunakan Topview Simulator.
إرسال تعليق