_PRINTMODE

[PMACKAY]

Hi guys i am trying to print in text mode 0: default

with just a width command  (width 30,14) : color 6

i am using

_printmode keepbackground
_printstring(3,3),"just to show you")
_printmode _fillbackground

but i keep getting an error

Illegal function call on the line with _printmode keepbackground

any ideas as i want to keep the image below the text (behind it)

[SMcNeill]

Needs an underscore.

_KEEPBACKGROUND

[PMACKAY]

(i have the underscore in program and still experience the same error)

    _PRINTMODE _KEEPBACKGROUND
    _PRINTSTRING (1, 1), TIME$
    _PRINTMODE _FILLBACKGROUND
    _DISPLAY: _DELAY 0.10

this is the above (with an error for unknown reason)

when I remark out the two printmode lines, my programs works fine, but i would like to print the timer at the top whilest leaving the background behind it intact.

(Will be a proper timer but stuck this on to see if i can get printmode working)

[PMACKAY]

the timer is in the top left (I would like this displayed with the background in tact).. _display _keepbackground

[FellippeHeitor]

From the wiki:

The _PRINTMODE statement and function can only be used in graphic screen modes, not SCREEN 0

http://www.qb64.org/wiki/PRINTMODE

[PMACKAY]

thank you... I thought that was the case

Any Ideas on a

TI$="000000"


if ti$="003000" then 30 seconds went by

just seeing if there is a simple way of a timer like in sharp mz700 or zx spectrum basic. the ti$="000000" resets timer to zero then reading= "00" minutes, "30" seconds and "00" milliseconds

thats what the 000000 is... nothing fancy needed. it just calculates how long the loop is running for (eg. time on puzzle)

thanks.... just trying to avoid using timer on

[bplus]

Wait... what was wrong with printing TIME$ and TIMER?

Code: QB64: [Select]

1. DO
2.     CLS
3.     LOCATE 1, 1
4.     PRINT TIME$; ":";
5.     PRINT RIGHT$(STR$(TIMER), 2)
6.     _LIMIT 60
7. LOOP UNTIL theCowsComeHome
8.  

