forum.boolean.name - фотки

Страница 3 из 6

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - фотки (http://forum.boolean.name/showthread.php?t=12361)

FireOwl

14.04.2010 19:29

Ответ: фотки

Как я понял, прочтя весь этот бред на двух страницах, надо так:
Нажимаешь на мобильнике кнопку вниз -> картинка ползет вниз -> в углу экрана появляется надпись "Вниз".
Я понял правильно? Но это действительн элементарно, насколько могу судить я, не зная MidletPascal

www12

14.04.2010 20:11

Ответ: фотки

кстати я уже сама разобралась с этим

а вот со шпильками мужчины никогда не разберуться

FireOwl

14.04.2010 23:29

Ответ: фотки

www12

16.04.2010 13:36

Ответ: фотки

помогите собрать в один мидлет нужно сделать на кнопку ВВЕРХ

Код:

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.

Tadeus

16.04.2010 14:11

Ответ: фотки

Мы пока разбираемся со шпильками

www12

16.04.2010 14:13

Ответ: фотки

со шпильками оооо могу советы дать как дама

www12

16.04.2010 14:18

Ответ: фотки

ну помогите товарищи Программи́сты

cherepets

16.04.2010 14:49

Ответ: фотки

ну, в смысл кода вдаваться не буду, но думаю как-то так:

PHP код:


		
			
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.

www12

16.04.2010 16:08

Ответ: фотки

cherepets все компилируется но ни че не видно ни фото ни кнопок белый экран

почему?
тестила на эмуляторе Sjboy Emulator

DIMMON4IK

16.04.2010 19:23

Ответ: фотки

Пользуйся KEmulator - он намного лутше

cherepets

16.04.2010 20:07

Ответ: фотки

эм, потому что видно ток при удержании 5 (код от винта)

www12

26.04.2010 12:22

Ответ: фотки

товарищи Программи́сты

в чем проблема сделала я мидлет загрузила фотки любовалась у себя на мобильнике все классно но когда скинула подруге у нее на пол экрана фотки почему и еще такие не красивые искаженные а у меня все красива вот

че вписать в мидлет что бы на других сотовых картинки были нормальные а не больше то меньше то вообще маленькие

ViNT	26.04.2010 16:00

Ответ: фотки

Цитата:

Сообщение от www12 (Сообщение 145516)

Какая модель телефона, на котором работает неправильно?

www12

26.04.2010 16:55

Ответ: фотки

сони эриксон T650i

www12

26.04.2010 16:58

Ответ: фотки

как то я видела команду каторая получает размер экрана и подстраиваеться под этот размер уже картинка или я ошибаюсь

Часовой пояс GMT +4, время: 23:10.

Страница 3 из 6

Показывать 64 сообщений этой темы на одной странице