Computer Science Canada

how to continue a program after a loop
Author:  kasi [ Tue Nov 20, 2007 8:09 pm ]
Post subject:  how to continue a program after a loop
i have figured out the button, but i just have one more problem after the loop the "Enter the number of the first die you have rolled:" doesn't get outputted, how would i program it so the "Enter the number of the first die you have rolled:" get outputted



code:


import GUI
procedure di2
var die : array 1 .. 6 of procedure dice

die (1) := die1
die (2) := die2
die (3) := die3
die (4) := die4
die (5) := die5
die (6) := die6

die (Rand.Int (1, 6))


var d : array 1..6 of procedure dice
d(1):= d1
d(2):= d2
d(3):= d3
d(4):= d4
d(5):= d5
d(6):= d6
d (Rand.Int (1, 6))
end di2

procedure dice
locate(1,1)
end dice

var dice1:int
put"If you want to play dice click on the button below"

dice1:=GUI.CreateButton(25,25,0,"Click to roll the dice",di2)



loop
exit when GUI.ProcessEvent
end loop

 var diee,dce,total,num1,num2:int
put"Enter the number of the first die you have rolled:"
get diee 
Author:  rdrake [ Tue Nov 20, 2007 9:24 pm ]
Post subject:  RE:how to continue a program after a loop
Turing:
loop
    if GUI.ProcessEvent then
        break
    end if
end loop
...I think.
Author:  Nick [ Tue Nov 20, 2007 10:10 pm ]
Post subject:  RE:how to continue a program after a loop
looK up return
Author:  Tony [ Wed Nov 21, 2007 12:36 am ]
Post subject:  RE:how to continue a program after a loop
I think GUI.ProcessEvent return false unless GUI.Quit (or equivalent) is called. This is an arbitrary convention, to accommodate
Turing:

loop
   exit when GUI.ProcessEvent
end loop

structure.

rdrake's code is equivalent to the above, since exit when condition is the same as
code:

if condition then
   exit
end if


So you could break out of the loop by setting the exit flag with GUI.Quit in your di2 procedure. Though keep in mind that as soon as you exit that loop, your GUI will stop working since nothing is monitoring it.
Author:  Nick [ Wed Nov 21, 2007 1:07 am ]
Post subject:  RE:how to continue a program after a loop
another thing is
code:
var exit:boolean:=false
proc something()
exit:=true
end something
gui button call something()
loop
exit when gui
exit when exit
end loop


so u got 2 exit commands
Author:  Mazer [ Wed Nov 21, 2007 7:03 am ]
Post subject:  RE:how to continue a program after a loop
Why the fuck?

EDIT: Oh hey, I found a way to do it with 3 exit commands
code:
var exit:boolean:=false
var quit:boolean:=false
proc something()
exit:=true
end something
proc orother()
quit:=true
end orother
gui button call something()
gui button call orother()
loop
exit when gui
exit when exit
exit when quit
end loop


Gotta keep your options open in the early stages, right?

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy