Geum.ru


Экспертные системы тестирования

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование




9;1;. richtextbox1. textRTF: =;. richtextbox2. SetFocus;. edit2. Text: =inttostr (form1. richtextbox2. Find (form1. ListBox1. Items. Strings [1]));. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. RichTextBox2. LoadFile (form1. Edit3. Text);;FirstTest;. richtextbox1. textRTF: =;. richtextbox2. SetFocus;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)])]));. richtextbox2. SelRTF: =;. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox2. SelRTF: =;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)]) +1]));. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. RichTextBox2. LoadFile (form1. Edit3. Text);;prew;. Edit1. Text: =inttostr (strtoint (form1. Edit1. Text) - 1);. richtextbox1. textRTF: =;. richtextbox2. SetFocus;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)])]));. richtextbox2. SelRTF: =;. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox2. SelRTF: =;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)]) +1]));. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. RichTextBox2. LoadFile (form1. Edit3. Text);;;Nex;. Edit1. Text: =inttostr (strtoint (form1. Edit1. Text) +1);. richtextbox1. textRTF: =;. richtextbox2. SetFocus;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)])]));. richtextbox2. SelRTF: =;. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox2. SelRTF: =;. edit2. Text: =inttostr (form1. richtextbox2. Find

(form1. ListBox1. Items. Strings [strtoint (form1. ListBox3. Items. Strings [strtoint (form1. Edit1. Text)]) +1]));. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. RichTextBox2. LoadFile (form1. Edit3. Text);;;

// Функция получения случайного числаRandomChisla (rez: integer): string;;: =inttostr (Random (rez));;

// Процедура случайного выбора не повторяющихся чиселSluchai;,j,kol,slu1: integer;. ListBox3. Clear;: =strtoint (form1. StatusBar1. Panels. Items [1]. Text); // общее выбранное количество тестовi: =1 to form1. ListBox1. Items. Count-2 do. ListBox3. Items. Add (inttostr (i)); // заполнение массива параметром (i);j: =1 to kol do // выбор из массива случайных неповторяющихся чисел: =strtoint (RandomChisla (form1. listbox3. Items. Count)); // диапазон генерации. ListBox3. Items. Add (form1. ListBox3. Items. Strings [slu1]); // добавление в список случайных тестов. ListBox3. Items. Delete (slu1); // удаление из основного масива случайного числа;. ListBox3. Items. Insert (0,тесты);;

// Процедура загрузка первого тестаErste;. RadioButton1. Enabled: =true;. RadioButton2. Enabled: =true;. RadioButton3. Enabled: =true;. RadioButton4. Enabled: =true;. RadioButton5. Enabled: =true;. Label2. Caption: = Вопрос № +inttostr (strtoint (form1. Edit1. Text));. StatusBar1. Panels. Items [7]. Text: =inttostr (strtoint (form1. Edit1. Text));;;

//

// Процедура загрузки тестовZagruzka1;,n: integer;. BitBtn11. Caption: =Начать;. ProgressBar1. Visible: =true;. ProcessMessages;. RichTextBox2. LoadFile (form1. Edit3. Text);. ProgressBar1. Max: =StrToInt (form1. SpinEdit2. Text);. richtextbox2. SetFocus;. ListBox2. Items. Insert (0,тесты);. ListBox1. Items. Add (тесты);i: =1 to StrToInt (form1. SpinEdit2. Text) +1 do. ProgressBar1. Position: = (i);: =form1. RichTextBox2. Find (1 then. edit2. Text: =inttostr (form1. richtextbox2. Find (form1. ListBox1. Items. Strings [strtoint (form1. Edit1. Text)])); // конец поиска. richtextbox2. SelStart: =0;. richtextbox2. SelLength: =strtoint (form1. edit2. Text);. richtextbox1. SelRTF: =form1. richtextbox2. SelRTF;. ProgressBar1. Visible: =false;. RichTextBox2. LoadFile (form1. Edit3. Text);. Label1. Caption: =form1. LabeledEdit1. Text;(Testing"S"+#13+#10+#13+#10+

Программа тестирования не нашла ни одного теста,mtInformation, [mbOk],0);;;

