Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 12.04.2010, 22:48   #1
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Радость фотки

подскажите почему я не могу вставить мои фотки с расширением jpg

или напишите че нить по легче н.р я нажимаю верх вниз и смотрю фотки




Const

counter=5; //число слайдов

format='.png'; //формат файлов слайдов

Var

img: Array[0..counter] Of Image;

s: Array[1..3] Of String;

r: Array[1..3] Of Integer;

i, j, k, m, index, nameField, time: Integer;

next, prev, clicked, exit,yes: Command;

Procedure Menu; //процедура вывода меню выбора режима показа слайдов

Var

OK: Command;

Begin

ShowMenu('Режим управления', CH_EXCLUSIVE);

For j:=1 To 3 Do r[j]:=MenuAppendString(s[j]);

OK := CreateCommand('OK', CM_OK, 2);

AddCommand(OK);

repeat

clicked := GetClickedCommand;

until clicked = OK;

RemoveCommand(OK);

end;

Procedure HandSetMode; // процедура ручного режима показа слайдов

Var

OK: Command;

Begin

ShowCanvas;

Repaint;

next := CreateCommand('вперед', CM_SCREEN, 1);

prev := CreateCommand('назад', CM_BACK, 1);

AddCommand(next);

AddCommand(prev);

i:=1;

Repeat

DrawImage(img[i], 0, 0);

Repaint;

Repeat

clicked := GetClickedCommand;

Until clicked<> EmptyCommand;

If clicked=prev Then

Begin

If i>1 Then i:=i-1;

End;

If clicked=next Then

Begin

If i<=counter Then i:=i+1;

End;

Until i>counter;

RemoveCommand(next);RemoveCommand(prev);

OK := CreateCommand('Конец', CM_OK, 2);

AddCommand(OK);

repeat

clicked := GetClickedCommand;

until clicked = OK;

RemoveCommand(OK);

end;

Procedure ChoiseTime; // процедура ввода временного интервала

Var

OK: Command;

str:string;

Begin

ShowForm;

nameField := FormAddTextField('Время смены слайдов в секундах', '2', 2, TF_NUMERIC);

OK := CreateCommand('OK', CM_OK, 2);

AddCommand(OK);

Repeat

clicked := GetClickedCommand;

Until clicked = OK;

str:=FormGetText(nameField);

time:=StringToInteger(str);

time:=time*1000;

RemoveCommand(OK);

FormRemove(nameField);

End;

Procedure Show; // процедура автоматического показа слайдов

Var

OK: Command;

Begin

ShowCanvas;

OK := CreateCommand('Стоп', CM_OK, 2);

AddCommand(OK);

Repeat

For j:=1 To counter Do

Begin

DrawImage(img[j], 0, 0);

Repaint;

Delay(time);

clicked := GetClickedCommand;

If clicked=OK Then Break;

End;

Until clicked=OK;

RemoveCommand(OK);

End;

Procedure RandomShow; // процедура перетасованного показа слайдов

Var

OK: Command;

Begin

Randomize;

ShowCanvas;

OK := CreateCommand('Стоп', CM_OK, 2);

AddCommand(OK);

Repeat

j:=Random(counter)+1;

DrawImage(img[j], 0, 0);

Repaint;

Delay(time);

clicked := GetClickedCommand;

If clicked=OK Then Break;

Until clicked=OK;

RemoveCommand(OK);

End;

Procedure Choise; //процедура выбора режима показа слайдов

Begin

If MenuGetSelectedIndex = r[1] Then

Begin

ChoiseTime;

Show;

End;

If MenuGetSelectedIndex = r[2] Then

Begin

ChoiseTime;

RandomShow;

End;

If MenuGetSelectedIndex = r[3] Then HandSetMode;

End;

BEGIN

ShowCanvas;

Repaint;

img[0]:=LoadImage('/welcome.png');

For m:=1 To counter Do

Begin

img[m]:=LoadImage('/s'+IntegerToString(m)+'.png');

End;

s[1]:='Автоматический';

