Hовi команди системи Turbo-Basic, Детальна інформація

Hовi команди системи Turbo-Basic
Тип документу: Реферат
Сторінок: 22
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 20.9
Скачувань: 1526
'----------------------------

SCREEN 2 : CLS

VIEW

WINDOW (-10, -10) - (110, 110)

FOR I = 1 TO 100

X = 100 SYMBOL 42 \f "Symbol" RND(1) : Y = 100 SYMBOL 42 \f "Symbol" RND(1) : R = 5 SYMBOL 42 \f "Symbol" RND(1)

CIRCLE (X, Y), R

NEXT I

END

'НОТИ

'----------

5 CLS

LOCATE 1, 1: PRINT "--------- СI (B)"

LOCATE 2, 1: PRINT "--------- ЛЯ (A)"

LOCATE 3, 1: PRINT "--------- СОЛЬ (G)"

LOCATE 4, 1: PRINT "--------- ФА (F)"

LOCATE 5, 1: PRINT "--------- МI (E)"

LOCATE 6, 1: PRINT "--------- РЕ (D)"

LOCATE 7, 1: PRINT "--------- ДО (C)"

LOCATE 9, 1: PRINT " Вихiд (Q)"

PLAY "O2"

10 W$ = INKEY$: IF W$ = "" THEN GOTO 10

IF W$="B" OR W$="b" THEN LOCATE 1,5: PRINT "O": PLAY "B2": GOTO 5

IF W$="A" OR W$="a" THEN LOCATE 2,5: PRINT "O": PLAY "A2": GOTO 5

IF W$="G" OR W$="g" THEN LOCATE 3,5: PRINT "O": PLAY "G2": GOTO 5

IF W$="F" OR W$="f" THEN LOCATE 4,5: PRINT "O": PLAY "F2": GOTO 5

IF W$="E" OR W$="e" THEN LOCATE 5,5: PRINT "O": PLAY "E2": GOTO 5

IF W$="D" OR \x2457\x223D\x2264\x5420\x4548\x204E\x4F4C\x4143\x4554\x3620\x352C›\x5250\x4E49\x2054\x4F22\x3A22\x5020\x414C\x2059\x4422\x2232›\x4F47\x4F54\x3520\x090D\x4649\x5720\x3D24\x4322•\x524F\x5720\x3D24\x6322•\x4854\x4E45\x4C20\x434F\x5441\x2045\x2C37\x3A35\x5020\x4952\x544E\x2220\x224F›\x4C50\x5941\x2220\x3243\x3A22\x4720\x544F\x204F\x0D35\x4909\x2046\x2457\x223D\x2251\x4F20\x2052\x2457\x223D\x2271\x5420\x4548\x204E\x4E45\x0D44\x0909\x4542\x5045›\x4F47\x4F54\x3120\x0D30

'МУЗИКАЛЬНI МЕЛОДIЇ

'----------------------------------

The online video editor trusted by teams to make professional video in minutes