Ah, how can i reduce print statements? And why is it when i run it in EXE form it slows down my WHOLE computer but lots... will try to amek code smaller by adding "?"'s instead of print.
Reducing? Don't know.Weird that is slows down your pc. It should make it faster. You tried running it in DosBox? You can download that here http://dosbox.sourceforge.net/.
? will result in QB as PRINT. If you compile from the prompt, ? will not be recognized.
Grtz
Statistics: Posted by Seb McClouth — Thu Nov 29, 2007 1:26 pm
]]>
]]>
It is also based on the PC speed!
Ted
Statistics: Posted by burger2227 — Wed Nov 28, 2007 5:12 pm
]]>
]]>
]]>
Code:
SUB Delay (Dela!) start = TIMER DO WHILE start + dela! > TIMER IF start > TIMER THEN start = start - 86400 'midnite correction LOOPEND SUBTo call the sub:
Code:
Delay .5 '1/2 second delay ' orCALL Delay(.5)As to file access, you MUST not try to read data that is past the End Of File or EOF(#) or you will get an error. Here is an example with a loop and without one:
Code:
DO WHILE (NOT EOF(1)) 'loop until end of fileINPUT #1, nme$, Phone$, age%, Zip% IF nme$ = name$ THEN EXIT DOLOOPIF (NOT EOF(1)) THEN LINE INPUT #1, Line$ 'in an IF statementThe second is used with IF to see if the EOF has been reached while taking an entire line of data like text. It will not Input data if it is at the end of the file!
Ted
Statistics: Posted by burger2227 — Sat Nov 17, 2007 5:19 pm
]]>
]]>
Code:
do...until EOF(filenr%)Statistics: Posted by Seb McClouth — Fri Nov 16, 2007 12:59 pm
]]>
Try to create and use subs and functions instead of goto, will make your code way easier to read and handle.
E.K.Virtanen
Statistics: Posted by bungytheworm — Fri Nov 16, 2007 12:14 pm
]]>
Code:
DECLARE SUB TEXT (a AS INTEGER, b AS INTEGER, C AS STRING)'A database of SouylsinDEFINT A-ZCLSWbackround:FOR i = 1 TO 3COLOR 15, 12TEXT 15, 20, "Loading, Please wait."SLEEP 1CLS 2TEXT 15, 20, "Loading, Please wait.."SLEEP 1CLS 2TEXT 15, 20, "Loading, Please wait..."SLEEP 1CLS 2NEXT iCLStest:COLOR 15, 12LOCATE 1, 1PRINT "A production of Souylsin."SLEEP 1LOCATE 2, 1PRINT "Thanks to everyine who has contributed to this production."SLEEP 1LOCATE 3, 1PRINT "WikiDAT 0.11"SLEEP 1SHELL "TYPE help.txt"SLEEP 1LOCATE 10,1PRINT "TEST COMPLETE"LOCATE 11, 1PRINT "Press Any key to Continue"kp$ = INKEY$IF kp$ <THEN> 4 THEN selection% = 1 GOSUB Redraw CASE " "goto END SELECTLOOPRedraw:CLSFOR i = 1 TO 4 PRINT Menu$(i)NEXT iLOCATE selection%, 1COLOR 15, 12PRINT Menu$(selection%)COLOR 0, 12RETURNLOCATE 5, 20COLOR 14, 12PRINT "Database of Zelda Actors"ssearxh:GS:fnar:Anicode:asearch:CLS 2INPUT "Actor name, or part of one:", sactname$cmd$ = "FIND /I " + CHR$(34) + sactname$ + CHR$(34) + " Actordat.txt"SHELL cmd$PRINT "(A)nother search or (B)ack to main?"goto choiceext:CLS 2RANDOMIZE TIMERC = INT(RND * 0 + 15) + 1COLOR CLOCATE 10, 25PRINT "BYE!"SLEEP 1ENDSUB TEXT (a AS INTEGER, b AS INTEGER, C AS STRING)LOCATE a, bPRINT CEND SUBStatistics: Posted by Sinuvoid — Fri Nov 16, 2007 10:26 am
]]>
Um wanna explain the code to me? Might help a bit, but i need the locate so the string appears in the middle of the screen, and not a 1,1. Know what I mean? Ill show you a update of my code shortly, maybe in like 10minutes.
http://www.ascii-world.com/centering-text-on-the-screenYou need to make that as function with return value. If value = ok, then call sub done and so on.EDIT:How would I be able to turn this into a sub?...
Example of simple function.Rude and anti-beautifull but it does the job.
Code:
CONST OK = 1Function OkOrNot(a AS Integer, FileName AS String) AS IntegerOPEN FileName FOR INPUT AS #1INPUT #1, there$CLOSE #1locate a, 1IF there$ = "0000 0000 Link (may sometimes cause Z-buffer glitches)" THENPrint FileName; " Located successfully."RETURN OKELSEPRINT "Could not locate"; FileName "now exitting..."SLEEP 1ENDEND IFEND Function' this works after you create "Done" as sub.IF OkOrNot(a, "filenamehere") = OK Then DoneE.K.Virtanen
Statistics: Posted by bungytheworm — Fri Nov 16, 2007 8:36 am
]]>
EDIT:How would I be able to turn this into a sub?
Code:
find:OPEN file$ FOR INPUT AS #1INPUT #1, there$CLOSE #1IF there$ = "0000 0000 Link (may sometimes cause Z-buffer glitches)" THENLOCATE a, 1PRINT file$ " Located successfully."GOTO doneELSELOCATE a, 1PRINT "Could not locate"; file$ "now exitting..."SLEEP 1ENDEND IFStatistics: Posted by Sinuvoid — Fri Nov 16, 2007 7:47 am
]]>
Here is another tip. I thought to create it after looking your start of code.
Code:
Temp$ = "Loading, Please wait..."CLS ' no need to locate since CLS allways put's cursor at 1,1.For counter = 1 TO LEN(Temp$)Print MID$(Temp$, counter, 1);' important to have ; at the end so line wont change.'DELAY CODE HERE: SLEEP 1 or somethingNext Counterhttp://www.ascii-world.com/qbasic-snippets
E.K.Virtanen
Statistics: Posted by bungytheworm — Fri Nov 16, 2007 7:28 am
]]>
Statistics: Posted by Sinuvoid — Fri Nov 16, 2007 7:01 am
]]>
Code:
SUB Text(a AS Integer, b AS Integer, c AS String) LOCATE a, b PRINT cEND SUBLOCATE 15, 20
PRINT "Loading, Please wait."
with this
TEXT 15, 12, "Loading Please wait."
Things that slows your program mostly are these
Code:
FOR b = 1 TO 3000NEXT b Statistics: Posted by bungytheworm — Fri Nov 16, 2007 6:47 am
]]>