Курсовая работа по дисциплине «человеко-машинное взаимодействие»


Скачать 151.99 Kb.
НазваниеКурсовая работа по дисциплине «человеко-машинное взаимодействие»
Дата публикации09.03.2013
Размер151.99 Kb.
ТипКурсовая
userdocs.ru > Военное дело > Курсовая

МИНИСТЕРСТВО ОБОРОНЫ РОССИЙСКОЙ ФЕДЕРАЦИИ


ВОЕННО-МОРСКОЙ ИНСТИТУТ РАДИОЭЛЕКТРОНИКИ имени А.С. ПОПОВА

(Ф И Л И А Л)

ФЕДЕРАЛЬНОГО ГОСУДАРСТВЕННОГО ВОЕННОГО ОБРАЗОВАТЕЛЬНОГО УЧРЕЖДЕНИЯ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ «ВОЕННЫЙ УЧЕБНО-НАУЧНЫЙ ЦЕНТР ВОЕННО-МОРСКОГО ФЛОТА

« ВОЕННО-МОРСКАЯ АКАДЕМИЯ им. Адмирала Флота Советского Союза Н. Г. Кузнецова»




Кафедра №51
КУРСОВАЯ РАБОТА

по дисциплине

^ «ЧЕЛОВЕКО-МАШИННОЕ ВЗАИМОДЕЙСТВИЕ»
на тему:

«Разработка автоматизированной системы составления расписания занятий для учебных групп в соответствии с учебным планом с использованием возможностей ООП».


Выполнил: курсант Беззаботнов О.О. 244 класс
Проверила: преподаватель каф. № 23 Павлова Л.К.

Петродворец 2010г.

Оглавление




Введение……………………………………………………………. ….стр. 3

1. Постановка задачи…………………………………………………. стр. 4-6

2. Алгоритм составления расписания……………………………….. стр. 5-10


3. Блок-схема программы…………………………………………….. стр. 11

4. Руководство к использованию…………………………………….. стр. 12-14

Заключение…………………………………………………………….. стр. 15

5. Список используемой литературы………………………………… стр. 16

6. Текст программы…………………………………………………….стр. 17-27



Введение
Составление расписания занятий студентов и курсантов весьма трудоемкий процесс. Существует много данных, которые необходимо учесть при составлении расписания: данные о свободных и занятых аудиториях, свободных и занятых преподавателях преподавателей, а также учебный план групп. Необходимо иметь заполненную картотеку по всем преподавателям, аудиториям, дисциплинам, учебным парам, группам, специальностям и кафедрам.

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

^ 1 Постановка задачи

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

Учебный отдел осуществляет контроль за организацией учебного процесса на факультетах и кафедрах.

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

Факультеты и кафедры обязаны представить в учебный отдел в сроки, определенные сведения и учебно-методическую документацию, связанную с учебным процессом и работой профессорско-преподавательского состава.

Учебный отдел дает разрешение преподавателям кафедр на работу по трудовым соглашениям и по совместительству.

Все заявки учебного отдела, связанные с выполнением работ по обеспечению учебного процесса, выполняются подразделениями филиала в первую очередь .

И так, мы видим активную взаимосвязь с кафедрами и факультетами учебного заведения, образующую информационные потоки, т.е. перемещение информации от одного субъекта образовательного пространства к другому, что способствуют обеспечению организации внутри учреждения. Представим в виде модели (рис.1).




^ Рис.1. Модель информационных потоков

Контроль в вузе по организации учебного процесса осуществляется ректоратом, департаментом по учебно-методической работе, деканами, заведующими кафедрами.

В обязанности начальника учебного отдела входит:

Контролировать соответствие расписания учебных занятий учебным планам подготовки специалистов, а также нормативным документам организации учебного процесса.
Программа имеет следующие ограничения:

- Не учитывает загруженность преподавателей и учебных групп;

- Не учитывает праздничные дни;

- Колличество элементов учебного плана до 10000

- Классы в пределах 100-1000.

^ Преимущества Delphi Borland 7:

Delphi — один из самых популярных и эффективных инструментов разра­ботки сложных приложений, и возможность интегрировать средства прило­жений MS Office в разрабатываемые в этой среде проекты — бесспорное тому доказательство.

С помощью Delphi Borland 7 удалось в полной мере выполнить данное курсовое проектирование, реализовав все поставленные в задании задачи. Delphi Borland 7 позволяет в полной мере отображает все достоинства объектно-ориентированного подхода, позволяя создавать новые классы и использовать библиотеку уже созданных классов. Так же данная среда удобна для разработки интерфейса.

На сегодняшний день существует ряд программ реализующих технологию "Расписание".

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

Прежде чем приступить к разработке реального проекта, я рассмотрел уже имеющие программные продукты. Такие программы очень дорогостоящие, сделаны для крупных предприятий или сложны в обращении. Так же для ведения таких программ нужна поддержка, которая требует больших материальных затрат, заключение специальных договоров о сопровождении и необходимость содержать целый штат сотрудников, которые будут заниматься ее поддержкой. Нами было принято решение создать оригинальную программу более легкую в эксплуатации на платформе PARADOX. В следующей главе рационально уделить внимание выбору средств разработки будущей информационной системы.

^ 2 Алгоритм составления рассписания.
В программе автоматической составления учебного расписания предложено упростить поддержку дисковых операций путем передачи соответствующих функций готовой системы управления базой данных (СУБД). Уменьшено число необходимых решений, которые приходится принимать в процессе разработки всех частей программы, отвечающих за длительное хранение данных. С этой целью сокращен сам объем исходного текста соответствующих подпрограмм за счет использования вызовов готовой и уже отлаженной программы вместо полностью самостоятельной поддержки требуемых функций.

Вся работа по составлению расписаний связана с базой данных.

Подробно остановимся на создании расписания:

  1. Введение локальных переменных

ch:array[1..1000] of integer;

kl:array[100..1000] of integer;

ind, i, j, k:integer;

Label nazad, nazad2, nazad3;

  1. Очистка текстового поля, подсчет количества полей, возращение базы данных на первое поле.

memo1.Clear;

ind:=table1.RecordCount;

table1.First;

  1. Загрузка в массив ch[i] данных о учебных часах, очистка заполненных файлов;

for i:=1 to ind do

begin

ch[i]:=strtoint(table1.Fields[4].Text);

if FileExists('rasp/'+table1.Fields.Fields[0].Text+'.txt')then

memo1.Lines.savetoFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

table1.Next;

end;

  1. Проверка если часов меньше 1;

if ch[i]<1 then

begin

if i=ind then

begin table1.First; i:=1;

goto nazad;

end else

begin

i:=i+1;

table1.Next;

goto nazad;

end;

end;

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

for j:=1 to ind do

begin

if kl[table1.Fields.Fields[0].AsInteger]<3 then goto nazad2;

if j=ind then

begin

monthcalendar1.Date:=monthcalendar1.Date+1;

table1.First;

for k:=1 to ind do

begin

kl[table1.Fields.Fields[0].AsInteger]:=0;

table1.Next;

end;

end;

end;


  1. Возращение базы данных на текущее поле поле, загрузка предыдущего расписания, проверка на заполненность дня.


table1.First;

table1.MoveBy(i-1);

if FileExists('rasp/'+table1.Fields.Fields[0].Text+'.txt')then

memo1.Lines.LoadFromFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

if kl[table1.Fields.Fields[0].AsInteger]=3 then

begin

if i>ind then

begin table1.First; i:=1;

end else

begin

i:=i+1;

table1.Next;

end;

goto nazad;

end;


  1. Проверка на выходной, запись в файл данных о текущем поле.


if dayofweek(monthcalendar1.DATE)=1 then monthcalendar1.Date:=monthcalendar1.Date+1;

if kl[table1.Fields.Fields[0].AsInteger]=0 then memo1.Lines.Add(datetostr(monthcalendar1.Date));

memo1.Lines.Add('Кафедра: '+table1.Fields.Fields[1].Text);

memo1.Lines.Add('Дисциплина: '+table1.Fields.Fields[2].Text);

memo1.Lines.Add('Преподаватель: '+table1.Fields.Fields[3].Text);

memo1.Lines.Add('');

memo1.Lines.SaveToFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

memo1.Lines.Clear;


  1. Уменьшение часов в массиве, учет заполненности в текущем дне, переход на шаг 4, проверка на количество оставшихся часов. Если в массиве все элементы равны 0, то завершить составление расписания.


ch[i]:=ch[i]-2;

i:=i+1;

kl[table1.Fields.Fields[0].AsInteger]:=kl[table1.Fields.Fields[0].AsInteger]+1;

if i>ind then begin table1.First; i:=1 end else

table1.next;
for j:=1 to ind do

if ch[j]>0 then goto nazad;

nazad3:

3 Блок- схема программы


^ ФАЙЛЫ ОТЧЕТА

ВЫВОД РЕЗУЛЬТАТОВ


















^ СОХРАНЕНИЕ В ФАЙЛ











4 Руководство к использованию
Перед началом работы необходимо настороисть вазу данных: Для этого неопходимо переместить файл main.db на путь C://

Главная форма:



Данная форма осуществляет доступ к другим формам программой для осуществления бытрого доступа. Имеется доступ к формам:

-Расписание

-Шаблоны

-О программе

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

^ Форма расписание:

Основная форма проекта. Верхняя часть формы предназначена для ввода исходных данных: редактирование учебного плана. Нижняя – для вывода на экран полученных данных.



^ Форма «Редактирование шаблонов»

Данная форма предназначена для добавления шаблонов, которые применяются для удобства ввода в базу данных. Кнопка X предназнчена для удалния текущего элементя в списке.



^ Форма «О программе»

Предназначена для показа основной информации о программе и ее авторе.



Заключение
АС "Расписание", решает все поставленные задачи:

-Ввод, редактирование и удаление информации, являющейся основой для составления расписания и называемой "Данные к расписанию".

-Ввод, редактирование и удаление объектов расписания. К ним относятся: преподаватели, дисциплины, кафедры, группы.

-Вывод отчетов: расписание занятий.

-Сохранение базы данных в оригинальный каталог в автоматическом режиме.

Информационная система обладает удобным графическим интерфейсом.

5 Использованная литература


  1. Конспект лекций

  2. Программирование в Delphi Юдонин О.К. Москва 2005г.

  3. ООП и приложения Мироков Н.Н. Санкт-Петербург 2003г.

  4. Голицына О.Л. Базы данных / Голицына О.Л., Максимов Н.В., - М.: Форум, 2003. - 352 с.

  5. Малыхина М.П. Базы данных: основы, проектирование, использование. Издательство "Финист", 2004. - 512 с.



6 Текст программы
unit MAIN;
interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,

StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,

ActnList, ToolWin, ImgList, DB, DBTables;

type

TMainForm = class(TForm)

Panel1: TPanel;

SpeedButton2: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

MainMenu1: TMainMenu;

File1: TMenuItem;

rasp: TMenuItem;

FileExitItem: TMenuItem;

Help1: TMenuItem;

HelpAboutItem: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure raspClick(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FileExitItemClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure HelpAboutItemClick(Sender: TObject);

private

{ Private declarations }

public
end;
var

MainForm: TMainForm;

implementation
uses Unitbez, Unit2, Unit4;
{$R *.dfm}

procedure TMainForm.SpeedButton2Click(Sender: TObject);

begin

form1.show;

form1.dbcombobox1.Items.LoadFromFile('klass.txt');

form1.dbcombobox2.Items.LoadFromFile('kaf.txt');

form1.dbcombobox3.Items.LoadFromFile('dis.txt');

form1.dbcombobox4.Items.LoadFromFile('prep.txt');

form1.dbcombobox5.Items.LoadFromFile('chas.txt');

end;
procedure TMainForm.SpeedButton5Click(Sender: TObject);

begin

form2.show;

end
procedure TMainForm.raspClick(Sender: TObject);

begin

form1.show;

end;
procedure TMainForm.SpeedButton9Click(Sender: TObject);

begin

mainform.close;

end;

procedure TMainForm.SpeedButton8Click(Sender: TObject);

begin

form4.show;

end;
procedure TMainForm.N2Click(Sender: TObject);

begin

form2.Show;

end;
procedure TMainForm.FileExitItemClick(Sender: TObject);

begin

form1.Close;

end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

showmessage('Спасибо за пользование программой! Все расписания сохранены в папке rasp/');

end;

procedure TMainForm.HelpAboutItemClick(Sender: TObject);

begin

form4.Show;

end;

end.

unit Unitbez;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, DB, DBTables, Grids, DBGrids, DBCtrls, Mask,

ExtCtrls, Buttons, Spin, Calendar, OleServer, ExcelXP, ComCtrls, ADODB,

CheckLst;
type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

Label4: TLabel;

N1: TMenuItem;

Label5: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

StaticText1: TStaticText;

Label6: TLabel;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Table1Klass: TStringField;

Table1Kaf: TStringField;

Table1Disc: TStringField;

Table1Prepod: TStringField;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

DBComboBox3: TDBComboBox;

DBComboBox4: TDBComboBox;

Label11: TLabel;

Button2: TButton;

Edit2: TEdit;

Button3: TButton;

MonthCalendar1: TMonthCalendar;

Button5: TButton;

Memo1: TMemo;

Table1CHASI: TFloatField;

DBComboBox5: TDBComboBox;

DBNavigator1: TDBNavigator;

Label7: TLabel;

Edit3: TEdit;

N5: TMenuItem;

Label9: TLabel;

Memo2: TMemo;

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);
private

