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

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

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

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 09.09.2008, 14:09   #1
anton_obuhov
Оператор ЭВМ
 
Регистрация: 25.10.2007
Сообщений: 30
Написано одно полезное сообщение
(для 2 участников)
Вопрос Работа нескольких программ в одной

Суть проблемы такова
есть меню в меню 5 задач при входе в задачу создаются textField-ы соответствующие ну там вводиш и нажимаеш это понятно. Проблема вот в чем я написал решение квадратного уравнения которое включается при выборе пункта и при выборе второго пункта сделал решение другой задачи, квадратное запускается а вторая не хочет просто выходит из приложения, ошибок нет, все одинаково
(Offline)
 
Ответить с цитированием
Старый 09.09.2008, 15:20   #2
Romanzes
Разработчик
 
Аватар для Romanzes
 
Регистрация: 05.04.2008
Сообщений: 541
Написано 196 полезных сообщений
(для 637 пользователей)
Ответ: Работа нескольких программ в одной

Ты бы лучше исходник показал, а то так как ты сформулировал, трудно понять, что ты хочешь.
(Offline)
 
Ответить с цитированием
Старый 10.09.2008, 00:32   #3
anton_obuhov
Оператор ЭВМ
 
Регистрация: 25.10.2007
Сообщений: 30
Написано одно полезное сообщение
(для 2 участников)
Re: Работа нескольких программ в одной

program Geodezia;
var 
Prgeod,Obrgeod,KBYravnenie,Uclon:integer//Название Геодезических задач
     
Oshcibki:integer;
     
textField_id:integer;        //Едит для ввода информации во всех задачах
     
L1,L23,B2pr:integer;                     //Переменные для решения задачи
     
show,okcommand,clicked:command//Здесь будут все команды для приложения 
     
Perema,Peremb,Peremc,Discrim,x1,x2:integer;           //Для кв.Уравнения 
     
Ha,Hb,Dab,I,hab:integer;//Решение задачи для рассчета уклона в процентах
     
Ha1,Hb1,Dab1,I1,hab1:real;
     
Formirovanie_otveta:string;                          //Обработка ответов
     
