Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Эмулирование Радарного экрана Qbasic

Автор: En_t_end 13.5.2006, 19:15

Чисто ради интереса... Вопрос в следующем. Как заставить рандомно появлятся засвеченные обьекты за полосой "засветки" ?
Вот код:

Код


SCREEN 12
X0 = 640 / 2
Y0 = 480 / 2
10
U = 0
I = 472
WHILE I > 0
CLS
LINE (0, Y0)-(X0 * 2, Y0), 4
LINE (X0, 0)-(X0, Y0 * 2), 4
FOR T = 0 TO 10 STEP .09
LINE (X0 * COS(U) + X0 + T, X0 * SIN(U) + Y0 + T)-(X0, Y0), 10
PSET (RND(1) * X0 * 2, RND(1) * Y0 * 2), 10
NEXT T
CIRCLE (COS(U) * X0 + X0 + 10, X0 * SIN(U) + Y0 - 50), 5'RND(10)
U = U + .01
I = I - 1
'SLEEP 1
WEND

Добавлено @ 19:18
Вот как раз код "засветки" обьекта, нужно чтобы он появлялся максимально так, как в реале:
CIRCLE (COS(U) * X0 + X0 + 10, X0 * SIN(U) + Y0 - 50), 5'RND(10)
Потом подумываю сделать задержку, чтобы обьекты "светились" только некоторое кол-во времени и потом исчезали.