Hi. Im having a lot of trouble getting an animation and a button to work at the same time. I decided to put the animation in a process and fork it. My first problem is now that the animation is in a fork, it work stop. I've been told to create a seperate boolean variable that will exit the loop when the statement becomes true. So far, this has not worked for me. Furthermore, if i put the animation into a proc, the button will now show or activate until the animation is done.
My first question is: Is there a command or more effective way to end a fork? and if so. what is it?
My second question is: Is there an error in the order of my code because it seems to be skipping the declaration of the variable being true.
Sorry for asking so many questions!
I hope you can help. Thanks alot!
here is the program, it is also attached
import GUI
var instructBtn, menuBtn : int := 0
var mainWin := Window.Open ("position:180;50, graphics:500;500")
var flag : boolean := false
% Main Menu
proc mainMenu %Game Menu
flag := true
cls
put "Menu"
GUI.Hide (menuBtn)
GUI.Show (instructBtn)
GUI.Refresh
end mainMenu
% Introduction
proc intro
cls
GUI.Hide (instructBtn)
GUI.Show (menuBtn)
var font6 : int
font6 := Font.New ("arial bold:20")
assert font6 > 0
Font.Draw ("TEMPERATURE CONVERTER", 35, 380, font6, black)
Font.Free (font6)
View.Update
GUI.Refresh
end intro
process anim
for y : 0 .. 190
for w : 0 .. 220 by 15
loop
drawline (356, 105 + y, 389, 105 + y, 12)
drawline (356, 105 + w, 389, 105 + w, 7)
delay (3)
exit when flag = true
end loop
end for
end for
end anim
% Instructions
proc instructions
cls
var font1 : int
fork anim
font1 := Font.New ("arial :30")
Font.Draw ("I", 85, 380, font1, black)
var font3 : int
font3 := Font.New ("arial bold:20")
Font.Draw ("NSTRUCTIONS", 95, 380, font3, black)
var font4 : int
font4 := Font.New ("arial:13")
Font.Draw ("This program will convert Fahrenheit to ", 20, 350, font4, black)
Font.Draw ("Celcius. The first step is to enter the", 20, 330, font4, black)
Font.Draw ("temperature in Fahrenhiet using the buttons.", 20, 310, font4, black)
Font.Draw ("The degrees in Fahrenhiet can not be larger.", 20, 290, font4, black)
Font.Draw ("than ten digits. ", 20, 270, font4, black)
Font.Free (font4)
drawfilloval (372, 70, 40, 40, 12)
for i : 0 .. 5
drawline (350 + i, 105, 350 + i, 350, 7)
drawline (390 + i, 105, 390 + i, 350, 7)
drawarc (372, 70, 40 + i, 40 + i, 115, 65, 7)
end for
for z : 0 .. 220 by 15
drawline (356, 105 + z, 389, 105 + z, 15)
end for
var font2 : int
font2 := Font.New ("arial bold:13")
assert font2 > 0
Font.Draw ("0", 400, 105, font2, black)
Font.Draw ("5", 400, 130, font2, black)
Font.Draw ("10", 400, 160, font2, black)
Font.Draw ("15", 400, 190, font2, black)
Font.Draw ("20", 400, 220, font2, black)
Font.Draw ("25", 400, 250, font2, black)
Font.Draw ("30", 400, 280, font2, black)
Font.Draw ("35", 400, 310, font2, black)
Font.Draw ("C", 407, 340, font2, black)
Font.Free (font2)
var font5 : int
font5 := Font.New ("arial bold:10")
Font.Draw ("o", 399, 345, font5, black)
GUI.Show (menuBtn)
View.Update
end instructions
instructBtn := GUI.CreateButton (185, 200, 100, "Instructions", instructions)
menuBtn := GUI.CreateButton (185, 18, 100, "Menu", mainMenu)
% Main Program
intro
loop
exit when GUI.ProcessEvent
end loop
im gonna think about it. do you have any suggestions of how to make it skip to the end?