Авторизироваться
  • Страница 1 из 1
  • 1
Модератор форума: ADMIN, Nextik  
Lib_sensor.class
21.09.2011 в 22:53 Сообщение #1
vlad275
Удаленные
Хочу переписать свою старую игрушку разработанную на WTK так чтобы она поддерживала тач-скрин. Портировать на мобильник с тач-скрином 128x128 собираюсь на Midlet Pascal'e
Подскажите пожалуйста где скачать регистрационный номер и имя, а также, Lib_sensor.class?
Мануал скачал http://mysotik.net/component/option,com_remository/Itemid,44/func,download/id,53/chk,674662e1860c69a4d385cac5d1640e78/no_html,1/
Сам паскаль тоже http://sitenext.ucoz.ru/_ld/0/36_LoPC-Midlet.pdf
22.09.2011 в 17:34 Сообщение #2
Nextik
Программист
Проверенные
Сообщений: 273
Награды: 0
Репутация: 42
Offline
Quote (vlad275)
Сам паскаль тоже http://sitenext.ucoz.ru/_ld/0/36_LoPC-Midlet.pdf
ну там не среда разработки ведь, а электронный журнал - справочник. Регистрационный номер и имя не к чему, никаких изменений не произойдет все равно, насчет либ сенсор, поищи тут: http://forum.boolean.name/showthread.php?t=5494 там этих либ ой как много, найдеш все что нужно
22.09.2011 в 18:42 Сообщение #3
vlad275
Удаленные
Спасибо. Поищу.
23.09.2011 в 06:38 Сообщение #4
vlad275
Удаленные
http://mobilepascal.ru/_ld/0/37_Lib_sensormobil.zip

Quote
pointer_dragged_x and pointer_dragged_y may return with very-very old values.
example: if you dragged and released the pointer and then you are only clicking somewhere on the screen the dragging coordinates remains unchanged, so if you try to drag the pointer again these functions will first give the old coordinates of the previous dragging. this way drawing a line from the start of actual dragging to the end of actual dragging will start from false coordinates.

I suggest a patch for Lib_sensor.java:

protected void pointerPressed(int i, int j)
{
PX = i;
PY = j;
DX = i;
DY = j;
pressed = 1;
}

TESTED, and works right for me...

http://mobilepascal.ru/load/56-1-0-37
Сообщение отредактировал vlad275 - Пятница, 23.09.2011, 09:00
23.09.2011 в 16:45 Сообщение #5
Nextik
Программист
Проверенные
Сообщений: 273
Награды: 0
Репутация: 42
Offline
на этом сайте либы не разрабатываются, не совершенствуются, всё что здесь есть, очень старовато
27.09.2011 в 16:44 Сообщение #6
vlad275
Удаленные
Проблема. Телефон не реагирует на клики по сенсорному экрану

Quote
program NewProject3;
Uses sensor;
Var  i,x,y,x2,y2,x22,t,s, state, pointer_pressed_x, pointer_state: integer;  

begin
  sensor.init;
    
   drawImage(loadImage('/logo02.png'), 0, 0);

repaint;  

  delay(2000);

drawImage(loadImage('/road.png'), 0, 0);

repaint;  

   x:=128;

    x22:=0;

    x2:=getWidth/2-53/2;

    y2:=128-34;

    randomize;

    y:=random(1)+10;

  for i:=1 to getWidth  do begin

if s=6 then begin     setColor(255, 0, 0);    drawText('* * * You won! * * *', 10, getheight/2-4); repaint; delay(2000);halt; end;

state:=pointer_state;
if state=1 then Halt;

  delay(70);  

  x:=x-3;

  if (x<-50) then begin x:=getWidth; i:=1; y:=random(10); end;

  drawImage(loadImage('/road2.png'),0, 27);

  if (x2>0)           and (x22=-5) then  x2:=x2+x22;

  if (x2+53<getWidth) and (x22=5) then  x2:=x2+x22;

  drawImage(loadImage('/avto.png'), x2, y2);

  y:=y+1;

if (keyToAction(getKeyPressed) =GA_UP) then y2:=y2-5;

  if (keyToAction(getKeyPressed) =GA_LEFT) then x22:=-5;

  if (keyToAction(getKeyPressed) =GA_RIGHT)  then x22:=5;

if (odd(x)=TRUE) then drawImage(loadImage('/bab01.png'), x, y); else drawImage(loadImage('/bab02.png'), x, y);

if (x+16>x2) and (x<x2+53) and (y+45>y2) then begin x:=getWidth; s:=s+1; drawImage(loadImage('/counter.png'), s*10-12, -1);  y:=random(1)+10;i:=1;repaint; end;

repaint;  
end;
end.
Сообщение отредактировал vlad275 - Вторник, 27.09.2011, 16:45
27.09.2011 в 16:57 Сообщение #7
Nextik
Программист
Проверенные
Сообщений: 273
Награды: 0
Репутация: 42
Offline
у тебя работает всё кроме нажатия на сенсор я так понимаю?
27.09.2011 в 18:32 Сообщение #8
vlad275
Удаленные
Да
  • Страница 1 из 1
  • 1
Поиск: