Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Śro 17:37, 22 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Przykładowy program, pokazujący jak w jednej tablicy przechować kilka rysunków. <br />Trzeba znać początek kolejnych rysunków, przy czym każdy rysunek zawiera nagłówek formatujący. <br /> <br />SCREEN 13 <br />DIM a(0 TO 51) AS LONG <br />LINE (0, 0)-(9, 9), 1, BF <br />LINE (10, 0)-(19, 9), 2, BF <br />LINE (0, 0)-(9, 9), 15 <br />LINE (10, 0)-(19, 9), 15 <br /> <br />GET (0, 0)-(9, 9), a(0) <br />GET (10, 0)-(19, 9), a(26) <br />PUT (20, 20), a(0) <br />PUT (30, 30), a(26)</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Wto 14:07, 26 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Prędkość nie zachwyca... <br /> <br />REM prawidlowo rozciaga obrazek przy calkowitej skali np 4 <br /> <br /> <br />SCREEN 13 <br />DIM a$(0 TO 32) <br />DIM kopia(0 TO 100) <br /> <br />REM 24x32 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010101010101010101010101010E0E0E" <br />a$(1) = "01010F0F0F010101010202020202020201010101010E0E0E" <br />a$(2) = "05010F0F0101010102020202020202020201010101010E0E" <br />a$(3) = "010101010101010202020602020202020202010101010101" <br />a$(4) = "070101010101020202020602020202060202020101010101" <br />a$(5) = "010101010102020202020602020202060202020201010101" <br />a$(6) = "010101010102020202020602020206020202020201010101" <br />a$(7) = "010101010102020602020602020206020206020201010101" <br />a$(8) = "010101010102020602020206020206020206020201010101" <br />a$(9) = "010101010102020206020206020602020602020201010101" <br />a$(10) = "010101010102020206020206020602020602020201010101" <br />a$(11) = "010101010102020202060206020602020602020201010101" <br />a$(12) = "010101010102020202060206060602060202020201010101" <br />a$(13) = "010101010102020202020606060606020202020201010101" <br />a$(14) = "010101010102020602020206060602020206020201010101" <br />a$(15) = "010101010101020206020206060602020602020101010101" <br />a$(16) = "080808080808080202060206060602060202080808080808" <br />a$(17) = "080808080808080802020606060606020208080808080808" <br />a$(18) = "080808080808080808020206060602020808080808080808" <br />a$(19) = "080808080808080808080806060608080808080808080808" <br />a$(20) = "080808080808080808080806060608080808080808080808" <br />a$(21) = "070707070707070707070706060607070707070707070707" <br />a$(22) = "070707070707070707070706060607070707070707070707" <br />a$(23) = "070707070707070707070706060607070707070707070707" <br />a$(24) = "070707070707070707070706060607070707070707070707" <br />a$(25) = "070707070707070707070706060607070707070707070707" <br />a$(26) = "070707070707070707070706060607070707070707070707" <br />a$(27) = "070707070707050707070706060607070507070705070707" <br />a$(28) = "070707070707020707070706060607070207070702070707" <br />a$(29) = "020202020202020202020606060606020202020202020202" <br />a$(30) = "020202020202020202060606060606060202020202020202" <br />a$(31) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 31 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 250, y + 0), col <br />NEXT x <br />NEXT y <br /> <br />GET (250, 0)-(250, 31), kopia <br />PUT (0, 0), kopia <br /> <br />skala = 4 <br />iley = INT(skala) + 10 <br /> <br />FOR x = 0 TO 23 <br />GET (250 + x, 0)-(250 + x, 31), kopia <br />PUT (x, 0), kopia, PSET <br />FOR i = 0 TO 31: GET (x, i)-(x, 31 + i), kopia <br />FOR j = 0 TO iley <br />PUT (30 + (powt * 10 + x), i * skala + j), kopia, PSET <br />NEXT j <br />NEXT i <br />NEXT x</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Wto 13:39, 26 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Programik jest wstępem do napisania procedury powiększana obrazków. <br /> <br />SCREEN 13 <br />DIM a$(0 TO 32) <br />DIM kopia(0 TO 100) <br /> <br />REM 24x32 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010101010101010101010101010E0E0E" <br />a$(1) = "0F0F0F0F0F010101010202020202020201010101010E0E0E" <br />a$(2) = "0F0F0F0F0101010102020202020202020201010101010E0E" <br />a$(3) = "010101010101010202020602020202020202010101010101" <br />a$(4) = "010101010101020202020602020202060202020101010101" <br />a$(5) = "010101010102020202020602020202060202020201010101" <br />a$(6) = "010101010102020202020602020206020202020201010101" <br />a$(7) = "010101010102020602020602020206020206020201010101" <br />a$(8) = "010101010102020602020206020206020206020201010101" <br />a$(9) = "010101010102020206020206020602020602020201010101" <br />a$(10) = "010101010102020206020206020602020602020201010101" <br />a$(11) = "010101010102020202060206020602020602020201010101" <br />a$(12) = "010101010102020202060206060602060202020201010101" <br />a$(13) = "010101010102020202020606060606020202020201010101" <br />a$(14) = "010101010102020602020206060602020206020201010101" <br />a$(15) = "010101010101020206020206060602020602020101010101" <br />a$(16) = "080808080808080202060206060602060202080808080808" <br />a$(17) = "080808080808080802020606060606020208080808080808" <br />a$(18) = "080808080808080808020206060602020808080808080808" <br />a$(19) = "080808080808080808080806060608080808080808080808" <br />a$(20) = "080808080808080808080806060608080808080808080808" <br />a$(21) = "070707070707070707070706060607070707070707070707" <br />a$(22) = "070707070707070707070706060607070707070707070707" <br />a$(23) = "070707070707070707070706060607070707070707070707" <br />a$(24) = "070707070707070707070706060607070707070707070707" <br />a$(25) = "070707070707070707070706060607070707070707070707" <br />a$(26) = "070707070707070707070706060607070707070707070707" <br />a$(27) = "070707070707050707070706060607070507070705070707" <br />a$(28) = "070707070707020707070706060607070207070702070707" <br />a$(29) = "020202020202020202020606060606020202020202020202" <br />a$(30) = "020202020202020202060606060606060202020202020202" <br />a$(31) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 31 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 250, y + 50), col <br />NEXT x <br />NEXT y <br /> <br />GET (250, 50)-(250, 81), kopia <br />PUT (0, 0), kopia <br /> <br /> <br />REM pomniejszenie w skali 0.7 <br />skala = .7 <br />FOR i = 0 TO 31: GET (0, i)-(0, 31 + i), kopia <br />PUT (10, i * skala), kopia, PSET <br />REM PUT (10, i * skala + 1), kopia, PSET <br />NEXT i <br /> FOR powt = 0 TO 5 STEP .1 <br />REM powiekszenie w skali 3.5 <br />skala = 3.5 <br />iley = INT(skala) + 1 <br />FOR i = 0 TO 31: GET (0, i)-(0, 31 + i), kopia <br />FOR j = 0 TO iley <br />PUT (20 + powt * 10, i * skala + j), kopia, PSET <br />NEXT j <br />NEXT i <br />NEXT powt</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 20:36, 24 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM a$(0 TO 32) <br /> <br /> <br /> <br />REM 20x20 <br /> <br />a$(0) = "0F0F0F0F01010102020202020201010101010E0E" <br />a$(1) = "0F0F0F010101020202020202020201010101010E" <br />a$(2) = "0F01010101020202020202020202020101010101" <br />a$(3) = "0101010102020202050202020202020201010101" <br />a$(4) = "0101010102020202020202020202020201010101" <br />a$(5) = "0101010102020202020202050202020201010101" <br />a$(6) = "0101010102020202020202020202020201010101" <br />a$(7) = "0101010102020202020202020202020201010101" <br />a$(8) = "0101010101020202050202020202020101010101" <br />a$(9) = "0808080808080202020202020202080808080808" <br />a$(10) = "0808080808080802020202020208080808080808" <br />a$(11) = "0808080808080808060606060808080808080808" <br />a$(12) = "0808080808080808060606060808080808080808" <br />a$(13) = "0707070707070707060606060707070707070707" <br />a$(14) = "0707070707070707060606060707070707070707" <br />a$(15) = "0707070705070707060606060705070707050707" <br />a$(16) = "0707070702070707060606060702070707020707" <br />a$(17) = "0202020202020202060606060202020202020202" <br />a$(18) = "0202020202020206060606060602020202020202" <br />a$(19) = "0202020202020606060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 19 <br />FOR x = 0 TO 19 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 50, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 22x22 <br /> <br />a$(0) = "0F0F0F0F0F0101010202020202020201010101010E0E" <br />a$(1) = "0F0F0F0F01010102020202020202020201010101010E" <br />a$(2) = "0F0F0101010102020202020202020202020101010101" <br />a$(3) = "01010101010202020205020202020202020201010101" <br />a$(4) = "01010101010202020202020202020202020201010101" <br />a$(5) = "01010101010202020202020202050202020201010101" <br />a$(6) = "01010101010202020202020202020202020201010101" <br />a$(7) = "01010101010202020202020202020202020201010101" <br />a$(8) = "01010101010202020202020202020202020201010101" <br />a$(9) = "01010101010102020205020202020202020101010101" <br />a$(10) = "08080808080808020202020202020202080808080808" <br />a$(11) = "08080808080808080202020202020208080808080808" <br />a$(12) = "08080808080808080806060606060808080808080808" <br />a$(13) = "08080808080808080806060606060808080808080808" <br />a$(14) = "07070707070707070706060606060707070707070707" <br />a$(15) = "07070707070707070706060606060707070707070707" <br />a$(16) = "07070707070707070706060606060707070707070707" <br />a$(17) = "07070707070507070706060606060705070707050707" <br />a$(18) = "07070707070207070706060606060702070707020707" <br />a$(19) = "02020202020202020206060606060202020202020202" <br />a$(20) = "02020202020202020606060606060602020202020202" <br />a$(21) = "02020202020202060606060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 21 <br />FOR x = 0 TO 21 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 100, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 24x24 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010202020202020201010101010E0E0E" <br />a$(1) = "0F0F0F0F0F01010102020202020202020201010101010E0E" <br />a$(2) = "0F0F0F010101010202020202020202020202010101010101" <br />a$(3) = "010101010101020202020206020202020202020101010101" <br />a$(4) = "010101010102020202020202060206020202020201010101" <br />a$(5) = "010101010102020202020202060602020202020201010101" <br />a$(6) = "010101010102020206020202060202020206020201010101" <br />a$(7) = "010101010102020202060202060202020602020201010101" <br />a$(8) = "010101010102020202020606060602060202020201010101" <br />a$(9) = "010101010102020202020206060606020202020201010101" <br />a$(10) = "010101010102020202020206060602020202020101010101" <br />a$(11) = "080808080808020206020206060602020602080808080808" <br />a$(12) = "080808080808080202060206060602060202080808080808" <br />a$(13) = "080808080808080802020606060606020208080808080808" <br />a$(14) = "080808080808080808020206060602020808080808080808" <br />a$(15) = "070707070707070707070706060607070707070707070707" <br />a$(16) = "070707070707070707070706060607070707070707070707" <br />a$(17) = "070707070707070707070706060607070707070707070707" <br />a$(18) = "070707070707070707070706060607070707070707070707" <br />a$(19) = "070707070707050707070706060607070507070705070707" <br />a$(20) = "070707070707020707070706060607070207070702070707" <br />a$(21) = "020202020202020202020206060602020202020202020202" <br />a$(22) = "020202020202020202060606060606060202020202020202" <br />a$(23) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 23 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 150, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 24x28 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010202020202020201010101010E0E0E" <br />a$(1) = "0F0F0F0F0F01010102020202020202020201010101010E0E" <br />a$(2) = "0F0F0F010101010202020602020202020202010101010101" <br />a$(3) = "010101010101020202020602020202060202020101010101" <br />a$(4) = "010101010102020202020602020202060202020201010101" <br />a$(5) = "010101010102020202020602020206020202020201010101" <br />a$(6) = "010101010102020602020602020206020206020201010101" <br />a$(7) = "010101010102020602020206020206020206020201010101" <br />a$(8) = "010101010102020206020206020602020602020201010101" <br />a$(9) = "010101010102020202060206020602020602020201010101" <br />a$(10) = "010101010102020202060206060602060202020201010101" <br />a$(11) = "010101010102020202020606060606020202020201010101" <br />a$(12) = "010101010102020602020206060602020206020201010101" <br />a$(13) = "010101010101020206020206060602020602020101010101" <br />a$(14) = "080808080808080202060206060602060202080808080808" <br />a$(15) = "080808080808080802020606060606020208080808080808" <br />a$(16) = "080808080808080808020206060602020808080808080808" <br />a$(17) = "080808080808080808080806060608080808080808080808" <br />a$(18) = "070707070707070707070706060607070707070707070707" <br />a$(19) = "070707070707070707070706060607070707070707070707" <br />a$(20) = "070707070707070707070706060607070707070707070707" <br />a$(21) = "070707070707070707070706060607070707070707070707" <br />a$(22) = "070707070707070707070706060607070707070707070707" <br />a$(23) = "070707070707050707070706060607070507070705070707" <br />a$(24) = "070707070707020707070706060607070207070702070707" <br />a$(25) = "020202020202020202020206060602020202020202020202" <br />a$(26) = "020202020202020202060606060606060202020202020202" <br />a$(27) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 27 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 200, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 24x32 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010101010101010101010101010E0E0E" <br />a$(1) = "0F0F0F0F0F010101010202020202020201010101010E0E0E" <br />a$(2) = "0F0F0F0F0101010102020202020202020201010101010E0E" <br />a$(3) = "010101010101010202020602020202020202010101010101" <br />a$(4) = "010101010101020202020602020202060202020101010101" <br />a$(5) = "010101010102020202020602020202060202020201010101" <br />a$(6) = "010101010102020202020602020206020202020201010101" <br />a$(7) = "010101010102020602020602020206020206020201010101" <br />a$(8) = "010101010102020602020206020206020206020201010101" <br />a$(9) = "010101010102020206020206020602020602020201010101" <br />a$(10) = "010101010102020206020206020602020602020201010101" <br />a$(11) = "010101010102020202060206020602020602020201010101" <br />a$(12) = "010101010102020202060206060602060202020201010101" <br />a$(13) = "010101010102020202020606060606020202020201010101" <br />a$(14) = "010101010102020602020206060602020206020201010101" <br />a$(15) = "010101010101020206020206060602020602020101010101" <br />a$(16) = "080808080808080202060206060602060202080808080808" <br />a$(17) = "080808080808080802020606060606020208080808080808" <br />a$(18) = "080808080808080808020206060602020808080808080808" <br />a$(19) = "080808080808080808080806060608080808080808080808" <br />a$(20) = "080808080808080808080806060608080808080808080808" <br />a$(21) = "070707070707070707070706060607070707070707070707" <br />a$(22) = "070707070707070707070706060607070707070707070707" <br />a$(23) = "070707070707070707070706060607070707070707070707" <br />a$(24) = "070707070707070707070706060607070707070707070707" <br />a$(25) = "070707070707070707070706060607070707070707070707" <br />a$(26) = "070707070707070707070706060607070707070707070707" <br />a$(27) = "070707070707050707070706060607070507070705070707" <br />a$(28) = "070707070707020707070706060607070207070702070707" <br />a$(29) = "020202020202020202020606060606020202020202020202" <br />a$(30) = "020202020202020202060606060606060202020202020202" <br />a$(31) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 31 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 250, y + 50), col <br />NEXT x <br />NEXT y</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 20:21, 24 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM a$(0 TO 24) <br /> <br />REM 16x16 <br /> <br />a$(0) = "0F0F0F01010202020202010101010E0E" <br />a$(1) = "0F0F010102020202020202010011010E" <br />a$(2) = "01010102020502020202020201010101" <br />a$(3) = "01010202020202020205020202010101" <br />a$(4) = "01010202020202020202020202010101" <br />a$(5) = "01010202020202020202020202010101" <br />a$(6) = "01010102020205020202020201010101" <br />a$(7) = "08080808020202020202020808080808" <br />a$(8) = "08080808080202020202080808080808" <br />a$(9) = "08080808080806060608080808080808" <br />a$(10) = "07070707070706060607070707070707" <br />a$(11) = "07070707070706060607070707070707" <br />a$(12) = "07070507070706060607050707050707" <br />a$(13) = "07070207070706060607020707020707" <br />a$(14) = "02020202020206060602020202020202" <br />a$(15) = "02020202020606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 15 <br />FOR x = 0 TO 15 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 200, y + 10), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 18x18 <br /> <br />a$(0) = "0F0F0F010101020202020202010101010E0E" <br />a$(1) = "0F0F0101010202020202020202010101010E" <br />a$(2) = "010101010202020502020202020201010101" <br />a$(3) = "010101020202020202020202020202010101" <br />a$(4) = "010101020202020202020502020202010101" <br />a$(5) = "010101020202020202020202020202010101" <br />a$(6) = "010101020202020202020202020202010101" <br />a$(7) = "010101010202020502020202020201010101" <br />a$(8) = "080808080802020202020202020808080808" <br />a$(9) = "080808080808020202020202080808080808" <br />a$(10) = "080808080808080606060608080808080808" <br />a$(11) = "070707070707070606060607070707070707" <br />a$(12) = "070707070707070606060607070707070707" <br />a$(13) = "070707070707070606060607070707070707" <br />a$(14) = "070707050707070606060607050707070507" <br />a$(15) = "070707020707070606060607020707070207" <br />a$(16) = "020202020202020606060602020202020202" <br />a$(17) = "020202020202060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 17 <br />FOR x = 0 TO 17 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 250, y + 10), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 20x20 <br /> <br />a$(0) = "0F0F0F0F01010102020202020201010101010E0E" <br />a$(1) = "0F0F0F010101020202020202020201010101010E" <br />a$(2) = "0F01010101020202020202020202020101010101" <br />a$(3) = "0101010102020202050202020202020201010101" <br />a$(4) = "0101010102020202020202020202020201010101" <br />a$(5) = "0101010102020202020202050202020201010101" <br />a$(6) = "0101010102020202020202020202020201010101" <br />a$(7) = "0101010102020202020202020202020201010101" <br />a$(8) = "0101010101020202050202020202020101010101" <br />a$(9) = "0808080808080202020202020202080808080808" <br />a$(10) = "0808080808080802020202020208080808080808" <br />a$(11) = "0808080808080808060606060808080808080808" <br />a$(12) = "0808080808080808060606060808080808080808" <br />a$(13) = "0707070707070707060606060707070707070707" <br />a$(14) = "0707070707070707060606060707070707070707" <br />a$(15) = "0707070705070707060606060705070707050707" <br />a$(16) = "0707070702070707060606060702070707020707" <br />a$(17) = "0202020202020202060606060202020202020202" <br />a$(18) = "0202020202020206060606060602020202020202" <br />a$(19) = "0202020202020606060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 19 <br />FOR x = 0 TO 19 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 50, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 22x22 <br /> <br />a$(0) = "0F0F0F0F0F0101010202020202020201010101010E0E" <br />a$(1) = "0F0F0F0F01010102020202020202020201010101010E" <br />a$(2) = "0F0F0101010102020202020202020202020101010101" <br />a$(3) = "01010101010202020205020202020202020201010101" <br />a$(4) = "01010101010202020202020202020202020201010101" <br />a$(5) = "01010101010202020202020202050202020201010101" <br />a$(6) = "01010101010202020202020202020202020201010101" <br />a$(7) = "01010101010202020202020202020202020201010101" <br />a$(8) = "01010101010202020202020202020202020201010101" <br />a$(9) = "01010101010102020205020202020202020101010101" <br />a$(10) = "08080808080808020202020202020202080808080808" <br />a$(11) = "08080808080808080202020202020208080808080808" <br />a$(12) = "08080808080808080806060606060808080808080808" <br />a$(13) = "08080808080808080806060606060808080808080808" <br />a$(14) = "07070707070707070706060606060707070707070707" <br />a$(15) = "07070707070707070706060606060707070707070707" <br />a$(16) = "07070707070707070706060606060707070707070707" <br />a$(17) = "07070707070507070706060606060705070707050707" <br />a$(18) = "07070707070207070706060606060702070707020707" <br />a$(19) = "02020202020202020206060606060202020202020202" <br />a$(20) = "02020202020202020606060606060602020202020202" <br />a$(21) = "02020202020202060606060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 21 <br />FOR x = 0 TO 21 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 100, y + 50), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 24x24 <br /> <br />a$(0) = "0F0F0F0F0F0F0101010202020202020201010101010E0E0E" <br />a$(1) = "0F0F0F0F0F01010102020202020202020201010101010E0E" <br />a$(2) = "0F0F0F010101010202020202020202020202010101010101" <br />a$(3) = "010101010101020202020206020202020202020101010101" <br />a$(4) = "010101010102020202020202060206020202020201010101" <br />a$(5) = "010101010102020202020202060602020202020201010101" <br />a$(6) = "010101010102020206020202060202020206020201010101" <br />a$(7) = "010101010102020202060202060202020602020201010101" <br />a$(8) = "010101010102020202020606060602060202020201010101" <br />a$(9) = "010101010102020202020206060606020202020201010101" <br />a$(10) = "010101010102020202020206060602020202020101010101" <br />a$(11) = "080808080808020206020206060602020602080808080808" <br />a$(12) = "080808080808080202060206060602060202080808080808" <br />a$(13) = "080808080808080802020606060606020208080808080808" <br />a$(14) = "080808080808080808020206060602020808080808080808" <br />a$(15) = "070707070707070707070706060607070707070707070707" <br />a$(16) = "070707070707070707070706060607070707070707070707" <br />a$(17) = "070707070707070707070706060607070707070707070707" <br />a$(18) = "070707070707070707070706060607070707070707070707" <br />a$(19) = "070707070707050707070706060607070507070705070707" <br />a$(20) = "070707070707020707070706060607070207070702070707" <br />a$(21) = "020202020202020202020206060602020202020202020202" <br />a$(22) = "020202020202020202060606060606060202020202020202" <br />a$(23) = "020202020202020202020202020202020202020202020202" <br /> <br /> <br />FOR y = 0 TO 23 <br />FOR x = 0 TO 23 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 150, y + 50), col <br />NEXT x <br />NEXT y</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 19:22, 24 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM a$(0 TO 20) <br /> <br /> <br />REM 14x14 <br /> <br />a$(0) = "0F0F010102020202020101010E0E" <br />a$(1) = "010101020202020202020101010E" <br />a$(2) = "0101020205020202020202010101" <br />a$(3) = "0101020202020202050202010101" <br />a$(4) = "0101020202020202020202010101" <br />a$(5) = "0101020202050202020202010101" <br />a$(6) = "0808080202020202020208080808" <br />a$(7) = "0808080802020202020808080808" <br />a$(8) = "0707070707060606070707070707" <br />a$(9) = "0707070707060606070707070707" <br />a$(10) = "0705070707060606070507070507" <br />a$(11) = "0702070707060606070207070207" <br />a$(12) = "0202020202060606020202020202" <br />a$(13) = "0202020206060606060202020202" <br /> <br /> <br />FOR y = 0 TO 13 <br />FOR x = 0 TO 13 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 150, y + 10), col <br />NEXT x <br />NEXT y <br /> <br /> <br /> <br />REM 16x16 <br /> <br />a$(0) = "0F0F0F01010202020202010101010E0E" <br />a$(1) = "0F0F010102020202020202010011010E" <br />a$(2) = "01010102020502020202020201010101" <br />a$(3) = "01010202020202020205020202010101" <br />a$(4) = "01010202020202020202020202010101" <br />a$(5) = "01010202020202020202020202010101" <br />a$(6) = "01010102020205020202020201010101" <br />a$(7) = "08080808020202020202020808080808" <br />a$(8) = "08080808080202020202080808080808" <br />a$(9) = "08080808080806060608080808080808" <br />a$(10) = "07070707070706060607070707070707" <br />a$(11) = "07070707070706060607070707070707" <br />a$(12) = "07070507070706060607050707050707" <br />a$(13) = "07070207070706060607020707020707" <br />a$(14) = "02020202020206060602020202020202" <br />a$(15) = "02020202020606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 15 <br />FOR x = 0 TO 15 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 200, y + 10), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 18x18 <br /> <br />a$(0) = "0F0F0F010101020202020202010101010E0E" <br />a$(1) = "0F0F0101010202020202020202010101010E" <br />a$(2) = "010101010202020502020202020201010101" <br />a$(3) = "010101020202020202020202020202010101" <br />a$(4) = "010101020202020202020502020202010101" <br />a$(5) = "010101020202020202020202020202010101" <br />a$(6) = "010101020202020202020202020202010101" <br />a$(7) = "010101010202020502020202020201010101" <br />a$(8) = "080808080802020202020202020808080808" <br />a$(9) = "080808080808020202020202080808080808" <br />a$(10) = "080808080808080606060608080808080808" <br />a$(11) = "070707070707070606060607070707070707" <br />a$(12) = "070707070707070606060607070707070707" <br />a$(13) = "070707070707070606060607070707070707" <br />a$(14) = "070707050707070606060607050707070507" <br />a$(15) = "070707020707070606060607020707070207" <br />a$(16) = "020202020202020606060602020202020202" <br />a$(17) = "020202020202060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 17 <br />FOR x = 0 TO 17 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 250, y + 10), col <br />NEXT x <br />NEXT y <br /> <br /> <br />REM 20x20 <br /> <br />a$(0) = "0F0F0F0F01010102020202020201010101010E0E" <br />a$(1) = "0F0F0F010101020202020202020201010101010E" <br />a$(2) = "0F01010101020202020202020202020101010101" <br />a$(3) = "0101010102020202050202020202020201010101" <br />a$(4) = "0101010102020202020202020202020201010101" <br />a$(5) = "0101010102020202020202050202020201010101" <br />a$(6) = "0101010102020202020202020202020201010101" <br />a$(7) = "0101010102020202020202020202020201010101" <br />a$(8) = "0101010101020202050202020202020101010101" <br />a$(9) = "0808080808080202020202020202080808080808" <br />a$(10) = "0808080808080802020202020208080808080808" <br />a$(11) = "0808080808080808060606060808080808080808" <br />a$(12) = "0808080808080808060606060808080808080808" <br />a$(13) = "0707070707070707060606060707070707070707" <br />a$(14) = "0707070707070707060606060707070707070707" <br />a$(15) = "0707070705070707060606060705070707050707" <br />a$(16) = "0707070702070707060606060702070707020707" <br />a$(17) = "0202020202020202060606060202020202020202" <br />a$(18) = "0202020202020206060606060602020202020202" <br />a$(19) = "0202020202020606060606060606020202020202" <br /> <br /> <br />FOR y = 0 TO 19 <br />FOR x = 0 TO 19 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 50, y + 50), col <br />NEXT x <br />NEXT y</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 18:49, 24 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Kilka tablic rysunkowych do pomocy <br /> <br />SCREEN 13 <br />DIM a$(0 TO 14) <br /> <br />a$(0) = "0000020202020000" <br />a$(1) = "0002020202020200" <br />a$(2) = "0002020202020200" <br />a$(3) = "0002020202020200" <br />a$(4) = "0000020202020000" <br />a$(5) = "0000000606000000" <br />a$(6) = "0000000606000000" <br />a$(7) = "0000000606000000" <br /> <br />FOR y = 0 TO 7 <br />FOR x = 0 TO 7 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 10, y + 10), col <br />NEXT x <br />NEXT y <br /> <br />REM 10x10 <br /> <br />a$(0) = "00000002020202000000" <br />a$(1) = "00000202020202020000" <br />a$(2) = "00020202020202020200" <br />a$(3) = "00020202020202020200" <br />a$(4) = "00000202020202020000" <br />a$(5) = "00000002020202000000" <br />a$(6) = "00000000060600000000" <br />a$(7) = "00000000060600000000" <br />a$(8) = "00000000060600000000" <br />a$(9) = "00000006060606000000" <br /> <br /> <br />FOR y = 0 TO 9 <br />FOR x = 0 TO 9 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 50, y + 10), col <br />NEXT x <br />NEXT y <br /> <br />REM 12x12 <br /> <br />a$(0) = "000000020202020200000000" <br />a$(1) = "000002020202020202000000" <br />a$(2) = "000202020202020202020000" <br />a$(3) = "000202020202020202020000" <br />a$(4) = "000202020202020202020000" <br />a$(5) = "000002020202020202000000" <br />a$(6) = "000000020202020200000000" <br />a$(7) = "000000000606060000000000" <br />a$(8) = "000000000606060000000000" <br />a$(9) = "000000000606060000000000" <br />a$(10) = "000000000606060000000000" <br />a$(11) = "000000060606060600000000" <br /> <br /> <br />FOR y = 0 TO 11 <br />FOR x = 0 TO 11 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 100, y + 10), col <br />NEXT x <br />NEXT y <br /> <br />REM 14x14 <br /> <br />a$(0) = "0F0F010102020202020101010E0E" <br />a$(1) = "010101020202020202020101010E" <br />a$(2) = "0101020205020202020202010101" <br />a$(3) = "0101020202020202050202010101" <br />a$(4) = "0101020202020202020202010101" <br />a$(5) = "0101020202050202020202010101" <br />a$(6) = "0808080202020202020208080808" <br />a$(7) = "0808080802020202020808080808" <br />a$(8) = "0707070707060606070707070707" <br />a$(9) = "0707070707060606070707070707" <br />a$(10) = "0705070707060606070507070507" <br />a$(11) = "0702070707060606070207070207" <br />a$(12) = "0202020202060606020202020202" <br />a$(13) = "0202020206060606060202020202" <br /> <br /> <br />FOR y = 0 TO 13 <br />FOR x = 0 TO 13 <br />col = VAL("&H" + MID$(a$(y), x * 2 + 1, 2)) <br />PSET (x + 150, y + 10), col <br />NEXT x <br />NEXT y</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Wto 22:35, 12 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Programik "cegła" wstawia na ekran element czerwonej cegły, a następnie mnoży ten element na ekranie. <br /> <br />Za każdym razem podwojony element wpisywany jest do podwojonej wielkości tablicy, dzięki czemu szybko uzyskujemy tablice 2,4,8,16 elementowe. Im większe zastosujemy, tym szybciej grafika pojawi się na ekranie. <br /> <br />SCREEN 13 <br />DEF SEG = 0 <br /> <br />DIM cegla(0 TO 16) AS LONG <br />DIM dwiecegly(0 TO 32) AS LONG <br />DIM czterycegly(0 TO 64) AS LONG <br />DIM osiemcegiel(0 TO 128) AS LONG <br />DIM szesnasciecegiel(0 TO 256) AS LONG <br /> <br />cegla(0) = &H80040 <br /> <br />FOR i = 1 TO 8: READ a1$, a2$ <br />cegla(i * 2) = VAL("&H" + a1$) <br />cegla(i * 2 - 1) = VAL("&H" + a2$) <br />NEXT i <br /> <br />DATA "00000000","00000000" <br />DATA "0C0C0C0C","000C0C0C" <br />DATA "0C0C0C0C","000C0C0C" <br />DATA "0C0C0C0C","000C0C0C" <br />DATA "00000000","00000000" <br />DATA "000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C" <br /> <br />PUT (0, 0), cegla, PSET <br />PUT (8, 0), cegla, PSET <br /> <br />GET (0, 0)-(15, 7), dwiecegly <br />PUT (16, 0), dwiecegly, PSET <br /> <br />GET (0, 0)-(31, 7), czterycegly <br />PUT (32, 0), czterycegly, PSET <br /> <br />GET (0, 0)-(63, 7), osiemcegiel <br />PUT (64, 0), osiemcegiel, PSET <br /> <br />GET (0, 0)-(127, 7), szesnasciecegiel <br />PUT (0, 150), szesnasciecegiel, PSET <br /> <br /> <br /> t0 = PEEK(1132) <br />FOR i = 1 TO 10 <br />x = RND(1) * 150 <br />y = RND(1) * 150 <br />PUT (x, y), szesnasciecegiel, PSET <br />NEXT i <br /> t1 = PEEK(1132) <br /> PRINT t0; t1</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 18:06, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">W razie gdyby ten zapis był za mało czytelny, można rozpisać te hexe w komentarzach REM gdzie 0 nie będzie ucinane. <br />-------------------------------------------------- <br /> <br />Teraz przykład ludzika 8x16 pixeli: <br /> <br /> <br />DIM ZNAK(0 TO 32) AS LONG <br /> <br />SCREEN 13 <br /> <br /> ZNAK(0) = &H100040 <br /> <br /> ZNAK(1) = &H8080000: ZNAK(2) = &H8 <br /> ZNAK(3) = &HF0F0000: ZNAK(4) = &HF <br /> <br /> ZNAK(5) = &HF0F0000: ZNAK(6) = &HF <br /> ZNAK(7) = &HF000000: ZNAK(8) = &H0 <br /> <br /> ZNAK(9) = &HC0C0C00: ZNAK(10) = &HC0C <br />ZNAK(11) = &HC0C0C0C: ZNAK(12) = &HC0C0C <br /> <br />ZNAK(13) = &HC0C0C0C: ZNAK(14) = &HC0C0C <br />ZNAK(15) = &HC0C000C: ZNAK(16) = &HC000C <br /> <br />ZNAK(17) = &H808000F: ZNAK(18) = &HF0008 <br />ZNAK(19) = &HB0B0000: ZNAK(20) = &HB <br /> <br />ZNAK(21) = &HB0000: ZNAK(22) = &HB <br />ZNAK(23) = &HB0000: ZNAK(24) = &HB <br /> <br />ZNAK(25) = &HB0000: ZNAK(26) = &HB <br />ZNAK(27) = &HB0000: ZNAK(28) = &HB <br /> <br />ZNAK(29) = &HB0000: ZNAK(30) = &HB <br />ZNAK(31) = &H70700: ZNAK(32) = &H707 <br /> <br /> <br />FOR i = 1 TO 10 <br />FOR j = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), ZNAK <br />NEXT j <br />NEXT i</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 16:20, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Literkę E (a ściślej 0E, bo quickbasic ucina to zero) można teraz łatwiej zamienić na dowolną liczbę liczbę szesnastkową 00-FF, aby zmienić kolor poszczególnych punktów ludzika, czyli różne kolory ubrania: <br /> <br /> <br />DIM ZNAK(0 TO 16) AS LONG <br />SCREEN 13 <br /> <br /> ZNAK(0) = &H80040 <br /> ZNAK(1) = &H7070000: ZNAK(2) = &H7 <br /> ZNAK(3) = &HF0F0000: ZNAK(4) = &HF <br /> ZNAK(5) = &HF000000: ZNAK(6) = &H0 <br /> ZNAK(7) = &HC0C0C00: ZNAK(8) = &HC0C <br /> <br /> ZNAK(9) = &HC00000F: ZNAK(10) = &HF0000 <br />ZNAK(11) = &HB0B0000: ZNAK(12) = &HB <br />ZNAK(13) = &HB0000: ZNAK(14) = &HB <br />ZNAK(15) = &HE0E00: ZNAK(16) = &HE0E <br /> <br />FOR i = 1 TO 10 <br />FOR j = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), ZNAK <br />NEXT j <br />NEXT i</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 16:10, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">W QuickBasic-u można zapisywać liczby w postaci szestnastkowej. W ten sposób mamy względną kontrolę nad wyglądem ludzika. <br /> <br />Pierwszy element tablicy znak(0) zawiera formatowanie tablicy. Powtarzajaca się literka E to żółty kolor poszczególnych punktów ludzika. <br /> <br /> <br />DIM ZNAK(0 TO 16) AS LONG <br />SCREEN 13 <br /> <br /> ZNAK(0) = &H80040 <br /> ZNAK(1) = &HE0E0000: ZNAK(2) = &HFF00000E <br /> ZNAK(3) = &HE0E0000: ZNAK(4) = &HFF00000E <br /> ZNAK(5) = &HE000000: ZNAK(6) = &H0 <br /> ZNAK(7) = &HE0E0E00: ZNAK(8) = &HE0E <br /> <br /> ZNAK(9) = &HE00000E: ZNAK(10) = &HE0000 <br />ZNAK(11) = &HE0E0000: ZNAK(12) = &HE <br />ZNAK(13) = &HE0000: ZNAK(14) = &HE <br />ZNAK(15) = &HE0E00: ZNAK(16) = &HE0E <br /> <br />FOR i = 1 TO 10 <br />FOR j = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), ZNAK <br />NEXT j <br />NEXT i</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 14:09, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">poprawka, bez emotikona: <br /> <br /> <br />DIM znak(0 TO 16) AS LONG <br />SCREEN 13 <br /> <br />znak(0) = 524352: znak(1) = 235798528: znak(2) = 14: znak(3) = 235798528 <br />znak(4) = 14: znak(5) = 234881024: znak(6) = 0: znak(7) = 235802112 <br />znak(8) = 3598: znak(9) = 234881038: znak(10) = 917504: znak(11) = 235798528 <br />znak(12) = 14: znak(13) = 917504: znak(14) = 14: znak(15) = 921088: <br />znak(16) = 3598 <br /> <br />FOR i = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), znak <br />NEXT i</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 14:09, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Teraz inne podejście - budujemy tablicę liczbową, która wyświetli znaczek na ekranie: <br /> <br />Korzystam z danych wyświetlonych poprzednio <br /> <br />-------------------------------------------------------------------------------------------------------- <br /> <br />DIM znak(0 TO 16) AS LONG <br />SCREEN 13 <br /> <br />znak(0) = 524352: znak(1) = 235798528: znak(2) = 14: znak(3) = 235798528 <br />znak(4) = 14: znak(5) = 234881024: znak(6) = 0: znak(7) = 235802112 <br />znak(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = 3598: znak(9) = 234881038: znak(10) = 917504: znak(11) = 235798528 <br />znak(12) = 14: znak(13) = 917504: znak(14) = 14: znak(15) = 921088: <br />znak(16) = 3598 <br /> <br />FOR i = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), znak <br />NEXT i</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:46, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Poprawka,bez emotikona: <br /> <br /> <br />Poniższy programik umożliwia narysowanie niewielkiego znaku graficznego, który zostanie zapamiętany w tablicy i skopiowany na ekranie. <br /> <br />Ponadto ukaże się liczbowa zawartość tablicy. <br /> <br />Tablica została zadeklarowana jako LONG (dla wygody) czyli zapisuje liczby na 32 bitach <br /> <br /> <br />DIM znak(0 TO 16) AS LONG <br />SCREEN 13 <br />REM LOCATE 1, 1: PRINT "A" <br />FOR y = 0 TO 7 <br />FOR x = 0 TO 7 <br />READ a <br />COLOR a * 14: PSET (x, y) <br />NEXT x <br />NEXT y <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,0,1,0,0,0,0 <br />DATA 0,1,1,1,1,1,0,0 <br />DATA 1,0,0,1,0,0,1,0 <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,1,0,1,0,0,0 <br />DATA 0,1,1,0,1,1,0,0 <br /> <br />GET (0, 0)-(7, 7), znak <br /> <br />FOR i = 1 TO 10 <br />FOR j = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), znak <br />NEXT j <br />NEXT i <br />COLOR 15 <br />PRINT znak(0); znak(1) <br />PRINT znak(2); znak(3) <br />PRINT znak(4); znak(5) <br />PRINT znak(6); znak(7) <br />PRINT znak(8); znak(9) <br />PRINT znak(10); znak(11) <br />PRINT znak(12); znak(13) <br />PRINT znak(14); znak(15) <br />PRINT znak(16);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 13:45, 10 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Poniższy programik umożliwia narysowanie niewielkiego znaku graficznego, który zostanie zapamietany w tablicy i skopiowany na ekranie. <br /> <br />Ponadto ukaże się liczbowa zawartośc tablicy. <br /> <br />Tablica została zadeklarowana jako LONG (dla wygody) czyli zapisuje liczby na 32 bitach <br /> <br /> <br />DIM znak(0 TO 16) AS LONG <br />SCREEN 13 <br />REM LOCATE 1, 1: PRINT "A" <br />FOR y = 0 TO 7 <br />FOR x = 0 TO 7 <br />READ a <br />COLOR a * 14: PSET (x, y) <br />NEXT x <br />NEXT y <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,0,1,0,0,0,0 <br />DATA 0,1,1,1,1,1,0,0 <br />DATA 1,0,0,1,0,0,1,0 <br />DATA 0,0,1,1,1,0,0,0 <br />DATA 0,0,1,0,1,0,0,0 <br />DATA 0,1,1,0,1,1,0,0 <br /> <br />GET (0, 0)-(7, 7), znak <br /> <br />FOR i = 1 TO 10 <br />FOR j = 1 TO 10 <br />x = RND(1) * 200 + 1 <br />y = RND(1) * 150 + 1 <br />PUT (x, y), znak <br />NEXT j <br />NEXT i <br />COLOR 15 <br />PRINT znak(0); znak(1) <br />PRINT znak(2); znak(3) <br />PRINT znak(4); znak(5) <br />PRINT znak(6); znak(7) <br />PRINT znak(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" />; znak(9) <br />PRINT znak(10); znak(11) <br />PRINT znak(12); znak(13) <br />PRINT znak(14); znak(15) <br />PRINT znak(16);</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj