FreeBasic
Главная
Вход
Регистрация
Среда, 07.12.2022, 19:50Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Исходные тексты от Mad Max на языке QuickBasic (Исходные тексты от Mad Max на языке QuickBasic)
Исходные тексты от Mad Max на языке QuickBasic
haavДата: Пятница, 15.06.2012, 08:24 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: 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



Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Исходные тексты от Mad Max на языке QuickBasic (Исходные тексты от Mad Max на языке QuickBasic)
  • Страница 1 из 1
  • 1
Поиск: