Forum.iFiction.Ru

iFiction.Ru · ifHub · FAQ · IFWiki · QSP · URQ · INSTEAD · AXMA

форум об interactive fiction, текстовых приключенческих играх и всём таком...

Вы не зашли.

0    0    #1
09.02.2002 13:38

ZyXEL
Участник
Откуда: Moscow, Russia
Зарегистрирован: 23.06.2001
Сообщений: 194

-------

Нужен QBASIC

Возникла у меня одна просьба: у кого-нибудь есть QBASIC 4.5 или QBASIC 7.1 (неважно, русский или анг.)?
Просто у меня они есть, но в 4.5 в окне пользователя не печатается русская буква "р", а в 7.1 всё работает, но недостёт каких-то файлов для создания *.exe

У кого есть - напишите, а у кого нет - посоветуйте :-)

Неактивен

0    0    #2
06.06.2006 01:03

nake
Участник
Зарегистрирован: 04.06.2006
Сообщений: 2

Re: Нужен QBASIC

Здравствуйте! smile
Вот в этом коде надо исправить REM 9, чтобы наклонная прямая двигалась из левого в правый угол (экран 320 (по горизонтали) на 200 (по вертикали))

См рисунокhttp://yaponiyafudzi.4bb.ru/uploads/yaponiyafudzi/image_2_Dvijenie.GIF

Код:

SCREEN 7
COLOR 2, 14

REM 1
FOR X = 160 TO 320 STEP 3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 2
FOR X = 320 TO 160 STEP -3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 3
FOR Y = 100 TO 200 STEP 3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 4
FOR Y = 200 TO 100 STEP -3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 5
FOR X = 160 TO 320 STEP 1
LINE (X, 100)-(X + 40, 60), 2
FOR T = 1 TO 10000
NEXT T
LINE (X, 100)-(X + 40, 60), 0
NEXT X

REM 6
FOR X = 320 TO 180 STEP -1
LINE (X - 40, 60)-(X, 100), 2, BF
FOR T = 1 TO 10000
NEXT T
LINE (X - 40, 60)-(X, 100), 0, BF
NEXT X

REM 7
FOR Y = 100 TO 200 STEP 1
CIRCLE (160, Y), 30, 2
FOR T = 1 TO 10000
NEXT T
CIRCLE (160, Y), 30, 0
NEXT Y

REM 8
FOR Y = 200 TO 100 STEP -1
CIRCLE (160, Y), 30, 2, 170 * 3.14 / 180, 10 * 3.14 / 180
FOR T = 1 TO 10000

REM 9
FOR Y = 50 TO 200 STEP 1
LINE (0, Y)-(50, Y - 50), 2
FOR T = 1 TO 10000
NEXT T
LINE (0, Y)-(50, Y - 50), 2
NEXT Y

Неактивен

0    0    #3
07.06.2006 11:43

nake
Участник
Зарегистрирован: 04.06.2006
Сообщений: 2

Re: Нужен QBASIC

Уже не надо!
REM 9
Y = 50
FOR X = 0 TO 320 STEP 1
    LINE (X, Y)-(X + 50, Y - 50), 2
    FOR T = 1 TO 10000
    NEXT T
    LINE (X, Y)-(X + 50, Y - 50), 0
    Y = Y + .625
NEXT X

Неактивен

Powered by PunBB
© copyright 2001–2024 iFiction.Ru