// Процедура выгрузки тестовvigruzka1;. Edit1. Text: =1;. Edit2. Text: =0;. LabeledEdit1. Clear;. LabeledEdit2. Clear;. Label1. Caption: =;. RichTextBox1. SetFocus;. RichTextBox1. TextRTF: =;. RichTextBox2. SetFocus;. RichTextBox2. TextRTF: =;. ListBox1. Clear;. ListBox2. Clear;. ListBox3. Clear;. ListBox4. Clear;. ListBox5. Clear;. ListBox6. Clear;. StatusBar1. Panels. Items [1]. Text: = ;. StatusBar1. Panels. Items [3]. Text: = ;. StatusBar1. Panels. Items [7]. Text: = ;. BitBtn5. Enabled: =false;. BitBtn6. Enabled: =false;. BitBtn7. Enabled: =false;. BitBtn8. Enabled: =false;. RadioButton1. Enabled: =false;. RadioButton2. Enabled: =false;. RadioButton3. Enabled: =false;. RadioButton4. Enabled: =false;. RadioButton5. Enabled: =false;. RadioButton1. Checked: =false;. RadioButton2. Checked: =false;. RadioButton3. Checked: =false;. RadioButton4. Checked: =false;. RadioButton5. Checked: =false;. CheckBox1. Visible: =false;. CheckBox2. Visible: =false;. CheckBox3. Visible: =false;. CheckBox4. Visible: =false;. CheckBox5. Visible: =false;;TForm1. BitBtn1Click (Sender: TObject);. Notebook1. ActivePage: =1;;TForm1. BitBtn3Click (Sender: TObject);Form1. Edit6. Text= then. Notebook1. ActivePage: =3;: =3;. ShowModal;;;TForm1. BitBtn4Click (Sender: TObject);(form1. LabeledEdit1. Text) then. ListBox2. Items. LoadFromFile (form1. Edit4. Text);. Notebook1. ActivePage: =4;. Panel1. ClientWidth: =0;. StatusBar1. Visible: =true;;(Введите данные);;EFOpenError do(На выбранное задание отсутствует файл ответов);;;;TForm1. FileListBox1Click (Sender: TObject);. Edit3. Text: =;. Edit4. Text: =;. Edit3. Text: =Form1. FileListBox1. Direадание отсутствует файл ответов);;;;TForm1. FileListBox1Click (Sender: TObject);. Edit3. Text: =;. Edit4. Text: =;. Edit3. Text: =Form1. FileListBox1. Directory+\+Form1. FileListBox1. Items. Strings [Form1. FileListBox1. ItemIndex];. Edit4. Text: =Form1. FileListBox1. Directory+\+ (Form1. FileListBox1. Items. Strings [Form1. FileListBox1. ItemIndex] +. txt);. Label9. Caption: =;. Label9. Caption: =Form1. FileListBox1. Items. Strings [Form1. FileListBox1. ItemIndex];;TForm1. BitBtn9Click (Sender: TObject);. Close;;TForm1. BitBtn11Click (Sender: TObject);i: integer;form1. BitBtn11. Caption=Стоп thenMessageDlg (Вы действительно хотите закончить тестирование? ,mtInformation, [mbOk,mbCancel],0) = mrOk then. Timer1. Enabled: =false; // остановка таймера. StatusBar1. Panels. Items [5]. Text: =;;;;;;;. Notebook1. ActivePage: =1;. Panel1. ClientWidth: =177;. StatusBar1. Visible: =false;

// form2. N2. Enabled: =false;. BitBtn11. Caption: =Стоп;. BitBtn5. Enabled: =true;. BitBtn6. Enabled: =true;. BitBtn7. Enabled: =true;. BitBtn8. Enabled: =true;. ListBox4. Items. Add (тесты);i: =1 to form1. ListBox1. Items. Count-2 do. ListBox4. Items. Add (не отвечено);;;;: =strtoint (form1. StatusBar1. Panels. Items [3]. Text);: =1;. Timer1. Enabled: =true; // Запуск таймера;;TForm1. FormCreate (Sender: TObject);;. Label10. Caption: =FormatDateTime (dd/mm/yyyy,Now);. Notebook1. ActivePage: =Default;Session do: = cmSession;(TESTING,ExtractFilePath (ParamStr (0)) {+Data\},PARADOX);. Table1. Active: =True; // откроем базу: = cmAll;;;;;TForm1. BitBtn5Click (Sender: TObject);: string;form1. edit1. Text<>1 then. Edit1. Text: =1;. RadioButton1. Checked: =false;. RadioButton2. Checked: =false;. RadioButton3. Checked: =false;. RadioButton4. Checked: =false;. RadioButton5. Checked: =false;. CheckBox1. Visible: =false;. CheckBox2. Visible: =false;. CheckBox3. Visible: =false;. CheckBox4. Visible: =false;. CheckBox5. Visible: =false;: = (listbox4. Items. Strings [strtoint (edit1. Text)]);h [1] =A then. CheckBox1. Visible