Interesting qbasic 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
TRANERAECK
Coder
Posts: 29
Joined: Thu Mar 24, 2011 3:08 am

Interesting qbasic code

Post by TRANERAECK » Thu Mar 24, 2011 4:05 am

I found some code on powerbasic's web site such as how to read a dll and how to read a lib file. There is also some cool stuff about a graphics programming manual or something but with the assembly idea i posted from microsoft it should be pretty darn good. Here is the website:

http://www.powerbasic.com/support/downloads/dos.htm

With my assembly idea I posted another website from pcmag and if you check there is a quickbasic library reader there. Here is that website:
http://shareware.pcmag.com/category/Qu ... /238.html
With that information there is ideas on windows, but if you really want a window that comes out like on an xp. Also, it may come out like a window on any window os I am not sure only have the source and I need to see how it works still. You can download virtual pascal at this website:
http://www.softpedia.com/get/Programmi ... cal.shtml
You are looking for a file called windows.pas. If you figure it out; I searched the whole file skimming and found there is no call to another unit or anything it makes the window! The file is 578 kb it is located in rtl and if translated to basic could make the window. I just took the whole rtl and trashed the virtual pascal after I made my copy because it doesn't make the clock example. With that if you download Inno PASCAL it comes with source and uses the rtl from virtual pascal in a way to complete the compiler that is Inno PASCAL. It probably will not do it right of the bat, but with programming could make a PASCAL compiler. I'm not sure because I want to use BASIC and make a BASIC compiler simple because BASIC can screen out the window any pixel size I want and also it can produce sound any note I want since BACH is played in firstbasic that comes from powerbasic's website. In closing I found a keyboard assembler routine somewhere and it is 9kb it comes with an object file but with this new information on assembly from Microsoft; it is in my other post I can use the assembly file outright. Ok 'nuff said. I'm not Stan Lee just enjoy reading comics. :wink: Have a good one. As I leave I found the website with keyboard it is Intel assembler IT here it is:
http://www.intel-assembler.it/portale/ ... dling.asp

User avatar
Kiyotewolf
Veteran
Posts: 96
Joined: Tue Apr 01, 2008 11:38 pm

Post by Kiyotewolf » Sun Apr 03, 2011 7:30 pm

If you're going to do Windows type stuff in QB, you're going to have to draw the boxes on the screen yourself, round the corners yourself, and make it react to the user's clicks on the screen.

All in all, hard to grasp at first, but not hopeless.



~Kiyote!

Code: Select all


REM LITTLE CUTE PROGRAM IN QBASIC TO DRAW
REM ROUNDED BOXES OF ANY SIZE

SCREEN 7

REM set edges of box.

XIN3 = 20
YIN3 = 20
XIN4 = 100
YIN4 = 100

clrin2 = 15

REM DRAW BOX
line(xin3 + 1, yin3) - (xin4 - 1, yin3), clrin2
line(xin3, yin3 + 1) - (xin3, yin4 - 1), clrin2
line(xin3 + 1, yin4) - (xin4 - 1, yin4), clrin2 'bottom of box
line(xin4, yin3 + 1) - (xin4, yin4 - 1), clrin2 'left side of box
REM fill corners so it's rounded & pretty
pset(xin3 + 1, yin3 + 1), clrin2
pset(xin3 + 1, yin4 - 1), clrin2
pset(xin4 - 1, yin3 + 1), clrin2
pset(xin4 - 1, yin4 - 1), clrin2

REM let user look before exiting.

WHILE INKEY$<>"":WEND
WHILE INKEY$="":WEND
WHILE INKEY$<>"":WEND

END


You should be able to copy/paste into QBasic & run that as a starting point for pretty windows inspired boxes.
Banana phone! We need more lemon pledge. * exploding fist of iced tea! * I see your psycho cat and counter with a duck that has a broken leg, in a cast.

Post Reply