Computer Science Canada Wheel program help |
| Author: | HockeyKid25 [ Mon Jun 20, 2016 12:55 pm ] |
| Post subject: | Wheel program help |
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 |
|
| Author: | TipsyCzar [ Mon Oct 31, 2016 11:35 am ] |
| Post subject: | Re: Wheel program help |
Post in the help section. There you'll find people looking to help others. |
|