-----------------------------------

HockeyKid25

Mon Jun 20, 2016 12:55 pm


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


-----------------------------------

TipsyCzar

Mon Oct 31, 2016 11:35 am


Re: Wheel program help

-----------------------------------

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