Aurel Basic v 1.1 build 85

[zlatkoAB]

Hi people... :D
Aurel Basic v 1.1 build 85 is out.
You can download this release directly from my forum on:
http://aurelbasic.smfnew.com

What is NEW in Aurel Basic v1.1 build 85 ?
NEW commands in this release are:
--------------------------------------------------
Added ComboBox and EditBox control

1.combobox
COMBOBOX x y w h ID
ID range (450-499)
example:
COMBOBOX 90 50 120 80 451

2.editbox
EDITBOX x y w h ID
ID range (500-549)
example:
EDITBOX 90 120 100 20 501

-----------------------------------------------------
CLEARSPACE command has new shape

CLEARSPACE x y n
n - number of blank spaces
example:
CLEARSPACE 100 100 15
'----------------------------------------------------
Look example ComboEdit
'----------------------------------------------------
BUG fixed in IF/THEN block !
Added "Select All" in editor context menu.
'----------------------------------------------------

All best...
Zlatko

[Petr Schreiber]

Hi Zlatko,

nice new additions!

There are just 2 problems, when I try to execute:
- ListBoxItems.abp
- OpenImage8.abp

Probably related to change of syntax.


Petr

[zlatkoAB]

Hi Petr ...
Yes you right ...
I forgot change in this two examples syntax for button
and for CLEARSPACE command.

Zlatko

[matthew]

The ControlsInSub.abp example needs to be updated too. ;)

[zlatkoAB]

Hi...
New RC 86 b of ABasic is out.You can download from forum:
http://aurelbasic.smfnew.com

What is NEW in Aurel Basic v1.1 RC 86 b ?
NEW command in this release is:
--------------------------------------------------
Added command for keyboard...

IFKEY [key]
;code
;code
ENDKEY

example:
IFKEY [A]
TEXT 50 50 Key A pressed
ENDKEY

Key names must be written in Upper case!
Supported keys from A to Z and arrow keys.
IFKEY [.UP]
IFKEY [.DOWN]
IFKEY [.LEFT]
IFKEY [.RIGHT]

'----------------------------------------------------
BUG fixed in SUBB block !
'----------------------------------------------------

All best...
Zlatko

[kryton9]

Zlatko, I am just curious, why did you select ; for the comment delimiter? I think most of us BASIC syntax lovers get sore eyes when we see ;

Keep up the good work and keeping us updated!

[Petr Schreiber]

Hi Zlatko,

congratulations on new release!
I noticed there is much less examples attached to the downloadable version - but AKeyPix.abp is very nice!

One thing - if you remember that Slovaq magazine with ABasic I told you about, I attach screenshot from its DVD with ABasic description in Slovaq :)


Petr

[zlatkoAB]

Hi Petr,Kent...
Thanks guys!
@kent- ha you mean why I use semicolon for comment start.
And why not,you can use for comment start in Abasic what you
whish - ; , ' ,//,>> only dont use command :)

@petr
Of course i don't forget slovaq magazine.Interesting and thanks for
screenshot! :read:
Yes its only few examples in zip,this is just RC release.
All old example works ....

Zlatko

[kryton9]

Zlatko, ahh I see... well that is interesting!

[zlatkoAB]

Yeah,little bit weird :roll:

[zlatkoAB]

Hi people... :)
ABasic has new update.
ABasic RC 86 d
New stuff are new browser commands and mouse events.
You can try new RC from:
http://aurelbasic.smfnew.com

all best..
Zlatko

[Petr Schreiber]

Worked well ;)

[zlatkoAB]

Thanks Petr :occasion:
Yoda-"Force is with you"

[kryton9]

Running fine here to Zlatko on windows XP with AMD dual core.
I tried Drawing Darth Vader to Petr's Yoda, but no luck... he wins today's art contest.

[zlatkoAB]

Thanks Kent :)
Just for info running also on celron 667 with XP...

[zlatkoAB]

Hi people... :)

Aurel Basic v1.1 build 87 is ready for download from:

http://aurelw.wiz.googlepages.com/aurelsoft

What is NEW in Aurel Basic v1.1 build 87 ?
NEW commands in this release are:
--------------------------------------------------
Added controls : progressbar and scrollbar

; create progress bar(ID 550-599)
PROGRESSBAR x y w h ID
PBSETRANGE ID min max
PBSETPOS ID pos

; create horizontal scrollbar ---------------
SCROLLBOX 20 70 200 20 SBH 600
SBHSETRANGE 600 1 200
SBHSETPOS 600 50

; create vertical scrollbar --------------
SCROLLBOX 290 70 20 200 SBV 601
SBVSETRANGE 601 1 200
SBVSETPOS 601 60

See examples scrollbar2 & Aprogress