s[2]:='Случайный';

s[3]:='Ручной';

DrawImage(img[0], 0, 0);

Repaint;

Delay(2000);

index:=0;

Repeat

Menu;

Choise;

ShowForm;

k := FormAddString('Просмотреть еще раз?');

yes := CreateCommand('Да', CM_OK, 1);

exit := CreateCommand('Выйти', CM_EXIT, 1);

AddCommand(yes);

AddCommand(exit);

Repeat

clicked := GetClickedCommand;

Until clicked <> EmptyCommand;

If clicked = exit Then index:=1;

ClearForm;

Until index=1;

k := FormAddString('На выход...');

Delay(2000);

END.
(Offline)
 
Ответить с цитированием
Старый 12.04.2010, 23:32   #2
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

до перла как вставить фото

а как сделать так чтоб двигалась фото

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.
(Offline)
 
Ответить с цитированием
Старый 12.04.2010, 23:55   #3
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: фотки

ну тип так как-то
for i:=0 to getwidth do begin
drawimage
(img,i,0);
repaintdelay(10); end
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 01:12   #4
IGR
Blitz's Shame !!
 
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений
(для 2,013 пользователей)
Ответ: фотки

до перла как вставить фото
Ты девушка ??
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 07:15   #5
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

че то я не поняла ничего
что добавить сюда чтоб фото двигалось вверх и ввниз

СПАСИБО


Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
DrawImage(img,0,0);
Repaint;
Delay(5000);
End.
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 07:36   #6
Reks888
Дэвелопер
 
Аватар для Reks888
 
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений
(для 1,985 пользователей)
Ответ: фотки

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
drawimage
(img,i,0);
repaint; delay(10); end;

End.

Если надо чтобы вверх и вниз O_o. Не знаком сильно с мидлет паскалем так что тапками не кидайтесь если что не так.

Program graph;
var img: image;
Begin
Randomize;
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
i:=i-Random(2);
If i<0 Then i:=0;//чисто дебаг
drawimage
(img,i,0);
repaint; delay(10); end;

End.
__________________
>type C:\MyProj\*
www.sypiac.weebly.com
>
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 07:43   #7
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

ОШИБКУ ВЫДАЕТ НЕ КОМПИЛИРУЕТ
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 08:00   #8
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: фотки

Изображение всетаки должно само вверх-вниз ползать, или его кнопками перемещать нужно?
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 08:09   #9
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

кнопками перемещать
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 09:35   #10
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: фотки

Program graph
var 
imgimage;
i,key:integer;
Begin 
img
:=LoadImage('/image.png'); 
repeat
drawimage
(img,0,i); 
repaintdelay(10);
key:=keytoaction(getkeypressed);
if 
key=GA_UP then i:=i-1;
if 
key=GA_DOWN then i:=i+1;
until false;
End
Пишу сразу здесь, так что ошибки не исключены. И еще проверь наличие '/image.png' в ресурсах.
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 09:55   #11
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

все хорошо получилось спасибо но картинка переходит вниз и вверх а самой кнопки нет ну типо чтоб было видно что вверх или вниз и картинка почему то растягиваеться при движение типо расплываеться спасибо
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 10:37   #12
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: фотки

начало я не понял, а по поводу того что размазывается - все просто.
перед отрисовкой картики (между repeat и drawimage) вставь:
fillrect(0,0,getwidth,getheight); 
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 10:51   #13
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

cherepets спасибо теперь не расплываеться

ну чтобы внизу мобильника были видны кнопки где вниз где вверх и еще как сделать выход а то не выходит
спасибо
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 11:18   #14
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: фотки

ну, нарисуй в пейнте две стрелочки вверх и вниз
а выход:
if getkeypressed=-7 then halt
перед until вставь
(Offline)
 
Ответить с цитированием
Старый 13.04.2010, 11:32   #15
www12
Нуждающийся
 
Регистрация: 12.04.2010
Сообщений: 52
Написано одно полезное сообщение
Ответ: фотки

спасибо
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com