Pete's QBASIC Site

Hello all,

I just joined this site a few days ago. Back in the mid 1980s I'd gotten into BASIC programming on whatever it was called then. I want to get back into it again and am now using QB 4.5. (Sure is better to not have to use line numbers!)

I've written a .bas program I'd like to post here for comments but see no way to attach it to a posting; did I miss something? I could copy/paste the code into a posting but that doesn't seem right. Any suggestions?

Another question: At the bottom of where I'm typing in the posting there is a reference to "Poll question, etc." What is that all about?

Thanks...

You cannot upload stuff here. For now, it's best to copy/paste the code. Use the code BB button.

What OS do you have?

Quote: "For now, it's best to copy/paste the code. Use the code BB button."

Sorry to be a bit dense here. I understand how to copy/paste the code, but how do I "Use the code BB button?"

I use three different OSs: Win XP, Vista and 7. I prefer writing BASIC on XP because it has less "bells and whistles."

The BB button is the Code button. Click it once before pasting and click it again when you are done. It places the code box start at the place your last text has stopped. It will not go back to a cursor place before that. It's weird...

Burger2227,

Thanks for clarifying about the BB Button. That part worked just fine but I have hit a snag on trying to post a reply with the code included.

Short comments, such as this one, post fine but when I add the code (6.6 KB of it) it will not post, or even preview. Is there a KB limit to the size of a posting?

There probably is. Get a free 2 G of space at Drop Box and just place a link to the BAS file or ZIP file here. I'll send you an invite so that you can get extra space.

Thanks for the suggestion about Dropbox. I'd heard of it but never tried it. I appreciate your offer to send me an invite to there.

If you want to, you can go to my website (see www link below) where you'll find both the code and a downloadable .bas file.

Visited your site, also, I like qbasic, but I like qb64 even better,but at the same time I can still use what little qbasic code I know.
I use Linux, and if I wanted to use qbasic or qb.45, before, I would use Dos (FreeDos), on a different partition, now with qb64, I just boot with Linux, and use qb64, very rarely use any dos anymore,....
I noticed on your site, you comment that you are more interested in utilities, and teaching/learning type programs, I am similar in that way, I am not a real big game entusiast,..
ok well take care,..nice to meet you,
from garry

I appreciate your comments, Gary, both here and in my website. I checked out your website also and find it to be quite interesting.

I downloaded and ran your math1.bas. It ran on QB 4.5 fairly well. Personally, I did not like the use of sounds. For me it distracts from the goal of learning Math. But that's just my preference.

On your site you mention translating. Have you tried Google's translator? (http://translate.google.com/) A while ago I exchanged emails with a guy in Germany. He said, in English, that Google's translator did quite well. Here is all of the above as translated into Spanish, by Google's translator.
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Agradezco sus comentarios, Gary, tanto aqu? como en mi sitio web. Revis? su sitio web tambi?n y parece que es bastante interesante.

He descargado y corri? sus math1.bas. Se corri? en 4,5 QB bastante bien. Personalmente, no me gusta el uso de los sonidos. Para m? lo distrae de la meta de aprender matem?ticas. Pero eso es s?lo mi preferencia.