{ Private declarations }

public

{ Public declarations }

end;
var
//l:array[1..1000] of integer;

//p:array[1..1000] of integer;

//s:array[1..1000] of integer;
Form1: TForm1;
implementation
uses Unit2, Unit4;
{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

//combobox2.Items.LoadFromFile('дисциплина/'+combobox1.text+'.txt');

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

dbcombobox1.Items.LoadFromFile('klass.txt');

dbcombobox2.Items.LoadFromFile('kaf.txt');

dbcombobox3.Items.LoadFromFile('dis.txt');

dbcombobox4.Items.LoadFromFile('prep.txt');

dbcombobox5.Items.LoadFromFile('chas.txt');
end;
procedure TForm1.ComboBox2Change(Sender: TObject);

begin

//combobox5.Items.LoadFromFile('преподаватели/'+combobox3.text+'.txt');

end;
procedure TForm1.MonthCalendar1Click(Sender: TObject);

begin

edit2.Text:=datetostr(monthcalendar1.Date);

end;
procedure TForm1.Button3Click(Sender: TObject);

begin

//calendar1.Visible:=false;

//edit1.Text:=(inttostr(calendar1.Day)+'.'+inttostr(calendar1.Month)+'.'+inttostr(calendar1.Year));

edit2.Enabled:=false;

//calendar2.Visible:=true;

end;
procedure TForm1.Button5Click(Sender: TObject);

var

ch:array[1..1000] of integer;

kl:array[100..1000] of integer;

ind, i, j, k:integer;

Label nazad, nazad2, nazad3;

begin

memo1.Clear;

ind:=table1.RecordCount;

table1.First;

for i:=1 to ind do

begin

ch[i]:=strtoint(table1.Fields[4].Text);

if FileExists('rasp/'+table1.Fields.Fields[0].Text+'.txt')then

memo1.Lines.savetoFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

table1.Next;

end;

table1.First;

i:=1;

nazad:

if ch[i]<1 then

begin

if i=ind then

begin table1.First; i:=1;

goto nazad;

end else

begin

i:=i+1;

table1.Next;

goto nazad;

end;

end;

for j:=1 to ind do

begin

if kl[table1.Fields.Fields[0].AsInteger]<3 then goto nazad2;

if j=ind then

begin

monthcalendar1.Date:=monthcalendar1.Date+1;

table1.First;

for k:=1 to ind do

begin

kl[table1.Fields.Fields[0].AsInteger]:=0;

table1.Next;

end;

end;

end;

nazad2:

table1.First;

table1.MoveBy(i-1);

if FileExists('rasp/'+table1.Fields.Fields[0].Text+'.txt')then

memo1.Lines.LoadFromFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

if kl[table1.Fields.Fields[0].AsInteger]=3 then

begin

if i>ind then

begin table1.First; i:=1;

end else

begin

i:=i+1;

table1.Next;

end;

goto nazad;

end;
// запись в мемо

if dayofweek(monthcalendar1.DATE)=1 then monthcalendar1.Date:=monthcalendar1.Date+1;

if kl[table1.Fields.Fields[0].AsInteger]=0 then memo1.Lines.Add(datetostr(monthcalendar1.Date));

memo1.Lines.Add('Кафедра: '+table1.Fields.Fields[1].Text);

memo1.Lines.Add('Дисциплина: '+table1.Fields.Fields[2].Text);

memo1.Lines.Add('Преподаватель: '+table1.Fields.Fields[3].Text);

memo1.Lines.Add('');

memo1.Lines.SaveToFile('rasp/'+table1.Fields.Fields[0].Text+'.txt');

memo1.Lines.Clear;

// конец записи

ch[i]:=ch[i]-2;

i:=i+1;

kl[table1.Fields.Fields[0].AsInteger]:=kl[table1.Fields.Fields[0].AsInteger]+1;

if i>ind then begin table1.First; i:=1 end else

table1.next;

for j:=1 to ind do

if ch[j]>0 then goto nazad;

nazad3:

end;
procedure TForm1.N3Click(Sender: TObject);

begin

form2.Show;

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

if FileExists('rasp/'+edit3.Text+'.txt')then

memo2.Lines.LoadFromFile('rasp/'+edit3.Text+'.txt');

end;
end.
unit Unit2;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus;
type

TForm2 = class(TForm)

Label4: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label6: TLabel;

StaticText1: TStaticText;

Button2: TButton;

Edit4: TEdit;

Button1: TButton;

Edit5: TEdit;

Button3: TButton;

Edit6: TEdit;

Button4: TButton;

Edit7: TEdit;

Button5: TButton;

ListBox1: TListBox;

ListBox2: TListBox;

ListBox3: TListBox;

ListBox4: TListBox;

Edit1: TEdit;

ListBox5: TListBox;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

F: file;

i:integer;

Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);