All best...
Zlatko

[matthew]

Hi Zlatko, I've tried the new examples & they worked fine on my computer. :)

[zlatkoAB]

Thanks Matthew :)
I'm glad that work fine ;)

[Petr Schreiber]

No problems here as well, thanks for new version!

[zlatkoAB]

Thanks Petr like always.. ;)

Zlatko

[zlatkoAB]

Hi all...
Here is Aurel Basic RC 88 with Scintilla editor (control).
Becose i dont yet find a way , how parse properly trough scintilla.
I made one compromise.
So I build editor with two controls Grin
Upper control is scintilla which i only use for write code.
Down control is richedit which is runing control.
I hope that this aproach is not to weird.

You can download and try new editor from:
http://www.aurelbasic.smfnew.com/index.php?board=3.0

all best
aurel

[Michael Hartlef]

Mmmh, it is weird. Why don't you just hide it?

[zlatkoAB]

Hi Mike...
I will think about them :beta:

[kryton9]

I agree, hiding the control sounds like a good solution.

The new version looks and runs nicely, keep up the good work!

[zlatkoAB]

Thanks Kent :)
I will change current look...

[zlatkoAB]

Hi...
I change look of ABasic editor to standard shape.
Few bugs fixed.
You can download ABasic RC 88 from:
http://aurelbasic.smfnew.com

all best
Zlatko

[Petr Schreiber]

Looks much better!

[zlatkoAB]

Hello all...
First part of tutorial for Aurel Basic is out .
I call them Tutorial 1 becose is preview version and is not completed.
Tutorial is written in Aurel RTF Editor and as you may conclude it is in
.rtf format .So you can use WordPad for reading tutorial or my RTF Editor also.
If you have MS Ofiice or Open Office you may convert them into html.
If i miss something for first part just post your critic or suggestion.

You can download tutorial from:
http://aurelbasicsoft.ucoz.com
Look in forum....

Aurel

[zlatkoAB]

Hi... :)
New version is out v1.1 build 89...
check on
http://www.aurelbasic.smfnew.com/index.php?topic=87.0

[Petr Schreiber]

Hi Zlatko,

maybe good to list the new features in the link you placed here - newcomers have no idea what is new in this release.

[zlatkoAB]

Oh sorry i forget...
What is NEW in Aurel Basic v1.1 build 89 ?
NEW commands in this release are:
--------------------------------------------------
SETCTSIZE ID x y w h
This command change position and
size of control
CON$ var$ = var1$ var2$
This command connect two strings in one string
Bug fixed in calculation part.
Some minor editor changes.

First time written calculator program ,
nothing fancy but big step for such a simple language.

Zlatko :D

[Petr Schreiber]

Thanks,

calculator worked well!

I just found one way to crash ABasic:

Open ABasic
Open script
Run script and let it running
Go back to ABasic
Press File/Exit
Now you will exit AB and see only executed script
Close the window using (X) button, you will see some kind of run time error

[zlatkoAB]

Yes , you right Petr...
I forget disable exiting when script still run :violent:
But will be solved.
By the way there is no application which can't be crushed :D

[zlatkoAB]

4000 downloads on Softpedia :drink:

[Petr Schreiber]

Congratulations, and thanks for the fix!

[zlatkoAB]

Thanks Petr...

[zlatkoAB]

Hi people... :)
New release is v 1.1 build 90 and you can download from:
http://aurelw.wiz.googlepages.com

What is NEW in Aurel Basic v1.1 build 90?
NEW commands in this release are:
--------------------------------------------------
syntax:
'create control
RICHEDIT x y w h ID
'set richedit color forcolor backcolor
RESETCOLOR ID r g b r g b
'open rtf file and load into control with specify ID
OPENFILE ASRICHTEXT ID
'save rtf file from richedit control
SAVEFILE ASRICHTEXT ID

In Command CONTROLFONT ID fontname fontsize,
fontsize now can be written as numeric variable .
WINSETSIZE x y w h
This new comand enable chenge window position and window size.

All best...
Zlatko

[MouseTrap]

That link is 404

[Michael Hartlef]

Same here, 404.

[MouseTrap]

This works.
http://aurelw.wiz.googlepages.com/aurelsoft

[zlatkoAB]

Sorry guys my mistake :(
Yes this is right:
http://aurelw.wiz.googlepages.com/aurelsoft

[zlatkoAB]

Hi ...
If you have time see this:
http://www.downloadtube.com/Windows/Developer-Tools/Aurel-Basic-download.html
Just scroll page down. :D

[Petr Schreiber]

Hi Zlatko,

very nice, I liked the flash video :)

[Aurel]

It's been long time when i post something about ABasic here.
This is about rewrite version.
I finaly get first version of ABrewrite with FOR/NEXT loop.
Code look like this:

