Веб программирование
В игровых автоматах Вулкан 24 вы можете играть в более чем 250 слотов

Miwnin. Проект на J2ME

 
 

Вот мой проект на J2ME. Это не просто уменьшенная копия windows, а там ещё можно писать программы под него, если открыть архиватором - то это файлы Main.script, Main2.script ...

Язык там напоминает смесь Turbo pascal и Visual basic 6.

Вот устройство файлов script:

  1. версия - пока ничего не делает
  2. иконка - икона для программы из архива приложения
  3. x - x окна
  4. y - y окна
  5. width - ширина окна
  6. height - высота окна
  7. название окна
  8. это как-бы можно менять кнопки в control box, например 111 - всё включено, 101 - нету кнопки разворачивания, и размеры окна нельзя менять, 011 - нету минимизировать, и никак нельзя свернуть окно
  9. количество кнопок - внимание! надо указывать правильно, если здесь будет 0 а вы создадите кнопку - то ничего не произойдёт
  10. количество текстовых полей
  11. количество scrollbar
  12. количество меток (label)
  13. количество картинок (image)
  14. количество таймеров

Дальше слово begin - оно ничего не делает пока, но думал пригодится

Теперь создаём нужные нам контролы, вот как это делать (примеры), это всё после begin:

Текстовое поле:

textcreate - создаём текстовое поле

0 - номер его (начинается с 0)

0 - x

0 - y

80 - width

100 - height

Текст - text


Кнопка:

buttoncreate

0 - номер

2 - x

52 - y

80 - width

15 - height

Ок - caption


ScrollBar:

scrollcreate

0 - номер

85 - x

0 - y

17 - width

100 - height

0 - min value

0 - max value

0 - value


Метка:

labelcreate

1 - номер

2 - x

69 - y

100 - width

15 - height


Картинка:

imagecreate

0 - номер

30 - x

2 - y

16 - width

14 - height

(Внимание! для картинки мы получается просто создаём пространство на форме. потом в коде можно рисовать в ней)


Таймер:

timercreate

0 - номер

3000 - interval

 

Всё, это пока все контролы. Перейдём к коду.

Код пока у меня состоит из одних событий. например:

sub frm.load

какой-то код

end sub

Этот код выполнится при загрузке формы

Внимание! end sub не такой строгий как в visual basic 6. я не сделал команду exit sub потому что можно просто сделать условие, и два раза прописать end sub. интерпретатор скрипта не ищет конец, а просто построчно выполняет команды пока не найдёт end sub. и программа легко может зациклиться! пока никакой защиты от ошибок в скриптах нету, проект ещё свежий. и так вот остальные:

sub tim.timer[0] - срабатывание таймера номер 0

sub lbl.click[0] - метка номер 0 клик

sub but.click[0] - кнопка

sub scr.scroll[0] - скроллинг scrollbar 0

sub tex.change[0] - вызывается после того, как пользователь нажал на текстовое поле, ввёл текст и нажал ок

это все события!

вот теперь самое главное - команды! как я сказал программа свежая, поэтому нету ещё переменных ((( но потом будут

set tex[0].text = lbl.caption[0] - присваивание

val(123) - можно писать вместо значений (например вместо lbl.caption[0]), возвращает просто текст в скобках

scr.maxvalue[0] - max value

tex.numlines[0] - количество линий в тексте (n)

calc # tex.text[0] + tex.text[1] = tex.text[2] - складываем значения 0 и 1 текстовых полей и ставим во 2. знак # означает складывать как числа, например в 1 - 10, а во 2 - 20, то будет 30. а если написать $ - строковое сложение (с этим знаком не писать -/*), то будет 1020

if $ tex.text[0] = val(5482) 5 - строковое сравнение если текст из 0 текстового поля равен 5482 - то продолжаем, иначе переходим на 5 строк вниз в коде, можно писать так же -5 и т.д.

Команды call (в аргументах пока нельзя писать значения контроллов, например tex.text[0]):

call start(Main.script) - запуск программы Main.script

call sound(msgerr.mid,1) - проиграть звук msgerr.mid 1 раз

call mouse(20,20) - перемещение мыши

call draw(1,0,ico.png,0,0,0) - рисование, 1 - тип (рисуем картинку), 0 - номер контролла картинки, ico.png - картинка из файлов, 0 - x, 0 - y, 0 - не менять, просто писать 0

call color(0,0,255,0) - смена цвета на красный в 0 картинке (номер, r, g, b)

call draw(2,0,0,0,10,10) - рисование линии, 2 - тип (линия), номер 0, 0 - x, 0 - y, 10 - x2, 10 - y2

Чтобы запустить программу в Minwin надо нажать пуск->выполнить и набрать например Main.script без "/" если в корне архива программы

Ладно, вот сама программа и исходники:

Скачать файл [1.1292 кб]

скриншоты:

1.

2.

3.

4.


Есть вопросы? Спроси на нашем форуме!!
zhozhek30 [07.10.2013 09:25]

А оно exe-шники читает?

zhozhek30 [07.10.2013 09:29]

И как пути указывать, или откуда именно оно их читает?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.