здравствуйте.
несколько месяцев назад игрался с PureBasic'ом, но из-за его проприетарности решил подыскать альтернативу, и в итоге наткнулся на FreeBasic. скачал сборку от haav'а версии 1.05, и посмотрел пару коротких туториалов по данному яп. в одном из них увидел реализацию простенькой консольной проги, где убирается курсор и хаотично появляются звёздочки разных цветов по всей консоли с помощью цикла. я скопипастил этот код, посмотрел и залип. решил сделать так, чтобы символами были не только звёздочки, но и точки. сделал это с помощью дополнительной случайной переменной и конструкции if/else проверял, больше рандомная переменная 0.5 или меньше, и в зависимости от этого ставил определённый символ (либо *, либо .). и оно заработало. вот этот код:
Код
Dim As Integer x, y, a
Locate(, , 0)
While InKey()=""
x = Rnd * 80
y = Rnd * 25
a = Rnd
Locate(y,x)
Color(Rnd * 15)
If a < 0.5 Then
? "*"
Else
? "."
EndIf
Wend
End
Спойлер
стоит ли говорить, что после запуска я опять залип? :-)решил, что двух символов мне мало, захотелось добавить третий - '. попробовал сделать это с помощью if/elseif/else, проверяя, больше "a" чем 0.33, 0.66 и 0.99, и в зависимости от выполнения данных условий выводилось либо *, либо ., либо ', либо пробел, если переменная никаким из этих трёх условий не соответствует... но что-то пошло не так и прога просто выводит одни пробелы:
Код
Dim As Integer x, y, a
Locate(, , 0)
While InKey()=""
x = Rnd * 80
y = Rnd * 25
a = Rnd
Locate(y,x)
Color(Rnd * 15)
If a > 0 And a < 0.33 Then
? "*"
ElseIf a > 0.33 And a < 0.66 Then
? "."
ElseIf a > 0.66 And a < 0.99 Then
? "'"
Else
? " "
EndIf
Wend
End
скажите пожалуйста, что не так с прогой? где я ошибся?
