![](images/chestnut/misc/left.gif) |
Прочие вопросы Вопросы не касающиеся программирования (установка, настройка...) |
01.06.2012, 19:51
|
#1
|
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
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Маленикая программа
Сначала залезь во встроенный хелп МидлетПаскаля, и полностью прочти его.
Это будет твоя Библия на все ближайшее время.
Затем -> интенсивное использование метода "простого научного тыка".
И только потом задавай вопросы на форуме.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
28.08.2012, 20:42
|
#4
|
Оператор ЭВМ
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений (для 5 пользователей)
|
Ответ: Маленикая программа
Program example; var itemId,i,id : integer; cmdNext : command; cmdQuit : command; name : string; slovo1,slovo2:array [0..1] of string;
procedure loading; begin i:=0; slovo1[i]:='Привет';slovo2[i]:='Hello'; i:=i+1; end;
begin loading; ShowForm; itemId := FormAddTextField('Введите слово', '', 20, TF_ANY); cmdNext := CreateCommand('ОК', CM_OK, 1); 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], 0, 0); Repaint; cmdQuit := CreateCommand('Выход', CM_EXIT, 1); AddCommand(cmdQuit); repeat until GetClickedCommand = cmdQuit; end.
slovo1,slovo2:array [0..1] of string; здесь указываем сколь слов.
вот код. кому помогло жмите полезно!
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
29.08.2012, 15:19
|
#5
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Маленикая программа
эмм..
1) Я так понял, программа ищет в массиве слова, совпадающие с введенным в форму. Но если ввести слово, ни с чем не совпадающее, все равно будет возвращено значение slovo2[0]
2) i=0 можно и не писать.
3) Форматирование кода - полезный друг.
Вот более или менее правильный код
Program example; var itemId,i,id : integer; cmdNext, cmdQuit: command; name : string; slovo1:array [0..1] of string; slovo2:array [0..1] of string; procedure loading; begin i:=0; slovo1[i]:='Привет'; slovo2[i]:='Hello'; i:=i+1; end; begin id:=-1; loading; ShowForm; itemId := FormAddTextField('Введите слово', '', 20, TF_ANY); cmdNext := CreateCommand('ОК', CM_OK, 1); 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], 0, 0); else DrawText('Слово не найдено', 0, 0); Repaint; cmdQuit := CreateCommand('Выход', CM_EXIT, 1); AddCommand(cmdQuit); repeat until (GetClickedCommand = cmdQuit); end.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 18:49.
|