Bucior

25 Listopada 2007

tak dzieki

25 Listopada 2007

dane i wyglad, tak zeby wygladalo chociaz w 50% inaczej

24 Listopada 2007

A mogłbym Cie prosic o przerobienie naserio nie kumam tego....

24 Listopada 2007

wiec ktos pomoze ??dziki

22 Listopada 2007

program wizytowka;
uses crt;
var
zn:char;
procedure plansza;
   begin
     clrscr;
     begin
      textcolor(15);
      gotoxy(35,9); write('F1 - Ania');
      gotoxy(35,11); write('F2 - Ola');
      gotoxy(35,13); write('F3 - Ula');
      gotoxy(35,15); write('Esc- Koniec');
     end;
   end;
procedure ania;
  var
  zn:char;
  x,y,n:byte;
    begin
      x:=31; y:=10;
   repeat
    clrscr;
      for n:=x to x+22 do
        begin
        textcolor(10);
          gotoxy(n,y); write(char(205));
          gotoxy(n,y+6); write(char(205));
        end;
      for n:=y to y+6 do
        begin
          gotoxy(x,n); write(char(186));
          gotoxy(x+22,n); write(char(186));
        end;
      gotoxy(x,y); write(char(201));
      gotoxy(x+22,y); write(char(187));
      gotoxy(x+22,y+6); write(char(188));
      gotoxy(x,y+6); write(char(200));
      gotoxy(x+3,y+1);
      write('Ania Fig');
      gotoxy(x+3,y+3);
      write('ul. Ziemniakowa 2');
      gotoxy(x+3,y+5);
      write('93-121 Kobieszewo');
      zn:=readkey;
       if ord(zn)=0 then
        begin
         zn:=readkey;
         case ord(zn) of
         72: if y>1 then y:=y-1 else y:=19;
         80: if y+6<25 then y:=y+1 else y:=1;
         75: if x>2 then x:=x-1 else x:=57;
         77: if x+23<80 then x:=x+1 else x:=1;
        end;
        end;
       until ord(zn)=27
   end;
procedure ola;
   var
  zn:char;
  x,y,n:byte;
    begin
      x:=31; y:=10;
   repeat
    clrscr;
      for n:=x to x+20 do
        begin
        textcolor(11);
          gotoxy(n,y); write(char(205));
          gotoxy(n,y+6); write(char(205));
        end;
      for n:=y to y+6 do
        begin
          gotoxy(x,n); write(char(186));
          gotoxy(x+20,n); write(char(186));
        end;
      gotoxy(x,y); write(char(201));
      gotoxy(x+20,y); write(char(187));
      gotoxy(x+20,y+6); write(char(188));
      gotoxy(x,y+6); write(char(200));
      gotoxy(x+3,y+1);
      write('  Ola Nianka');
      gotoxy(x+3,y+3);
      write(' ul. Dluga 11');
      gotoxy(x+3,y+5);
      write('43-000 Warszawa');
      zn:=readkey;
       if ord(zn)=0 then
        begin
         zn:=readkey;
         case ord(zn) of
         72: if y>1 then y:=y-1 else y:=19;
         80: if y+6<25 then y:=y+1 else y:=1;
         75: if x>2 then x:=x-1 else x:=59;
         77: if x+21<80 then x:=x+1 else x:=2;
        end;
        end
       until ord(zn)=27
   end;
procedure ula;
  var
  zn:char;
  x,y,n:byte;
    begin
      x:=31; y:=10;
   repeat
    clrscr;
      for n:=x to x+21 do
        begin
        textcolor(13);
          gotoxy(n,y); write(char(205));
          gotoxy(n,y+6); write(char(205));
        end;
      for n:=y to y+6 do
        begin
          gotoxy(x,n); write(char(186));
          gotoxy(x+21,n); write(char(186));
        end;
      gotoxy(x,y); write(char(201));
      gotoxy(x+21,y); write(char(187));
      gotoxy(x+21,y+6); write(char(188));
      gotoxy(x,y+6); write(char(200));
      gotoxy(x+3,y+1);
      write('Ula Bialoszewska');
      gotoxy(x+3,y+3);
      write('ul. Szeroka 10');
      gotoxy(x+3,y+5);
      write('21-123 Gdansk');
      zn:=readkey;
       if ord(zn)=0 then
        begin
         zn:=readkey;
         case ord(zn) of
         72: if y>1 then y:=y-1 else y:=19;
         80: if y+6<25 then y:=y+1 else y:=1;
         75: if x>2 then x:=x-1 else x:=58;
         77: if x+22<80 then x:=x+1 else x:=2;
        end;
        end
       until ord(zn)=27
   end;
       begin
       repeat
        plansza;
         zn:=readkey;
         if ord(zn)=0 then
          begin
           zn:=readkey;
           case ord(zn) of
           59:ania;
           60:ola;
           61:ula;
          end;
         end
        until ord(zn)=27;
       end.

Wsadziłem całość w CODE, żeby było czytelniej.

Marmot

21 Listopada 2007

NO MAM taka przykladowa wizytowke zrobiona w tym i trzeba zrobic to samo ale inaczej wygladajace... tzn inne ale maja byc te same informacje

20 Listopada 2007

Witam

Zna ktos ten program/jezyk poniewaz musze zrobic wizytowke a zbytnio go nei rozumiem

24 Lipca 2007

Witam

Najpierw chciałbym zapytać:

...o róznice miedzy TV LCD a Plazmą ?

...który z tych typów matryc polecacie ??

...doradzcie mi jaki TV midzy 40-42 cale (musi miec min 2 wejsca HDMI)??

