Skocz do zawartości

Farkraj

Zbanowani
  • Postów

    461
  • Dołączył

  • Ostatnia wizyta

Odpowiedzi opublikowane przez Farkraj

  1. Programik rysujacy 3 000 pixeli o losowych kolorach i losowej pozycji

     

    {//DOLACZONE MODULY

    {////////////////////////////////////////////////}

    uses graph;

     

    {//ZMIENNE GLOBALNE

    {////////////////////////////////////////////////}

    var

    sterownik : integer;

    tryb : integer;

    licznik_petli : integer;

    kolor_piksela : word;

    x_piksela : integer;

    y_piksela : integer;

     

    {//GLOWNY PROGRAM

    {////////////////////////////////////////////////}

    begin

     

    {ustalenie sterownika i trybu graficznego.}

    sterownik := VGA;

    tryb := VGAMed;

     

    {ustawienie sterownika i trybu graficznego.}

    initGraph(sterownik,tryb,'E:\Tp\bgi');

     

    {Petla malujaca 3 000 pikseli.}

    for licznik_petli := 1 to 3000 do {<- poczatek petli}

    begin

    x_piksela := random(640);

    y_piksela := random(350);

    kolor_piksela := random(16);

     

    {namalowanie jednego piksela}

     

    putpixel(x_piksela,y_piksela,kolor_piksela);

    end; {<- koniec petli}

     

    readln;

     

    closegraph;

     

    end.

  2. @Markuz

     

    Co ty pierdzielisz!? ;O w turbo pascalu da się robić nawet gry 3D

     

    @Adamg1996

     

    Otóż potrzebujesz do tego paskalowej biblioteki graficznej, która powinna być dołączona razem z turbo pascalem :)

    Musisz dodać na początku programu moduł Graph.crt

     

    uses graph.crt;

     

    potem aby móc używać trybu graficznego jaki sobie wybierzesz musisz wybrać sterownik i tryb no i zainizjować graph:

     

    sterownik := VGA;

    tryb := VGAmed;

     

    InitGraph(sterownik,tryb,'D:\Tp\bgi'); Tu podałem przykładową ścieżkę do pliku, u siebie możesz mieć go gdzie indziej więc najlepiej go wyszukaj i dokładną ścieżkę daj tu

     

    I to właściwie tyle co do dodania biblioteki, Teraz już powinieneś reszty poszukać a google a jak nie to ci napiszę jak dodać obrazek

  3. @Fallord

     

    Nudzi ci się? Zanim zaczniesz kwestionować inteligencję moich postów wpierw napisz coś inteligentnego żeby biedne ludzie chociaż porównanie mieli jak powinno się pisać inteligentne posty :)

  4. Już się przyzwyczaiłem beż żadnym zmian czułości :D jedyne co zrobiłem to wyłączyłem windowsowe "zwiększ precyzję myszki" bo jak ma się dobrą myszkę to jest niepotrzebne :) Przeczytałem w CDA i rzeczywiście działa

  5. Zaraz zmieszają mnie z błotem ale trudno... mam takie głupie pytanie ;P

    Otóż!

    Kupiłem sobie nową myszkę, pro i w ogóle. Mam cały czas ustawione na to pro 3600 DPI i chciałbym się zapytać czy to normalne że trudno mi jest trafiać w ikonki a w paintcie nie potrafię pojechać idealnie prostej linii? Może muszę się przyzwyczaić? Jakby co to z myszką mam kontakt około 2 godziny

  6. Fire in the hole - jakbyś znał trochę angielskiego potrafiłbyś sobie to przetłumaczyć że oznacza to ogień w dziurze. Amerykańscy żołnierze używali takich zwrotów kiedy chcieli rozpalić ognisko blisko obozu przeciwnika, często podejście z zapałkami było kłopotliwe (czasem nie mieli zapałek) więc w celu wzniecenia ognia używali granatów.

     

    Take Cover - mogłeś spokojnie to sobie przetłumaczyć... to nic innego jak "Weź osłonę!", co oznacza tyle że dowódca rozkazywał żołnierzom zabrać jakąś osłonę ze sobą w drodze powrotnej. Jeżeli osłoną miał być np. okop to zadanie to było praktycznie niewykonalne więc najczęściej okopy zostawały na swoim miejscu. Wiele budynków zawaliło się przez to że amerykańscy żołnierze zabierali kolumny i ściany nośne do domu, właśnie na tenże rozkaz dowódcy :)

×
×
  • Dodaj nową pozycję...