Описание событийных, пользовательских процедур и функций программы
Во время загрузки происходит открытие файла данных «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.