新會員
Joined
: 2006/9/5 18:27 最後登入時間
: 2006/11/29 21:59
Group:
註冊會員
Level : 1 HP : 0 / 0 MP : 0 / 0 EXP : 0
|
这个程序我都研究好久了,还有没有解决方案。 请各位同仁帮帮看看,我的程序有什么问题,谢谢了 ;在第一个数码管上显示"1" ,数据指令应该送:101 001101 10100000 LIST P=PIC16F630 INCLUDE<P16F630.INC> ;******************************** R0 EQU 30H R1 EQU 31H R2 EQU 32H R3 EQU 33H R4 EQU 34H R5 EQU 35H R6 EQU 36H ;CS EQU 01H ;PORTC2 ;WR1 EQU 02H ;RC3 ;DATA1 EQU 00H ;RC0
#DEFINE DATA1 PORTC,0 #DEFINE CS PORTC,1 #DEFINE WR1 PORTC,2
COUNT EQU 37H ;********************************** ORG 000H GOTO START ORG 010H START CALL INITIAL MOVLW 0DH MOVWF R2 MOVLW B'01100000' MOVWF R3 CALL SENDCMD1 GOTO START
INITIAL ;初始化 BSF STATUS,RP0
clrf TRISC BCF STATUS,RP0 CLRF PORTC ;******************************************** ;LCD初始化程序(根据数据手册) MOVLW 18H ;18H MOVWF R1 CALL SENDCMD MOVLW 01H ;01H MOVWF R1 CALL SENDCMD MOVLW 03H ;03H MOVWF R1 CALL SENDCMD MOVLW 29H ;29H MOVWF R1 CALL SENDCMD RETURN SENDCMD ;BSF PORTC 3 ;初始化程序送命令程序 BSF DATA1 ;1 CALL PUTLCD BCF DATA1 ;0 CALL PUTLCD BCF DATA1 ;0 CALL PUTLCD RLF R1,1 RLF R1,1 MOVF R1,0 MOVWF PORTC ;C7 CALL PUTLCD CALL LEFT ;C6 CALL PUTLCD CALL LEFT ;C5 CALL PUTLCD CALL LEFT ;C4 CALL PUTLCD CALL LEFT ;C3 CALL PUTLCD CALL LEFT ;C2 CALL PUTLCD CALL LEFT ;C1 CALL PUTLCD CALL LEFT ;C0 CALL PUTLCD BCF PORTC,DATA1 ;0 CALL PUTLCD BSF CS CALL DELAY RETURN ;共12位 ;*********************************** PUTLCD BCF CS ;书写程序 BSF WR1 BCF WR1 RETURN ;********************************* SENDCMD1 BSF DATA1 ;1 ;送数据程序 CALL PUTLCD BCF DATA1 ;0 CALL PUTLCD BSF DATA1 ;1 CALL PUTLCD MOVFW R2 MOVWF PORTC MOVLW 06H MOVWF COUNT RLF R2 RLF R2 RLF R2 RLF R2 MOVF R2,0 MOVWF PORTC CALL PUTLCD DECFSZ COUNT,1 GOTO $-5 MOVLW 08H MOVWF COUNT RLF R3 RLF R3 MOVF R3,0 MOVWF PORTC CALL PUTLCD DECFSZ COUNT,1 GOTO $-5 BSF CS CALL DELAY RETURN ;************************ DELAY MOVLW 0FFH MOVWF 034H LP0 NOP NOP NOP NOP NOP DECFSZ 034H GOTO LP0 RETURN LEFT RLF R1,1 MOVF R1,0 MOVWF PORTC RETURN END
LCD数据手册下载
LCD程序下载 [url=http://www.burnon.com/bbs/Announce/Announce.asp?BoardID=101&ID=6556]
發表於: 2006/10/31 21:03
|