0 / 0 / 0
Регистрация: 18.04.2018
Сообщений: 34
1

Clips и C#

21.05.2019, 14:32. Показов 907. Ответов 1
Метки нет (Все метки)

Доброго времени суток!

Как передать текст из файла clips, чтобы он выводил русский текст?

у меня есть файл на clips, но когда я создаю ответы, по которым будут совершаться переходы, то clips выдает ошибку и не выполняет действия. Когда я интегрирую clips в проект на C# он выдает что не может найти файл. Делал полной путь к файлу, изменяла текст. Ни в какую
Вывод ответа вопроса в проекте на C#
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 nextButton.Visible = false;
            prevButton.Visible = false;
            choicesPanel.Controls.Clear();
            _theEnv.Run();
 
            // Get the state-list.
            String evalStr = "(find-all-facts ((?f state-list)) TRUE)";
            using (FactAddressValue allFacts = (FactAddressValue)((MultifieldValue)_theEnv.Eval(evalStr))[0])
            {
                string currentID = allFacts.GetFactSlot("current").ToString();
                evalStr = "(find-all-facts ((?f UI-state)) " +
                               "(eq ?f:id " + currentID + "))";
            }
 
            using (FactAddressValue evalFact = (FactAddressValue)((MultifieldValue)_theEnv.Eval(evalStr))[0])
            {
                string state = evalFact.GetFactSlot("state").ToString();
                if (state.Equals("initial"))
                {
                    nextButton.Visible = true;
                    nextButton.Tag = "Next";
                    nextButton.Text = "Вперед";
                    prevButton.Visible = false;
                }
                else if (state.Equals("final"))
                {
                    nextButton.Visible = true;
                    nextButton.Tag = "Restart";
                    nextButton.Text = "Закончить!";
                    prevButton.Visible = false;
                }
                else
                {
                    nextButton.Visible = true;
                    nextButton.Tag = "Next";
                    prevButton.Tag = "Prev";
                    prevButton.Visible = true;                    
                }
 
                using (MultifieldValue validAnswers = (MultifieldValue)evalFact.GetFactSlot("valid-answers"))
                {
                    String selected = evalFact.GetFactSlot("response").ToString();
                    for (int i = 0; i < validAnswers.Count; i++)
                    {
                        RadioButton rb = new RadioButton();
                        rb.Text = (SymbolValue)validAnswers[i];
                        rb.Tag = rb.Text;
                        rb.Visible = true;
                        rb.Location = new Point(10, 20 * (i + 1));
                        rb.Click += new EventHandler(Click);
                        //Click - это имя метода
 
                        choicesPanel.Controls.Add(rb);
                        
                    }
 
                }
код в файле с clips
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
;;; ***************************
;;; * DEFTEMPLATES & DEFFACTS *
;;; ***************************
(deftemplate UI-state
(slot id (default-dynamic (gensym*)))
   (slot display)
   (slot relation-asserted (default none))
   (slot response (default none))
   (multislot valid-answers)
   (slot state (default middle)))
   
(deftemplate state-list
   (slot current)
   (multislot sequence))
  
 
(deffacts startup
   (state-list))
 
;;;****************
;;;* STARTUP RULE *
;;;**************** 
(defrule system-banner ""
=>
  (assert (UI-state (display WelcomeMessage)
(relation-asserted start)
(state initial)
(valid-answers))))
 
;;;***************
;;;* QUERY RULES *
;;;***************
(defrule determine-user ""
(logical (start))
=>
(assert (UI-state (display StartQuestion)                     
(relation-asserted user)                     
(response Топливо)                     
(valid-answers Топливо Вода))))
 
(defrule determine-field-of-activity ""
(logical (user Вода))   
=>   
(assert (UI-state (display TwoQuestion)                     
(relation-asserted field-of-activity)                     
(response Пар)                     
(valid-answers Вода Пар))))
Помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2019, 14:32
Ответы с готовыми решениями:

Интеграция C++ и CLIPS
Всем привет и с праздниками!!! Друзья, подскажите пожалуйста как интегрировать С++ и CLIPS на носу...

Переведите пожалуйста с CLIPS на C++
//Клипс не знаю вовсе, знаю, что семантика другая, но нужно что-то похожее, пожалуйста!!!...

Задача Автоэксперт CLIPS
Нужно переделать задачу Автоэксперт. Пожалуйста,помогите! Новые условия: -факты- ...

Интерфейс для CLIPS в C++
Всем привет! Нужна помощь. Надо связать CLIPS с C++(builder или Visual) через интерфейс на них...

1
0 / 0 / 0
Регистрация: 18.04.2018
Сообщений: 34
23.05.2019, 12:18  [ТС] 2
Нашла решение!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2019, 12:18

CLIPS Editor на русском
Здесь есть файлы https://github.com/novikovag/CLIPSEditor Как из них сделать запускаемую программу?

Использование правил CLIPS в C++
Хочу использовать базу знаний написанную на языке CLIPS в программе на C++. Скачал нужные...

Интерфейс для CLIPS
Всем привет! никак не могу справиться с задачей. Необходимо создать интерфейс на builder C++ для...

Интерфейс для Clips
Здравствуйте. Нужно сделать графический интерфейс для экспертной системы. Кто нибудь выполнял такую...

Как запустить программу на CLIPS?
Скачал CLIPS версии 6.24 (для совместимости с Windows XP). Нашел инструкцию. Нашел проект, где...

Соединение CLIPS с C++ или DELPHI
Здравствуйте,скажите пожалуйста,возможно ли соединить программу,состоящую из правил продукций...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.