Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспертная система 
:(
    Опции темы
Student00
Дата 3.2.2008, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Прогнали меня отсюдова
http://forum.vingrad.ru/forum/topic-192138...y1400546/0.html
Пришел к вам помощи просить.
))

Вобщем куча проблем и очень мало решений...
---
Программа пишется на Delphi 7
---
Опишу ситуацию:
1) Сама программа предполагает:
Выбор бытовой техники. Когда пользователь не разбирающийся что к чему путем ответов на наводящие вопросы придет к оптимальному решению.

2) Интерфейс, как можно увидеть - вроде бы создан. 
Подгружаются вопросы. Сохраняются ответы (answers.ini)

3) Как можно увидеть формат записи (больше я ничего не придумал) текущих ответов RadioGroup1Click такой:
Код

[Item0]
Q0=0
Q1=1
Q2=2
Q3=0
Q4=2

где
[Item0] - группа товаров.
Q0 - номер вопроса.
0, 1, 2 - индексы ответов.

4) Первостепенная проблема такая:
Надо как-то суммировать все варианты ответов, но при этом, организовать код, так, чтобы if then свести к минимуму. Т.е. проще говоря, что бы пользователь-админ мог без вмешательство в код Delphi добавлять или удалять вопросы (с ответами конечно). А программа не кричала, что мол не найден вопрос.

Что касается самого добавления и удаления - это потом.

Главное сейчас организовать процедуру, которая как бы считывала из answers.ini параметры (текущий вид товара, количество вопросов по этому виду, ну и какие индексы ответов в текущий момент имеются), что бы вернувшись назад и снова ответив на вопросы новые индексы опять считывались и исходя из этого выдавался соответствующий ответ.

Как все это организовать в Delphi я понятия не имею. Возможна имеющаяся структура ini файлов не позволят это сделать?
Поэтому прошу, пожалуйста, товарищи, помогите!!!!!!!!





Присоединённый файл ( Кол-во скачиваний: 17 )
Присоединённый файл  Expert_System.rar 18,31 Kb
PM MAIL   Вверх
lukas
Дата 3.2.2008, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



я не пойму в чем проблема? записать это в ини файл или придумать систему распознавания N-кол-во вопросов?

в ини можно записать что угодно, любое дерево можно представить в плоской записи....


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
Qu1nt
Дата 3.2.2008, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50



Я бы использовал XML.
PM MAIL   Вверх
Student00
Дата 3.2.2008, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Цитата(Qu1nt @ 3.2.2008,  17:33)
Я бы использовал XML.

А поддерживает ли Delphi 7 такой формат В смысле для ini файл есть такой модуль uses: IniFiles
и класс (м/б не класс): TIniFile
А для xml есть что-нить подобное?
PM MAIL   Вверх
EvilsInterrupt
Дата 3.2.2008, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Executables research
***


Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: 3
Всего: 9



Student00, Ну сколько можно упомянать про XML Data Binding блин ??? Я уже одному тут на форуме алгоритм, как и что жать и как применять на деле показал!!!
PM MAIL WWW ICQ Jabber   Вверх
Student00
Дата 4.2.2008, 02:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Цитата(EvilsInterrupt @ 3.2.2008,  22:34)
Student00, Ну сколько можно упомянать про XML Data Binding блин ??? Я уже одному тут на форуме алгоритм, как и что жать и как применять на деле показал!!!

Блин я все нафиг переделал.
Решил в качестве БД использовать не какой-то ini, а полноценную БД на Microsoft Office Access 2003
Поэтому возможно в этом разделе тема опять не прокатит.

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

1) Как видно на первой странице мы в компонент DBLookupComboBox1 из BD.mdb  присваеваем значения из таблицы "kat".
2) Переходим на следующую страницу и начинаются проблемы:
Компонент DBLookupListBox1 должен отображать список вопросов, соответствующих выбранной на первом шаге категории. Для этого он обращается к таблице "vopros", но выводятся все вопросы какие есть в таблице.

