barejn [ Konsul ]
Turbo Pascal - animacje
Turbo Pascal... spedza mi sen z powiek... brrr, ale do rzeczy. musze napisac zaprojektowany przeze mnie program będacy najlepiej jakas animacja, na informatyke. Prosze Was ludzie dobrej woli:) pomozcie mi. Moze to byc cokolwiek, np jadacy samochod (o prowizorycznych kształtach), albo domek z jakims drzewiek itd. Pliz pomozcie
barejn [ Konsul ]
plizzz, pomoze mi ktos z Pascalem ???
martinuś [ Centurion ]
a co to jest
boro [ Generał ]
hehe... na studiach mialem TP.. fajna zabawal byla - jak chcesz to ci podesle mala animacje, ktora zrobilem... nie jest to nic wielkiego, ale wyglada smypatycznie...
pozdrawiam
boro
boro [ Generał ]
albo jeszcze lepiej - wklej to sobie:
uses graph, crt;
var
gd,gm,x,y,x2,y2,x3,y3,x4,y4:integer;
dt,t,om:real;
i:word;
procedure kola(kolor:integer);
begin
SetColor(blue*kolor);
x:=round(100*cos(om*(t+100*dt)));
y:=round(100*sin(om*(t+100*dt)+pi/3));
Circle(320-x,240-y,10);
SetColor(green*kolor);
Circle(320-x,240-y,5);
PutPixel(320-x,240-y,red);
x2:=round(100*cos(om*(t+200*dt)));
y2:=round(100*sin(om*(t+200*dt)-pi/3));
SetColor(blue*kolor);
Circle(320-x2,240-y2,10);
SetColor(green*kolor);
Circle(320-x2,240-y2,5);
PutPixel(320-x2,240-y2,red);
SetColor(blue*kolor);
x3:=round(125*cos(om*t));
y3:=round(40*sin(om*t));
Circle(320-x3,240-y3,10);
SetColor(green*kolor);
Circle(320-x3,240-y3,5);
PutPixel(320-x3,240-y3,red);
SetColor(blue*kolor);
x4:=round(40*cos(om*t));
y4:=round(125*sin(om*t));
Circle(320-x4,240-y4,10);
SetColor(green*kolor);
Circle(320-x4,240-y4,5);
PutPixel(320-x4,240-y4,red);
end;
procedure w1;
begin
SetColor(yellow);
Circle(320,240,15);
SetColor(yellow);
Circle(320,240,10);
SetColor(green);
Circle(320,240,5);
SetColor(yellow);
Circle(320,240,20);
end;
procedure w2;
begin
SetColor(yellow);
Circle(320,240,15);
SetColor(green);
Circle(320,240,10);
SetColor(yellow);
Circle(320,240,5);
SetColor(yellow);
Circle(320,240,20);
end;
procedure w3;
begin
SetColor(green);
Circle(320,240,15);
SetColor(yellow);
Circle(320,240,10);
SetColor(yellow);
Circle(320,240,5);
SetColor(yellow);
Circle(320,240,20);
end;
procedure w4;
begin
SetColor(yellow);
Circle(320,240,15);
SetColor(yellow);
Circle(320,240,10);
SetColor(yellow);
Circle(320,240,5);
SetColor(green);
Circle(320,240,20);
end;
begin
DetectGraph(gd,gm);
InitGraph(gd,gm,'c:\instalki\tp\bgi');
x:=1;
x2:=1;
x3:=1;
x4:=1;
om:=0.3;
t:=0;
dt:=0.05;
i:=0;
repeat
if (i mod 5)=0 then kola(1);
delay(2);
if (i mod 5)=0 then kola(0);
if i=150 then w1;
if i=300 then w2;
if i=450 then w3;
if i=600 then w4;
if i=750 then i:=0;
t:=t+dt;
i:=i+1;
until keypressed;
CloseGraph;
end.
barejn [ Konsul ]
boro boro boro!!! dzieki dzieki dzieki :) jakbys mi mogł jeszcze dosłac na mejla animacje byłbym dozgonnie wdzieczny !! [email protected]
barejn [ Konsul ]
a jeszcze sie spytam bo mam problem mały... da sie wkleic zwykly tekst, np. z Worda, do Pascala? jak tak to jak
boro [ Generał ]
aliment ---> moglbys sobie darowac takie madrosci...
to, ze ktos nie zna sie na TP wcale nie znaczy, ze jest lamerem - poprostu moze miec inna specjalizacje...
jak jestes taki madry to moze pogadamy o dziedzinie, ktorej np ja sie specjalizuje - analizy logistyczne lub negocjacje miedzynarodowe - wybierz sobie?? ciekawe jaki profesjonalista z ciebie bedzie
donzoolo [ Senator ]
barejn --------> otworzysz sobie byle jaki zapisany program w notatniku i podmienisz kod
boro [ Generał ]
aliment ---> uwazaj na slownictwo... na tym forum obowiazuja pewne zasady - jak masz z tym problem to idz sie udzielac gdzie indziej
boro [ Generał ]
zapominasz, ze slowa niosa ze soba tresci i emocje... to wlasnie o to tu chodzi, a nie o literki.. jesli dla ciebie slowo o tresci uznanej powszechnie za niekulturalna takowej nie ma to wspolczuje ci
Deepdelver [ aegnor ]
aliment --> różni się tym samym czym różni się podanie komuś ręki od oszczania mu nogawki. Pewne zasady obowiązują. Sankcje w realu są różne, tutaj jest tylko jedna - ban.
aliment [ KoTOR fan ]
Deepdelver ==> gesty a slowa..
Deepdelver [ aegnor ]
aliment --> trzeba dawać dobry przykład młodym, Ty jako konsul na tym forum powinieneś o tym wiedzieć
boro [ Generał ]
aliment ---> przeciez ty sam sobie zaprzeczasz...
a poza tym powtorze - na tym forum obowiazuja zasady (regulamin), ktory zgodziles sie przestrzegac zakladajac sobie konto (rejestrujac sie)... jesli juz o nich zapomniales to poczytaj jeszcze raz faq i si do nich zastosuj.. jesli nie masz na to ochotoy - spoko - idz obrazac ludzi gdzie indziej... mysle, ze wiele w tym momecie forum nie ucierpi
boro [ Generał ]
tak jak ktos juz powiedzial ---> WIELKI BRAT PATRZY
amen
aliment [ KoTOR fan ]
Nie bed oczywiscie kwestionowal usuniecie tych postow, bo i tak nir mam nic do gadania. Ale jak dla mnie decyzja moda byla jak najbardziej sluszna
barejn [ Konsul ]
dzieki wielkie za pomoc. boro Twoj programik fajowy jest no ale jak go bym oddał to mi koles w zyciu nei uwierzy ze sam robiłem. dzieki jeszcze raz za pomoc. a co aliment w ogole napisał, ze podniosło to takie oburzenie wsrod forumowiczow?? :> czyzby wykasowano jego posty??
Dexter666 [ aka Harnaś, aka eiP ]
mam pascala ale nie mam modułu graph tylko crt, moze mi ktos podesłać? eip_skerMAŁPAwp.pl
barejn [ Konsul ]
hmm... program nadesłany mi przez bora jest b. fajny, ale biorac pod uwage to ze nauczyciel mi nie uwierzy ze sam robiłem, ponawiam prosbe o pomoc. tak jak wczesniej, powinna to byc jakas prosta animacja, np. strzelanie rzutu karnego itp itd
Deepdelver [ aegnor ]
barejn --> no, dotarły tu bezwzględne nożyce cenzorskie :D
barejn [ Konsul ]
Deepdelver --> a wez mi "w skrocie' napisz, jak mozesz, o co sie ciskał aliment?? jestem ciekaw...
kun4 [ Konsul ]
Nie wiem czy kto o tym tutaj pisal, ale ja robilem tak ze:
zmienialem co petle polozenie figury i czyscilem ekran w efekcie wychodzila animacja :)
Dexter666 [ aka Harnaś, aka eiP ]
mam pytanie:)
chce zrobic tablice jednowymiarowa ale n elementow jak to zaznaczyc gdy wpisuje typ tablicy, ze elementow ma byc tyle ile sobie wpiszę?
Type tablica=array[1..100] of integer
tu jest tylko 100 wierszy, ale ja chcę n wierszy :)jak to zrobic?
ps. i co mam zrobic jak nie mam modułu GRAPH ?:>
aliment [ KoTOR fan ]
Misiek ==> napisalem "lamer" z idiotyczna minka obok (:P -taka). Se jaj robilem ze z pomocy korzystasz, tak jakbym ja sam wszystko robil. Czaisz motyw ziom?
Maliniarz [ Konsul ]
Dexter666 -> moze sie nie znam zbyt dobrze na pascalu, ale powiem Ci ze typ tablicowy ma przydzilana pamiec statycznie, to oznacza ze programista z gory musi zadklarowac wielkosc tablicy(macierzy). Jedyne co mozesz zrobic to zadeklarowac b. duza ( ogolnie jest to rozwiazanie niezbyt optymalne, ale na Twoim poziomie mysle ze da sie to wybaczyc).
Jak bardzo chesz sie bawic w programowanie dynamiczne to zainteresuja sie wskaznikami.
Najlepiej sciagnac pelna wersje tp, aby miec modul graph, w necie sie takowa znajduje.
Pozdrawiam i zycze powodzenia.
Maliniarz [ Konsul ]
przepraszam za 2 posty :)
kun4 -> CO prawda wyjdze animacja, ale z fotela raczej to cos nie zrzuci, bo bedzie to wygladalo jakbys mial bardzo slabe odswiezanie w monitorze. Radzilbym raczej zaraz po namalowaniu tego czegos, w nastepnym ruchu namalowac to jeszcze raz, ale w kolorze tla. Zawsze to poprawi wyglad animacji ...
barejn [ Konsul ]
Tak wiec rozgrzeszam Cie, Alimenciorze, wybaczam bledy młodosci :P (Monika B., Linkin Park ;))
no i ponawiam pytanie czy jakis dobry człowiek nei zechciałby mi pomoc z pascalem, nadal chodzi o jakas prosta animacje
aliment [ KoTOR fan ]
A, sladem Twojego najlepszego kolegi korzenia, nie lukales na flashgecie przypadkiem? A piekna szla ostatnio pamietasz?
HYJEAAAAAA
barejn [ Konsul ]
nie zauwazyłem pieknej bo dzwoniłem do Ciebie ale nie podszedłes do telefonu bo zajadle pykałes w Simsy ;) HYJEAAA
barejn [ Konsul ]
czy jest mozliwosc ze ktokolwiek mi pomoze :/ ??
Qbaa [ Senator ]
tu masz PRO animację :D
uses crt;
var
x,y:integer;
begin
repeat
delay(32232);
y:=random(2);
if y=0 then textcolor(magenta) else if y=1 then textcolor(blue);
writeln(' O');
writeln(' OOO');
writeln('OOOOO');
writeln(' O');
writeln(' O');
writeln(' O');
writeln(' O');
writeln('');
until keypressed;
end.
jak chcesz zrobić coś bardziej skomplikowanego, to może użyj tego:
uses crt;
begin
clrscr;
textcolor(white);
wydzielony fragment start
delay(10000);
delay(10000);
delay(10000);
delay(10000);
clrscr;
writeln(' O');
writeln(' OOO');
writeln('OOOOO');
writeln(' O');
writeln(' O');
writeln(' O');
writeln(' O');
wydzielony fragment stop
end.
skopiuj wielokrotnie wydzielony fragment i zmieniaj znaki w writeln tak żeby tworzyły kolejne "klatki" animacji :)
możesz też dodać tych writelnów, ale pamiętaj żeby nie przekroczyć 24 wierszy.
np:
uses crt;
begin
clrscr;
delay(10000);
delay(10000);
delay(10000);
delay(10000);
clrscr;
textcolor(green);
writeln(' _');
writeln(' OOO');
writeln('OOOOO');
writeln(' OOO');
textcolor(brown);
writeln(' O');
writeln(' O');
writeln(' O');
delay(10000);
delay(10000);
delay(10000);
delay(10000);
clrscr;
textcolor(green);
writeln(' _');
writeln(' OOO');
writeln(' OOOOO');
writeln(' OOO');
textcolor(brown);
writeln(' O');
writeln(' O');
writeln(' O');
delay(10000);
delay(10000);
delay(10000);
delay(10000);
clrscr;
textcolor(green);
writeln(' _');
writeln(' OOO');
writeln(' OOOOO');
writeln(' OOO');
textcolor(brown);
writeln(' O');
writeln(' O');
writeln(' O');
end.
barejn [ Konsul ]
pewnie sie doszczetnei zlamerze ale trudno... nei działa mi ten Twoj programik, jest komunikat ze moja wersja pliku cygwin1.dll jest za stara... o co chodzi ??
barejn [ Konsul ]
zdaje sobie sprawe z zasmiecania forum, przepraszam z tego poeodu, ale potrzebuje tego programu. jesli ktos jest jeszcze w stanie mi pomoc...
boro [ Generał ]
barejn ---> jak chcesz uproscic moja animacje, to wywal jadro atomu... te krazace neutrony jest bardzo latwo zrobic ( w kazdym razie takie sa moje wspomnienia z tamtych czasow)
pozdrawiam
boro
Qbaa [ Senator ]
na pewno na zwykłym turbo pascalu kompilujesz?
nie mam w ogóle pojęcia co to za plik cygwin1.dll, on chyba nie ma nic wspólnego z pascalem
barejn [ Konsul ]
nie, kompiluje we freepascalu, ktory nawiasem mowiac jest zdeczka po... no dziwny jest :P
Qbaa --> masz moze jeszcze jakis inny programik-animacje??
boro --> thx ale tak czy siak koles mi nie uwierzy bo nie mielsimy takich komend na lekcji
Qbaa [ Senator ]
więcej pomysłów na animację nie mam
freepascala w ogóle nie znam i nie wiem czemu nie chce działać :/
Loczek [ Senator ]
ogolnie FP to syf... ale mozesz sprobowac wlaczyc kompatybilnosc z TP 7 (poszukaj gdzies w opcjach... nie pamietam), moze pomoze
barejn [ Konsul ]
a nie wiecie czy da sie skads sciagnac normalnego Turbo pascala? chodzi mi o działajacego naturalnie :P
barejn [ Konsul ]
no dalej panowie szlachta (panie tez)!! pomozcie biednemu legioniscie :P
Qbaa [ Senator ]
ściągaj :)
jednak ta wersja jest chyba trochę ułomna, nie mogę na niej skompilować niektórych źródeł :(
ale do tego co chcesz teraz robić wystarczy :)
U_N [ -KOCHAM ANIE- ]
eh pobawilem sie i zrobilem samochodzik ktory przejezdza przez monitor i znika :)
program samochod;
uses crt, graph;
var x,i,y,t,p:integer;
begin
detectgraph (t,p);
initgraph (t,p,' ');
x:=5;
for i:=1 to 500 do
begin
setcolor (5);
x:=i*3;
line (-280+x,120,-280+x,80);
line (-280+x,80,-250+x,80);
line (-230+x,40,-250+x,80);
line (-140+x,40,-230+x,40);
line (-100+x,80,-140+x,40);
line (-100+x,80,-40+x,80);
line (-40+x,120,-40+x,80);
circle (-225+x,125,18);
circle (-85+x,125,18);
line (-40+x,120,-65+x,120);
line (-105+x,120,-205+x,120);
line (-240+x,120,-280+x,120);
line (-110+x,80,-180+x,80);
line (-180+x,80,-180+x,50);
line (-180+x,50,-140+x,50);
line (-140+x,50,-110+x,80);
line (-190+x,50,-225+x,50);
line (-225+x,50,-240+x,80);
line (-240+x,80,-190+x,80);
line (-190+x,80,-190+x,50);
delay (20);
setcolor (black);
line (-280+x,120,-280+x,80);
line (-280+x,80,-250+x,80);
line (-230+x,40,-250+x,80);
line (-140+x,40,-230+x,40);
line (-100+x,80,-140+x,40);
line (-100+x,80,-40+x,80);
line (-40+x,120,-40+x,80);
circle (-225+x,125,18);
circle (-85+x,125,18);
line (-40+x,120,-65+x,120);
line (-105+x,120,-205+x,120);
line (-240+x,120,-280+x,120);
line (-135+x,50,-120+x,80);
line (-120+x,90,-180+x,80);
line (-110+x,80,-180+x,80);
line (-180+x,80,-180+x,50);
line (-180+x,50,-140+x,50);
line (-140+x,50,-110+x,80);
line (-190+x,50,-225+x,50);
line (-225+x,50,-240+x,80);
line (-240+x,80,-190+x,80);
line (-190+x,80,-190+x,50);
end;
delay (2000);
closegraph;
end.
jak chcesz zeby sie zatrzymywal wczensniej to ustaw w funkji FOR zamiast 500 jakas mniejsza liczbe
kolor chyba wiesz jak ustawic :P
barejn [ Konsul ]
Qbaa & U_N --> wielkie dzieki. Samochodzik zdeczka uproszcze zeby miec pewnosc ze kolo mi uwierzy. jeszcze raz thx !!
U_N [ -KOCHAM ANIE- ]
no i jak ?? co dystales ??
tu nie ma chyba co upraszczac :P
chyba ze zamiast
x:=i*3 dac x:=x+i ale w sumie chyba na jedno wyjdzie :)
czekam na odpowiedz ;p
barejn [ Konsul ]
a wiec, na razie po ukazaniu swoich obiekcji na temat mojego programu, ktory nie przedstawiał Twojego programu, nauczyciel stwierdził ze nie robiłem sam i w rzeczywistosci nic nie przedstawia. Powiedziałem mu ze mu przyniose jeszcze "jakis" samochodzik:P ot tak zeby dobic do piatki. U_N dzieki bardzo jeszcze raz, po piatku sie wszystko wyjasni.
Przy okazji, gdyby jakis Mod zlikwidował ten watek nie obraziłbym sie, bo z tego co zrozumiałem "wscibski" nauczyciel bedzie sie doszukiwał tego typu programow, dzieki wszystkim za pomoc, piekna sprawa te forum :)
barejn [ Konsul ]
hmm... jakby to powiedziec... gBupio mi troche ze znowu o to prosze, ale poraz kolejny potrzebuje jakiejs grafiki w turbopascalu. Nie dla mnie, ale dla kumpeli z innej klasy. czy ktos by sie podjal i napisal jakis programik przedstawiajacy jakas prosta grafike? problem w tym ze najlepiej jak bylyby na niej jakies poruszajace sie obiekty. bede dozgonnie wdzieczny
barejn [ Konsul ]
ponawiam requesta z ostatniego postu