BubaPopandopulo
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно эти программки пригодятся какому-нибудь учителю информатики при обучении школьников бейсику. Правда они для предка VB написаны, но переделать, если понравятся, несложно (у меня VB нет - не покупал).
c1 = 0
a$ = "▒░▓"
SCREEN 13
CLS
FOR j = 1 TO 4
FOR i = 1 TO 32
c1 = c1 + 1
REM SLEEP (1)
COLOR c1
s = 18 * RND(2) + j
LOCATE s, i + j
PRINT a$
NEXT i
SLEEP (1)
NEXT j
c1 = 0: k = 1
SCREEN 13
CLS
FOR j = 1 TO 100
FOR i = 1 TO 270
c1 = c1 + 1
REM SLEEP (1)
IF c1 > 240 THEN c1 = 1
COLOR c1
s = 240 * RND(2) + j
PSET (s, i + j - k), c1
NEXT i
k = k + 2
REM SLEEP (1)
NEXT j
c1 = 0: k = 1
SCREEN 13
CLS
FOR j = 15 TO 100
FOR i = 15 TO 300
c1 = c1 + 1
REM SLEEP (1)
IF c1 > 240 THEN c1 = 1
COLOR c1
s = 210 * RND(j) + j
ss = 15 - 29 * RND(i)
sss = 15 - 29 * RND(i)
LINE (s, i + j - k)-(s + ss, i + j - k - sss), c1
REM PSET (s, i + j - k), c1
NEXT i
k = k + 2
SLEEP (1)
NEXT j |
