little example programs

[theuserbl]

Hi!

I have created two little programs
You can download them at
http://www.theuserbl.ag.vu/easyg.zip

In this zip-file are
easyg.bas
easyg.exe
letter.bas
letter.exe

easyg.bas is a program based on omne of the freebasic graphic-programs. But I think it is a lot of easier und read and to understand then the other programs.
The only problem is, that it is a ported graphic program from a special apbasic, which you can find at
http://www.theuserbl.ag.vu/specialapb.zip

In this file, the special program is called vga.bas.
It is not part of the official APBasic which you can find at
http://riverbbs.net/cds/share/2/basic/APB17.ZIP
for example.

The special version was for over 11years on an magazine-disk.

I think, it was created by Roland G. Hülmann (http://www.rgh-soft.de/) who have in this time often created programs and libraries for this magazine.

So, I don't know under what license vga.bas is.
I think it is free for any use. But it is better to ask him.


The other program in easyg.zip is letter.bas.
This are only an example of using the original QBasic-fonts under FreeBasic. (possible, that I make later more)
The fonts are the fonts of every PC-system, which QBasic used.
There existing two different fonts. One for low resolution (for screen 1, screen 7, screen 13) and one for high resolution (for screen 9, screen 12).´
I this program only A,B,C and a of the low resolution and A and B of the high resolution exists.


I am very happy, that freeBasic exists.
I like QBasic very much. And (together with ANSI C and some other Basic-dialects like Gfa-Basic, gwbasic, ...) thats the only programming-language which I understood. (I don't like OOP-languages)


The only think which I don't like in freeBasic is the long names of decleration variables.

For example.

In Qbasic:

funtion myfunc% (first%, second!, third)
end function

is in C

int myfunc (int first, double second, float third) {
}

but is in freeBasic

function myfunc(byval first as integer, byval second as double, byval third as float) as integer
end function

That looks more like VisualBasic.
It isn't so easy readable like the QBasic or C version. And it need more time to write it.
I hope, that this will be changed in any time.

But all in all, I am very happy that I have find the freeBasic side.


Btw: If you only want to look at my two programs. you can also find them at
http://www.theuserbl.ag.vu/easyg.bas
http://www.theuserbl.ag.vu/letter.bas

I am very happy, that freeBasic exists.

[na_th_an]

The only think which I don't like in freeBasic is the long names of decleration variables.

For example.

In Qbasic:

funtion myfunc% (first%, second!, third)
end function

[...]
but is in freeBasic

function myfunc(byval first as integer, byval second as double, byval third as float) as integer
end function

That looks more like VisualBasic.

You can use both ways in QB, VB and fB.