Ż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: Pon 13:15, 11 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 fazy ludzika idącego w górę lub w dół: <br /> <br />-------------------------------------------------------------------------- <br /> <br />SCREEN 13 <br /> <br />DIM VERTD1(0 TO 32) AS LONG <br />DIM VERTG1(0 TO 32) AS LONG <br /> <br /> VERTD1(0) = &H100040 <br /> VERTG1(0) = &H100040 <br /> <br /> <br />FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />VERTD1(I * 2) = VAL("&H" + a1$) <br />VERTD1(I * 2 - 1) = VAL("&H" + a2$) <br />VERTG1(I * 2) = VAL("&H" + a3$) <br />VERTG1(I * 2 - 1) = VAL("&H" + a4$) <br /> <br />NEXT I <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","00070700","00000707","00070700" <br /> <br />PUT (50, 50), VERTD1, PSET <br />PUT (100, 50), VERTG1, PSET <br /> <br />DIM VERTD2(0 TO 32) AS LONG <br />DIM VERTG2(0 TO 32) AS LONG <br /> <br /> VERTD2(0) = &H100040 <br /> VERTG2(0) = &H100040 <br /> <br /> <br />FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />VERTD2(I * 2) = VAL("&H" + a1$) <br />VERTD2(I * 2 - 1) = VAL("&H" + a2$) <br />VERTG2(I * 2) = VAL("&H" + a3$) <br />VERTG2(I * 2 - 1) = VAL("&H" + a4$) <br /> <br />NEXT I <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","000B0000","00000707","000B0000" <br />DATA "00000000","00070700","00000000","00070700" <br /> <br />PUT (50, 70), VERTD2, PSET <br />PUT (100, 70), VERTG2, PSET <br /> <br /> <br />DIM VERTD3(0 TO 32) AS LONG <br />DIM VERTG3(0 TO 32) AS LONG <br /> <br /> VERTD3(0) = &H100040 <br /> VERTG3(0) = &H100040 <br /> <br /> <br />FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />VERTD3(I * 2) = VAL("&H" + a1$) <br />VERTD3(I * 2 - 1) = VAL("&H" + a2$) <br />VERTG3(I * 2) = VAL("&H" + a3$) <br />VERTG3(I * 2 - 1) = VAL("&H" + a4$) <br /> <br />NEXT I <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","00070700","0000000B","00070700" <br />DATA "00000707","00000000","00000707","00000000" <br /> <br />PUT (50, 90), VERTD3, PSET <br />PUT (100, 90), VERTG3, PSET</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 23:34, 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">Po uporządkowaniu programu zostałem przy 4 fazach ruchu: <br /> <br />----------------------------------------------------- <br /> <br />SCREEN 13 <br />DIM znakp1(0 TO 32) AS LONG <br />DIM znakl1(0 TO 32) AS LONG <br />DIM znakp2(0 TO 32) AS LONG <br />DIM znakl2(0 TO 32) AS LONG <br />DIM znakp3(0 TO 32) AS LONG <br />DIM znakl3(0 TO 32) AS LONG <br />DIM znakp4(0 TO 32) AS LONG <br />DIM znakl4(0 TO 32) AS LONG <br /> <br />REM ************************* FAZA 1 <br /> <br />znakp1(0) = &H100040 <br />znakl1(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp1(i * 2) = VAL("&H" + a1$) <br />znakp1(i * 2 - 1) = VAL("&H" + a2$) <br />znakl1(i * 2) = VAL("&H" + a3$) <br />znakl1(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "00000707","00070707","07070700","07070000" <br /> <br />REM ************ FAZA 2 <br /> <br />znakp2(0) = &H100040 <br />znakl2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp2(i * 2) = VAL("&H" + a1$) <br />znakp2(i * 2 - 1) = VAL("&H" + a2$) <br />znakl2(i * 2) = VAL("&H" + a3$) <br />znakl2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "00000B00","0B000000","0000000B","000B0000" <br />DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000" <br />DATA "0000000B","00000B07","070B0000","0B000000" <br />DATA "0000000B","00000700","00070000","0B000000" <br />DATA "00000707","00000000","00000000","07070000" <br /> <br />REM ************************************ FAZA 3 <br /> <br /> znakp3(0) = &H100040 <br /> znakl3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp3(i * 2) = VAL("&H" + a1$) <br />znakp3(i * 2 - 1) = VAL("&H" + a2$) <br />znakl3(i * 2) = VAL("&H" + a3$) <br />znakl3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070700","0007070B","0B0B0000" <br />DATA "00000000","0B000700","0007000B","00000000" <br />DATA "00000000","0B000000","0000000B","00000000" <br />DATA "00000007","07070000","00000707","07000000" <br /> <br /> <br />REM ************************ FAZA 4 <br /> <br /> znakp4(0) = &H100040 <br /> znakl4(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp4(i * 2) = VAL("&H" + a1$) <br />znakp4(i * 2 - 1) = VAL("&H" + a2$) <br />znakl4(i * 2) = VAL("&H" + a3$) <br />znakl4(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","07000000","00000007","0B0B0000" <br />DATA "00000707","0B000000","0000000B","07070000" <br />DATA "00000000","000B0000","00000B00","00000000" <br />DATA "00000000","07070700","00070707","00000000" <br /> <br /> <br /> <br /> <br />FOR i = 1 TO 30 <br />PUT (50, 20), znakp1, PSET <br />PUT (100, 20), znakl1, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp2, PSET <br />PUT (100, 40), znakl2, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp3, PSET <br />PUT (100, 60), znakl3, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp4, PSET <br />PUT (100, 80), znakl4, PSET <br />FOR j = 1 TO 5000: NEXT j <br /> <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 23:27, 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">Pięciostopniowa animacja- ludzi przebiera nogami: <br /> <br /> <br />SCREEN 13 <br />DIM znakp(0 TO 32) AS LONG <br />DIM znakl(0 TO 32) AS LONG <br /> <br /> znakp(0) = &H100040 <br /> znakl(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp(i * 2) = VAL("&H" + a1$) <br />znakp(i * 2 - 1) = VAL("&H" + a2$) <br />znakl(i * 2) = VAL("&H" + a3$) <br />znakl(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "00000707","00070707","07070700","07070000" <br /> <br />DIM znakp2(0 TO 32) AS LONG <br />DIM znakl2(0 TO 32) AS LONG <br /> <br /> znakp2(0) = &H100040 <br /> znakl2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp2(i * 2) = VAL("&H" + a1$) <br />znakp2(i * 2 - 1) = VAL("&H" + a2$) <br />znakl2(i * 2) = VAL("&H" + a3$) <br />znakl2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "00000B00","0B000000","0000000B","000B0000" <br />DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000" <br />DATA "0000000B","00000B07","070B0000","0B000000" <br />DATA "0000000B","00000700","00070000","0B000000" <br />DATA "00000707","00000000","00000000","07070000" <br /> <br /> <br />DIM znakp3(0 TO 32) AS LONG <br />DIM znakl3(0 TO 32) AS LONG <br /> <br /> znakp3(0) = &H100040 <br /> znakl3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp3(i * 2) = VAL("&H" + a1$) <br />znakp3(i * 2 - 1) = VAL("&H" + a2$) <br />znakl3(i * 2) = VAL("&H" + a3$) <br />znakl3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070700","0007070B","0B0B0000" <br />DATA "00000000","0B000700","0007000B","00000000" <br />DATA "00000000","0B000000","0000000B","00000000" <br />DATA "00000007","07070000","00000707","07000000" <br /> <br /> <br />DIM znakp4(0 TO 32) AS LONG <br />DIM znakl4(0 TO 32) AS LONG <br /> <br /> znakp4(0) = &H100040 <br /> znakl4(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp4(i * 2) = VAL("&H" + a1$) <br />znakp4(i * 2 - 1) = VAL("&H" + a2$) <br />znakl4(i * 2) = VAL("&H" + a3$) <br />znakl4(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070000","0000070B","0B0B0000" <br />DATA "00000000","07070000","00000707","00000000" <br />DATA "00000000","000B0000","00000B00","00000000" <br />DATA "00000000","07070700","00070707","00000000" <br /> <br /> <br />DIM znakp5(0 TO 32) AS LONG <br />DIM znakl5(0 TO 32) AS LONG <br /> <br /> znakp5(0) = &H100040 <br /> znakl5(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp5(i * 2) = VAL("&H" + a1$) <br />znakp5(i * 2 - 1) = VAL("&H" + a2$) <br />znakl5(i * 2) = VAL("&H" + a3$) <br />znakl5(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","07000000","00000007","0B0B0000" <br />DATA "00000707","0B000000","0000000B","07070000" <br />DATA "00000000","000B0000","00000B00","00000000" <br />DATA "00000000","07070700","00070707","00000000" <br /> <br /> <br /> <br /> <br />FOR i = 1 TO 30 <br />PUT (50, 20), znakp, PSET <br />PUT (100, 20), znakl, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp2, PSET <br />PUT (100, 40), znakl2, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp3, PSET <br />PUT (100, 60), znakl3, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 20), znakp4, PSET <br />PUT (100, 80), znakl4, PSET <br />FOR j = 1 TO 5000: NEXT j <br /> <br />PUT (50, 20), znakp5, PSET <br />PUT (100, 100), znakl5, PSET <br />FOR j = 1 TO 5000: NEXT j <br /> <br /> <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 23:12, 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żej programik, który pokazuje kolejny etap rozwoju małej animacji. <br />Trzy fazy przebierania nogami ludzika: <br /> <br />----------------------------------------------------------------- <br /> <br /> <br />SCREEN 13 <br />DIM znakp(0 TO 32) AS LONG <br />DIM znakl(0 TO 32) AS LONG <br /> <br /> znakp(0) = &H100040 <br /> znakl(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp(i * 2) = VAL("&H" + a1$) <br />znakp(i * 2 - 1) = VAL("&H" + a2$) <br />znakl(i * 2) = VAL("&H" + a3$) <br />znakl(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","000B0000","00000B00","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "00000707","00070707","07070700","07070000" <br /> <br />DIM znakp2(0 TO 32) AS LONG <br />DIM znakl2(0 TO 32) AS LONG <br /> <br /> znakp2(0) = &H100040 <br /> znakl2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp2(i * 2) = VAL("&H" + a1$) <br />znakp2(i * 2 - 1) = VAL("&H" + a2$) <br />znakl2(i * 2) = VAL("&H" + a3$) <br />znakl2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000" <br />DATA "0000000B","00000B07","070B0000","0B000000" <br />DATA "0000000B","00000700","00070000","0B000000" <br />DATA "00000707","00000000","00000000","07070000" <br /> <br /> <br />DIM znakp3(0 TO 32) AS LONG <br />DIM znakl3(0 TO 32) AS LONG <br /> <br /> znakp3(0) = &H100040 <br /> znakl3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp3(i * 2) = VAL("&H" + a1$) <br />znakp3(i * 2 - 1) = VAL("&H" + a2$) <br />znakl3(i * 2) = VAL("&H" + a3$) <br />znakl3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070700","0007070B","0B0B0000" <br />DATA "00000000","0B000700","0007000B","00000000" <br />DATA "00000000","0B000000","0000000B","00000000" <br />DATA "00000007","07070000","00000707","07000000" <br /> <br /> <br /> <br />FOR i = 1 TO 30 <br />PUT (50, 100), znakp, PSET <br />PUT (100, 100), znakl, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 100), znakp2, PSET <br />PUT (100, 100), znakl2, PSET <br />FOR j = 1 TO 5000: NEXT j <br />PUT (50, 100), znakp3, PSET <br />PUT (100, 100), znakl3, PSET <br />FOR j = 1 TO 5000: NEXT j <br /> <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 22:50, 10 Sty 2021<span class="gen"> </span> Temat postu: Animacja w QuickBasic</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">[b]Animacja w QuickBasic[/b] <br /> <br />Poniższy programik to dopiero wstęp do stworzenia małej animacji. <br />Ludzik w dwóch wariantach, idący w lewo lub w prawo. <br /> <br />Dla ułatwienia, oba warianty kodowane są jednocześnie i umieszczone obok siebie w ciągach danych DATA. <br /> <br /> <br />SCREEN 13 <br />DIM znakp(0 TO 32) AS LONG <br />DIM znakl(0 TO 32) AS LONG <br /> <br />znakp(0) = &H100040 <br />znakl(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />znakp(i * 2) = VAL("&H" + a1$) <br />znakp(i * 2 - 1) = VAL("&H" + a2$) <br />znakl(i * 2) = VAL("&H" + a3$) <br />znakl(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","000B0000","00000B00","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "00000707","00070707","07070700","07070000" <br />PUT (50, 50), znakp <br />PUT (100, 50), znakl</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