Commented Bug - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|730\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Commented Bug
Tue, 21 Jan 2025, 14:22
dna	Odd Error If I remove the comment from the print statement the code runs fine but when added nothing happens? Any thoughts? GWID=320:GHEI=200 Graphics GWID,GHEI,16,2:SeedRnd MilliSecs():SetBuffer BackBuffer() .TLP While Not KeyDown(1) ;Or KeyHit(28) FlushKeys() MIN=Mid$(Str$(CurrentTime()),Instr(Str$(CurrentTime()),":")+1,2) Color 30,230,180:Line ((GWID/60)/2)+GWID/60MIN,50,((GWID/60)/2)+GWID/60MIN,GHEI/2:OMIN=MIN:Color 255,255,255 ;Print ;MIN ;HALT If OMIN<>MIN ;Print CurrentTime ():Print MIN:Print Len(Str$(MIN)) Cls:Flip: EndIf Text 0,20,Str$(CurrentTime()) ;If KeyHit(28) Or KeyHit(1) Then End Goto TLP Wend HALT Function HALT(P=0) If P=0 Then WaitKey:End End Function --v -=-=- DNA
Tue, 21 Jan 2025, 15:45
Jayenkai	I'm not sure, but you're going to get a stack overflow because you're constantly opening While loops, but the goto is jumping up before it reaches the wend. -=-=- ''Load, Next List!''
Tue, 21 Jan 2025, 18:10
dna	I got it to work but only with the print statement being used. I restructured it to avoid the stack overflow but the same result unless the print is being used. GWID=320:GHEI=200 Graphics GWID,GHEI,16,2:SeedRnd MilliSecs():SetBuffer BackBuffer() Print Int (GWID/30.1+.4) Print (GWID/60.0) Print ((GWID-20)/59.0) ;SEC=Right$(Str$(CurrentTime()),Instr(Str$(CurrentTime()),":")-1) ;Print SEC:HALT .TLP While Not KeyDown(1) ;Or KeyHit(28) ;FlushKeys() MIN=Mid$(Str$(CurrentTime()),Instr(Str$(CurrentTime()),":")+1,2) SEC=Right$(Str$(CurrentTime()),Instr(Str$(CurrentTime()),":")-1) Color 30,130,180:Line 12+(GWID/60MIN),20,12+(GWID/60MIN),50:OMIN=MIN:Color 255,255,255 Color 0,130,230:Line 12+(GWID/60SEC),70,12+(GWID/60SEC),70+40:OSEC=SEC:Color 255,255,255 Print ;MIN ;HALT If (OMIN<>MIN) Or (OSEC<>SEC) ;Print CurrentTime ():Print MIN:Print Len(Str$(MIN)) Cls:Flip: EndIf Cls:;Text 0,20,CurrentTime() ;If KeyHit(28) Or KeyHit(1) Then End Wend Goto TLP HALT Function HALT(P=0) If P=0 Then WaitKey:End End Function --v -=-=- DNA
Tue, 21 Jan 2025, 20:01
Dan	I made some tests and your code has some flaws in the logic. The "if OMIN<>MIN" comparison never gets executed, because you are setting OMIN=MIN before the comparison. Second thing is, when using double buffering: draw something on the screen, and when the drawing is done you should flip it immediately. If you do it as you wanted (when min<>omin) you may have called the CLS command AFTER the drawing is done and therefore clearing the backbuffer - which would display nothing. see this code: SetBuffer BackBuffer() x=1 .loop Cls x=x+1 If x>300 Then x=0 Rect x,10,20,20,1 Flip ;Print Goto loop --v The explanation why your code works with Print is: the Print statement is probably forcing the flipping of the backbuffer, but only occasionally. you can see that it is true if you comment out the flip command and uncomment the print statement. with both flip and print commented out, you should see only the black background. Edit: I did some more tests with the above code. If you comment out the flip, uncomment print but add locate 0,0 there will be no flipping. This leads to the conclusion that it is not the print itself, but the scrolling of the background (which print causes when it hits the bottom line) that may, occasionally, force the flipping of the buffer.
Wed, 22 Jan 2025, 11:45
dna	You're right DAN. I commented out the setbackbuffer() command and the graphics appeared. Also an issue, was the exiting of the program when the ESC key was pressed. I commented out the GOTO statement and it's doing that right. I'm next trying to get a line to move across every second. -=-=- DNA
Thu, 23 Jan 2025, 01:55
Dan	Unlike the old pc's like c64 and amiga, todays computers are very fast. Blitzbasic can draw many lines in a millisecond per frame ... i wrote a test program to check when it starts to slowdown or to crawl: GW=255:GH=255 Graphics GW,GH,16,2 : Graphics GW,GH,16,3 SeedRnd MilliSecs() z=500 Dim L(z,7) For x=0 To z L(x,0)=Rand(0,255) : L(x,1)=Rand(0,255) : L(x,2)=Rand(0,255) : L(x,3)=Rand(0,255) L(x,4)=Rand(10,255) : L(x,5)=Rand(10,255) : L(x,6)=Rand(10,255) Next SetBuffer BackBuffer() a=35 While Not KeyDown(1) Cls t=MilliSecs() If KeyDown(205) Then a=a+(a<(z-1)) ;arrow right If KeyDown(203) Then a=a-(a>1) ;arrow left For x=0 To a For y=0 To 2 : L(x,y)=L(x,y)+1 : If L(x,y)>255 Then L(x,y)=0 Next Color L(x,4),L(x,5),L(x,6) : Line L(x,0),L(x,1),L(x,2),L(x,3) Next Color $ff,$ff,$ff : Text 0,0,(a+1)+" Lines on screen in "+(MilliSecs()-t)+" ms" Flip Wend End --v

Odd Error