Place to put your Basic demos and examples

Moderator: Mmiscool

User avatar
By Mmiscool
#49037
Code: Select allgraphics 300,300
print "Point 1"
slider x1, 1,300
slider y1, 1,300
print "Point 2"
slider x2, 1,300
slider y2, 1,300
button "draw", [doit]
wait


[doit]
line x1,y1,x2,y2
wait
User avatar
By Mmiscool
#49042 And a bit more phansy example.

Code: Select allmemclear
graphics 300,300
print "Point 1"
slider x1, 1,300
slider y1, 1,300
print "Point 2"
slider x2, 1,300
slider y2, 1,300
print "Item Types"
html "Color"
dropdown c, "0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15"
button "Line", [makeline]
button "circle", [makecircle]
button "Rectangle", [makeRectangle]

button "clear", [clear]
wait


[makeline]
line x1,y1,x2,y2,c
wait

[makecircle]
circle x1,y1,x2,c
wait

[makeRectangle]
rect x1,y1,x2,y2,c
wait

[clear]
gcls
wait



2016-06-11 23_58_03-172.16.0.181_input_.png
You do not have the required permissions to view the files attached to this post.