Курсовая работа ,,Генерация билетов,,

Данная программа предназначена для создания, редактирования и печати комплектов экзаменационных билетов, используемых в автоматизированном экзаменационном комплексе. Целью курсовой работы является написание такого программного обеспечения, которое в достаточной степени упростит создание экзаменационных билетов. ...

Содержание
Введение………………………………………………………………………..….3
Глава1 Пример создания комплекта экзаменационных билетов по дисциплине «Теория вероятностей и математическая статистика»……….....5
Глава2 Описание программы…………………………………..……………....10
2.1 Основная программа «Generate. dpr»……...………………...……….10
Заключение………………………………………………………………….…....13
Список литературы ……………………………………………………….……..14
Приложение А …………………………………………………………………..

Программа позволяет:
• Сохранять и легко изменять параметры генератора билетов и заданий в любой момент времени.
• Создать сколь угодно проектов для различных учебных предметов.
• Файлы вопросов, можно выбрать в окне редактора программы.
• Название конечного файла, содержит форму обучения, название группы и название предметной области, включенных из нее для генерации билетов.
• Программа не накладывает ограничений на место расположения файлов вопросов, включаемых в проект.
• Параметры каждого проекта генератора билетов сохраняются вместе с ним в файле проекта (с расширением .doc), в директории программы в папке "Projects".
Использование программы позволяет автоматизировать создание билетов для различного рода экзаменов и может быть полезной для составления билетов и заданий по любым уче бным дисциплинам, как в среднем, так и в высшем учебном заведении.

Clear; memo2.Clear; memo3.Clear; memo4.Clear; memo5.Clear;Счетчик нумерации билетов count:=0; Ставим фокус ввода на первое поле ввода edit1.SetFocus; Поле для названия вуза u:=edit1.Text; Поле для названия факультета f:=edit2.Text; Поле для названия специальности ss:=edit3.Text; Поле для названия дисциплины d:=edit4.Text; Элемент (виджет) графического интерфейса пользователя, который представляется собой прямоугольную панель для отображения индексации хода или выполнения каких-либо задач, к примеру, загрузку файла по сети ProgressBar1.Min:=0;ProgressBar1.Max:=100;Цикл распределения вопросов по билетам for i:=1 to (kolvo div 2) do begin while (true) do begin nr := Random(kolvo div 2)+1; ct :=0; for j := i-1 downto 1 do if mas1[j] = nr then inc(ct); if ct = 0 then begin mas1[i] := nr; break; end; end; while (true) do begin nr := Random(kolvo div 2) + kolvo div 2; ct :=0; for j := i-1 downto 1 do if mas2[j] = nr then inc(ct); if ct = 0 then begin mas2[i] := nr;break; end; end;end; for i:= (kolvo div 2) +1 to n do begin a:=-1;b:=-1; c:=-3;a:=random(kolvo)+1;b:=a; While (A=b) do b:=random(kolvo)+1; mas1[i] := a; mas2[i] := b; end; for i:=1 to n doОпределение выравнивания текста по значению "влево" RichEdit1.Paragraph.Alignment := taLeftJustify; Работа с текстовыми файлами RichEdit1.Lines.Add(Memo5.Text);RichEdit1.Lines.SaveToFile(ss+ d+'.doc'); Кнопка выходаprocedure TForm1.Button2Click(Sender: TObject); Закрытие формы, через верхнее менюprocedure TForm1.N7Click(Sender: TObject);begin close; end; Кнопка печатьprocedure TForm1.N6Click(Sender: TObject); Вызов диалогового окна работы с принтером printdialog1.Execute; Вызов окна шрифт fontdialog1.Execute; ЗАКЛЮЧЕНИЕВ данной курсовой работе была написана программа генерирующая комплекты экзаменационных билетов, автоматизирующая создание билетов для различного рода экзаменов. Также рассмотрен пример создания комплекта экзаменационных билетов по дисциплине «Теория вероятностей и математическая статистика». Использовав практически программу «Generate» можно отметить что, во-первых на составление билетов с ее помощью тратится гораздо меньше времени, чем, если бы мы вручную сами распределяли вопросы по билетам, во-вторых отсутствует необходимость дальнейшего редактирования содержимого документа, так как он сразу же готов к печати.Следовательно, можно сделать вывод, что цель курсовой работы достигнута.Программа написана на языке программирования Delphi в среде компилятора Delphi 7.0. Объем программы составляет 800 КБ. Минимальные системные требования для установки программы: процессор – Intel Pentium II / 233 МГц, операционная система – Microsoft Windows 98, 2000, Windows XP, Vista, 7; ОЗУ – 0.5 Мб.СПИСОК ЛИТЕРАТУРЫДарахвелидзе П. Г.,Маркова Е. П. Программирование в Delphi 7.- СПб.:БХВ-Петербург, 2003. – 784 с.Бобровский С. И. Delphi 7.Учебный курс. – СПб.: Питер, 2004. – 35с.Гофман В. Э. , Хомоненко А. Д. Delphi. Быстрый старт. – СПб. :БХВ-Петербург, 2003. – 288 с.Приложение Аunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, ToolWin, ExtCtrls, Menus, ComObj, WordXP, OleServer, DB, DBTables, Grids, DBGrids,ShellAPI;type TForm1 = class(TForm) Panel1: TPanel; GroupBox1: TGroupBox; Edit1: TEdit; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Edit3: TEdit; Label3: TLabel; Edit4: TEdit; Label4: TLabel; Edit5: TEdit; Label5: TLabel; Button1: TButton; Button2: TButton; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N6: TMenuItem; N7: TMenuItem; Memo1: TMemo; OpenDialog1: TOpenDialog; Memo2: TMemo; Memo3: TMemo; Memo4: TMemo; FontDialog1: TFontDialog; PrintDialog1: TPrintDialog; Memo5: TMemo; ProgressBar1: TProgressBar; Read1: TMenuItem; RichEdit1: TRichEdit; Edit6: TEdit; Edit7: TEdit; UpDown1: TUpDown; Label7: TLabel; Label6: TLabel; Label8: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N2Click(Sender: TObject); Procedure Reading; procedure Read1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; u,f,ss,d,p:string; a,b,c,bilet:integer; path: string; s_mas: array [1..100] of string; kolvo: integer; implementation Procedure TForm1.Reading; var Ff: Textfile; i,j: integer; s: string; begin AssignFile(ff,path + 'questions.txt'); reset(ff); i:=1; assignfile(ff,'questions.txt'); reset(ff); while (not eof(ff)) do begin readln(ff,s_mas[i]) ; inc(i); end; closefile(ff); kolvo:=i-1; if kolvo > 0 then Button1.Enabled := true;end; procedure TForm1.