|
23.05.2011, 23:11
|
#1
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Сенсорный экран в MIDletPascal
Господа! Как прописать сенсорный ввод MIDletPascal? Ежели есть какие уроки, примеры кода - помогите пожалуйста!
|
(Offline)
|
|
23.05.2011, 23:16
|
#2
|
Легенда
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений (для 5,072 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
Сообщение от cordi
Господа! Как прописать сенсорный ввод MIDletPascal? Ежели есть какие уроки, примеры кода - помогите пожалуйста!
|
http://forum.boolean.name/showthread.php?t=9692
__________________
Ибо как сказал Бгдн:
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
23.05.2011, 23:46
|
#3
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
Gector, огромное спасибо! Рискую нарваться, но если есть ещё более подробная информация - буду очень признателен! Всего-то нужен калькулятор на сенсоре...
|
(Offline)
|
|
23.05.2011, 23:57
|
#4
|
Легенда
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений (для 5,072 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
Сообщение от cordi
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.
Вот немного по сенсорам.
__________________
Ибо как сказал Бгдн:
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
24.05.2011, 00:56
|
#5
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
Спасибо огромное!
|
(Offline)
|
|
24.05.2011, 08:07
|
#6
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
__________________
G502, GT S5230w user!
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
24.05.2011, 22:16
|
#7
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
AngeLvKedaX - спасибо! Насколько я понял библиотеку нужно подключать к проекту - как это реализуется? В справке по мидлетпаскалю ничего подобного не нашёл... Прошу прощения за тупость...
|
(Offline)
|
|
24.05.2011, 22:49
|
#8
|
ПроЭктировщик
Регистрация: 22.10.2010
Сообщений: 196
Написано 16 полезных сообщений (для 30 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
просто пиши в uses название либы, только без lib_
тоесть, чтобы подключить либу lib_sensor пиши uses sensor;
__________________
Для меня нет ничего не реального в кодинге, но мне лень
gainOS - прорыв в проектировании ОС на MIDlet Pascal
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
24.05.2011, 23:34
|
#9
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
alexpray - это, я понимаю, так прописывается библиотека в коде, а в сам поект как её добавить?
|
(Offline)
|
|
24.05.2011, 23:54
|
#10
|
ПроЭктировщик
Регистрация: 08.03.2009
Адрес: Saransk
Сообщений: 143
Написано 25 полезных сообщений (для 45 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
в проект добавлять не надо, главное, чтобы библиотека лежала в папке MidletPascal/Libs/
__________________
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
25.05.2011, 00:37
|
#11
|
AnyKey`щик
Регистрация: 23.05.2011
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Сенсорный экран в MIDletPascal
Спасибо - теперь разобрался.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 10:56.
|