Skocz do zawartości

Bucior

Użytkownicy
  • Postów

    211
  • Dołączył

  • Ostatnia wizyta

Treść opublikowana przez Bucior

  1. Bucior

    Turbo Pascal

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

    Turbo Pascal

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

    Turbo Pascal

    wiec ktos pomoze ??dziki
  4. Bucior

    Turbo Pascal

    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
  5. Bucior

    Turbo Pascal

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

    Turbo Pascal

    Witam Zna ktos ten program/jezyk poniewaz musze zrobic wizytowke a zbytnio go nei rozumiem
  7. Bucior

    Monitor & TV

    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.
  8. 'MyWinAvi' <--jak by co to moge na maila wyslac ------ Warn za złamanie 13. punktu regulaminu. Marmot
  9. Bucior

    Nasze strony

    Moja strona O to moje dzieło dla qumpeli :P
  10. Bucior

    Firma

    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 ...
  11. Bucior

    Twoje "stanowisko" pracy

    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 ))
  12. Bucior

    Twoje "stanowisko" pracy

    To moje stanowisko pracy(tzn giercowania :P) !!!
  13. Bucior

    TNT, PVA...?

    Ranmus a panel TFT jak sie sprawuje ??
  14. Bucior

    TNT, PVA...?

    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)
  15. Bucior

    TNT, PVA...?

    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 .
  16. Bucior

    TNT, PVA...?

    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
  17. Bucior

    Wasze pulpity

    ToMoEX zalety : -nie ma nic na pulpicie wady: -firefox :D Audi LeMans (>800km ^^) IE- to przegladarka internetowa billusia
  18. Bucior

    Wasze pulpity

    Klik! Tez sie pochwale ::P
  19. Bucior

    HTML

    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 .
  20. 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 !!!!
  21. Bucior

    HTML

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

    HTML

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

    HTML

    <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??
×
×
  • Dodaj nową pozycję...