Jest sobie takie zadanko w Delphi:
Cytat:
|
Napisać program do losowania liczb z MultiLotka. Należy zasosować petlę repeat..until lub while..do. Wylosowane liczby należy zapisywać w pomocniczej tablicy. Po wylosowaniu kolejnej liczby, na podstawie tablicy, należy sprawdzić czy liczba nie została wcześniej wylosowana, jeśli tak losowanie należy powtórzyć, jeśli nie - wylosowaną liczbę należy dopisać do tablicy. W ten sposób należy wylosować 6 liczb. Liczby maja sie pojawiać w polach (Edit) w odstępach 2 sec. Dodac animacje powodujaca odbijanie sie kulki od scianek
|
I mam problemik z "Liczby maja sie pojawiać w polach (Edit) w odstępach 2 sec". Jak dodaję sleep (2000) to zatrzymuje się również animacja (co jest normalnym zachowaniem w tym przypadku)...da sie to jakoś inaczej zrobić
thx4help
..::Update::..
OK, problem rozwiązany poprzez wstawienie przed każdym sleepem
Kod:
Application.ProcessMessages;
..::Update 2::..
Qrde nie do konca to dobrze działa...animacja kulki się "rwie"
