Описание событийных, пользовательских процедур и функций программы

Во время загрузки происходит открытие файла данных «datwika» в директорий программы. Далее применяем оператор «Open App.Path & "\datwika.dat" For Random As #1 Len = Len(dat)». Он прописан в процедуре «Form_Load» нашей основной формы, где «Open App.Path &» указывает на то, что файл находится в одной директории с программой. «datwika» имя файла данных , «For Random» задаёт произвольный тип доступа, «As #1» номер индификатор файла , «Len = Len(dat)»определяет длину записи.

Запись в файл данных производится с помощью комады «Put#1, id, dat,» запускаемый по событию нажатия кнопки «Записать/редактировать» на форме. «Put» команда записи, «#1» номер открытого файла данных «id» переменная задающая номер записи, «dat» глобальная переменная содержащая в себе данные предметной области.

Чтение из файла данных производится при помощи команды «Get #1, id, dat», где «Get» - команда чтения, «#1» - номер открытого файла данных, «id» - переменная, задающая номер записи, «dat» - глобальная переменная, в которую записываются прочитанные данные предметной области. Команда используется по событию нажатия кнопок навигации. Поиска, по событию нажатия клавиш клавиатуры в текстовом поле ввода номера редактируемой записи на форме редактирования. Запуск поиска производится по событию нажатия кнопки «поиск» на основной форме программы «Command2_Click». Сначала объект «List1» очищается с помощью команды «List1.Clear», далее проверяется условие – не является ли длина файла данных нулевой, после чего переменной «id», обозначающей номер записи задается значение равное единице «id = 1», далее при помощи инструкции «Seek #1, id» задается
позиция указателя чтения, где «#1» - номер файла, «id» - переменная, обозначающая номер записи. Затем при помощи команды «Do While Not EOF(1)» запускается цикл, выполняющийся до момента достижения конца файла, где «Do While Not» указывает на то, что цикл будет выполняться, пока не получит значение «true», функция «EOF(1)» вернет значение «true», когда будет достигнут конец файла №1.

Текст программы имеет вид:

Private Type datwika

nam As String * 20

pz As String * 10

pog As String * 10

dip As String * 10

pit As String * 10

tem As String * 10

sig As String * 10

rez As String * 10

cena As String * 10

cvet As String * 10

End Type

продолжение текста страница 15

Dim dat As datwika

Dim id As Long

Private Sub Command1_Click()

List1.Clear

End Sub

Private Sub Form_Load()

Open App.Path & "\datwika.dat" For Random As #1 Len = Len(dat)

End Sub

Private Sub Put1_Click()

If Text7.Text > 0 Then id = Text7.Text Else id = 1

If Text7.Text <= 0 Then Text7.Text = 1

dat.nam = Text1.Text

dat.pz = Text2.Text

dat.pog = Text3.Text

dat.dip = Text4.Text

dat.pit = Text5.Text

dat.tem = Text6.Text

dat.sig = Text9.Text

dat.rez = Text10.Text

dat.cena = Text11.Text

dat.cvet = Text12.Text

Put #1, id, dat

End Sub

Private Sub Get1_Click()

If Text7.Text > 0 Then id = Text7.Text Else id = 1

If Text7.Text <= 0 Then Text7.Text = 1

Get #1, id, dat

Text1.Text = dat.nam

Text2.Text = dat.pz

Text3.Text = dat.pog

Text4.Text = dat.dip

Text5.Text = dat.pit

Text6.Text = dat.tem

Text9.Text = dat.sig

Text10.Text = dat.rez

Text11.Text = dat.cena

Text12.Text = dat.cvet

End Sub

Private Sub First_Click()

List1.Clear

id = 1

Get #1, id, dat

Text1.Text = dat.nam

Text2.Text = dat.pz

Text3.Text = dat.pog

Text4.Text = dat.dip

Text5.Text = dat.pit

Text6.Text = dat.tem

Text9.Text = dat.sig

Text10.Text = dat.rez

Text11.Text = dat.cena

продолжение текста страница 16

Text12.Text = dat.cvet

Text7.Text = id

End Sub

Private Sub Last_Click()

List1.Clear

id = LOF(1) / Len(dat)

Get #1, id, dat

Text1.Text = dat.nam

Text2.Text = dat.pz

Text3.Text = dat.pog

Text4.Text = dat.dip

Text5.Text = dat.pit

Text6.Text = dat.tem

Text9.Text = dat.sig

Text10.Text = dat.rez

Text11.Text = dat.cena

Text12.Text = dat.cvet

Text7.Text = id

End Sub

Private Sub Up_Click()

List1.Clear

If id > 1 Then id = id - 1 Else id = 1

Get #1, id, dat

Text1.Text = dat.nam

Text2.Text = dat.pz

Text3.Text = dat.pog

Text4.Text = dat.dip

Text5.Text = dat.pit

Text6.Text = dat.tem

Text9.Text = dat.sig

Text10.Text = dat.rez

Text11.Text = dat.cena

Text12.Text = dat.cvet

Text7.Text = id

End Sub

Private Sub Down_Click()

List1.Clear

If id < LOF(1) / Len(dat) Then id = id + 1 Else id = LOF(1) / Len(dat)

Get #1, id, dat

Text1.Text = dat.nam

Text2.Text = dat.pz

Text3.Text = dat.pog

Text4.Text = dat.dip

Text5.Text = dat.pit

Text6.Text = dat.tem

Text9.Text = dat.sig

Text10.Text = dat.rez

Text11.Text = dat.cena

Text12.Text = dat.cvet

Text7.Text = id

End Sub

продолжение текста страница 17

Private Sub command2_Click()

List1.Clear

id = 1

Seek #1, id

Do While Not EOF(1)

Get #1, id, dat

If InStr(UCase(dat.cena), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.cvet), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.dip), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.nam), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pit), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pog), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pz), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.rez), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.sig), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.tem), UCase(Text8.Text)) > 0 Then List1.AddItem id & " | " & dat.nam & " | " & dat.pz & " | " & dat.pog & " | " & dat.dip & " | " & dat.pit & " | " & dat.tem & " | " & dat.sig & " | " & dat.rez & " | " & dat.cena & " | " & dat.cvet

id = id + 1

Loop

End Sub

Конец программы.


Выводы

 

В данной работе мной была разработана информационная система, имеющая упрощенный вид, для её простого восприятия. Информационная система «датчики Wika» разработана для применения на производстве. Программа в дальнейшем будет применяться в ООО «Термотехника» участок КИПиА.

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

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


Список использованной литературы

1. Информатика. Базовый курс / Под ред. С.В.Симоновича. – СПб.: Питер, 2005.

2. Информатика: учебник / Б.В.Соболь [и др.].– Ростов н/Д: Феникс, 2007.

3. Тематические сайты «vb book.ru», «vb zero. narod.ru.