forum.boolean.name - Помощь новичку

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Помощь новичку (http://forum.boolean.name/showthread.php?t=9545)

Zipper

20.10.2009 01:02

Помощь новичку

Здраствуйте. Я только сел за мидлет паскаль. Подскажите пожалуйста как в переменную записать число вводимое с клавишь?

Bruteo

20.10.2009 01:45

Ответ: Помощь новичку

В хэлпе всё расписано с примерами. Пример оттуда:
Либо через текстбокс:

Код:

var cont : command; 

      quote : string; 

begin  

    showTextBox('Enter message, '', 200, TF_ANY);  

    cont := createCommand('Send', CM_SCREEN, 1); 

    addCommand(cont);  



    repeat 

      delay(100);  

    until getClickedCommand <> emptyCommand;  



    quote := getTextBoxString; 



    ...      

end.

Либо через текстовое поле:

Код:

var gauge_id, value: integer; 

begin 

   text_id :=FormAddTextField('Enter your name', 'Mr.Smith', 20, TF_ANY); 



    ShowForm; 

    value := FormGetValue(text_id); 

    Delay(2000); 

end.

Zipper

20.10.2009 10:20

Ответ: Помощь новичку

блин...мало что понятно =(
может кто поможет написать прогу?
она должна вычислять число по формуле, данные должны вводиться с клавиатуры

вот формула: X:=a1*b2*c3+a2*b3*c1+a3*b1*c2-a3*b1*c3-a1*b3*c2

Bruteo

20.10.2009 12:49

Ответ: Помощь новичку

Создавай столько текстбоксов, сколько у тебя переменных, не считая x. Добавляй на форму, потом считывай и считай x.
Если что-то конкретное не получается - можно спросить, так и разберёшься)

Zipper

20.10.2009 17:42

Ответ: Помощь новичку

PHP код:


		
			
var cont : command; 

      quote : string; 

begin  

    showTextBox('Enter message, '', 200, TF_ANY);  

    cont := createCommand('Send', CM_SCREEN, 1); 

    addCommand(cont);  



    repeat 

      delay(100);  

    until getClickedCommand <> emptyCommand;  



    quote := getTextBoxString; 



    ...      

end.

вот не понимаю куда здесь будет записываться числа?

Bruteo

20.10.2009 17:53

Ответ: Помощь новичку

Строка будет писаться в переменную quote. Если подразумевается ввод только целых чисел, то TF_ANY можно заменить на более подходящий вариант, не забыв и про типы переменных.

Zipper

20.10.2009 19:18

Ответ: Помощь новичку

PHP код:


		
			
program Raschet;

var 

 a1, a2, a3, b1, b2, b3, c1, c2, c3, X : Integer; 

 Result : string;

 cmdNext, cmdexit : command;

 begin 

 showForm;//показываем форму //создаём элементы управления

 a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);

 a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);

 a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);

 b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);

 b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);

 b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);

 c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);

 c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);

 c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); //создаём команду(кнопку)

 cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);

 repeat until GetClickedCommand = cmdNext; //берём текст, введёный пользователем

  X:=a1*b2*c3+a2*b3*c1+a3*b1*c2-a3*b1*c3-a1*b3*c2;

 Result := FormGetText(X); //выводим информацию на дисплей 

 ShowTextBox('Ответ:',Result , 200, TF_NUMERIC);

 cmdExit := CreateCommand('Exit', CM_EXIT, 1);

 AddCommand(cmdExit);

 repeat delay(100);

 until GetClickedCommand = cmdExit;

 end.

вот что я написал, но оно ничего не выводит...в чем проблема?

Bruteo

20.10.2009 19:26

Ответ: Помощь новичку

Строку с formgettext убрать. Не ясно вообще зачем она здесь.
А showtextbox вызывать так:

Код:

ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);

Но кроме всего этого в формуле x надо использовать не ссылки на поля ввода(a1,a2 и т.д.), а данные из этих полей, которые можно получить функцией FormGetText

Zipper

20.10.2009 20:20

Ответ: Помощь новичку

PHP код:


		
			
program Raschet;

