Commented Bug - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|528\|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 MIN=OMIN before the comparison. Second thing is: you should 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.

Odd Error