begin

listbox1.Items.LoadFromFile('klass.txt');

listbox2.Items.LoadFromFile('kaf.txt');

listbox3.Items.LoadFromFile('dis.txt');

listbox4.Items.LoadFromFile('prep.txt');

listbox5.Items.LoadFromFile('chas.txt');

end;
procedure TForm2.Button1Click(Sender: TObject);

begin

listbox1.Items.Add(edit4.Text);

listbox1.Items.SaveToFile('klass.txt');

listbox1.Items.LoadFromFile('klass.txt');

end;
procedure TForm2.Button3Click(Sender: TObject);

begin

listbox2.Items.Add(edit5.Text);

listbox2.Items.SaveToFile('kaf.txt');

listbox2.Items.LoadFromFile('kaf.txt');

end;
procedure TForm2.Button4Click(Sender: TObject);

begin

listbox3.Items.Add(edit6.Text);

listbox3.Items.SaveToFile('dis.txt');

listbox3.Items.LoadFromFile('dis.txt');

end;
procedure TForm2.Button5Click(Sender: TObject);

begin

listbox4.Items.Add(edit7.Text);

listbox4.Items.SaveToFile('prep.txt');

listbox4.Items.LoadFromFile('prep.txt');

end;
procedure TForm2.Button2Click(Sender: TObject);

begin

listbox5.Items.Add(edit1.Text);

listbox5.Items.SaveToFile('chas.txt');

listbox5.Items.LoadFromFile('chas.txt');

end;
procedure TForm2.Button6Click(Sender: TObject);

begin

listbox1.Items.Delete(listbox1.ItemIndex);

listbox1.Items.SaveToFile('klass.txt');

end;
procedure TForm2.Button7Click(Sender: TObject);

begin

listbox2.Items.Delete(listbox2.ItemIndex);

listbox2.Items.SaveToFile('kaf.txt');

end;
procedure TForm2.Button8Click(Sender: TObject);

begin

listbox3.Items.Delete(listbox3.ItemIndex);

listbox3.Items.SaveToFile('dis.txt');

end;
procedure TForm2.Button9Click(Sender: TObject);

begin

listbox4.Items.Delete(listbox4.ItemIndex);

listbox4.Items.SaveToFile('prep.txt');

end;
procedure TForm2.Button10Click(Sender: TObject);

begin

listbox5.Items.Delete(listbox5.ItemIndex);

listbox4.Items.SaveToFile('chas.txt');

end;
end.
unit Unit4;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;
type

TForm4 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form4: TForm4;
implementation
{$R *.dfm}
end.



Похожие:

Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине «Агрохимия»
Курсовая работа по дисциплине «Агрохимия»: / И. И. Серегина, В. Ф. Волобуева, В. М. Лапушкин, Т. В. Украинская. М.: Изд-во ргау –...
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине на тему: «Технологии социальной работы...
Фгбоу впо Пензенский государственный университет Факультет   Кафедра социологии и социальной теории и практики работы социальной...
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине «Питание и удобрение садовых растений»
Курсовая работа по дисциплине «Питание и удобрение садовых растений»: / И. И. Серегина, В. Ф. Волобуева, В. М. Лапушкин. М.: Изд-во...
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине «Общая психокоррекция»
Курсовая работа является формой учебной работы, в процессе которой студенты овладевают методикой и техникой научного исследования,...
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине «организация и управление производством»
Курсовая работа по дисциплине «организация и управление производством» состоит из следующих составляющих
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКазанский государственный университет культуры и искусств факультет...
Профориентационная работа с молодежью в контексте традиций и инноваций. 20
Курсовая работа по дисциплине «человеко-машинное взаимодействие» icon6. Курсовая работа
Курсовая работа студента обеспечивает реализацию цели и решение задачи курса на основе выполнения индивидуальных заданий по
Курсовая работа по дисциплине «человеко-машинное взаимодействие» icon6. Курсовая работа
Курсовая работа студента обеспечивает реализацию цели и решение задачи курса на основе выполнения индивидуальных заданий по
Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине: «Макроэкономика»

Курсовая работа по дисциплине «человеко-машинное взаимодействие» iconКурсовая работа по дисциплине «Управление трудовым ресурсами»

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2015
контакты
userdocs.ru
Главная страница