Re: Buttons to interactively restart/finish a program
- To: mathgroup at smc.vnet.net
- Subject: [mg99230] Re: Buttons to interactively restart/finish a program
- From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
- Date: Thu, 30 Apr 2009 06:24:05 -0400 (EDT)
- References: <gt3tml$nps$1@smc.vnet.net>
Hi Alexei,
A very quick change in your code makes the restart button work: add
the inititialization code to your restart button and add Dynamic to
the quiz part of the panel and it works (see below).
Note that you assume that RandomInteger yields a zero when the upper
boundary of the range is lower than the lower boundary. This is not
true. Try, for instance, this: RandomInteger[{1, 0}, 100]. It is
possible that you get a 4+1 question for which there is no answer
button, so you should add one.
Cheers -- Sjoerd
Panel[
DynamicModule[{a, b},
a = RandomInteger[{1, 4}];
b = RandomInteger[{1, 4 - a}];
f = "?";
g1 := (Clear[f]; f = a + b);
g2 := (Clear[f]; f = "?");
Column[{Row[{Dynamic@Button[Style[1, 30], If[a + b == 1, g1, g2]],
Dynamic@Button[Style[2, 30], If[a + b == 2, g1, g2]],
Dynamic@Button[Style[3, 30], If[a + b == 3, g1, g2]],
Dynamic@Button[Style[4, 30], If[a + b == 4, g1, g2]]}],
Dynamic@Panel[
Row[{Text[Style[a, 50]], Text[Style["+", 50]],
Text[Style[b, 50]], Text[Style["=", 50]],
Text[Style[Dynamic[f], 50]]}]],
Button["Restart", a = RandomInteger[{1, 4}];
b = RandomInteger[{1, 4 - a}];
f = "?";
g1 := (Clear[f]; f = a + b);
g2 := (Clear[f]; f = "?");]}]]]
On Apr 27, 11:25 am, Alexei Boulbitch <Alexei.Boulbi... at iee.lu> wrote:
> Dear community,
> I am writing a simple interactive teaching program to teach my child
> arithmetics. Here is a simplified example on addition from 1 to 4:
>
> Panel[DynamicModule[{a, b},
> Clear[a, b, f];
> a = RandomInteger[{1, 4}];
> b = Ran=
domInteger[{1, 4 - a}];
> =
f = "?";
> g1 := (Clear[f]; f = a + b);
> g2 := (Clear[f]; f = "?");
>
> Column[{
> Row[{
>
> Dynamic@Button[Style[1, 30], If[a + b == =
1, g1, g2]],
> Dynamic@Button[Style[2, 30], If[a + b=
== 2, g1, g2]],
> Dynamic@Button[Style[3, 30], =
If[a + b == 3, g1, g2]],
> Dynamic@Button[Style[=
4, 30], If[a + b == 4,
> g1, g2]]
>
> }],
>
> Panel[Row[{Text[Style[a, 50]],
> Text[Style["+", 50]],
> Text[Style[b, 50]=
],
> Text[S=
tyle["=", 50]],
> =
Text[Style[Dynamic[f], 50]]}]]
>
> }]
>
> ]
> ]
>
> In this program however, one needs to manually re-execute the program
> (e.g. via Shift+Enter) each time one wants to have a new execise. In
> order to avoid the manual restarting in addition to the above code I
> would like to include two buttons. First should restart the program, so
> that the task is renewed. The second button should close the panel when
> the game is finished. Thus, the program may be executed only once before
> the game starts. My idea to add a restart button the way shown below did
> not work:
>
> Label["aa"];
> Panel[DynamicModule[{a, b},
> Clear[a, b, f];
> a = RandomInteger[{1, 4}];
> b = Ran=
domInteger[{1, 4 - a}];
> f = "?";
> g1 := (Clear[f]; f = a + b);
> g2 := (Clear[f]; f = "?");
>
> Column[{
> Row[{
>
> Dynamic@Button[Style[1, 30], If[a + b == =
1, g1, g2]],
> Dynamic@Button[Style[2, 30], If[a + b=
== 2, g1, g2]],
> Dynamic@Button[Style[3, 30], =
If[a + b == 3, g1, g2]],
> Dynamic@Button[Style[=
4, 30], If[a + b == 4,
> g1, g2]]
>
> }],
>
> Panel[Row[{Text[Style[a, 50]],
> Text[Style["+", 50]],
> Text[Style[b, 50]],
> Text[Style=
["=", 50]],
> T=
ext[Style[Dynamic[f], 50]]}]],
> Button["Restart", Goto["aa"]]
>
> }]
>
> ]
> ]
>
> Could anybody give me an idea?
>
> Best, Alexei
>
> --
> Alexei Boulbitch, Dr., habil.
> Senior Scientist
>
> IEE S.A.
> ZAE Weiergewan
> 11, rue Edmond Reuter
> L-5326 Contern
> Luxembourg
>
> Phone: +352 2454 2566
> Fax: +352 2454 3566
>
> Website:www.iee.lu
>
> This e-mail may contain trade secrets or privileged, undisclosed or other=
wise confidential information. If you are not the intended recipient and ha=
ve received this e-mail in error, you are hereby notified that any review, =
copying or distribution of it is strictly prohibited. Please inform us imme=
diately and destroy the original transmittal from your system. Thank you fo=
r your co-operation.