owsik Napisano Listopad 8, 2011 Zgłoś Share Napisano Listopad 8, 2011 Witam.Napisałem przykładowy program uses graph,crt; var karta,tryb,a:integer; begin detectgraph(karta,tryb); initgraph(karta,tryb,''); a:=0; repeat setvisualpage(0);{wyświetla pierwsza strone} delay(10); setactivepage(1); {rysuje w pamięci na drugiej stronie } cleardevice; {czysci ekran} a:=a+1; rectangle(a,a,a+100,a+100); setvisualpage(1); {wyswietla druga strone } delay(10); setactivepage(0); {rysuje w pamięci na pierwszej stronie } cleardevice; {czysci ekran} a:=a+1; rectangle(a,a,a+100,a+100); until keypressed; end. Proszę o podpowiedz co zmienić aby animacja nie migała lub o podanie lepszego sposobu na animacje w pascalu jeśli taki znacie . Link do komentarza Udostępnij na innych stronach More sharing options...
Integer Napisano Listopad 8, 2011 Zgłoś Share Napisano Listopad 8, 2011 dodaj może komentarze co oznaczają poszczególne linie kodu bo nie wszystko już pamiętam , żeby nie migało to można kolorem tła zetrzeć element który ma się przesunąć i na nowo go namalować w nowym miejscu, ale tu się powinno podmieniać więc nie wiem, pamięta ktoś może jak to się robiło? Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.