...szukam moniotra LCD 22-24 cale (musie miec HDMI + component, najlepiej DELL'a, LG lub BENQ)??

Z gory dzieki za pomoc.

29 Marca 2007

'MyWinAvi' <--jak by co to moge na maila wyslac ------

Warn za złamanie 13. punktu regulaminu.

Marmot

6 Marca 2007

Moja strona

O to moje dzieło dla qumpeli :P

28 Lutego 2007

Witam

Utworzylem ten temat poniewaz chcial bym was spytac czy korzystacie z jakis czesci komputerowych firmy tacens tzn pytam dokladnie o Zasilacze i Obudowy!!! Chcial bym znac dostepnosc czescie tej firmy u was w miastach ...

27 Lutego 2007

Kockos Gdaju

25 Lutego 2007

Spokojnie z tylu jest okolo 10cm przestrzeni , w gornej czesci obudowy znajduja sie 2 wiatraczki pozatym biurko ma 6odwory(4 po bokach , 2 u gory (jakies otwory na kable muusza byc :P ))

25 Lutego 2007

To moje stanowisko pracy(tzn giercowania :P) !!!

25 Lutego 2007

Ranmus a panel TFT jak sie sprawuje ??

22 Lutego 2007

Ranmus mogł byś mi jakies monitory zaproponowac ?? Generalnie apple 30' odpada ze wzgledu na cene wchodzi jedynie HP 30' za ok6500 zlotych . Znasz jakies inne giganty ??(dobre)

21 Lutego 2007

Dizkei baradzo, generalnei potrzebuje monitorek do ogladania filmow , grania na xbox360 nie mam miejsca na tv w pokoju wiec musze meic cos do kompa i do konsoli .

11 Lutego 2007

Witam

Od jakiegos czasu przymierzam sie do kupna moniora lcd ok 22"-30" przegladam parametry i wszystko jedyne co naogol dostrzegam to roznice miedzy nazwami firm, cena, i rodzajem matrycy. Dlatego zalozylem ten temat. Czym roznia sie te wszystkie matryce:

MVA

PVA

itp.

Chcial bym wiedziec ktora jest najlepsza jakie maja stosunki jakosci do ceny, zywotnosc itp.

Pozdrawaim z gory dzieki

25 Stycznia 2007

ToMoEX

zalety :

-nie ma nic na pulpicie

wady:

-firefox :D

Audi LeMans (>800km ^^)

IE- to przegladarka internetowa billusia

24 Stycznia 2007

Klik!

Tez sie pochwale ::P

26 Grudnia 2006

Witam

MAm kolejny problem mianowicie tak wyglada narazie stornaMoja strona

Obojetnie ktory jezyk sie wybierze wchodzi sie w news i wyglada to tak jak na stronie. A chcial bym zeby wygaldalo to jak na screnie ponizej.

czyli po napisaniu zeby rozciogalo sei tak:

prosze od odp na forum lub zeby bylko szybciej na gg 1806221

Z gory dziekuje .

26 Grudnia 2006

Borek naprawde fajnie zapowiadajacy sie MMORPG bedzie to 3 moja gra w ktora bede gral z tego typu pierwsze jest GW pozniej WoW a po tym AO mam nadzije ze Ci sie uda zycze wszystkeigo najlepszego. I pozwole sobie CIe porownac do Buziol chyba bedziesz zajmowal drugie miejsce na pl scenie gier FreeWare.Pozdrawiam

Edit

------------------

Oby sie stala tak kultowa jak MArio Forever na swiecie nie tylko w pl !!!!

25 Grudnia 2006

Tak juz wiem dzieki Zakol poporstu jak pisalem posta to ty napsiales swojego.jeszcze raz dzieki.

25 Grudnia 2006

Wszystko jest identycznie przepisane wszystko sie zgadza a i tak nei dziala ??:(

25 Grudnia 2006

<html>
<body bgcolor="black">
<head>
<title>
 CORNROWS|BRAIDS|DOBIERANCE
</title>
</head>
<font color="white">

<center>
<table border="0" width="90%">
 <tr>
  <td>
   <center><img alt="LOGO" src="logopl.JPG"></center>
   <img alt="pol" src="flagamini.jpg">
   <img alt="pol" src="flagaagmini.jpg" >
  </td>
 </tr>
</table>
</center>

<br>
<center>
<table border="1" width="90%">
 <tr>
  <td width="40%">
  <img alt="new" scr="news.JPG">
  </td>
  <td>
   <center>
   <table border="1" width="95%">
   <tr>
   <td>
   <font size="+3" color="white"> site under way</font>
   </td>
   </tr>
   </table>
   </center>
  </td>
 </tr>

</table>
</center>

</font>
</body>
</html>

Tak wyglada kod.

Obrazek w czerwonym kole nie wczytuje sie czemu??

Zaloguj się

Bucior

Postów

Dołączył

Ostatnia wizyta

Typ zawartości

Profile

Forum

Wydarzenia

Odpowiedzi opublikowane przez Bucior

Turbo Pascal

Turbo Pascal

Turbo Pascal

Turbo Pascal

Turbo Pascal

Turbo Pascal

Turbo Pascal

Monitor & TV

Program do łączenia plików wideo

Nasze strony

Firma

Twoje gwiezdne imię i nazwisko

Twoje "stanowisko" pracy

Twoje "stanowisko" pracy

TNT, PVA...?

TNT, PVA...?

TNT, PVA...?

TNT, PVA...?

Wasze pulpity

Wasze pulpity

HTML

Almora - Online MMORPG

HTML

HTML

HTML

Przeglądaj

GMCLAN.ORG

Cała aktywność

Ranking

Discord