var 

 a1, a2, a3, b1, b2, b3, c1, c2, c3, X, a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : real; 

  cmdNext, cmdexit : command;

 begin 

 showForm;//показываем форму //создаём элементы управления

 a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);

 a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);

 a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);

 b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);

 b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);

 b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);

 c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);

 c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);

 c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); //создаём команду(кнопку)

 cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);

 repeat until GetClickedCommand = cmdNext; //берём текст, введёный пользователем



 a1i:=FormGetText(a1);

 a2i:=FormGetText(a2);

 a3i:=FormGetText(a3);

 b1i:=FormGetText(b1);

 b2i:=FormGetText(b2);

 b3i:=FormGetText(b3);

 c1i:=FormGetText(c1);

 c2i:=FormGetText(c2);

 c3i:=FormGetText(c3);



 X:=a1i*b2i*c3i+a2i*b3i*c1i+a3i*b1i*c2i-a3i*b1i*c3i-a1i*b3i*c2i;

  

 ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);

 cmdExit := CreateCommand('Exit', CM_EXIT, 1);

 AddCommand(cmdExit);

 repeat delay(100);

 until GetClickedCommand = cmdExit;

 end.

добавил FormGetTextы, но при компиляции пишет "ошибка в параметре 1" в строках с FormGetTextами

Bruteo

20.10.2009 20:23

Ответ: Помощь новичку

Внимательнее читай документацию. Идентификаторы на текстовые поля должны быть целыми, а не типа real.

ViNT	20.10.2009 20:23

Ответ: Помощь новичку

Идентификаторы a1, a2 и т.д. должны быть типа integer. Дальше по идентификатору нужно получить строку с помощью FormGetText, а потом уже преобразовать ее в действительное число с помощью StringToReal.

Zipper

20.10.2009 20:52

Ответ: Помощь новичку

PHP код:


		
			
program Raschet;

var 

 a1, a2, a3, b1, b2, b3, c1, c2, c3:integer;

 a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : string;

 a1o, a2o, a3o, b1o, b2o, b3o, c1o, c2o, c3o, X:real;

  cmdNext, cmdexit : command;

 begin 

 showForm;

 a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);

 a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);

 a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);

 b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);

 b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);

 b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);

 c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);

 c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);

 c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); 

 cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);

 repeat until GetClickedCommand = cmdNext; 



 a1i:=FormGetText(a1);

 a2i:=FormGetText(a2);

 a3i:=FormGetText(a3);

 b1i:=FormGetText(b1);

 b2i:=FormGetText(b2);

 b3i:=FormGetText(b3);

 c1i:=FormGetText(c1);

 c2i:=FormGetText(c2);

 c3i:=FormGetText(c3);

 

 a1o:=StringToReal(a1i);

 a2o:=StringToReal(a2i);

 a3o:=StringToReal(a3i);

 b1o:=StringToReal(b1i);

 b2o:=StringToReal(b2i);

 b3o:=StringToReal(b3i);

 c1o:=StringToReal(c1i);

 c2o:=StringToReal(c2i);

 c3o:=StringToReal(c3i);



 X:=a1o*b2o*c3o+a2o*b3o*c1o+a3o*b1o*c2o-a3o*b1o*c3o-a1o*b3o*c2o;

  

 ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);

 cmdExit := CreateCommand('Exit', CM_EXIT, 1);

 AddCommand(cmdExit);

 repeat delay(100);

 until GetClickedCommand = cmdExit;

 end.

добавил StringToReal стало писать 'параметров слишком мало', что это значит?? :"(

Zipper

20.10.2009 21:08

Ответ: Помощь новичку

решил ту проблему: вместо StringToReal, писал StringToInteger

теперь новая проблема, перестала работать кнопка Next...до этого работала нормально, ничего не менял, а теперь хз что случилось...

Bruteo

20.10.2009 21:21

Ответ: Помощь новичку

После repeat первого вставляй задержку. delay(100); , например. Чтобы не перегружать процессор бесконечным циклом без пауз.

Zipper

20.10.2009 21:36

Ответ: Помощь новичку

ага, помогло, но только для эмулятора, на мобиле все равно не работает...

ViNT	20.10.2009 21:57

Ответ: Помощь новичку

