Pete's QBASIC Site

No, the FUNCTION checks for that, but the code to determine X and Y, or whatever you want to call them, still needs the other code to determine the values before the Function will work properly.

It could possibly all be all done inside the Function, if you wish.

Ted

NOT my SUB? LOL, I found that FUNCTION and you are correct except for the first instance in the IF statements.

Naturally, ATN can be used to compare Y/X to determine the Radian angles. Zero could create division problems too. So the first IF avoids a "Division by zero" error.

Ted

The following code is from VB, but can be used in QB. Atn2 - Arc tangent of Y/X ' arc tangent of Y/X - returns values in all four quadrants Function Atn2(x As Double, y As Double) As Double If x = 0 Then Atn2 = Sgn(y) * 1.5707963267949 ElseIf x > 0 Then Atn2 = Atn(y / x) Else Atn2 = Atn(y / x) + 3.1...

I seldom use WHILE WEND loops. WHILE is not used in many other programming languages. Thus you have to rewrite them when converting from QB.

GOTO is only necessary for ON ERROR GOTO. New programmers often get in a bad habit using GOTO. They don't even bother making loops. Troubleshooting the code often becomes a confusing Task. GOTO is almost as useless as LET, but those are often the two first things that POOR teachers throw at them! I'...

That's what you get, when somebody just writes all of the code for you.

Especially if it's wrong! Why would a CHEATER say thanks anyway? Also if the code don't work, they just cheat somewhere else..........

Ted

Go back and edit the double post. Check the box that says Delete Post before it is too late to do so. Click Submit Post.

Ted

Have fun!

Ted

Talk to Bob about this at his Graphics Studio:

http://www.network54.com/Forum/613143/

Ted

LOL@FB

I think it is best to just close the file when you are done with it. Then reopen it when you need to read it again. You could make a SUB program with the OPEN and CLOSE and your loop. It is important that you not pass the End Of File. I usually use: DO WHILE NOT(EOF(1)) You could also use: IF NOT(EO...

Bet he don't come back. He posted at Network 54 too.

Ted

As I recall, the site was not getting a lot of Forum hits. I uploaded some files there and the comments from users were just a bunch of SPAM. I told them about it and they did nothing.

If you do get it running, please remove user Download comments to save bandwidth.

Ted

Let me guess. You already threw the old keyboard away! If not, try it and see what happens. Otherwise FORGET ABOUT IT! You are apparently too stubborn to try another one!

Does the keyboard work OK in Windows?

Sounds like the keyboard is not a standard keyboard for your language settings.

Try eliminating the PRINT "Resume". I think the error quits on any subsequent code before RESUME NEXT. Just a guess?

Ted

When a module gets too full, you need to split it into other modules or it will not compile. You can place subprograms into other modules and LINK them. You can use command line also to LINK and Compile. Try zipping up the program and uploading it to www.QbasicStation.com You have to join before you...

Doesn't make much sense to me either. That does give FB a wider range of integer values, but that is not compatable with your QB code either.

Like I have said before, they should have called it FREE C.

Ted

A lot of people don't feel that FB is really a basic programming language anymore. That is one reason that QB64 is being developed. It also will work on 64 bit machines. It still has a few things missing, but it is rapidly moving toward completion. Hopefully in the next 6 to 8 months. (link below) F...

You can make your own palette files by reading the color attribute's R, G and B settings. If you create custom colors, they can also be recorded using: FOR c = 0 TO maxcolors - 1 ' screen 12 = 15 screen 13 = 255 OUT &H3C7, c 'prepares color port for INP reads Red = INP(&HC39) 'each sends 0 t...

I have been watching this thread for a while. You have taken the extra effort by converting to FB. Hope all goes well!

Ted