Perema1,Peremb1,Peremc1,Discrim1:real;
     {&
#1044;оработка всех переменных в будуещем используемых в решении}
begin
ShowMenu
('Выберите задачу',CH_Implicit);
Prgeod := menuAppendString('Прямая геодезическая');
Obrgeod := menuAppendString('Обратная геодезическая');
KBYravnenie := menuAppendString('Квадратное уравнение');
Uclon := menuAppendString('Рассчет уклона');
Oshcibki := menuAppendString('Теория ошибок');
{&
#1044;оработка меню}
// Начало Создания функций выбора в программе по геодезии
show:=createCommand('Выбрать',CM_SCREEN,1);
addcommand(show);
repeat
 delay
(100);
 
Clicked:=getclickedcommand;
until clicked=show;
// Начало программы решения квадратного уравнения 
if menugetselectedindex KBYravnenie then
Begin
ShowForm
;
 
     while 
true do //запускаем бесконечный цикл 
     
begin 
     okCommand 
:= createCommand('OK'CM_OK1);    
     
showForm;    
     
addCommand(okCommand);   
Perema:=formaddtextfield('Введите a','',20,TF_Numeric);
Peremb:=formaddtextField('Введите b','',20,TF_Numeric);
Peremc:=formaddtextField('Введите c','',20,TF_Numeric);
//Ожидание нажатия ок
While(getclickedCommand<>okcommand) do
delay (100);
   
//Создаем дополнительные переменные для результата REAL
Perema1:=StringtoReal(formgettext(Perema),10);
Peremb1:=StringToReal(formgettext(Peremb),10);
Peremc1:=StringToReal(formgettext(Peremc),10);
Discrim1:=Stringtoreal(formgettext(Discrim),10);
   
//Само решение квадатного уравнения,используя переменные типа REAL 
Discrim1:=(Peremb1*Peremb1)-(4*Perema1*Peremc1);
Formirovanie_otveta := 'D ='+Peremb1+'*'+peremb1+'(4 *'+Perema1+' *'+Peremc1+')';
Formirovanie_otveta := 'ответ'+Discrim1+'';
showCanvas
drawtext(Formirovanie_otveta0,0);
repaint;
delay(20000);
if 
Discrim1 <0 then
Drawtext
('Корней в уравнении НЕМА',0,0);
repaint;
delay(20000);
 

{&
#1058;ут будет завершено создание квадратного уравнения}

     
{&#1058;ело программы}
     
end;
     
if 
menugetselectedindex Uclon then
begin
ShowForm
;
     while 
true do //запускаем бесконечный цикл 
     
begin 
     okCommand 
:= createCommand('OK'CM_OK1);    
     
showForm;    
     
addCommand(okCommand); 
Ha:=formaddtextField('Введите HA','',20,TF_Numeric);
Hb:=formaddtextField('Введите HB','',20,TF_Numeric);
Dab:=formaddtextField('Введите Dab','',10,TF_Numeric);
While(
getclickedCommand<>okcommand) do
delay (100);
Ha1:=StringToREal(formgettext(Ha),10);
Hb1:=StringToReal(formgettext(Hb),10);
Dab1:=StringToReal(formgettext(Dab),10);
I1:=StringTOReal(formgettext(I),10);
hab1:=StringToReal(formgettext(hab),10);
hab1:=Hb-Ha;
I1:=(hab1/Dab1)*100;
end;
end;
end;
end

То что выделено красным даже не появляется помогите
(Offline)
 
Ответить с цитированием
Старый 10.09.2008, 00:33   #4
anton_obuhov
Оператор ЭВМ
 
Регистрация: 25.10.2007
Сообщений: 30
Написано одно полезное сообщение
(для 2 участников)
Re: Работа нескольких программ в одной

if menugetselectedindex Uclon then
begin
ShowForm
;
     while 
true do //запускаем бесконечный цикл 
     
begin 
     okCommand 
:= createCommand('OK'CM_OK1);    
     
showForm;    
     
addCommand(okCommand); 
Ha:=formaddtextField('Введите HA','',20,TF_Numeric);
Hb:=formaddtextField('Введите HB','',20,TF_Numeric);
Dab:=formaddtextField('Введите Dab','',10,TF_Numeric);
While(
getclickedCommand<>okcommand) do
delay (100);
Ha1:=StringToREal(formgettext(Ha),10);
Hb1:=StringToReal(formgettext(Hb),10);
Dab1:=StringToReal(formgettext(Dab),10);
I1:=StringTOReal(formgettext(I),10);
hab1:=StringToReal(formgettext(hab),10);
hab1:=Hb-Ha;
I1:=(hab1/Dab1)*100
А вот это не пояавляется даже (вопрос почему)
(Offline)
 
Ответить с цитированием
Старый 10.09.2008, 07:15   #5
Piligrim
Оптимист
 
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений
(для 259 пользователей)
Ответ: Работа нескольких программ в одной

program Geodezia;
var Prgeod,Obrgeod,KBYravnenie,Uclon:integer; //Название Геодезических задач
     Oshcibki:integer;
     textField_id:integer;        //Едит для ввода информации во всех задачах
     L1,L23,B2pr:integer;                     //Переменные для решения задачи
     show,okcommand,clicked:command; //Здесь будут все команды для приложения 
     Perema,Peremb,Peremc,Discrim,x1,x2:integer;           //Для кв.Уравнения 
     Ha,Hb,Dab,I,hab:integer;//Решение задачи для рассчета уклона в процентах
     Ha1,Hb1,Dab1,I1,hab1:real;
     Formirovanie_otveta:string;                          //Обработка ответов
     Perema1,Peremb1,Peremc1,Discrim1:real;
     menu : integer;
     {Доработка всех переменных в будуещем используемых в решении}
begin
  okCommand := createCommand('OK', CM_OK, 1);    
	ShowMenu('Выберите задачу',CH_Implicit);
	Prgeod := menuAppendString('Прямая геодезическая');
	Obrgeod := menuAppendString('Обратная геодезическая');
	KBYravnenie := menuAppendString('Квадратное уравнение');
	Uclon := menuAppendString('Рассчет уклона');
	Oshcibki := menuAppendString('Теория ошибок');
{Доработка меню}
// Начало Создания функций выбора в программе по геодезии
	show:=createCommand('Выбрать',CM_SCREEN,1);
	addcommand(show);
	repeat
		delay(100);
		Clicked:=getclickedcommand;
	until clicked=show;
	menu := menugetselectedindex;
	debug('m='+menu);
// Начало программы решения квадратного уравнения 
	if menu = 2 then Begin
		ShowForm;
		addCommand(okCommand);   
		Perema:=formaddtextfield('Введите a','',20,TF_Numeric);
		Peremb:=formaddtextField('Введите b','',20,TF_Numeric);
		Peremc:=formaddtextField('Введите c','',20,TF_Numeric);
//Ожидание нажатия ок
		While(getclickedCommand<>okcommand) do
			delay (100);
   //Создаем дополнительные переменные для результата REAL
		Perema1:=StringtoReal(formgettext(Perema),10);
		Peremb1:=StringToReal(formgettext(Peremb),10);
		Peremc1:=StringToReal(formgettext(Peremc),10);
		Discrim1:=Stringtoreal(formgettext(Discrim),10);
   //Само решение квадатного уравнения,используя переменные типа REAL 
		Discrim1:=(Peremb1*Peremb1)-(4*Perema1*Peremc1);
		Formirovanie_otveta := 'D ='+Peremb1+'*'+peremb1+'(4 *'+Perema1+' *'+Peremc1+')';
		Formirovanie_otveta := 'ответ'+Discrim1+'';
		showCanvas; 
		drawtext(Formirovanie_otveta, 0,0);
		repaint;
		delay(20000);
		if Discrim1 <0 then
		Drawtext('Корней в уравнении НЕМА',0,0);
		repaint;
		delay(20000);
 end;

{Тут будет завершено создание квадратного уравнения}

     
if menu = 3 then begin
	ShowForm;
  addCommand(okCommand); 
	Ha:=formaddtextField('Введите HA','',20,TF_Numeric);
	Hb:=formaddtextField('Введите HB','',20,TF_Numeric);
	Dab:=formaddtextField('Введите Dab','',10,TF_Numeric);
	While(getclickedCommand<>okcommand) do
		delay (100);
		Ha1:=StringToREal(formgettext(Ha),10);
		Hb1:=StringToReal(formgettext(Hb),10);
		Dab1:=StringToReal(formgettext(Dab),10);
		I1:=StringTOReal(formgettext(I),10);
		hab1:=StringToReal(formgettext(hab),10);
		hab1:=Hb-Ha;
		I1:=(hab1/Dab1)*100;
end;
end.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
anton_obuhov (10.09.2008)
Ответ


Опции темы

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Все статьи, уроки,дополнения, ошибки компl anton_obuhov Основной форум 3 14.09.2008 09:11
АПроблемы с анимированной моделью Hellfalcon 3D-программирование 6 02.07.2008 07:30
куплю исходник военной стратегии на blitz3d эд Blitz3D 15 18.02.2008 12:50
А вот и ещё тема по текстурированию ландшk CRASHER Создание текстур 4 16.01.2008 15:10
не могу в Physx поворачивать Joint быстро, помогите! CRASHER Физика 18 12.01.2008 14:55


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


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