Ответ: Сенсорный экран в MIDletPascal
Цитата:
Сообщение от cordi
(Сообщение 189285)
Gector, огромное спасибо! Рискую нарваться, но если есть ещё более подробная информация - буду очень признателен! Всего-то нужен калькулятор на сенсоре...
|
Код или вообще?
Код:
program Angle;
uses sensor;
//============================MAIN===============================
var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer;
keyCode: integer;
var HeroX, HeroY, Angle: Real;
var HeroXSpeed, HeroYSpeed, HeroFlightSpeed, Gravity:Real;
var MovementReleased, Direction, Timing: integer;
procedure Controls;
var x, y: integer;
var DX, DY: real;
begin
first_pointer_x:=pointer_pressed_x;
first_pointer_y:=pointer_pressed_y;
pointer_x:=pointer_dragged_x;
pointer_y:=pointer_dragged_y;
DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
end;
begin
sensor.init;
repeat
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(255, 0, 0);
keyCode:= GetKeyPressed;
pe:=pointer_state;
SetColor(255, 0, 0);
Controls;
Repaint;
until false;
End.
Вот немного по сенсорам. |
