Vědět víc - vzdělávací portál pro zvídavé


Lab 4: Příkaz PSET

Slide

Uvedeme si příklad pro režim 1 a pro režim 9. Jako samostatnou činnost však vyzkoušejte i ostatní režimy, abyste podrobněji poznali rozdíly mezi nimi. 

Pro režim 1 napište následující program: 

10 SCREEN 1 
20 CLS:RANDOMIZE TIMER 
30 COLOR ,1 
40 FOR I=0 TO 5000 
50 PSET (INT(RND*319)+1,INT(RND*199)+1),INT(RND*4) 
60 NEXT I 
70 WHILE INKEY$="":WEND 
80 SCREEN 9 

V tomto příkladě věnujte pozornost řádku 30, kde můžeme přepnout paletu. Vyzkoušejte, jak bude obloha vypadat, pokud napíšete řádek 30 takto: 

30 COLOR ,2 

Čárka v příkazu COLOR je uvedena zdánlivě zbytečně, uvědomte si ale, že vynecháváme první parametr, který určuje barvu pozadí. Zkuste například toto: 

30 COLOR 1,1 

Pro režim 9 je program podobný. Vynecháme pouze nastavení palety (příkaz COLOR). Všimněte si úpravy souřadnic x , y a barvy. 

10 SCREEN 9 
20 CLS:RANDOMIZE TIMER 
40 FOR I=0 TO 5000 
50 PSET (INT(RND*639)+1,INT(RND*349)+1),INT(RND*16) 
60 NEXT I 
70 WHILE INKEY$="":WEND 
80 CLS