'test FOR 1
DEFNUM n x
'Messagebox "message ON" & "Message One"
WIN 0 0 400 260 WS_CAPTION "Test FOR"
'set maincolor
MainColor 220 220 230
PRINT 5 10 "n="
PRINT 5 50 "x="

FOR n = 1 TO 10
PRINT 20 10 n

FOR x = 3 TO 50
PRINT 20 50 x
NEXT x

NEXT n

WAIT

And here is link with testing version:
http://aurelbasicsoft.ucoz.com/ABtestFOR.zip

[JosephE]

Aurel it looks like you got nested loops working! Good to see that.

Did you perhaps look at my interpreter project over at you-know-where? ;)

[zlatkoAB]

Yes I am,but like i said i use different concept then you-
with linked list and pointers.

[zlatkoAB]

Hi...
Here you can see new expression evaluator which i add to ABasic.

[zlatkoAB]

You may download latest testing version from:
http://aurelbasicsoft.ucoz.com/ABasic7F3.zip

and here is some screenshots:

[zlatkoAB]

Hi people...
Im playing lately with arrays or how implemnt arrays in ABasic.
Here is the first testing how i add array in ABasic.
it looks little bit unusual- like UDT with sign dot.


' test numeric array
DEFNUM a[5]
'open window
WIN 0 0 400 260 WS_CAPTION "Test Array.1"
'set maincolor
MainColor 220 220 230

'set some elemnts of array
LET a.0=67
LET a.1=45
LET a.4=33.33

'print 3 elements -> 0,1,4
PRINT 20 20 a.0
PRINT 50 20 a.1
PRINT 80 20 a.4

' wait for event
WAIT

I hope that dont look to weird..

[Petr Schreiber]

Hi Zlatko,

it is a bit unusual. One of the features arrays are used for is that you can reference the array cell by index variable.
Do you think it will be possible with your UDT like approach to do this?:



FOR i = 1 TO 10
PRINT 20, i*5, a.i
NEXT


I think using [] or () would be more clear for the array variables and people are already used to it.


Petr

[zlatkoAB]

Hi Petr...


I think using [] or () would be more clear for the array variables and people are already used to it.
Yes you are right without any doubt.


Do you think it will be possible with your UDT like approach to do this?:

Quote
FOR i = 1 TO 10
PRINT 20, i*5, a.i
NEXT

I think yes ...
becose curently is not posibile have calculation inside command PRINT

like this:
FOR i = 1 TO 10
LET a.i=i*5
PRINT 20 i a.i
NEXT i

a.i is just variable from array a[10] and even is posibile to parse
a.i as separate variable i without any problem and return value from
i.
I know this is really weird aproach....

[zlatkoAB]

I think that im finaly made array internaly...
Aproach is still weird but work..

' test numeric array
DEFNUM a[10] i x n f
'open window
WIN 0 0 400 260 WS_CAPTION "Test Array.3"
'set maincolor
MainColor 220 220 230

'set some elemnts of array with variable f
FOR n = 0 TO 9
LET f = n + 10
SET a.n = f
NEXT n

'iterate trough array & print value of element
FOR i = 0 TO 9
LET x = x + 30
PRINT x 20 a.i
NEXT i

' wait for event
WAIT

[Aurel]

And here is Lotto program which use numeric array.
Nothing special but work ...


' test numeric array , program Lotto 7-39
DEFNUM a[7] i x n f y
'open window
WIN 0 0 460 250 WS_CAPTION "Test Lotto 7/39"
'set maincolor
MainColor 220 220 230

wControl wButton 320 20 100 25 XP_TYPE 100
SetText 100 "RESTART"

WAIT

SUBID 100
MainColor 220 220 230
'randomize numbers
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 20 a.i
NEXT i
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 40 a.i
NEXT i
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 60 a.i
NEXT i
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 80 a.i
NEXT i
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 100 a.i
NEXT i
LET x=0
FOR i = 0 TO 6
GOSUB next_round
LET x = x + 30
PRINT x 120 a.i
NEXT i

ENDSUB

SUB next_round
FOR n = 0 TO 6
LET f = n + INT(RND(39))
SET a.n = f
NEXT n
RETURN

[zlatkoAB]

And finaly if you interested you can try...
Latest RC release ABasic 7F4
with some new examples you can download from:
http://aurelbasicsoft.ucoz.com/ABasic7F4.zip

Aurel

PS This time editor have autosave option which means
that when you change something in code and run source code is
automaticly saved in file,so you dont need save code manualy.

[zlatkoAB]

Hi all...:)

