Вниз  MobPascal
- 24.08.2011 / 15:41
P@bloid
  Пользователь

P@bloid 
Сейчас: Offline
Naik, возможно это баг компилятора. дай скомпиленный класс
Пост #94291 - и не будет, условие проверяется сразу после вывода helloworld, и естественно является ложным

Изменено P@bloid (24.08 / 15:42) (всего 1 раз)
- 24.08.2011 / 22:08
Naik
  Пользователь

Naik 
Сейчас: Offline
Вот сама программа, исходник и непреверифецированный класс


Прикрепленные файлы:
MegaBALL_jar.rename (55.26 кб.) Скачано 269 раз
MegaBALL.mpas (3.31 кб.) Скачано 894 раза
FW.class (3.88 кб.) Скачано 568 раз
- 25.08.2011 / 20:44
kiriman
  Пользователь

kiriman 
Сейчас: Offline
http://mobilepascal.ru/load/47-1-0-100
Не плохой учебник :)
- 25.08.2011 / 20:55
Naik
  Пользователь

Naik 
Сейчас: Offline
kiriman, Можешь в *.tхt конвертировать и выложить сюда? (я с телефона в Интернете)
- 25.08.2011 / 21:08
Алиев
  Пользователь

Алиев 
Сейчас: Offline
Как спрайты использовать?
- 25.08.2011 / 23:12
Naik
  Пользователь

Naik 
Сейчас: Offline
Алиев, Какие спрайты?
- 25.08.2011 / 23:16
P@bloid
  Пользователь

P@bloid 
Сейчас: Offline
Naik, нашел. Это баг. Пиши имена процедур в нижнем регистре.
Я это исправлю, как найду исходники свежие.
- 25.08.2011 / 23:44
Naik
  Пользователь

Naik 
Сейчас: Offline
И еще если писать по-русски, и сохранить код, а затем открыть его, то русские буквы заменяются вопросительными знаками. Можно еще сделать переход к заданной строке. Например нажимаешь # и попадаешь в поле ввода.
- 30.08.2011 / 04:18
Dabann
  Пользователь

Dabann 
Сейчас: Offline
P@bloid, Help me please:)
В чем тут ошибка?
  1. program touchTest;
  2. uses sensor;
  3. var
  4. px,py,w,h,x,y,loop: integer;
  5. begin
  6. sensor.init;
  7. w:=getWidth;
  8. h:=getHeight;
  9. loop:=1;
  10. x:=random(w-32);
  11. y:=random(h-32);
  12. while loop=1 do
  13. begin
  14. setcolor(255,255,255);
  15. fillrect(0,0,w,h);
  16. setcolor(0,0,0);
  17. fillrect(x,y,32,32);
  18. px:=sensor.pointer_pressed_x;
  19. py:=sensor.pointer_pressed_y;
  20. if px>x and py>y and px<(x+32) and py<(y+32) then
  21. begin
  22. x:=random(w-32);
  23. y:=random(h-32);
  24. end;
  25. drawtext('x:'+px,0,0);
  26. drawtext('y:'+py,0,25);
  27. repaint;
  28. end;
  29. end.
 
Должен рисоваться черный квадрат на белом фоне, по рандомным координатам. При касании его пальцем(на тачфоне, естественно), он перепрыгивает на другое место. Но квадрат не рисуется. Еще должны выводиться координаты точки, куда ткнул, но и их тоже нет. Просто белый экран! Либу подключил, вроде, правильно, пользуюсь ей как надо... ЧеЗаНах?:)
- 30.08.2011 / 14:09
Naik
  Пользователь

Naik 
Сейчас: Offline
Dabann, а я писал всегда fillRect, setColor, drawText. Разве это регистронезависимый язык программирования?
Наверх  Всего сообщений: 1221
Фильтровать сообщения
Поиск по теме
Файлы топика (97)