мі системами. Програма створює ПЄВНЄВ систему и Дає змогу додаваті в це неї Нові елєменти.
Для создания програми були вівчені теоретичні матеріали VB.Net і матеріали з ведення магазину.
У результаті булу Створена програма, что дозволяє вести інформаційну базу оргтехніки.
Інтерфейс програми дозволяє без особливая труднощів користуватись їй як досвідченому, так и починаючих корістувачеві ПК.
У результаті проведеної роботи були досягнуті ВСІ Завдання поставлені перед качаном курсової роботи.
СПИСОК літературних ДЖЕРЕЛ
1.Свамі М. Графи, мережі та алгоритми / М. Свамі, К. Тхуласіраман.- М.: Світ, 1984 - 454 с.
2.Ліпскій В. Комбінаторика для програмістів / В. Липський.- М.: Світ, 1988. - 200 с.
. Кнут Д. Мистецтво програмування, том 3. Сортування і пошук / Д. Кнут.- М.: Изд. дім «Вільямс», 2000. - 824 с.
4.Макконелл Дж. Основи сучасних алгоритмів / Дж. Макконелл - М.: Техносфера, 2004 - 368 с.
5.Свамі М. Графи, мережі та алгоритми / М. Свамі, К. Тхуласіраман.- М.: Світ, 1984 - 454 с.
6.Ліпскій В. Комбінаторика для програмістів / В. Липський.- М.: Світ, 1988. - 200 с.
. # «justify"> ДОДАТКИ
Додаток А
Форма MAIN.vb
Imports SystemSystem.Windows.FormsSystem.IOClass MainM As New ModelarrModel As New ArrayListMyPictMod As StringMyImage As BitmapSelNumbTypes As Integer=0Sub Main_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase. Load (). CmbType.SelectedIndex=0ex As Exception.Items.Add («Даних немає»). CmbType.SelectedIndex=0Try.CmbModel.Items.Clear () () () () SubSub ReadFromFileM () BR As BinaryReaderFS As FileStream=New System.IO.FileStream («. officeequipment.dat», FileMode.OpenOrCreate, FileAccess.ReadWrite)=New System.IO.BinaryReader (FS). BaseStream.Seek (0, SeekOrigin.Begin). Clear ( ) FS.Position < FS.Length.Id=BR.ReadSingle.IdNmb=BR.ReadSingle.NameOfModel=BR.ReadString.TypeOfTool=BR.ReadString.Cost=BR.ReadString.Amount=BR.ReadSingle.Country=BR.ReadString.PictureM=BR. ReadString.Add (New Model (M.Id, M.IdNmb, M.NameOfModel, M.TypeOfTool, M.Cost, M.Amount, M.Country, M.PictureM)) CmbType.Items.Contains (M.TypeOfTool) Then.Items.Add (M.TypeOfTool) IfWhile.Close (). Close () SubMyListModel () RecModel As ObjectcurType As New ToolType (0, «») curModel As New Model (0, 0, «», «», «», 0, «», «») Each RecModel In arrModel=RecModelMe.CmbType.SelectedItem=curModel.TypeOfTool Then.CmbModel.Items.Add (curModel.NameOfModel) IfCmbModel. Items.Count=0 Then.Items.Add («Пропозіцій немає») If.SelectedIndex=0SubInfoModel () RecModel As ObjectcurModel As New Model (0, 0, «», «», «», 0, «», «») Each RecModel In arrModel=RecModelCmbModel.SelectedItem=curModel.NameOfModel Then.Text=«Вид оргтехніки:» & CmbType.SelectedItem & Chr (13) & Chr (10). Text=TxtInfo.Text & «Модель:» & curModel.NameOfModel & Chr (13) & Chr (10). Text=TxtInfo.Text & «Ціна:» & curModel.Cost.ToString & Chr (13) & Chr (10). Text=TxtInfo.Text & «Кількість:» & curModel.Amount.ToString & Chr (13) & Chr (10). Text=TxtInfo.Text & «Країна-виробник:» & curModel.Country.ToString & Chr (13) & Chr (10)=curModel.PictureMIfCmbModel.SelectedItem=«Пропозіцій нем...