Oh I see. :(

[Petr]

do you miss a program that calculates time from a number? Maybe time from TIMER? I quickly pulled it out and edited it from my player. Perhaps the Czech names of the variables will not be damaging.

Code: QB64: [Select]

1. DO
2.     LOCATE 1, 1: PRINT timing$(TIMER)
3. LOOP
4. FUNCTION timing$ (hodnota AS DOUBLE) '                calculate time. Writed for Timer, _SndLen. Input format as TIMER or _SNDLEN WITH "."
5.      IF hodnota < 60 THEN hodin = 0: minut = 0: sekund = hodnota: GOTO a1
6.     IF hodnota > 60 AND hodnota < 3600 THEN hodin = 0: minut = hodnota / 60: GOTO a2
7.     hodin = hodnota / 3600
8.     hodin$ = STR$(hodin)
9.     tecka = INSTR(0, hodin$, ".")
10.     minut = (VAL("0." + RIGHT$(hodin$, LEN(hodin$) - tecka)) * 0.6) * 100
11.     a2:
12.     minut$ = STR$(minut)
13.     tecka = INSTR(0, STR$(minut), ".")
14.     sekund = (VAL("0." + RIGHT$(minut$, LEN(minut$) - tecka)) * 0.6) * 100
15.     a1:
16.     sekund$ = STR$(sekund)
17.     tecka = INSTR(0, sekund$, ".")
18.     sets = (VAL(RIGHT$(sekund$, LEN(sekund$) - tecka)) * 1)
19.     timing$ = STR$(INT(hodin)) + ":" + STR$(INT(minut)) + ":" + STR$(INT(sekund)) + ":" + STR$(sets)
20. END SUB
21.  

minut = minute
hodin = hour
sekund = seconds
tecka = dot
hodnota = value

[bplus]

Yeah here is what I came up with:

Code: QB64: [Select]

1. _TITLE "Click and hold down on title bar to stop time!"
2. start## = TIMER
3. DO
4.     CLS
5.     LOCATE 1, 1
6.     PRINT TIME$
7.     LOCATE 2, 4: PRINT timePassed$(start##)
8.     _DELAY .09
9. LOOP UNTIL theCowsComeHome
10.  
11. FUNCTION timePassed$ (started##)
12.     tp## = TIMER - started##
13.     t1$ = STR$(tp##)
14.     dot = INSTR(t1$, ".")
15.     t2$ = MID$(t1$, dot, 3)
16.     t% = INT(tp##)
17.     sec% = t% MOD 60
18.     min% = INT(t% / 60) MOD 60
19.     timePassed$ = STR$(min%) + ":" + RIGHT$(STR$(sec%), 2) + t2$
20. END FUNCTION
21.  

PS will screw up after midnight.

EDIT: better not multiply tp## for t1$

[FellippeHeitor]

If start## > TIMER then start## = start## - 86400

Thatll fix your midnight issue.

[bplus]

Thanks Fellippe,

start## or started##

Code: QB64: [Select]

1. _TITLE "Click and hold down on title bar to stop time!"
2. start## = TIMER
3. DO
4.     CLS
5.     LOCATE 1, 1
6.     PRINT TIME$
7.     LOCATE 2, 4: PRINT timePassed$(start##)
8.     _DELAY .045
9. LOOP UNTIL theCowsComeHome
10.  
11. FUNCTION timePassed$ (started##)
12.     IF started## > TIMER THEN started## = started## - 86400
13.     tp## = TIMER - started##
14.     t1$ = STR$(tp##)
15.     dot = INSTR(t1$, ".")
16.     t2$ = MID$(t1$, dot, 3)
17.     t% = INT(tp##)
18.     sec% = t% MOD 60
19.     min% = INT(t% / 60) MOD 60
20.     timePassed$ = STR$(min%) + ":" + RIGHT$(STR$(sec%), 2) + t2$
21. END FUNCTION
22.  

That will change started## once unless game play goes well beyond 24 hours...

[TempodiBasic]

Hi guys

@bplus and other friends....

please can tell me what is it?

LOOP UNTIL theCowsComeHome

I'm just curious

Thanks

[bplus]

Hi guys

@bplus and other friends....

please can tell me what is it?

LOOP UNTIL theCowsComeHome

I'm just curious

Thanks

;-))  Basically, B+ is just having fun!

theCowsComeHome = 0 because it was never set to any other value.

So Basically the line is saying

LOOP UNTIL 0

Or in other Basic words, LOOP forever!

It is a shortcut like saying:

Code: QB64: [Select]

1. WHILE 1
2.     'do stuff in this loop until you click the x box or you put an EXIT condition in the loop
3. WEND

Code: QB64: [Select]

1. TRUE = -1
2. iLoveBasic = TRUE
3. WHILE iLOVEBASIC
4.     ? "Hello Word!"
5. WEND

Thanks for paying attention TempodiBasic ;)


Attached is meaning of expression "Until the cows come home":

[PMACKAY]

THANK YOU GUYS!!!

I ended up using (funny i did not want to use timer() thinking would take a bit of work) but i ended up using timer which turned out so simple

T1 = _FREETIMER
_SNDLOOP GAMEMUSIC1&
ON TIMER(T1, 1) GOSUB TI
DO :'                                                  START OF PROGRAM LOOP (TRUST ME ITS MUCH BIGGER - 80+ LINES OF CODE BUT I LOVE IT AND SO ADDICTIVE TO PLAY)  "iTS MY NEW PUZZLE GAME"
TI=60
TIMER(T1) ON
IF TI=0 THEN :        '                           TIMER AT 0 SO OUT OF TIME

TI: TI = TI - 1: RETURN :'                    SUB TIMER COUNTER


I LOVE QB64

[PMACKAY]

TIMERS working great (2xtimers for title) and (1xtimer for in game).. Also got my timer now running on screen without numbers (shows a bar for 60seconds / width of 4) looks great.

Working time Bar (YAY)