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

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

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

Прочие вопросы Вопросы не касающиеся программирования (установка, настройка...)

Ответ
 
Опции темы
Старый 01.06.2012, 19:51   #1
web-zolotnik
AnyKey`щик
 
Регистрация: 01.06.2012
Сообщений: 1
Написано 0 полезных сообщений
(для 0 пользователей)
Маленикая программа

Здравствуйте, нужна помощь! Раньше программировал на мидлете, а сейчас почти все забыл. Помогите пожалуйста вспомнить прошлое - тоесть нужно создать программу такую, например: Создать текстовое поле и если в текстовом поле набрать(написать) например: '11.12.32.33' или 'Hello' то пусть выведит drawText ('error', 0, 0);
Очень будет полезной програссой - для роботы прочей.
За ранее спасибо!!!
(Offline)
 
Ответить с цитированием
Старый 06.06.2012, 11:03   #2
Жека
Дэвелопер
 
Регистрация: 04.09.2005
Адрес: Красноярск
Сообщений: 1,376
Написано 491 полезных сообщений
(для 886 пользователей)
Ответ: Маленикая программа

На j2me могу написать.
(Offline)
 
Ответить с цитированием
Старый 12.06.2012, 23:22   #3
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Маленикая программа

Сначала залезь во встроенный хелп МидлетПаскаля, и полностью прочти его.
Это будет твоя Библия на все ближайшее время.
Затем -> интенсивное использование метода "простого научного тыка".
И только потом задавай вопросы на форуме.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 28.08.2012, 20:42   #4
Maga05
Оператор ЭВМ
 
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений
(для 5 пользователей)
Ответ: Маленикая программа

Program example;
var
itemId,i,id integer;
cmdNext command;
cmdQuit command;
name string;
slovo1,slovo2:array [0..1of string;

procedure loading;
begin
i
:=0;
slovo1[i]:='Привет';slovo2[i]:='Hello'i:=i+1;
end;

begin
loading
;
ShowForm;
itemId := FormAddTextField('Введите слово'''20TF_ANY);
cmdNext := CreateCommand('ОК'CM_OK1);
AddCommand(cmdNext);
repeat until GetClickedCommand cmdNext;
name := FormGetText(itemId);
for 
i:=0 to 1 do if slovo1[i]=name then begin id:=i; break; end;
ShowCanvas;
DrawText(slovo2[id], 00);
Repaint;
cmdQuit := CreateCommand('Выход'CM_EXIT1);
AddCommand(cmdQuit);
repeat until GetClickedCommand cmdQuit;
end
slovo1,slovo2:array [0..1] of string; здесь указываем сколь слов.

вот код. кому помогло жмите полезно!
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
qweasd (31.08.2012)
Старый 29.08.2012, 15:19   #5
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Маленикая программа

эмм..

1) Я так понял, программа ищет в массиве слова, совпадающие с введенным в форму. Но если ввести слово, ни с чем не совпадающее, все равно будет возвращено значение slovo2[0]

2) i=0 можно и не писать.

3) Форматирование кода - полезный друг.

Вот более или менее правильный код

Program example;
var

itemId,i,id integer;
cmdNextcmdQuitcommand;
name string;
slovo1:array [0..1of string;
slovo2:array [0..1of string;

procedure loading;
begin
    i
:=0;
    
slovo1[i]:='Привет'slovo2[i]:='Hello'i:=i+1;
end;

begin
    id
:=-1;
    
loading;
    
    
ShowForm;
    
itemId := FormAddTextField('Введите слово'''20TF_ANY);
    
cmdNext := CreateCommand('ОК'CM_OK1);
    
AddCommand(cmdNext);

    
repeat until (GetClickedCommand cmdNext);

    
name := FormGetText(itemId);

    for 
i:=0 to 1 do
    if 
slovo1[i]=name then
    begin 
        id
:=i;
        break;
    
end;

    
ShowCanvas;

    if 
id<>-1 then DrawText(slovo2[id], 00); else DrawText('Слово не найдено'00);
    
Repaint;

    
cmdQuit := CreateCommand('Выход'CM_EXIT1);
    
AddCommand(cmdQuit);
    
repeat until (GetClickedCommand cmdQuit);
end
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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