|
Основной форум Сюда все проблемы связанные с программированием. |
12.09.2006, 17:58
|
#1
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Как сделать
Доброго всем времени суток
Только что скачал MidletPascal но пока ничего не получается, помогите пожалуйста новичку
1. Как сделать меню например:
О программе
Сссылка
Ссылка
и тд.
Так же кнопки Выход из программы и Выбрать пункт из меню
при выборе пункта меню выводится форма с текстом, его можно прочитать и кнопка назад в меню
Очень нужно, подскажите как все сделать от начала до конца, пытался сделать но ничего не получается
2. Можно ли сделать и как такую функцию:
Выбираю в меню раздел захожу, а он делает запрос например site.site/news.txt и закачивает их в форму, после прочтения обратно выход в меню
За ранее всем Вам очень благодарен, жду ответов!!!
|
(Offline)
|
|
12.09.2006, 17:59
|
#2
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Как сделать
Если есть готовые подробные примеры, тоже буду рад посмотреть и воспользоваться как образцом
|
(Offline)
|
|
12.09.2006, 18:38
|
#3
|
Оператор ЭВМ
Регистрация: 01.09.2006
Сообщений: 36
Написано одно полезное сообщение
|
Re: Как сделать
Вот смотри пример:
program NewProject;
var menuCommand,exitCommand:command;
exitGame:integer;
keyCode:integer;
clicked: command;
exit, about,backgame,news: integer;
img: image;
//вызов меню
procedure menu;
var play:command;
begin
showMenu('Crazy Monkey', CH_IMPLICIT);
backgame := menuAppendString('Вернуться в игру');
news := menuAppendString('Новости проекта');
about := menuAppendString('О игре...');
exit := menuAppendString('Выход из игры');
play := createCommand('Выбрать', CM_SCREEN, 1);
addCommand(play);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;
showCanvas;
end;
//новости
procedure newsShow;
var conn: http;
htmlBody: string;
contentType: string;
label_id: integer;
cm : command;
begin
ShowForm;
label_id:=formAddString('Подождите, идёт загрузка новостей...');
if not openHttp(conn, 'http://www.cr.pskov.name/crnews.php') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
clearForm;
label_id:=formAddString(htmlBody);
cm := createCommand('Назад', CM_BACK, 1);
addCommand(cm);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = cm;
removeCommand(cm);
clearForm;
menu;
end;
//о программе
procedure aboutShow;
var label_id,space_id: integer;
cm : command;
begin
showForm;
setTicker('Игра написана MEG-Studio 2006');
label_id:=formAddString('Crazy Monkey - эмулятор игрового автомата.');
cm := createCommand('OK', CM_OK, 1);
addCommand(cm);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = cm;
removeCommand(cm);
clearForm;
menu; // Убираем предупреждение с экрана
end;
//основной цикл программы
begin
exitGame:=0;
menuCommand := createCommand('Меню', CM_OK, 1);
exitCommand := createCommand('Выход', CM_BACK, 1);
img:=LoadImage('/icon.png');
addCommand(menuCommand);
addCommand(exitCommand);
repeat
//читает нажатие клавиш 1 2 3 4 5 6 7 8 9 0 # *
// keyCode := GetKeyClicked;
//читает нажатие командных клавиш
clicked:=getClickedCommand;
if (clicked = menuCommand) then
begin
menu;
end;
if (clicked = exitCommand) then
begin
exitGame:=1;
end;
//провека какой пункт меню был выбран
if menuGetSelectedIndex = news then newsShow;
if menuGetSelectedIndex = about then aboutShow;
if menuGetSelectedIndex = exit then exitGame:=1;
DrawImage(img,Random(170),Random(170));
repaint;
delay(500);
until (exitGame=1);
end.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
12.09.2006, 21:25
|
#4
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Как сделать
Огромное Вам спасибо, все работает ))
|
(Offline)
|
|
13.09.2006, 18:38
|
#5
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Как сделать
У меня появился еще вот такой вопрос, буду благодарен за ответ:
Как сделать? например, у театра есть афиша на месяц-два, нужно сделать так что бы ее можно было скачать в телефоне и просматривать в программе локально, скачивать тоже из программы, потом в меню есть кнопка, проверить афишу, если афиша таже то ее не скачивает, а если новая то удаляет старую и закачивает новую и сохраняет, возможно вообще так или это моя не скромная фантазия?
|
(Offline)
|
|
13.09.2006, 20:16
|
#6
|
Оператор ЭВМ
Регистрация: 01.09.2006
Сообщений: 36
Написано одно полезное сообщение
|
Re: Как сделать
Возможно, скачиваешь и помещаешь в RecordStore, а вот насчёт новой офиши просто проверяй дату или номер последнго обновления которую тоже храни в RecordStore, качаеш из интернета файл afisha_no.php (или какойнибудь другой) и сравниваеш с номером афиши в телефоне, если номер больше чем номер в RecordStore, то закачиваешь обновление. Покрайней мере я сделал бы примерно вот так. Про RecordStore читай гдето на форуме было.
|
(Offline)
|
|
14.09.2006, 15:08
|
#7
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Как сделать
Мда... что-то я ничего не понял, примерчиков нет ни у кого?
Пример работы с RecordStore с комментариями тоже не помешал бы!!!
|
(Offline)
|
|
15.09.2006, 18:44
|
#8
|
Оператор ЭВМ
Регистрация: 01.09.2006
Сообщений: 36
Написано одно полезное сообщение
|
Re: Как сделать
|
(Offline)
|
|
15.09.2006, 19:01
|
#9
|
AnyKey`щик
Регистрация: 12.09.2006
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Как сделать
Спасибо, все ок!!!
|
(Offline)
|
|
03.04.2009, 14:44
|
#10
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Как сделать
спс!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
(Offline)
|
|
06.04.2009, 11:30
|
#11
|
Знающий
Регистрация: 28.07.2008
Адрес: Киев
Сообщений: 228
Написано 61 полезных сообщений (для 191 пользователей)
|
Ответ: Как сделать
Мой личный совет, Kren - изучай Java! Работай на перспективу и не теряй времени зря.
__________________
Тяжела жизнь программиста: радость находки своего бага всегда омрачает осознание собственной тупости...
|
(Offline)
|
|
06.04.2009, 16:19
|
#12
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Как сделать
c:=formAddString('текст1');
c:=formAddString('текст2');
как сделать чтоб текст 2 писался с новой строки? функция c:=formAddSpace; не помагает(
|
(Offline)
|
|
06.04.2009, 17:14
|
#13
|
ПроЭктировщик
Регистрация: 08.03.2009
Адрес: Saransk
Сообщений: 143
Написано 25 полезных сообщений (для 45 пользователей)
|
Ответ: Как сделать
попробуй использовать chr(13) для перевода на другую строку
|
(Offline)
|
|
06.04.2009, 23:28
|
#14
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Как сделать
13 10
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
07.04.2009, 04:02
|
#15
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Как сделать
Неканает...(
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 18:21.
|