En el sitio que usted menciona traducir. ?Has probado el traductor de Google? (http://translate.google.com/) Hace un tiempo yo intercambiamos correos electr?nicos con un tipo en Alemania. ?l dijo, en Ingl?s, traductor de Google que lo hizo bastante bien. Aqu? est? todo lo anterior, traducido al espa?ol, por el traductor de Google.

The math program, was my first attempt at any code with qbasic, I had gotten some tutorials, and I knew my kid was having trouble getting even the basic 1 thru 10 tables
memorized , I also did not have a internet connection, I down loaded the tutorials at a internet cafe, then went home and started working on it.
In a way, having the internet, actualllly takes away from really studying and trying to write my own code,...I get so sidetracked, etc. Or it is so easy to find "snippets", too,..
When I did not have interenet, I would go over the tutorials, and keep trying, until I got it figured out. If and when I was still unable to figure it out, then back to "town" on my bycycle, to the internet cafe, where I could post a question,...and when it is 2 am in the morning, that really is not a option, they are closed.
On the other hand , the internet is so full of resources,etc,..one can quickly find a answer to almost any question, at any hour,..
Yes I also use "google' translate, a lot,Translate
However, one still should know enough of the language to be able to "proof read" the translation, and my spelling in english is terrible, it is important the words are spelled correctly, or the translation can be way off,..Sometimes, I have seen some pretty funny translations, come up, but they were not what I was trying to say!,..I just checked now, and it appears it has been fixed, but years ago I wrote, "My God, I am so tired" , and "google translated it to say, " Soy Dios , estoy cansado" or something like that,..
I have noticed, that google translate is improving over time,..
That leads to another topic, a Artifcial Itelligence, they had ,"Clever Bot" t would be interesting to see how much it has learned, in the last couple of years.
.thanks for the reply

OK, here I am again with another endeavor. This time it's a program that asks a series of questions on mathematics and then calculates what percentage you got correct.

I originally wrote it in QB 45 and then tried it in QB 64; it worked just fine. I did have to add a _FULLSCREEN _STRETCH command at the beginning to get it full screen.

I'm hooked on QB 64 now that I have a better feel for it. The best part for me is that I can now work on a 64 bit machine with Win Vista and a 6.5" X 14" screen.

I know I could copy/past the code here, but at 5.33 kb I feel that's it's too much. You can go to my website at quickbasic45.weebly.com to see a copy/paste of the code and/or download the .bas file. (Please use the www link.)

Any comments?

Interesting program, I looked at it, It seems like it would be a good "Template"
or "foundation", that one could use, to build a "Exam" of sorts, I mean to say, it would be easy enough to add more questions, to get a more complete "test" or exam,.....
For example, I could look at my kids, grades, and tests. from school, and the add various questions, based on the areas he needs to study more,..
Thanks for sharing this

Thanks Gary. I hadn't thought about that template/foundation concept.

Well here is my latest attempt, in QB 64. It's a 15 question trivia quiz, with (annoying?) sound. How about heading over to my website at http://quickbasic64.weebly.com/ and checking it out?

(Gary, I used your template concept on this one.)

Is it annoying on purpose or does it have a problem? Do you have a problem?

Is it annoying on purpose or does it have a problem? Do you have a problem?

No, it is not annoying on purpose. Some folks just might like the sounds.

The program does not have a problem.

I do not have a problem.

Thanks for the interest, Garry.

That should be a thank you to burger2227.

OK, I thought you had a problem with it.

Here I am again. Remember my previous post about the annoying sound in the program? I've tried and tried to modify it so a user can turn the sounds off, but to no avail.

Any ideas or suggestions?

Here's a copy/paste of just the sound subroutines. You can download the entire program at my website: http://quickbasic64.weebly.com

wrong:
IF sound$ = "n" THEN LOCATE 22, 22: PRINT "You have the sound turned off.";
RETURN
BEEP
BEEP
RETURN

correct:
LOCATE 14, 28: COLOR 18, 1: PRINT "That is correct!": COLOR 15, 1
IF sound$ = "n" THEN LOCATE 22, 22: PRINT "You have the sound turned off.";
RETURN
PLAY "mll64"
FOR x = 1 TO 50
a$ = a$ + "v" + LTRIM$(STR$(x)) + "n" + LTRIM$(STR$(x))
NEXT
FOR x = 50 TO 1 STEP -1
a$ = a$ + "v" + LTRIM$(STR$(x)) + "n" + LTRIM$(STR$(x))
NEXT
PLAY a$
a$ = ""
RETURN

You need to include the calls to those GOSUB programs.

What other sounds are you playing?