|
Основной форум Сюда все проблемы связанные с программированием. |
14.04.2010, 19:29
|
#31
|
Бывалый
Регистрация: 16.09.2009
Адрес: Sun system
Сообщений: 831
Написано 442 полезных сообщений (для 1,836 пользователей)
|
Ответ: фотки
Как я понял, прочтя весь этот бред на двух страницах, надо так:
Нажимаешь на мобильнике кнопку вниз -> картинка ползет вниз -> в углу экрана появляется надпись "Вниз".
Я понял правильно? Но это действительн элементарно, насколько могу судить я, не зная MidletPascal
|
(Offline)
|
|
14.04.2010, 20:11
|
#32
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
кстати я уже сама разобралась с этим
а вот со шпильками мужчины никогда не разберуться
|
(Offline)
|
|
14.04.2010, 23:29
|
#33
|
Бывалый
Регистрация: 16.09.2009
Адрес: Sun system
Сообщений: 831
Написано 442 полезных сообщений (для 1,836 пользователей)
|
Ответ: фотки
Давно пора разобраться.
Что касается шпилек, > >
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
16.04.2010, 13:36
|
#34
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
помогите собрать в один мидлет нужно сделать на кнопку ВВЕРХ
Var x,y, xi, yi,xs, ys, xs1, ys1, state: integer;
ris: image;
Begin
ris:=LoadImage('/image.png');
xi:=GetImageWidth(ris);
yi:=GetImageHeight(ris);
xs:=GetWidth;
ys:=GetHeight;
xs1:=GetStringWidth('Вверх');
ys1:=GetStringHeight('Вверх');
DrawImage(ris,x,y);Repaint;
repeat
state:=GetKeyClicked;
if state=KE_KEY4 then begin x:=x-20; if (x<xs-xi) then x:=xs-xi; end;
if state=KE_KEY6 then begin x:=x+20; if (x>0) then x:=0; end;
if (state=KE_KEY2) or (state=-6) then begin y:=y-20; if (y<ys-yi) then y:=ys-yi; end;
if (state=KE_KEY8) or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end;
DrawImage(ris,x,y);
SetColor(0, 0, 255);
FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1);
SetColor(0, 255, 0);
DrawText('Вниз',xs-xs1+5,ys-ys1);
DrawText('Вверх',0,ys-ys1);
Repaint;
Delay(20);
until false;
End.
Var i, key: integer;
Begin
repeat
key:=GetKeyClicked;
if key=ke_key5 then
begin
if i=4 then
//требуемое действие
i:=i+1;
end;
if key=ke_key1 then
i:=0;
until key=ke_pound;
end.
|
(Offline)
|
|
16.04.2010, 14:11
|
#35
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Ответ: фотки
Мы пока разбираемся со шпильками
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
16.04.2010, 14:13
|
#36
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
со шпильками оооо могу советы дать как дама
|
(Offline)
|
|
16.04.2010, 14:18
|
#37
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
ну помогите товарищи Программи́сты
|
(Offline)
|
|
16.04.2010, 14:49
|
#38
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
ну, в смысл кода вдаваться не буду, но думаю как-то так:
program bred; Var i, key: integer; procedure hren; Var x,y, xi, yi,xs, ys, xs1, ys1, state: integer; ris: image; Begin ris:=LoadImage('/image.png'); xi:=GetImageWidth(ris); yi:=GetImageHeight(ris); xs:=GetWidth; ys:=GetHeight; xs1:=GetStringWidth('Вверх'); ys1:=GetStringHeight('Вверх'); DrawImage(ris,x,y);Repaint; repeat state:=GetKeyClicked; if state=KE_KEY4 then begin x:=x-20; if (x<xs-xi) then x:=xs-xi; end; if state=KE_KEY6 then begin x:=x+20; if (x>0) then x:=0; end; if (state=KE_KEY2) or (state=-6) then begin y:=y-20; if (y<ys-yi) then y:=ys-yi; end; if (state=KE_KEY8) or (state=-7) then begin y:=y+20; if (y>0) then y:=0; end; DrawImage(ris,x,y); SetColor(0, 0, 255); FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1); SetColor(0, 255, 0); DrawText('Вниз',xs-xs1+5,ys-ys1); DrawText('Вверх',0,ys-ys1); Repaint; Delay(20); until false; End; Begin repeat key:=GetKeyClicked; if key=ke_key5 then begin if i=4 then hren; i:=i+1; end; if key=ke_key1 then i:=0; until key=ke_pound; end.
|
(Offline)
|
|
16.04.2010, 16:08
|
#39
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
cherepets все компилируется но ни че не видно ни фото ни кнопок белый экран
почему?
тестила на эмуляторе Sjboy Emulator
|
(Offline)
|
|
16.04.2010, 19:23
|
#40
|
Знающий
Регистрация: 21.07.2009
Адрес: Украина
Сообщений: 219
Написано 44 полезных сообщений (для 78 пользователей)
|
Ответ: фотки
Пользуйся KEmulator - он намного лутше
|
(Offline)
|
|
16.04.2010, 20:07
|
#41
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: фотки
эм, потому что видно ток при удержании 5 (код от винта)
|
(Offline)
|
|
26.04.2010, 12:22
|
#42
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
товарищи Программи́сты
в чем проблема сделала я мидлет загрузила фотки любовалась у себя на мобильнике все классно но когда скинула подруге у нее на пол экрана фотки почему и еще такие не красивые искаженные а у меня все красива вот
че вписать в мидлет что бы на других сотовых картинки были нормальные а не больше то меньше то вообще маленькие
|
(Offline)
|
|
26.04.2010, 16:00
|
#43
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: фотки
Сообщение от www12
товарищи Программи́сты
в чем проблема сделала я мидлет загрузила фотки любовалась у себя на мобильнике все классно но когда скинула подруге у нее на пол экрана фотки почему и еще такие не красивые искаженные а у меня все красива вот
че вписать в мидлет что бы на других сотовых картинки были нормальные а не больше то меньше то вообще маленькие
|
Какая модель телефона, на котором работает неправильно?
|
(Offline)
|
|
26.04.2010, 16:55
|
#44
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
сони эриксон T650i
|
(Offline)
|
|
26.04.2010, 16:58
|
#45
|
Нуждающийся
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
|
Ответ: фотки
как то я видела команду каторая получает размер экрана и подстраиваеться под этот размер уже картинка или я ошибаюсь
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 09:24.
|