It's because QuickBasic is a DOS program and outputs to the printer with characters in ASCII. Printers then used their inbuilt fonts to print out in alpha/numerics. Most (all?) modern printers contain no character fonts - they only handle graphics streams.
I had the same problem running...
There is a QBasic library called ADVBAS that includes the command
'IF EXIST'
That allows you to check if a file exists. You could include that in your loop to get out when there were no more files.
You can download it from here as ADVBAS.ZIP
http://pages.sbcglobal.net/oasys/dnldfr.htm
I have a Microtek ScanMaker 3600.
Software is ScanWizard 5.
Printer is an Epson Stylus Color 600.
My problem is when I do a straight copy of an A4 document in standard mode at 100%, the width is printed at 100% but the length is stetched to 103% and text at the bottom of the document is lost...
I believe the main requirements for good programming are that:
1. The program runs as intended - without bugs.
2. The end product is user friendly and foolproof, ie. illegal user responses should have been anticipated and trapped, the printer seen to be ready, etc.
3. The code should be...
Trollacious,
I can't agree with your comment about using the same variable with different types. Just because you don't do it, it isn't bad practice!
Variables should have meaningful names, and it is a bit pointless to pick up choice$ as an INKEY$ and then change it to boxes% to get its value...
MiggyD,
As the question was raised in this (BASIC:Microsoft) forum so it's not unreasonable to think that the questioner was dealing with one of the Microsoft Basic dialects.
Since QBasic predominates - for DOS platforms - it is most likely that the question referred to QBasic.
For my part...
Here's one that should work:
CALL check4file(filename$,a%)
IF a%=0 THEN END
SUB check4file (filename$,a%)
f%=FREEFILE
OPEN filename$ FOR APPEND AS #f%
IF LOF(f%)= 0 THEN a% = 0 ELSE a% = 1
CLOSE #f%
IF a% = 0 THEN KILL filename$
END SUB
Like hardcor said, the printing will slow the operation considerably.
You dont really want all those calculations and printing every time through the loop.
Use two DO loops. In the first one, start copying bytes and time the number of chars in 1 second to get the transfer rate (BTW, where do...
A couple of other points.
You are showing Board$(col) which is an array. What it is is not clear but if it IS an array you need to dimension it as an array.
In case someone is using lower case on the keyboard, check for upper case equivalent of player$ like this
IF UCASE$(player$) =...
You got in 4 lines what you THINK clipjoint was doing. Was the 123 in a single string? an array? or were they separate integers?
As he hasn't told you this info, how do you know how to handle them?
ClareSnyder,
I have written several progs using com ports and they run on anything from Dos to win 98se, so i don't think the OS is your problem.
I don't know what you mean by a 'big banger' interface. Do you mean just using I/O? If so, the trouble may be the control wire arrangement. My progs...
I can make two suggestions:
1. Your line 140 has no delay on CS,DS or CD. If the status of those lines is not correct when you open the com port, you will get a timeout error. Setting each to a delay of 1sec may do the trick.
2. As, presumably, you wrote the program, how about putting in a...
A friend of mine has recently upgraded to XP Home Edition. He runs a DOS spreadsheet. When attempting to print the results, only part of them are printed. His printer is an Epson Stylus C40SV.
Has anyone any suggestions?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.