InfoMC 9. labor

Gombok

Feladat

a)

Készítsünk olyan játékot, ahol van egy gomb és egy négyzet és ha megnyomjuk, akkor egy kör ugorjon egy véletlen helyre a négyzetben.

p={0.5,0.5};
Button["Véletlen",p=RandomReal[{0,1},2]]
Graphics[{
White, EdgeForm[Directive[Thick, Black]],Rectangle[],
Black,Disk[Dynamic[p], 0.1]
}]

b)

A gomb legyen egy négyzet közepén, de ha megnyomjuk, akkor a gomb maga ugorjon el egy véletlen helyre!

q={0.5,0.5};
Graphics[{
White, EdgeForm[Directive[Thick, Black]],Rectangle[],
Black,
Button[Disk[Dynamic[q], 0.1], q=RandomReal[{0.1,0.9},2]]
}]