Picbasic

Thread Starter

TAKYMOUNIR

Joined Jun 23, 2008
352
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 ,...

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

Last edited by a moderator:

spinnaker

Joined Oct 29, 2009
7,830
STOP SHOUTING!!!



And post your code with code tags. Use left bracket, the word code then right bracket. En the code with left bracket. forward slash. right bracket.

It will persevere indents and make your code easier to read.



You need to state your issue. What is the problem? And what have you done to troubleshoot the problem?

What is "bubbling"?
 

Thread Starter

TAKYMOUNIR

Joined Jun 23, 2008
352
the program should display
0123456789
A0123456789
0A123456789
.
.
0123456789A
B0123456789
0B123456789
.
.
AND SO ON
MY CODE DO A0123456789
B0123456789
SO CAN YOU PLEASE CHECK WHY ID DOES NOT MAKE BUBBLING OR SWAPING
STOP SHOUTING!!!



And post your code with code tags. Use left bracket, the word code then right bracket. En the code with left bracket. forward slash. right bracket.

It will persevere indents and make your code easier to read.



You need to state your issue. What is the problem? And what have you done to troubleshoot the problem?

What is "bubbling"?
 
Last edited:

spinnaker

Joined Oct 29, 2009
7,830
Again please stop shouting. All capital letters is shouting.

I have no idea what "BUBBLING OR SWAPING" is.

Have you stepped through your code with the debugger?
 
Top