Попробуй увеличить задержку до 200, а так непонятно, в чем дело.

Zipper

20.10.2009 22:35

Ответ: Помощь новичку

непомогло...в ємуляторе все нормально, а в мобиле не хочет...

вот полный код программы:

PHP код:


		
			
program Raschet;

var 

 a1, a2, a3, b1, b2, b3, c1, c2, c3:integer;

 a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : string;

 a1o, a2o, a3o, b1o, b2o, b3o, c1o, c2o, c3o, X:real;

  cmdNext, cmdexit : command;

 begin 

 showForm;

 a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);

 a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);

 a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);

 b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);

 b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);

 b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);

 c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);

 c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);

 c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); 

 cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);

 repeat delay(200);

 until GetClickedCommand = cmdNext; 



 a1i:=FormGetText(a1);

 a2i:=FormGetText(a2);

 a3i:=FormGetText(a3);

 b1i:=FormGetText(b1);

 b2i:=FormGetText(b2);

 b3i:=FormGetText(b3);

 c1i:=FormGetText(c1);

 c2i:=FormGetText(c2);

 c3i:=FormGetText(c3);

 

 a1o:=StringToInteger(a1i);

 a2o:=StringToInteger(a2i);

 a3o:=StringToInteger(a3i);

 b1o:=StringToInteger(b1i);

 b2o:=StringToInteger(b2i);

 b3o:=StringToInteger(b3i);

 c1o:=StringToInteger(c1i);

 c2o:=StringToInteger(c2i);

 c3o:=StringToInteger(c3i);



 X:=a1o*b2o*c3o+a2o*b3o*c1o+a3o*b1o*c2o-a3o*b2o*c1o-a2o*b1o*c3o-a1o*b3o*c2o;

  

 ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);

 cmdExit := CreateCommand('Exit', CM_EXIT, 1);

 AddCommand(cmdExit);

 repeat delay(100);

 until GetClickedCommand = cmdExit;

 end.

мож что есть неправильное, и вобще из-за чего это может быть?

Bruteo

20.10.2009 23:04

Ответ: Помощь новичку

Отлавливай, на какой строке ошибка. Может ты не все поля заполнил.
Или какой-нибудь дикий вариант возможен - может clearform не хватает перед текстбоксом или ещё какой замороки под ту реализацию явы, что в твоём телефоне.

Bruteo

20.10.2009 23:07

Ответ: Помощь новичку

Всё проще. У showtextbox надо поставить TF_ANY

Zipper

20.10.2009 23:08

Ответ: Помощь новичку

так дело в том, что оно работало, и я ничего не менял только добавил FormGetText и StringToInteger...
может быть кто-то может попробовать на своем телефоне?? =)

Zipper

20.10.2009 23:21

Ответ: Помощь новичку

УХУУ!!! =) все работает! всем спасибо))

кстати может кому пригодиться))
кто не понял программа вічисляет значение детерминанта)

jimon

20.10.2009 23:27

Ответ: Помощь новичку

Zipper

Bruteo

20.10.2009 23:58

Ответ: Помощь новичку

Zipper
Мой fncalc тебе в помощь.
http://forum.boolean.name/showthread.php?t=2930
http://frolov.net/fncalc/

MoteX

25.10.2009 12:14

Ответ: Помощь новичку

Ребят нужна помощь...тему создать несмог отдельную вот и пишу сюда...проблема такова:в первый же день изучения паскаля написал проигрыватель на тел...все работает но только может вылететь в любой момент...че за фигня?вот исходник http://upwap.ru/603712 помогите плз

GanGSISoft

25.10.2009 17:00

Ответ: Помощь новичку

Как сделать так чтобы drawtext выводила русские буквы из файла, если в программе запишу drawtext('ввввывыв',0,0) то всё выводится, а если из файла строку считаю тов место русских квадратики.

GRAY_WOLF

25.10.2009 23:22

Ответ: Помощь новичку

Цитата:

Сообщение от GanGSISoft (Сообщение 122450)

Нужно делать перекодировку. Уже не однократно обсуждалось http://forum.boolean.name/showthread.php?t=8201
http://forum.boolean.name/showthread.php?t=6103

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