Pete's QBASIC Site

Post what you have coded so far! We cannot write the code for you, but we can point out problems.

And forget that PINK lettering, please. I'm blind enough........

Ted

oh.. sorry for the font color Sir Ted

By the way.. I am researching in Internet and I found this link:

http://www.luberth.com/5x7-5x8.bas

----------------------------------------------------------------------------------------
'Andijk 3-10-1997
'this basic program i use for 5x7 or 5x8 LED Dot Matrix fonts
'it shows the hex valeu
'so it makes it easier to change the font on the propellor clock
'Luberth

DECLARE SUB EditPattern ()
DECLARE SUB Initialize ()
DECLARE SUB ShowPattern ()
DIM Bit%(0 TO 7), Pattern$, Esc$

Initialize
EditPattern

END

'
SUB EditPattern STATIC
SHARED Pattern$, Esc$, Bit%()
ByteNum% = 1 'Starting position.
Bitnum% = 0
Null$ = CHR$(0) 'CHR$(0) is the first byte of the
'two-byte string returned when a
'direction key such as UP or DOWN is
'pressed.
DO
ShowPattern
X% = ((ByteNum%) * 16) + 234
Y% = 30 + (Bitnum% - 10) * -8

State% = 0
RefTime = 0

DO
IF ABS(TIMER - RefTime) > .3 THEN
RefTime = TIMER
State% = 2 - State%
'Turn the border of bit on and off:
LINE (X% - 1, Y% - 1)-STEP(15, , State%, B
END IF
Check$ = INKEY$

LOOP WHILE Check$ = ""


LINE (X% - 1, Y% - 1)-STEP(15, , 0, B

SELECT CASE Check$

CASE CHR$(27)
EXIT SUB

CASE CHR$(32)

CurrentByte% = ASC(MID$(Pattern$, ByteNum%, 1))
CurrentByte% = CurrentByte% XOR Bit%(Bitnum%)
MID$(Pattern$, ByteNum%) = CHR$(CurrentByte%)

IF (CurrentByte% AND Bit%(Bitnum%)) <> 0 THEN

CurrentColor% = 0
ELSE CurrentColor% = 2

END IF


LINE (X% + 1, Y% + 1)-STEP(11, 4), CurrentColor%, BF

CASE Null$ + CHR$(75)
ByteNum% = ByteNum% - 1
IF ByteNum% <1> 5 THEN ByteNum% = 1

CASE Null$ + CHR$(72)
Bitnum% = Bitnum% + 1
IF Bitnum% > 7 THEN Bitnum% = 0

CASE Null$ + CHR$(80)
Bitnum% = Bitnum% - 1
IF Bitnum% < 0 THEN Bitnum% = 7

CASE ELSE


END SELECT
LOOP
END SUB

'
SUB Initialize STATIC
SHARED Pattern$, Esc$, Bit%()

Esc$ = CHR$(27)

FOR I% = 0 TO 7: Bit%(I%) = 2 ^ I%: PRINT Bit%(I%): NEXT I%

Pattern$ = STRING$(8, 255)

SCREEN 8: CLS

FOR a = 1 TO 8
X% = 250: Y% = 30 + (a + 2) * 8
FOR J% = 1 TO 5
LINE (X%, Y%)-STEP(13, 6), 8, B
X% = X% + 16
NEXT J%
NEXT a

LOCATE 19, 20: PRINT "DIRECTION keys........Move cursor"
LOCATE 20, 20: PRINT "SPACEBAR............Changes point"
LOCATE 21, 20: PRINT "ESC.........................Quits";
LOCATE 23, 5: PRINT "Luberth@worldaccess.nl www.worldaccess.nl/~luberth"
END SUB

'
SUB ShowPattern
SHARED Pattern$

LOCATE 1, 15: PRINT "The following characters make up your pattern:"

a = 5

FOR I% = 1 TO 5
PatternByte% = ASC(MID$(Pattern$, I%, 1))
LOCATE 15, 45: PRINT "Hex: "
LOCATE 15, 45 + a: PRINT " "
LOCATE 15, 45 + a: PRINT HEX$(PatternByte%)
B$ = HEX$(PatternByte%)
a = a + 4
NEXT I%

END SUB

------------------------------------------------------------------------------------

but when I try to encode it to Qbasic there is always an error

I need to pass this Project in Monday

Not sure if you pasted it correctly. There are 2 LINE statements that need

Always use the code option before and slash code at the end of posted code!

Also you missed CASE Null$ + CHR$(77). I ran the code fine after the edits.

I don't see how that will become a clock, but I have seen some strange ideas turn out pretty interesting. Where is your code? Also include the errors you are getting. Good luck!

Ted

Thank you for supporting me Sir Ted

http://www.luberth.com/5x7-5x8.bas

Open the link Sir. I found the code that i posted last time in that link.

I'm not really good in Qbasic hehe I don't really understand some codes.

Can you help me to encode it?

Another question Sir. Do i have to put ' ?

Example:

'
SUB EditPattern STATIC
SHARED Pattern$, Esc$, Bit%()
ByteNum% = 1
Bitnum% = 0
Null$ = CHR$(0)

Thank you Sir Ted for answering my question