Wheel program help

[HockeyKid25]

I have a project that has to make this gui button file work with a seperate wheel file to make it stop/start, I would really appreciate some help guys. If someone could show me/do for me what needs to be done would be very genoures.


GUI PROGRAM:





import GUI
setscreen("graphics:320;125")

procedure hello
locate(1,1)
put "Hello User, you have clicked Button #1!"
end hello

procedure hi
locate(1,1)
put "Hello User, you have clicked Button #2!!"
end hi

var button1:int:=GUI.CreateButton(25,25,0,"Button 1",hello)
var button2:int:=GUI.CreateButton(200,25,0,"button 2",hi)

loop
exit when GUI.ProcessEvent
end loop





WHEEL PROGRAM






View.Set ("graphics:800;700")
var pic : array 0 .. 35 of int
pic (0) := Pic.FileNew ("wheel.bmp")

const CTRx := Pic.Width (pic (0)) div 2
const CTRy := Pic.Height (pic (0)) div 2


for angle : 1 .. 35
pic (angle) := Pic.Rotate (pic (0), angle * 10, CTRx, CTRy)
end for

var x : int := CTRx
var y : int := CTRy

loop
for angle : 0 .. 35
Pic.Draw (pic (angle), CTRx, CTRy, picCopy)
delay (50)
end for
end loop





Again Thanks for any help

[TipsyCzar]

Post in the help section. There you'll find people looking to help others.