Вниз  BASIC (QB & etc)
- 4.07.2015 / 23:37
Gifo_Gsoul
  Пользователь

Gifo_Gsoul 
Сейчас: Offline
ВитаминКО, Да, запусти бейсик в бейсике, в бейсике, в бейсике .... :hack:
__________________
 </Твой код отражает эволюцию твоего мышления .../>
- 27.03.2018 / 10:37
Витаминыч
  Супермодератор

Витаминыч 
Сейчас: Offline
  1. REM Концентрация 0%
  2. min = 0
  3. REM Концентрация 10%
  4. max = 10
  5.  
  6. REM Получение случайного значения от 0 до 10
  7. randomNum = INT(RND * (max - min + 1)) + min

К вопросу из гостевой
__________________
 わからない!!
- 19.07.2018 / 08:27
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
Я одно время писал на QBasic программы.
- 19.07.2018 / 09:21
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
исходники по QBasic https://cloud.mail.ru/public/C3mX/MDxcgYUuN (мертвая ссылка)

Изменено Витаминыч (2.11 / 11:27) (всего 1 раз)
- 14.09.2018 / 20:09
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
Нашел у себя в документах, 3D графика на QBASIC :)
Открыть спойлер


Изменено Magatino (14.09 / 21:36) (всего 2 раза)
- 17.09.2018 / 14:25
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
Перемещение смайлика по осям X, Y:

w - верх
s - вниз
a - влево
d - вправо

  1.   SCREEN 12
  2.  
  3. DIM Smile(100)
  4.  
  5. DATA 0,0,0,14,14,14,14,0,0,0
  6. DATA 0,0,14,14,14,14,14,14,0,0
  7. DATA 0,14,0,0,14,14,0,0,14,0
  8. DATA 14,14,0,0,14,14,0,0,14,14
  9. DATA 14,14,0,0,14,14,0,0,14,14
  10. DATA 14,14,14,14,14,14,14,14,14,14
  11. DATA 14,14,0,0,0,0,0,0,14,14
  12. DATA 0,14,14,0,0,0,0,14,14,0
  13. DATA 0,0,14,14,0,0,14,14,0,0
  14. DATA 0,0,0,14,14,14,14,0,0,0
  15.  
  16. FOR y = 0 TO 9: FOR x = 0 TO 9
  17.  
  18. READ c: PSET (x, y), c: NEXT x, y
  19.  
  20. GET (0, 0)-(9, 9), Smile
  21.  
  22. CLS : y = 220: x = 320: PUT (x, y), Smile
  23.  
  24. DO
  25.  
  26. k$ = INKEY$
  27.  
  28. IF k$ = "w" THEN PUT (x, y), Smile: y = y - 3: PUT (x, y), Smile
  29.  
  30. IF k$ = "s" THEN PUT (x, y), Smile: y = y + 3: PUT (x, y), Smile
  31.  
  32. IF k$ = "a" THEN PUT (x, y), Smile: x = x - 3: PUT (x, y), Smile
  33.  
  34. IF k$ = "d" THEN PUT (x, y), Smile: x = x + 3: PUT (x, y), Smile
  35.  
  36. LOOP


Изменено Vladimir1982 (17.09 / 14:33) (всего 2 раза)
- 17.09.2018 / 17:10
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
  1.   DO WHILE INKEY$ = ""
  2. SCREEN 13
  3. FOR i = 1 TO 100
  4. PSET (RND * 340, RND * 230), i
  5. FOR a = 1 TO 100
  6. PSET (RND * 350, RND * 340), 0
  7. NEXT a, i
  8. LOOP

- 17.09.2018 / 21:59
Витаминыч
  Супермодератор

Витаминыч 
Сейчас: Offline
Боже, вспомнилось, как я тупил с этими data и их считыванием... Такой гемор, что проще было в массив запихнуть :gg:
__________________
 わからない!!
- 18.09.2018 / 15:09
Vladimir1982
  Пользователь

Vladimir1982 
Сейчас: Offline
Цитата Витаминыч:
Боже, вспомнилось, как я тупил с этими data и их считыванием... Такой гемор, что проще было в массив запихнуть :gg:

Так там и есть массив.
- 19.09.2018 / 19:41
Витаминыч
  Супермодератор

Витаминыч 
Сейчас: Offline
Vladimir1982, Я про то, что я так никогда не записывал данные, сразу или в файл или в массив. Оператор data не использовал
__________________
 わからない!!
Наверх  Всего сообщений: 33
Фильтровать сообщения
Поиск по теме