Подскажите пожалуйста что нужно сделать чтобы было как должно быть. Возможно нужно подругому организовать БД, возможно нужно что-то сделать (прописать в коде, либо может компонент какой бросить или заменить) - я не знаю.

Это сообщение отредактировал(а) Student00 - 4.2.2008, 02:28

Присоединённый файл ( Кол-во скачиваний: 20 )
Присоединённый файл  Expert_System__3_.rar 19,48 Kb
PM MAIL   Вверх
D7_beginner
Дата 4.2.2008, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 21.11.2007

Репутация: нет
Всего: нет



Цитата(Student00 @  4.2.2008,  02:27 Найти цитируемый пост)
Подскажите пожалуйста что нужно сделать чтобы было как должно быть. Возможно нужно подругому организовать БД, возможно нужно что-то сделать (прописать в коде, либо может компонент какой бросить или заменить) - я не знаю.


Все же просто. Укажите второму АДО(у тебя ADOTable2) Master Source на DataSource1 и сопоставьте поля в MasterFields(id_kat-id_kat).
PM MAIL   Вверх
Insert
Дата 4.2.2008, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1



Раз такой разговор пошел, то в идеале пользовать нейросети.
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
Student00
Дата 4.2.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Проблема опять такая:
Выбрав из компонента DBLookupListBox1 строку, т.е совершив событие onClick
обращаемся к БД таблице otvet и получаем список ответов соответствующих выбранному вопросу.
Компонент DBRadioGroup1 как бы принимает эти данные о количестве ответов и динамически добавляет нужное количество радиокнопок.
Пробовал как и раньше MasterFields, Датасоурсы, тейбл, Квери... Ничего не получается.
Возможно необходимо программно прописать. Пытался реализовать и это но ничего не получилось:
Код

DBRadioGroup1.Items.Add(?);

Так д/б быть но на самом деле этого нет.


Помогите, пожалуйста сделать. ))

Прилагаю последнюю версию программы.

Это сообщение отредактировал(а) Student00 - 4.2.2008, 16:49

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  Expert_System__3_.zip 35,40 Kb
PM MAIL   Вверх
Student00
Дата 4.2.2008, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



up
PM MAIL   Вверх
Student00
Дата 4.2.2008, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Код

procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
while ADOTableRadio1.Eof <> true do
begin
DBRadioGroup1.Items.Add('select count(*) from otvet where id_vopros = :id_vopros');
end;
end;


Вроде бы программа запускается, но когда совершаю указанное событие - зависает и в месте, где д/б радио кнопки - что-то похожее на вкл/выкл.

Есть подозрения, что написана фигня.

Это сообщение отредактировал(а) Student00 - 4.2.2008, 22:39
PM MAIL   Вверх
D7_beginner
Дата 5.2.2008, 06:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 21.11.2007

Репутация: нет
Всего: нет



Держите пример думаю это то что вы хотели

Присоединённый файл ( Кол-во скачиваний: 41 )
Присоединённый файл  Expert_System__3_.rar 17,87 Kb
PM MAIL   Вверх
Student00
Дата 5.2.2008, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 22.11.2007
Где: Барнаул

Репутация: нет
Всего: нет



Цитата(D7_beginner @ 5.2.2008,  06:53)
Держите пример думаю это то что вы хотели

Огромное вам спасибо!!! )))
PM MAIL   Вверх
optik
Дата 13.5.2008, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.11.2006

Репутация: нет
Всего: нет



автор, будь добр, скинь пожалуйста проект который запускается без ошибок, а то прога, прикреплённая в последнем сообщении почему то не особо пашет (говорит что не хватает какого то компонента XPMan, предлагает его удалить и потом соответсвенно не работает) или подскажи вкратце как запустить прожку правильно?

Это сообщение отредактировал(а) optik - 13.5.2008, 18:37
PM MAIL   Вверх
ZBugz
Дата 15.5.2008, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6



Цитата(optik @ 13.5.2008,  18:34)
говорит что не хватает какого то компонента XPMan, предлагает его удалить и потом соответсвенно не работает

Поставь Делфи 7 и выше.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0839 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.