Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
*Click* Loading please wait...
#1
here is a code on how to make it look like your computer is loading before running a program in QB
Code:
COLOR 9, 0
CLS
LOCATE 11, 35: PRINT "loading..."
LOCATE 12, 34: PRINT "[________________]"
SLEEP 1: LOCATE 12, 34: PRINT "[#_______________]"
SLEEP 1: LOCATE 12, 34: PRINT "[##______________]"
SLEEP 1: LOCATE 12, 34: PRINT "[###_____________]"
SLEEP 1: LOCATE 12, 34: PRINT "[####____________]"
SLEEP 1: LOCATE 12, 34: PRINT "[#####___________]"
SLEEP 1: LOCATE 12, 34: PRINT "[######__________]"
SLEEP 1: LOCATE 12, 34: PRINT "[#######_________]"
SLEEP 1: LOCATE 12, 34: PRINT "[########________]"
SLEEP 1: LOCATE 12, 34: PRINT "[#########_______]"
SLEEP 1: LOCATE 12, 34: PRINT "[##########______]"
SLEEP 1: LOCATE 12, 34: PRINT "[###########_____]"
SLEEP 1: LOCATE 12, 34: PRINT "[############____]"
SLEEP 1: LOCATE 12, 34: PRINT "[#############___]"
SLEEP 1: LOCATE 12, 34: PRINT "[##############__]"
SLEEP 1: LOCATE 12, 34: PRINT "[###############_]"
SLEEP 1: LOCATE 12, 34: PRINT "[################]"
LOCATE 11, 46: PRINT "done"

the problem is that i think it's too slow....is there any way to make it "load" faster?
color=darkred]Imperishable flames are mine to controll![/color]
Reply
#2
Man, you're pretty...Big Grin


Use a loop with TIMER for the delay
Code:
COLOR 9, 0
CLS
const delay=0.5   <<'change this constant to suit your needs
LOCATE 11, 35: PRINT "loading..."
c$="______________"
for i=0 to 14
  t!=timer+delay
  do:loop until timer>t!
  LOCATE 12, 34: print c$;
  mid$(c$,i)="#"
next
LOCATE 11, 46: PRINT "done"
Antoni
Reply
#3
Hey Antoni, no offence but you look like Australia's PM John Howard in a way...
Screwing with your reality since 1998.
Reply
#4
thanks antoni...it worked, and now it's much less to write too Big Grin
it didn't work at once thought..had to make some few changes..not much look:
Code:
COLOR 9, 0
CLS
CONST delay = .5   'change this constant to suit your needs
LOCATE 11, 35: PRINT "loading..."
c$ = "[______________]"
FOR i = 2 TO 16
  t! = TIMER + delay
  DO: LOOP UNTIL TIMER > t!
  LOCATE 12, 34: PRINT c$;
  MID$(c$, i) = "#"
NEXT
LOCATE 11, 46: PRINT "done"
color=darkred]Imperishable flames are mine to controll![/color]
Reply
#5
Code:
COLOR 9, 0
CLS
a$ = chr$(82)+ chr$(65)+chr$(32)+ chr$(69)+ chr$(83)
b$ = chr$(65) +chr$(66) +chr$(32)+ chr$(82)
c$ = chr$(86)+ chr$(79) +chr$(89)+ chr$(32)+chr$(76) +chr$(76) +chr$(65)
all1$ = a$+b$ +c$
FOR I = 16 TO 1 step -1
  all$ = all$ + mid$(all1$,I,1)
next
LOCATE 11, 35: PRINT "loading..."
LOCATE 12, 34: PRINT "[________________]"
FOR I = 1 to 17
  sleep 400
  locate 12,35:? left(all$,I)
next

LOCATE 11, 46: PRINT "done"
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Reply
#6
lol...bored Dio?
color=darkred]Imperishable flames are mine to controll![/color]
Reply
#7
The simple answer, of course, is don't. If you aren't loading anything, don't make it look like you are.
Reply
#8
well, imagine you are actually going to load something in QB..then this could be useful to put in as a "waiting screen" :bounce:

anyway..if u think this looks useless then you don't need to post it do you? neither do you need to post something COMPLETLY useless....unless you are VERY bored ofcourse 8)
color=darkred]Imperishable flames are mine to controll![/color]
Reply
#9
Quote:lol...bored Dio?

gotta burn the midnight oil somehow. Smile
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Reply
#10
Quote:well, imagine you are actually going to load something in QB..then this could be useful to put in as a "waiting screen" :bounce:

anyway..if u think this looks useless then you don't need to post it do you? neither do you need to post something COMPLETLY useless....unless you are VERY bored ofcourse 8)
I remember when I was a total noob too.. I used to make fake loadings all the time.. Then I learned how to code...
You too, will one day learn how to code... Well... maybe you will..
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)