Sver
Full Member
Posts: 145
|
Post by Sver on Nov 25, 2023 8:34:38 GMT -5
NOMAINWIN
WindowWidth=400 WindowHeight=200 UpperLeftX=INT((DisplayWidth-WindowWidth)/2) UpperLeftY=INT((DisplayHeight-WindowHeight)/2) TEXTBOX #win.tb1, 20, 20, 360, 25 STATICTEXT #win.st1, "", 180, 60, 40, 25 BUTTON #win.btn1, "CLOSE", quit, LL, 170, 0, 60, 25 OPEN "Loading Progress" FOR WINDOW AS #win PRINT #win, "trapclose quit"
FOR k=1 to 180 display$=display$+"|" PRINT #win.tb1, display$ progress=INT((k/180)*100) PRINT #win.st1, progress; "%" CALL pause NEXT k WAIT
SUB pause TIMER 25, [continue] WAIT [continue] TIMER 0 END SUB
SUB quit handle$ CLOSE #win END END SUB
|
|
|
Post by tsh73 on Nov 25, 2023 11:39:15 GMT -5
Looks very cool for me Though it depends on character size, which likely could differ (if say display set to 125%?)
|
|