Free Programs and Source Code

Discuss whatever you want here--both QB and non-QB related. Anything from the DEF INT command to the meaning of life!

Moderators: Pete, Mods

Post Reply
mikecaterina1
Coder
Posts: 11
Joined: Sun Sep 09, 2012 6:49 pm

Free Programs and Source Code

Post by mikecaterina1 » Mon Sep 17, 2012 3:49 pm

Post any porgram you have created or modified, finished or unfinished. Post a link to you program/ code if possbile (i.e. Dropbox), as copy and paste doesn't work in Qbasic only QB64 and retyping a program leaves alot of room for errors.
Note: Any programs you post can be downloaded, modified and reposted by anyone, so do not post if you do not want this to happen.
Last edited by mikecaterina1 on Tue Sep 18, 2012 3:15 pm, edited 2 times in total.

mikecaterina1
Coder
Posts: 11
Joined: Sun Sep 09, 2012 6:49 pm

Countdown

Post by mikecaterina1 » Mon Sep 17, 2012 3:54 pm

Here is a simple countdown program I wrote just for fun. You can set the countdown length. You can also set what the program says after the countdown. The scroll the program talks about is a little arrow the moves across the screen after the countdown. Feel free to download, use and edit this program.

https://www.dropbox.com/sh/5hycvasm0cvgxmu/nxTTclkzVN

User avatar
bongomeno
Veteran
Posts: 231
Joined: Wed Dec 10, 2008 9:08 am
Location: San Bernardino CA
Contact:

Post by bongomeno » Tue Sep 18, 2012 12:35 am

Here is a simple jewel elimination style game that I made last week.

http://www.geekbasic.com/downloads/QJEWEL.ZIP
Last edited by bongomeno on Wed Sep 19, 2012 1:16 pm, edited 2 times in total.
Home: http://www.geekbasic.com" target="_blank
Forum: http://www.geekbasic.com/index.gbws?$page=forumsmain" target="_blank
QB64 powered web server: http://www.geekbasic.com/index.gbws?$pa ... inter=%201" target="_blank

mikecaterina1
Coder
Posts: 11
Joined: Sun Sep 09, 2012 6:49 pm

Post by mikecaterina1 » Tue Sep 18, 2012 3:19 pm

Good game but only the right arrow key work for me and I can't get past the first line, is there a bug in the program or is it my computer? :?

User avatar
burger2227
Veteran
Posts: 2368
Joined: Mon Aug 21, 2006 12:40 am
Location: Pittsburgh, PA

Post by burger2227 » Tue Sep 18, 2012 8:02 pm

Same here. K is missing to go left.

The code allows you to use just CAP letter keys too
Please acknowledge and thank members who answer your questions!
QB64 is a FREE QBasic compiler for WIN, MAC(OSX) and LINUX : https://www.qb64.org/forum/index.php
Get my Q-Basics demonstrator: https://www.dropbox.com/s/fdmgp91d6h8ps ... s.zip?dl=0

User avatar
bongomeno
Veteran
Posts: 231
Joined: Wed Dec 10, 2008 9:08 am
Location: San Bernardino CA
Contact:

Post by bongomeno » Tue Sep 18, 2012 11:12 pm

Are you using the arrow keys to move the cursor?
Home: http://www.geekbasic.com" target="_blank
Forum: http://www.geekbasic.com/index.gbws?$page=forumsmain" target="_blank
QB64 powered web server: http://www.geekbasic.com/index.gbws?$pa ... inter=%201" target="_blank

User avatar
burger2227
Veteran
Posts: 2368
Joined: Mon Aug 21, 2006 12:40 am
Location: Pittsburgh, PA

Post by burger2227 » Tue Sep 18, 2012 11:51 pm

Of course and like I said the CHR$(0) + K is missing to go left. Why don't you fix it. It doesn't move any way but right.
Please acknowledge and thank members who answer your questions!
QB64 is a FREE QBasic compiler for WIN, MAC(OSX) and LINUX : https://www.qb64.org/forum/index.php
Get my Q-Basics demonstrator: https://www.dropbox.com/s/fdmgp91d6h8ps ... s.zip?dl=0

User avatar
bongomeno
Veteran
Posts: 231
Joined: Wed Dec 10, 2008 9:08 am
Location: San Bernardino CA
Contact:

Post by bongomeno » Wed Sep 19, 2012 12:58 pm

It works on all of the computers that I have tested it on.
Try this link to the exe and actual source file. http://www.geekbasic.com/downloads/QJEWEL.ZIP Stuff was lost while posting here.

Also, why would I need chr$(0) when I have SELECT CASE RIGHT$(in$, 1)?
Home: http://www.geekbasic.com" target="_blank
Forum: http://www.geekbasic.com/index.gbws?$page=forumsmain" target="_blank
QB64 powered web server: http://www.geekbasic.com/index.gbws?$pa ... inter=%201" target="_blank

mikecaterina1
Coder
Posts: 11
Joined: Sun Sep 09, 2012 6:49 pm

Post by mikecaterina1 » Wed Sep 19, 2012 3:33 pm

I downloaded and it works with DosBox but it is very skippy and slow :(

User avatar
burger2227
Veteran
Posts: 2368
Joined: Mon Aug 21, 2006 12:40 am
Location: Pittsburgh, PA

Post by burger2227 » Wed Sep 19, 2012 10:43 pm

Also, why would I need chr$(0) when I have SELECT CASE RIGHT$(in$, 1)?
You don't. That's why K would work too, like I said...
Please acknowledge and thank members who answer your questions!
QB64 is a FREE QBasic compiler for WIN, MAC(OSX) and LINUX : https://www.qb64.org/forum/index.php
Get my Q-Basics demonstrator: https://www.dropbox.com/s/fdmgp91d6h8ps ... s.zip?dl=0

User avatar
bongomeno
Veteran
Posts: 231
Joined: Wed Dec 10, 2008 9:08 am
Location: San Bernardino CA
Contact:

Post by bongomeno » Thu Sep 20, 2012 10:34 am

ahh I misread your post.

and Qbasic +inkey$+circles + Dosbox = slow

Try using QB64. It will run super fast!
Home: http://www.geekbasic.com" target="_blank
Forum: http://www.geekbasic.com/index.gbws?$page=forumsmain" target="_blank
QB64 powered web server: http://www.geekbasic.com/index.gbws?$pa ... inter=%201" target="_blank

Post Reply