|
Исходные тексты от Mad Max на языке QuickBasic
|
|
| haav | Дата: Пятница, 15.06.2012, 08:24 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| Исходные тексты от Mad Max на языке QuickBasic
Данные исходники без проблем компилируются на FreeBasic, добавил лишь макрос для устаревшего языка. Скачать оригинал можете с сайта автора:
http://www.maxarea.narod.ru/text/content.htm
Броуновское движение
Code
#Lang "qb"
SCREEN 9 'Ўа®г®ўбЄ®Ґ
3 CLS
67 x = x + 2 * RND(1) - 1
IF INKEY$ = "1" THEN GOTO 3
IF x < 10 THEN x = 10
IF x > 600 THEN x = 600
y = y + 2 * RND(1) - 1
IF y < 10 THEN y = 10
IF y > 300 THEN y = 300
CIRCLE (0 + x, 0 + y), .4, 11
PAINT (0 + x, 0 + y), 11
'CIRCLE (0 + x, 0 + y), 0.4, 0
'PAINT (0 + x, 0 + y), 0
GOTO 67
Часы
Code #Lang "qb"
SCREEN 9 'з бл
COLOR 15, 1
first = 1
INPUT "input hours ", hour
INPUT "input minutes ", min
IF hour > 12 THEN hour = hour - 12
CLS
ox = 240
oy = 180
r = 160
rm = 145
rh = 100
rm0 = 170
gradhour = -90 + 360 / 12 * hour + 30 / 60 * min
dhour = 0
FOR gradmin = -90 TO 270 STEP 6 'аЁб㥬 в®зЄЁ ¬Ёгв
ym = INT(56 / 70 * INT(rm0 * SIN(3.1415926# / 180 * gradmin)))
xm = INT(rm0 * SQR(1 - (SIN(3.1415926# / 180 * gradmin) ^ 2)))
IF gradmin > 90 AND gradmin < 270 THEN xm = -xm
xm = 310 + xm
ym = 180 + ym
CIRCLE (xm, ym), 2, 15
PAINT (xm, ym), 15, 15
NEXT gradmin
FOR gradmin = -90 TO 270 STEP 30 'аЁб㥬 в®зЄЁ з б®ў
ym = INT(56 / 70 * INT(rm0 * SIN(3.1415926# / 180 * gradmin)))
xm = INT(rm0 * SQR(1 - (SIN(3.1415926# / 180 * gradmin) ^ 2)))
IF gradmin > 90 AND gradmin < 270 THEN xm = -xm
xm = 310 + xm
ym = 180 + ym
CIRCLE (xm, ym), 6, 10
PAINT (xm, ym), 10, 10
NEXT gradmin
'
DO
FOR gradmin = -90 TO 270 STEP 6
IF first = 1 THEN
first = 0
gradmin = -90 + 360 / 60 * min
END IF
yh = INT(56 / 70 * INT(rh * SIN(3.1415926# / 180 * gradhour)))
xh = INT(rh * SQR(1 - (SIN(3.1415926# / 180 * gradhour) ^ 2)))
IF gradhour > 90 AND gradhour < 270 THEN xh = -xh
xh = 310 + xh
yh = 180 + yh
ym = INT(56 / 70 * INT(rm * SIN(3.1415926# / 180 * gradmin)))
xm = INT(rm * SQR(1 - (SIN(3.1415926# / 180 * gradmin) ^ 2)))
IF gradmin > 90 AND gradmin < 270 THEN xm = -xm
xm = 310 + xm
ym = 180 + ym
FOR grad = -90 TO 270 STEP 6
y = INT(56 / 70 * INT(r * SIN(3.1415926# / 180 * grad)))
x = INT(r * SQR(1 - (SIN(3.1415926# / 180 * grad) ^ 2)))
IF grad > 90 AND grad < 270 THEN x = -x
x = 310 + x
y = 180 + y
LINE (310, 180)-(xh, yh), 14
LINE (310, 180)-(xm, ym), 14
CIRCLE (310, 180), 6, 14
LINE (310, 180)-(x, y), 12
CIRCLE (310, 180), 3, 12
BEEP
SLEEP 1
LINE (310, 180)-(x, y), 0
NEXT grad
LINE (310, 180)-(xm, ym), 0
dhour = dhour + 1
IF dhour = 2 THEN 'з б®ўго бв५Єг ¤ўЁЈ вм зҐаҐ§ 2 ¬Ё
gradhour = gradhour + 1
LINE (310, 180)-(xh, yh), 0
dhour = 0
IF gradhour >= 270 THEN gradhour = -90
END IF
NEXT gradmin
LOOP
END
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:24 | Сообщение # 2 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| Движение по кругу
Code #Lang "qb"
SCREEN 9 '¤ўЁ¦ҐЁҐ Ї® ЄагЈг
CLS
ox = 230
oy = 180
r = 40
DO
FOR y = oy - r TO oy + r
x = INT(SQR(r ^ 2 - (oy - y) ^ 2))
x = ox - x
PSET (x, y), 15
FOR i = 1 TO 10000
NEXT i
PSET (x, y), 0
NEXT y
FOR y = oy + r TO oy - r STEP -1
x = INT(SQR(r ^ 2 - (y - oy) ^ 2))
x = ox + x
PSET (x, y), 15
FOR i = 1 TO 10000
NEXT i
PSET (x, y), 0
NEXT y
LOOP
END
Рандомное переливание символов
Code #Lang "qb"
SCREEN 0'нЄа ў бЁ¬ў®« е
CLS
RANDOMIZE TIMER
WIDTH 40
11 x$ = CHR$(INT(1 + (RND * 255)))
a = 0
'c = 9 + INT(RND * 7)
DO
'IF a > INT(800 + RND * 701) THEN c = 0
IF a > 8000 THEN 11
c = 0 + INT(RND * 15)
LOCATE 1 + INT(RND * 22), 1 + INT(RND * 40)
COLOR c: PRINT x$'CHR$(INT(20 + (RND * 154))) 'x$
FOR t = 1 TO 200: NEXT t
a = a + 1
LOOP
То же , но анимация несколько другая
Code #Lang "qb"
SCREEN 0'нЄа ў бЁ¬ў®« е2
CLS
RANDOMIZE TIMER
WIDTH 40
col = 12
a = 1: b = 23: c = 1: d = 40: k = 1
56 x$ = CHR$(INT(1 + (RND * 254)))
FOR x = a TO b STEP k
FOR y = c TO d STEP k
FOR t = 1 TO 200: NEXT t
'IF a$(x, y) <> " " THEN
COLOR col: LOCATE x, y: PRINT x$ 'CHR$(220)
NEXT y
NEXT x
SWAP a, b
SWAP c, d
k = -k
col = INT(RND * 15)
'col = 9 + INT(RND * 7)
GOTO 56
END
11
a = 0
DO
IF a > INT(800 + RND * 701) THEN c = 0
IF a > 8000 THEN 11
LOCATE 1 + INT(RND * 22), 1 + INT(RND * 40)
COLOR c: PRINT x$'CHR$(INT(20 + (RND * 154))) 'x$
FOR t = 1 TO 200: NEXT t
a = a + 1
LOOP
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:26 | Сообщение # 3 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| Гирлянда
Code #Lang "qb"
REM ѓЁа«п¤
SCREEN 9
33 CLS
DIM d(400), f(400)
d(0) = 320
f(0) = 175
a = 1 + INT(RND * 15)
b = 1 + INT(RND * 15)
k = 4 + INT(RND * 13)
FOR i = 1 TO 360
k$ = INKEY$
IF k$ = "1" THEN GOTO 33
z = 6.2832 * i / 360
d(i) = 320 + 150 * SIN(5 * z) * COS(a * z)
f(i) = 175 + 150 * COS(5 * z) * SIN(b * z)
LINE (d(i - 1), f(i - 1))-(d(i) + k, f(i)), 11
LINE (d(i - 1) + k, f(i - 1))-(d(i) + k, f(i)), 11
FOR o = 1 TO 15000
NEXT o
NEXT i
FOR t = 1 TO 180
FOR i = 1 TO 360
c = 9 + INT(RND * 7)
IF i / 2 - t = 0 THEN GOTO 220
FOR o = 1 TO 100
NEXT o
k$ = INKEY$
IF k$ = "1" THEN GOTO 33
200 NEXT i
NEXT t
220 LINE (d(i), f(i))-(d(i) + k, f(i)), c
IF i > 360 THEN GOTO 33
GOTO 200
END
Глобус
Code #Lang "qb"
SCREEN 9'£«®¡ãá
CLS
COLOR 13
r = 150: x = .01: y = 1: n = .1
DO
'r = r + 10
z = 10000
col = 1 + INT(RND * 15)
CIRCLE (300, 150), r, col, , , 4
PAINT (300, 150), col
FOR i = y TO x STEP -.06
CIRCLE (300, 150), r, col, 0, 3, i
FOR t = 1 TO z: NEXT t
NEXT i
FOR i = x TO y STEP .06
CIRCLE (300, 150), r, col, 3, 0, i
FOR t = 1 TO z: NEXT t
NEXT i
z = 7000
FOR i = 1 TO 6 STEP .1
CIRCLE (300, 150), r, col, 4.9, 1.5, i
FOR t = 1 TO z: NEXT t
NEXT i
FOR i = 6 TO 1 STEP -.1
CIRCLE (300, 150), r, col, 1.5, 4.9, i
FOR t = 1 TO z: NEXT t
NEXT i
LOOP
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:27 | Сообщение # 4 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| HI
Code #Lang "qb"
SCREEN 9'Hi!
CLS
x = 300: y = 600: n = 15: s = 10: st = -15: s = 15: r = 5
1 IF INKEY$ <> "" THEN GOTO 45
c = 9 + INT(RND * 7)
FOR j = n TO x STEP s'20
FOR i = n TO y STEP s'22
CIRCLE (i, j), r, c
PAINT (i, j), 1 + INT(RND * 15), c
CIRCLE (y - (i - 15), 300 - (j - 15)), r, c
PAINT (y - (i - 15), 300 - (j - 15)), 1 + INT(RND * 15), c
GOSUB txt
IF INKEY$ <> "" THEN GOTO 45
NEXT i
NEXT j
FOR i = 15 TO 600 STEP s 'on right and left
FOR j = 15 TO 300 STEP s
CIRCLE (i, j), r, c
PAINT (i, j), 1 + INT(RND * 15), c
CIRCLE (610 - (i - 5), ABS((j - 15) - 300)), r, c
PAINT (610 - (i - 5), ABS((j - 15) - 300)), 1 + INT(RND * 15), c
GOSUB txt
IF INKEY$ <> "" THEN GOTO 45
NEXT j
NEXT i
FOR l = 10 TO 350
LINE (10, l)-(610, l), 0
LINE (10, 350 - l)-(610, 350 - l), 0
LINE (l, 10)-(l, 350), 0
LINE (620 - l, 10)-(620 - l, 350), 0
FOR t = 1 TO 1000
NEXT t
NEXT l
GOTO 1
txt:
LINE (100, 70)-(150, 250), 0, BF
LINE (200, 70)-(250, 250), 0, BF
LINE (100, 150)-(200, 200), 0, BF
LINE (320, 100)-(370, 130), 0, BF
LINE (320, 150)-(370, 250), 0, BF
LINE (440, 70)-(490, 200), 0, BF
LINE (440, 220)-(490, 250), 0, BF
RETURN
45 END
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:27 | Сообщение # 5 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| Кардиограмма
Code #Lang "qb"
SCREEN 9 'Є а¤Ё®Ја press "`" to refresh
CLS
RANDOMIZE TIMER
SLEEP 2
'IF INKEY$ = "1" THEN GOTO 6 ELSE END
6
67 i = 100: j = 100
a = 20: a1 = 620
a2 = 320: a3 = 20
CLS : s = RND * 10: di = RND * 10
r = 5 + RND * 16
c1 = 9 + INT(RND * 7): c2 = 9 + INT(RND * 7)
p = INT(RND * 8)
DO WHILE INKEY$ <> " "
IF s < 0 THEN c = c1 ELSE c = c2
CIRCLE (i, j), r, c
IF p = 5 OR p = 6 OR p = 7 THEN PAINT (i, j), c': LOCATE 1, 1: PRINT p
IF p > 7 THEN PAINT (i, j), 0': LOCATE 1, 1: PRINT p
IF j < a3 OR j > a2 THEN s = -s: 's = s / ABS(s) * (.2 + (RND * 1))
IF i < a OR i > a1 THEN di = -di: 'di =di / ABS(di) * (.2 + (RND * 1))
j = j + s
i = i + di
FOR t = 1 TO 500: NEXT t
IF INKEY$ = "`" THEN GOTO 67
h = h + 1
IF h = 15000 THEN h = 0: GOTO 67
LOOP
GOOD
Code #Lang "qb"
SCREEN 9 '¬ бив Ў
CLS
62 COLOR 9 + INT(RND * 7), 0
LOCATE 1, 1
PRINT " GOLD"
m = 1
h = 20 + INT(RND * 101)
11 m = m + .4
IF x > 1000 THEN x = 10: CLS : GOTO 62
FOR j = 0 TO 10
FOR i = 5 TO 45
x = i * m + h - 40
y = j * m + h
LINE (x, y)-(x + m - 10, y + m - 10), POINT(i, j), BF
NEXT i
NEXT j
GOTO 11
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:28 | Сообщение # 6 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| VICTORY
Code Dim As Short j,i,x,y,t,m,h,n=80
Screen 9
n = 80
Do
Color Int(Rnd*15), 0
Locate 1, 1
Print " VICTORY"
m = 11
h = 20
For j = 1 To 10
For i = 5 To 65
For t = 1 To 100
Next t
x = i * m + h - 88
y = j * m + h + n
Line (x, y)-(x + m - 10, y + m - 10), Point(i, j), BF
Next i
Next j
Sleep(30)
Loop Until MultiKey(1) 'Esc для выхода
ПИВО
Code #Lang "qb"
SCREEN 9 'samaya pervaya moya proga
PAINT (1, 1), 1, 2
LINE (250, 60)-(600, 220), 9, BF
COLOR 12
LOCATE 10, 48
PRINT "P I V O "
PAINT (270, 70), 9, 9
LINE (150, 135)-(230, 250), 2, BF
LINE (50, 190)-(150, 250), 2, BF
REM
CIRCLE (110, 250), 40, 1
PAINT (110, 250), 9, 1
REM
CIRCLE (110, 255), 35, 0
PAINT (110, 255), 0, 0
REM
LINE (160, 140)-(220, 185), 11, BF
LINE (240, 230)-(560, 240), 3, BF
CIRCLE (400, 255), 35, 0
PAINT (400, 255), 0, 0
CIRCLE (480, 255), 35, 0
PAINT (480, 255), 0, 0
CIRCLE (480, 255), 15, 3
PAINT (480, 255), 3, 3
CIRCLE (400, 255), 15, 3
PAINT (400, 255), 3, 3
CIRCLE (110, 255), 15, 3
PAINT (110, 255), 3, 3
CIRCLE (480, 255), 35, 0
PAINT (480, 255), 0, 0
CIRCLE (480, 255), 15, 3
PAINT (480, 255), 3, 3
CIRCLE (400, 255), 15, 3
PAINT (400, 255), 3, 3
CIRCLE (110, 255), 15, 3
PAINT (110, 255), 3, 3
sleep
fuck
Code #Lang "qb" 23 SCREEN 9 'а бв殮ЁҐ-б¤ўЁЈ very glukavo <img src="http://s54.ucoz.net/sm/1/smile.gif" border="0" align="absmiddle" alt="smile" /> 45 CLS RANDOMIZE TIMER LOCATE 1, 1 PRINT " fuck!" m = 5 4 t = t + .1 k = 1 + INT(RND * 2) s = 1 + INT(RND * 5) FOR j = 0 TO 10 FOR i = 5 TO 50 IF INKEY$ = "1" THEN GOTO 45 x = i * m * k + 20 - j * s y = j * m + 20 LINE (x, y)-(x + m * k - 1, y + m - 1), POINT(i, j), BF NEXT i NEXT j GOTO 4 END
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:29 | Сообщение # 7 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| Просто анимация
Code #Lang "qb"
SCREEN 9 'бг¦ ой. Єў ¤а в
CLS
1 x = 0: y = 0: x1 = 0: y1 = 300: x2 = 300
z = 0: s = 50: z1 = 300: s1 = 50
c = 1 + INT(RND * 15): c1 = 1 + INT(RND * 15)
FOR i = x TO x2
LINE (i, y)-(i, y1), c
LINE (i - 1, y)-(i - 1, y1), 0
LINE (z, i)-(z1, i), c1
LINE (z, i - 1)-(z1, i - 1), 0
IF i = 150 THEN SWAP c, c1
LINE (x2 - i, y)-(x2 - i, y1), c
LINE (x2 - i + 1, y)-(x2 - i + 1, y1), 0
LINE (z, x2 - i)-(z1, x2 - i), c1
LINE (z, x2 - i + 1)-(z1, x2 - i + 1), 0
FOR t = 1 TO 10000
NEXT t
NEXT i
LINE (0, 0)-(300, 300), 1 + INT(RND * 15), BF
GOTO 1
Витражи
Code #Lang "qb"
SCREEN 9 'ўЁва ¦Ё «ЁЁ бЄагз
1 CLS
RANDOMIZE TIMER
a = 1 + INT(RND * 25)
b = 1 + INT(RND * 25)
'PRINT a; b
DIM x(400), y(400)
x(0) = 320
y(0) = 175
col = 9 + INT(RND * 7)
FOR i = 1 TO 400 '360
k$ = INKEY$
IF k$ = "1" THEN GOTO 1
z = 6.2832 * i / 360
x(i) = 320 + 160 * SIN(5 * z) * COS(a * z)
y(i) = 175 + 160 * COS(5 * z) * SIN(b * z)
LINE (x(i - 1), y(i - 1))-(x(i), y(i)), col
FOR o = 1 TO 10000
NEXT o
NEXT i
GOTO 1
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
| haav | Дата: Пятница, 15.06.2012, 08:30 | Сообщение # 8 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1373
Статус: Offline
| WelCome
Code #Lang "qb"
SCREEN 0'ЇҐаҐ«Ёў п ¤ЇЁбм
RANDOMIZE TIMER
SLEEP 1
'IF INKEY$ = " " THEN
52 t = 0
a$ = "Ctr + Alt ... Ctr + POWER !!!"
2 n = 1 + INT(RND * 15)
FOR i = 1 TO LEN(a$)
FOR q = 1 TO 600
IF INKEY$ <> "" THEN 45
NEXT q
'n = 1 + INT(RND * 2)
'IF n = 1 THEN c = 0 ELSE c = 12
COLOR n
LOCATE 23, i + 15
PRINT MID$(a$, i, 1)
IF INKEY$ <> "" THEN 45
NEXT i
't = t + 1
a = a + 1
IF a = 120 THEN GOTO 45
'IF t = 40 THEN GOTO 23
GOTO 2
23 'a$ = "Ctr + Alt ... Ctr + POWER !!!"
87 n = 1 + INT(RND * 15)
FOR i = 1 TO LEN(a$)
FOR q = 1 TO 400
IF INKEY$ <> "" THEN 45
NEXT q
n = 1 + INT(RND * 2)
IF n = 1 THEN c = 0 ELSE c = 12
COLOR 1 + INT(RND * 15)'n
LOCATE 23, i + 15
PRINT MID$(a$, i, 1)
IF INKEY$ <> "" THEN 45
NEXT i
't = t + 1
a = a + 1
IF a = 120 THEN GOTO 45
'IF t = 80 THEN GOTO 52
GOTO 87
45 COLOR 9 + INT(RND * 7)
PRINT
COLOR 9 + INT(RND * 7): PRINT "°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°"
COLOR 9 + INT(RND * 7): PRINT "±±І НЛН Й» НЛН НЛНННЛ НЛН НЛНННЛ НЛНННЛН Й» Й» НЛННННЛ ЙНН» І±°"
COLOR 9 + INT(RND * 7): PRINT "І± є ЙјИ» є є є є є є єИ» Йјє є є є ±°"
COLOR 9 + INT(RND * 7): PRINT "Ы И» Йј И» Йј МНН№ є є є є Йј И» Йј И» МНН№ И»Йј °"
COLOR 9 + INT(RND * 7): PRINT "І± єЙј И»є є є Л є Л є є є И»Йј є є Иј ±°"
COLOR 9 + INT(RND * 7): PRINT "±±І Иј Иј НКНННК НКНННј НКНННј НКНННКН НКН Иј НКН НКННННК Иј І±°"
COLOR 9 + INT(RND * 7): PRINT "°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°±ІЫІ±°"
SLEEP 1
'END IF
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
|
