www.boolean.name

www.boolean.name (http://forum.boolean.name/index.php)
-   Прочие вопросы (http://forum.boolean.name/forumdisplay.php?f=50)
-   -   Маленикая программа (http://forum.boolean.name/showthread.php?t=16856)

web-zolotnik 01.06.2012 15:51

Маленикая программа
 
Здравствуйте, нужна помощь! Раньше программировал на мидлете, а сейчас почти все забыл. Помогите пожалуйста вспомнить прошлое - тоесть нужно создать программу такую, например: Создать текстовое поле и если в текстовом поле набрать(написать) например: '11.12.32.33' или 'Hello' то пусть выведит drawText ('error', 0, 0);
Очень будет полезной програссой - для роботы прочей.
За ранее спасибо!!!

Жека 06.06.2012 07:03

Ответ: Маленикая программа
 
На j2me могу написать.

PassCall 12.06.2012 19:22

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

Maga05 28.08.2012 16:42

Ответ: Маленикая программа
 
PHP код:

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; здесь указываем сколь слов.

вот код. кому помогло жмите полезно!

PassCall 29.08.2012 11:19

Ответ: Маленикая программа
 
эмм..

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

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

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

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

PHP код:

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



Часовой пояс GMT +1, время: 17:52.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot