Aurel Basic programming language

[zlatkoMM]

if you ever want made some programming things and
dont know where to start.
One of the main uses of Aurel Basic is show how make GUI programs on Windows

in easy and simple way.
Aurel Basic is BASIC like programming language. Able to produce GUI Win32 programs.
Based on simple and easy to understand BASIC programming language.
Program produced with Aurel Basic can run as standalone executable.
He is in first place very good for beginners which start make programs.
Language is still in active development.
This is rewrite development version which enable many new things .
With every new version released, the language becomes more and more advanced.
This programming tool is 100% Freeware!
Author : Vidlanovic Zlatko Aurel,Croatia 2010.


Home Page: aurelsoft - aurelwwiz
CMS Site : **broken link removed**
New Main Forum : **broken link removed**

 

[zlatkoMM]

if you ever want made some programming things and
dont know where to start.
One of the main uses of Aurel Basic is show how make GUI programs on Windows

in easy and simple way.
Aurel Basic is BASIC like programming language. Able to produce GUI Win32 programs.
Based on simple and easy to understand BASIC programming language.
Program produced with Aurel Basic can run as standalone executable.
He is in first place very good for beginners which start make programs.
Language is still in active development.
This is rewrite development version which enable many new things .
With every new version released, the language becomes more and more advanced.
This programming tool is 100% Freeware!
Author : Vidlanovic Zlatko Aurel,Croatia 2010.


Home Page: aurelsoft - aurelwwiz
CMS Site : **broken link removed**
New Main Forum : http://aurelmm.byethost6.com/htdocs/]My Site! - Index[/url]

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:
**broken link removed**
feel free and enjoy to our forum on
**broken link removed**

And here is resistor color program written in Aurel Basic:

'resistor colors
DEFSTR etext addtext tmp_text c$ t$
DEFNUM startp endp px1 py1 px2 py2
DEFNUM color 
WIN 0 0 400 480 WS_CAPTION "Resistor Colors"
MainColor 220 220 230

'0-//color 1
wControl Wbutton 40 120 50 20 SYS_TYPE 100
ControlColor 100 RGB 250 250 250 0 0 0
SetText 100 "BLACK"
'1
wControl Wbutton 40 150 50 20 SYS_TYPE 101
ControlColor 101 RGB 250 250 250 160 100 100
SetText 101 "BROWN"
'2
wControl Wbutton 40 180 50 20 SYS_TYPE 102
ControlColor 102 RGB 250 250 250 200 0 0
SetText 102 "RED"
'3
wControl Wbutton 40 210 50 20 SYS_TYPE 103
ControlColor 103 RGB 250 250 250 255 160 0
SetText 103 "ORANGE"
'4
wControl Wbutton 40 240 50 20 SYS_TYPE 104
ControlColor 104 RGB 0 0 150 240 240 0
SetText 104 "YELLOW"
'5
wControl Wbutton 40 270 50 20 SYS_TYPE 105
ControlColor 105 RGB 250 250 250 0 160 0
SetText 105 "GREEN"
'6
wControl Wbutton 40 300 50 20 SYS_TYPE 106
ControlColor 106 RGB 250 250 250 0 80 200
SetText 106 "BLUE"
'7
wControl Wbutton 40 330 50 20 SYS_TYPE 107
ControlColor 107 RGB 250 250 250 160 32 220
SetText 107 "PURPLE"
'8
wControl Wbutton 40 360 50 20 SYS_TYPE 108
ControlColor 108 RGB 250 250 250 160 160 180
SetText 108 "GRAY"
'9
wControl Wbutton 40 390 50 20 SYS_TYPE 109
ControlColor 109 RGB 0 0 50 250 250 250
SetText 109 "WHITE"

'------------------------------------------

wControl Wbutton 100 120 50 20 SYS_TYPE 110
ControlColor 110 RGB 250 250 250 0 0 0
SetText 110 "BLACK"
'1
wControl Wbutton 100 150 50 20 SYS_TYPE 111
ControlColor 111 RGB 250 250 250 160 100 100
SetText 111 "BROWN"
'2
wControl Wbutton 100 180 50 20 SYS_TYPE 112
ControlColor 112 RGB 250 250 250 200 0 0
SetText 112 "RED"
'3
wControl Wbutton 100 210 50 20 SYS_TYPE 113
ControlColor 113 RGB 250 250 250 255 160 0
SetText 113 "ORANGE"
'4
wControl Wbutton 100 240 50 20 SYS_TYPE 114
ControlColor 114 RGB 0 0 150 240 240 0
SetText 114 "YELLOW"
'5
wControl Wbutton 100 270 50 20 SYS_TYPE 115
ControlColor 115 RGB 250 250 250 0 160 0
SetText 115 "GREEN"
'6
wControl Wbutton 100 300 50 20 SYS_TYPE 116
ControlColor 116 RGB 250 250 250 0 80 200
SetText 116 "BLUE"
'7
wControl Wbutton 100 330 50 20 SYS_TYPE 117
ControlColor 117 RGB 250 250 250 160 32 220
SetText 117 "PURPLE"
'8
wControl Wbutton 100 360 50 20 SYS_TYPE 118
ControlColor 118 RGB 250 250 250 160 160 180
SetText 118 "GRAY"
'9
wControl Wbutton 100 390 50 20 SYS_TYPE 119
ControlColor 119 RGB 0 0 50 250 250 250
SetText 119 "WHITE"




GOSUB draw_resistor

WAIT 



SUB draw_resistor
RECT 44 30 280 70 RGB 0 0 0 240 240 220
RECT 5 60 40 5
RECT 323 60 40 5
RETURN
'col 1----------------
SUBID 100
color = 0
GOSUB color_1
ENDSUB

SUBID 101
color = 1
GOSUB color_1
ENDSUB

SUBID 102
color = 2
GOSUB color_1
ENDSUB

'col 2---------------
SUBID 110
color = 0
GOSUB color_2
ENDSUB

SUBID 111
color = 1
GOSUB color_2
ENDSUB

SUBID 112
color = 2
GOSUB color_2
ENDSUB

'///////////////////////////////////////
SUB color_1
IF color = 0 THEN RECT 60 30 20 70 RGB 0 0 0 0 0 0
IF color = 1 THEN RECT 60 30 20 70 RGB 0 0 0 160 100 100
IF color = 2 THEN RECT 60 30 20 70 RGB 0 0 0 200 0 0
RETURN

SUB color_2
IF color = 0 THEN RECT 120 30 20 70 RGB 0 0 0 0 0 0
IF color = 1 THEN RECT 120 30 20 70 RGB 0 0 0 160 100 100
IF color = 2 THEN RECT 120 30 20 70 RGB 0 0 0 200 0 0
RETURN