What is NEW in Aurel Basic RC2 build 0.7 ?
--------------------------------------------------
changed command SET for array seting
to two new commands
SETNUMDIM for numeric array
SETSTRDIM for string array
added commmand SETWINSIZE
added command GETSTRING
updated ABasic tutorial
few bug fixed

download from:
http://aurelbasicsoft.ucoz.com/ABasic7F7.zip

All best...
Aurel

[peter]

Hi Zlatko,

I wish me commas and parameters for a 'SUB()'.
No 'GOSUB' but 'Function()' and no 'LET'.

That everything to Christmas.

smile!



defnum n x y a c f1 f2 f3

win 0 0 640 500 WS_CAPTION "PARADISE APPLE"
maincolor 0 155 255
frontcolor 255 255 0

for n = 0 TO 225
f1 = rnd(128) +127
f2 = f1 -5
f3 = f3 -25
frontcolor f1 f2 f3
LET a = sin(n*6.283)+n
circle 320 240 a
circle 255 225 a
circle 255 230 a
LET c = cos(n*6.283)+n
circle 350 240 c
circle 255 225 c
circle 260 230 c
next n

wait

[zlatkoAB]

WOW..
Hi Peter,you surprise me with this example :p .
work very well...

Ahh thanks on whishes to.By the way as you see LET is optional,
GOSUB is just a old good basic keyword but ican replace them with
CALL or add subname() option i will see....

[zlatkoAB]

Hello people...
ABasic is updated to:
What is NEW in Aurel Basic RC2 build 0.8 ?
--------------------------------------------------
new controls are:
wLISTBOX
wSCROLLBAR
new commands are:
CONTROLNOTIFY ID eTab eEnter
GETSELECTED ID itempos
GETSCROLLPOSITION ID pos
SETSCROLLRANGE ID min max
new ABasic help
few bug fixed

download from:
http://aurelbasicsoft.ucoz.com/ABasic7F8.zip

All best...
Aurel

[zlatkoAB]

And finaly here is RC2 1.0 version of Aurel Basic

What is NEW in Aurel Basic RC2 build 1.0 ?
--------------------------------------------------

new commands are:
LoadImage@STARTPATH img <BITMAP> imgname
Showimage img <BITMAP> xpos ypos
SetText@STARTPATH controlID "\myimage.bmp"
updated editor
added EXE-Builder
added runtime
few bug fixed

download from:
http://aurelbasicsoft.ucoz.com/ABasic1v0.zip

All best...
Aurel

[Petr Schreiber]

Hi Zlatko,

thanks for the new release! I did not checked ABasic in a while so it was refreshing to see it again. I have few comments:


When I extract archive, I get ton of files. I would recommend some form of organization to directories, like:

Bin - all except IDE would go there
Help - help file would go there
Samples - all sample programs, maybe organised in groups
Editor EXE file would be directly in root, so it will be the first thing new user can click on


The app builder is interesting, but I found few issues:

it seems it could not produce EXE from Array.aon for example
it would be good idea to pre-fill the script name with the one actually opened



Thanks,
Petr

[zlatkoAB]

When I extract archive, I get ton of files. I would recommend some form of organization to directories, like:

Bin - all except IDE would go there
Help - help file would go there
Samples - all sample programs, maybe organised in groups
Editor EXE file would be directly in root, so it will be the first thing new user can click on

The app builder is interesting, but I found few issues:

it seems it could not produce EXE from Array.aon for example
it would be good idea to pre-fill the script name with the one actually opened





Hi Petr and thanks...
Yes you right extracted files look like a mess...
I made it quickly...

And yes puting in folders might be good!
Array.aon source is broken during my experiments...
and i forget to fix them.

About prefiled file yes you right in first testing i have builder
inside IDE exe then i put them as external exe.

all best
Zlatko:D

[zlatkoAB]

Just for info:
I have released a new version of Aurel Basic - v1.1
What is NEW in Aurel Basic RC2 build 1.1 ?
--------------------------------------------------
Controls completed
Menu added
new commands are:
GetState
CreateMenu
CreatePopupMenu
AddMenuitem
AddMenu
Setmenu
few bug fixed

download from:
http://aurelbasicsoft.ucoz.com/ABasic1v1.zip

All best...
Aurel

[kryton9]

Ran fine here Aurel. It loads up so quickly, good job!

[zlatkoAB]

Thanks Kent!

[zlatkoAB]

What is NEW in Aurel Basic RC2 build 1.25 ?
--------------------------------------------------
new things are:
execute math expression under
command Print and SetText
ShowControl ID opt
Mousemove event
GETMOUSEX
GETMOUSEY
Keyboard event
updated help
bug fixed in :
Tab names

download from:
http://aurelbasicsoft.ucoz.com/ABasic125.zip

All best...
Aurel