
Bucior
Użytkownicy-
Postów
211 -
Dołączył
-
Ostatnia wizyta
Typ zawartości
Profile
Forum
Wydarzenia
Treść opublikowana przez Bucior
-
dane i wyglad, tak zeby wygladalo chociaz w 50% inaczej
-
A mogłbym Cie prosic o przerobienie naserio nie kumam tego....
-
wiec ktos pomoze ??dziki
-
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
-
NO MAM taka przykladowa wizytowke zrobiona w tym i trzeba zrobic to samo ale inaczej wygladajace... tzn inne ale maja byc te same informacje
-
Witam Zna ktos ten program/jezyk poniewaz musze zrobic wizytowke a zbytnio go nei rozumiem
-
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.
-
'MyWinAvi' <--jak by co to moge na maila wyslac ------ Warn za złamanie 13. punktu regulaminu. Marmot
-
Moja strona O to moje dzieło dla qumpeli :P
-
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 ...
-
Kockos Gdaju
-
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 ))
-
To moje stanowisko pracy(tzn giercowania :P) !!!
-
Ranmus a panel TFT jak sie sprawuje ??
-
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)
-
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 .
-
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
-
ToMoEX zalety : -nie ma nic na pulpicie wady: -firefox :D Audi LeMans (>800km ^^) IE- to przegladarka internetowa billusia
-
Klik! Tez sie pochwale ::P
-
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 .
-
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 !!!!
-
Tak juz wiem dzieki Zakol poporstu jak pisalem posta to ty napsiales swojego.jeszcze raz dzieki.
-
Wszystko jest identycznie przepisane wszystko sie zgadza a i tak nei dziala ??:(
-
<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??