Вниз  Исходники программ на Мobile Вasic
<< 1 2 3 4 ... 6 >>
- 21.07.2010 / 03:34
#18136
--HACK-87--
  Пользователь
--HACK-87-- 
Сейчас: Offline
Ещё пример: GEN.ICQ-bot
не из учебника.
[php]
- 5 cls
- 10 gen%=2+mod(rnd(0),3)
(генератор чисел от 0 до 5)
- 11 input"ввод:",you$
(задаёте вопросы,например-ты mobile basic?)
- 12 if gen%=0 then goto 100 (если генератор равняет к нулю то переход на строку 100)
- 13 if gen%=1 then goto 200
- 14 if gen%=2 then goto 300
- 15 if gen%=3 then goto 400
- 16 if gen%=4 then goto 500
- 17 if gen%=5 then goto 600
======================
  [/php]
Изменено --HACK-87-- (21.07 / 03:36) (всего 1 раз)
- 21.07.2010 / 03:43
#18137
--HACK-87--
  Пользователь
--HACK-87-- 
Сейчас: Offline
[php]
           вывод ответов:
- 100 print"ДА":sleep 500:goto 5
- 200 print"НЕТ":sleep 500:goto 5
- 300 print"НЕ ПОНЯЛ"
- 301 print"ВОПРОС!":sleep 500:goto 5
- 400 print"ПОВТОРИ":sleep 500:goto 5
- 500 print"НЕ ЗНАЮ!":sleep:goto 5
- 600 print"САМ ТАКОЙ":sleep 500:goto 5
[/php]
- 21.07.2010 / 12:30
#18253
FighteR
  Пользователь
FighteR 
Анализатор нажатих клавиш :)
  1. 1 if inkey(0) th gs 5
  2. 2 gt 1
  3. 5 for i%=1 to 9
  4. 6 if inkey(0)=48+i% th kl%=i%
  5. 7 next i%
  6. 8 if not inkey(0) th ret
  7. 9 gt 8
переменная кл% хранит цифру нажатой клавиши :) от 1 до 9 :)
Изменено FighteR (21.07 / 12:31) (всего 1 раз)
- 21.07.2010 / 14:29
#18279
RealknyZ
  Пользователь
RealknyZ 
Сейчас: Offline
Искривитель картинки, делал когдато чень давно
  1. 10 GELLOAD "1","1.png"
  2. 20 DRAWGEL "1",0,0
  3. 30 FOR I%=0 TO 176
  4. 40 G$=""+STR$(I%)
  5. 50 GELGRAB G$,I%,0,1,220
  6. 51 J%=0
  7. 60 SPRITEGEL G$,G$
  8. 70 NEXT I%
  9. 80 CLS
  10. 91 G$=""+STR$(J%)
  11. 100 SPRITEMOVE G$,J%,Y%
  12. 111 IF LEFT(0) THEN J%=J%-1
  13. 112 IF RIGHT(0) THEN J%=J%+1
  14. 113 IF J%<1 THEN J%=175
  15. 114 IF J%>176 THEN J%=0
  16. 120 IF UP(0) THEN Y%=Y%-1
  17. 121 IF DOWN(0) THEN Y%=Y%+1
  18. 122 IF GAMEA(0) THEN J%=J%-1:Y%=Y%-1
  19. 123 IF GAMEB(0) THEN J%=J%+1:Y%=Y%-1
  20. 124 IF GAMEC(0) THEN J%=J%-1:Y%=Y%

- 23.07.2010 / 08:29
#18527
--HACK-87--
  Пользователь
--HACK-87-- 
Сейчас: Offline
"ШИФРАТОР"
[php]
- 5 cls
- 10 input"слово:",f$
- 11 input"код:",c%
- 12 For x%=1 to Len(f$)
- 13 a$=MID$(f$,x%,1)
- 14 z%=ASC(a$)+c%
- 15 print chr$(z%)
- 17 NEXT x%
[/php]
- 23.07.2010 / 08:37
#18528
--HACK-87--
  Пользователь
--HACK-87-- 
Сейчас: Offline
В программе де-шифратор вводите зашифрованое слово и код зашифровки и вам выдаст,то слово которое зашифровали.
- 23.07.2010 / 08:44
#18529
--HACK-87--
  Пользователь
--HACK-87-- 
Сейчас: Offline
"ДЕ-ШИФРАТОР"
[php]
- 5 cls
- 10 input"слово-zs:",f$
- 11 input"код-zc",c%
- 12 For x%=1 to Len(f$)
- 13 a$=MID$(f$,x%,1)
- 14 z%=ASC(a$)-c%
- 15 print chr$(z%)
- 16 NEXT x%
[/php]
- 23.07.2010 / 14:22
#18545
Dmitriy
  Пользователь
Dmitriy 
Сейчас: Offline
Программа взломщег:
  1. -     5 cls
  2. -    10 input"слово-zs:",f$
  3. -    11 FOR c%=0 to 255
  4. -    12 For x%=1 to Len(f$)
  5. -    13 a$=MID$(f$,x%,1)
  6. -    14 z%=ASC(a$)-c%
  7. -    15 print chr$(z%)
  8. -    16 NEXT x%
  9. -    17 NEXT c%
Вам останеться только выбрать из предложенных 255 вариантов
нужный (это не так уж много)
- 10.08.2010 / 01:36
#21579
Dabann
  Пользователь
Dabann 
Сейчас: Offline
Переименуйте тему! Зайдя сюда, понадеялся увидеть настоящие исходники МВ, а тут исходники программ на МВ:)
- 5.02.2011 / 16:25
#48516
SaRmAt95
  Пользователь
SaRmAt95 
кому нужны исходники игры ping pong?(код мой на игру забил делать надоело) графа и звук в комплекте, если кому надо…
<< 1 2 3 4 ... 6 >>
Наверх  Всего сообщений: 53
Фильтровать сообщения
Поиск по теме
Файлы топика (7)