cara membuat loading pake Q Basic

emang sulit untuk bwat loading pake Q Basic .

makanya dalam kesempatan ini saya selaku server IK Dua berbagi pengalaman yang sudah saya pelajari tentang Q Basic.
Begini dan begonolah caranya:

ketiklah script dibawah ini, kalo anda belum punya aplikasi Q Basic klik lah disini untuk download.


CLS
COLOR 4, 0: LOCATE 10, 27: PRINT "====================="
COLOR 4, 0: LOCATE 11, 27: PRINT "| |"
COLOR 4, 0: LOCATE 12, 27: PRINT "====================="
COLOR 7, 0:
FOR K = 1 TO 15
FOR I = 1 TO 15
LOCATE 11, 32.5 + I: PRINT "**"
FOR J = 1 TO 200000
NEXT
LOCATE 11, 32.5 + I: PRINT " "
NEXT
FOR I = 15 TO 1 STEP -1
LOCATE 11, 32.5 + I: PRINT "**"
FOR J = 1 TO 200000
NEXT
LOCATE 11, 32.5 + I: PRINT " "
NEXT
LOCATE 20, 33: PRINT "Loading..... " + STR$((K * 6) + 10) + "%"
NEXT


semoga berhasil !!!!

|