PLEASE CAN SOME ONE CHECK THIS PROGRAM FOR ME
THIS PROGRAM FIRST DISPLAY 0 TO 9 ON THE NEXT LINE OF THE LCD(LAB -X1) AND AFTER THAT START BUBBLING ALPHABIT( A TO Z) A START BUBBLING FROM 0 TO 9 AND AFTER THAT B ,...
THIS PROGRAM FIRST DISPLAY 0 TO 9 ON THE NEXT LINE OF THE LCD(LAB -X1) AND AFTER THAT START BUBBLING ALPHABIT( A TO Z) A START BUBBLING FROM 0 TO 9 AND AFTER THAT B ,...
Rich (BB code):
; Section 05, Program LCDX2
;***************************************************************************************
;
; ; PROCESSOR: PIC 16F877
; COMPILER: PIC BASIC PRO
;
; STUDENT NAME:TAKEY ASAAD & HAROLD ARRINDELL
CLEAR ;CLEAR MEMORY
DEFINE OSC 4 ;OSC SPEED
DEFINE LCD_DREG PORTD ;DEFINE DATE REGISTER
DEFINE LCD_DBIT 4 ;DEFINE WIDTH OF DATA PATH
DEFINE LCD_RSREG PORTE ; DEFINE SELECT REGISTER
DEFINE LCD_RSBIT 0 ;SELECT BIT
DEFINE LCD_EREG PORTE ;ENABLE REGISTER
DEFINE LCD_EBIT 1 ;ENABLE BIT
ADCON1=%00000111 ;SET PORTA AND PORTE TO DIGITAL
DEFINE ADC_BITS 8 ;DEFINE ADCIN PARAMETERS
DEFINE ADC_CLOCK 3 ;SET CLOCK SOURCE
DEFINE ADC_SAMPLEUS 50 ;SET SAMLING TIME IN US
LOW PORTE.2 ;LCD R/W LINE LOW (W)
PAUSE 100 ;WAIT FOR LCD TO START UP
I VAR BYTE
J VAR BYTE
NUM1 VAR BYTE
NUM2 VAR BYTE
DELAY VAR BYTE
LINE1 VAR BYTE[20]
LINE2 VAR BYTE[20]
;PORTD=%00000000
TRISD=%00000000
TRISA=%11111111
START:
;LCDOUT $FE,1
FOR I = 0 TO 19
LINE1=32
NEXT I
FOR I = 0 TO 9
LINE2=48+I
NEXT I
FOR I = 10 TO 19
LINE1=32
NEXT I
PAUSE 100
LCDOUT $FE,1,STR LINE1
LCDOUT $FE,$C0,STR LINE2
PAUSE 100
BUBBLING:
LOOP1:
LCDOUT $FE,$C0,STR LINE2
LINE2=LINE2>>1
FOR I =0 TO 25
LINE2[0]=65+I
GOSUB GETADC
GOSUB DISPLAYLCD
PAUSE DELAY
FOR J =0 TO 10
NUM1=LINE2[J]
NUM2=LINE2[J+1]
SWAP NUM1 , NUM2
LINE2[J]=NUM1
LINE2[J+1]=NUM2
;PAUSE DELAY
GOSUB DISPLAYLCD
NEXT J
NEXT I
GOTO BUBBLING
GETADC:
ADCIN 0 ,DELAY
SELECT CASE DELAY
CASE IS <100 ;LIMIT DELAY TO BE MIN =100 AND MAX =2000MS
DELAY =100
CASE IS >200
DELAY =200
CASE ELSE
END SELECT
RETURN
DISPLAYLCD:
LCDOUT $FE,1
PAUSE 100
LCDOUT $FE,$80,STR LINE1
PAUSE 100
LCDOUT $FE,$C0,STR LINE2
RETURN
END
Attachments
-
1.8 KB Views: 11
Last edited by a moderator: