Вниз  Вопросы по MobileBasic
<< 1 ... 418 419 420 421 422 ... 954 >>
- 23.05.2012 / 09:42
#164965
MoonDX9
  Пользователь
MoonDX9 
Сейчас: Offline
Вот еще есть вариант генерации смайлов
10 CLS
15 DIM S$(8)
20 DIM D$(12)
25 Q%=4+mod(rnd(0),4)
30 W%=6+MOD(RND(0),6)
35 FOR I%=1 TO 8
40 READ A$
45 S$(I%)=A$
50 NEXT I%
55 DATA ":",";",">","<","=","%","8","B"
60 FOR I%=1 TO 12
65 READ B$
70 D$(I%)=B$
75 NEXT I%
80 DATA "D",")","(","P",">","<","[",")","*","/","O","0"
84 CLS
85 DRAWSTRING "Смайл "+S$(Q%)+"-"+D$(W%),0,0
90 IF FIRE(0) THEN GOTO 10
100 if UP(0) THEN END
110 GOTO 84
Изменено MoonDX9 (23.05 / 09:44) (всего 1 раз)
- 23.05.2012 / 10:06
#164966
MoonDX9
  Пользователь
MoonDX9 
Сейчас: Offline
IgRoman95,
Код не работал потому что ты в условии добавлял еще условие if q%=1 then e$=a$:if q%=2 then e$=s$ а надо было писать так 60 if q%=1 then e$=a$
61 if q%=2 then e$=s$
  1. 10 CLS
  2. 20 A$=":":S$=";":D$=">":F$="<":G$="=":H$="%":J$="8":K$="B"
  3. 30 Z$="D":X$=")":C$="(":V$="P":B$=">":N$="<":M$="[":Z1$=")":X1$="*":C1$="/":V1$="O":B1$="0"
  4. 40 q%=4+mod(rnd(0),4)
  5. 50 W%=6+MOD(RND(0),6)
  6. 60 if q%=1 then e$=a$
  7. 61 if q%=2 then e$=s$
  8. 62 if q%=3 then e$=d$
  9. 63 if q%=4 then e$=f$
  10. 63 if q%=5 then e$=g$
  11. 64 if q%=6 then e$=h$
  12. 65 if q%=7 then e$=j$
  13. 66 if q%=8 then e$=k$
  14. 70 if w%=1 then r$=z$
  15. 71 if w%=2 then r$=x$
  16. 72 if w%=3 then r$=c$
  17. 73 if w%=4 then r$=v$
  18. 74 if w%=5 then r$=b$
  19. 75 if w%=6 then r$=n$
  20. 76 if w%=7 then r$=m$
  21. 77 if w%=8 then r$=z1$
  22. 78 if w%=9 then r$=x1$
  23. 79 if w%=10 then r$=c1$
  24. 80 if w%=11 then r$=v1$
  25. 81 if w%=12 then r$=b1$
  26. 80 drawstring "Cмaйлик: "+e$+"-"+r$,0,0
  27. 90 if fire(0) then goto 10
  28. 100 if up(0) then end
  29. 110 GOTO 90

Изменено MoonDX9 (23.05 / 10:09) (всего 1 раз)
- 23.05.2012 / 10:29
#164970
limil
  Пользователь
limil 
Сейчас: Offline
MoonDX9 (23.05.2012/10:06)
IgRoman95, Код не работал потому что ты в условии добавлял еще условие if q%=1 then e$=a$:if q%=2 then e$=s$ а надо было писать так 60 if q%=1 then e$=a$61 if q%=2 then e$=s$10 CLS20 A$=":":S$=";":-D$=для комповского бейса это не проблема
- 23.05.2012 / 13:13
#164985
samson9632
  Пользователь
samson9632 
Сейчас: Offline
MoonDX9, a про переменную прокрутки можно поподробнее
И, да прокрутка должна быть в обе стороны
Изменено samson9632 (23.05 / 13:15) (всего 1 раз)
- 24.05.2012 / 14:23
#165198
Maksi_m
  Пользователь
Maksi_m 
Сейчас: Offline
Всем привет!
Как сделать чтобы программа была на весь экран?
Я загружаю картинку 240х320, вывожу на экран (координаты 1,1) а загружает только половину картинк.
Помогите пожалуйста! :?
- 24.05.2012 / 15:03
#165203
MoonDX9
  Пользователь
MoonDX9 
Сейчас: Offline
Maksi_m, кинь кусок кода разберемся :)
- 24.05.2012 / 15:13
#165205
Maksi_m
  Пользователь
Maksi_m 
Сейчас: Offline
MoonDX9, Код такой:
10 SLEEP 1
20 GELLOAD "brend","/brend.png":-DRAWGEL "brend",1,1
30 SLEEP 3000
40 GELLOAD "sound","/sound.png":-DRAWGEL "sound",1,1
50
- 24.05.2012 / 20:04
#165262
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Maksi_m, Выводи 0,0.И ты уверен что картинки 240х320?
- 24.05.2012 / 20:17
#165266
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
Maksi_m (24.05.2012/14:23)
Всем привет!Как сделать чтобы программа была на весь экран?Я загружаю картинку 240х320, вывожу на экран (координаты 1,1) а загружает только половину картинк.Помогите пожалуйста! :?У тебя размер экрана видимо меньше,чем размер картинки. В таком случае надо изменить размер изображения,чтобы он соответствовал размеру экрана.
Изменено Dimonik (24.05 / 20:21) (всего 1 раз)
- 24.05.2012 / 21:17
#165290
Maksi_m
  Пользователь
Maksi_m 
Сейчас: Offline
Dimonik, Да у меня размер экрана такой же как и 240-320.
Сейчас все в порядке, скачал другую версию.
А как сделать цветное меню, ну типа с анимацией, и шрифтами?
<< 1 ... 418 419 420 421 422 ... 954 >>
Наверх  Всего сообщений: 9538
Фильтровать сообщения
Поиск по теме
Файлы топика (270)