Инструкция по работе с программой

Данная программа должна быть установлена на диск”C:\”. Для того чтобы запустить программу необходимо открыть приложение ГИБДД. Сразу после этой операции на экране появляется главное меню, через которое можно непосредственно управлять данным (осуществлять ввод и вывод инфор­мации). Непосредственный вызов нужного пункта меню может осуществляться как при помощи мыши, так и при помощи нажатия клавиши Enter.

 

 

Рис.1 Главное меню

 

Пункты главного меню имеют следующий смысл:

 

•«Регистрация» - позволяет осуществить процесс регистрации, перерегистрации, поиска зарегистрированного АМТ и вывести отчет.

• «Поиск» - позволяет определять угнанные АМТ.

•«Резервное копирование» - этот пункт предоставляет возможность осуществить резервное ко­пирование баз данных, а так же их восстановление.

• «Помощь» - содержит справочную информацию о программе.

• «Выход» - при помощи этого пункта осуществляется выход из программы. Для осуществления регистрации необходимо выбрать пункт меню «Регистра­ция/регистрация» на экране появится окно (рис. 2.1)

 

Рис. 2.1 Регистрация АМТ

 

В появившемся окне, в полях ввода необходимо ввести соответствующую информацию. Для сохранения информации нажать кнопку «Сохранить». Кнопка «Печать» - выводит информацию на пе­чать. «Выход» - выход из окна регистрации.

Для осуществления перерегистрации необходимо выбрать пункт меню «Регистрация/Перерегистрация» на экран поя­вится окно (рис.2.2)

 

      Рис. 2.2 Перерегистрация АМТ

 

Кнопка «Сохранить»- позволяет сохранить введенную информацию. «Выход»- выход из окна.

Розыск угнанного АМТ осуществляется при выборе пункта меню «Поиск»

В появившемся окне введите необходимую информацию (рис. 3). В окне име­ются следующие кнопки «Найти»- производит поиск по данной информации, «Выход» - выход из окна.

Рис.3 Поиск

 

Ели необходимо создать резервные копии баз данных, нужно выполнить пункт меню «Резервное копирование»

Появится окно с сообщением «Будите делать резервную копию?» (рис.4) При нажатии на кнопку «ДА» базы скопируются в каталог STRAH

 

 

Рис.4 Резервное копирование

При нажатии пункта «Помощь», на экран выводится справочная информация о работе с программой, (рис.5)

                              Рис.5 Помощь

 

Окно «Помощь» разделено на две части. В левой части окна содержатся пункты меню, при помощи мыши или клавишей Enter выбираете нужный пункт и нажимаете на кнопку «Показать». В правой части окна выводится необходимая информация по данному пункту.

Кнопка «Выход» позволят выйти из окна.

 

               ЗАКЛЮЧЕНИЕ

При создании программы я сталкивался с серией синтаксических и логиче­ских ошибок:

• Пропуск знаков препинания (незакрытые кавычки, скобки);

• Отсутствие пары в командах (IF- ENDIF);

• Ввод запятой вместо точки;

• Несоответствие параметров по типу;

• Неверный алгоритм программы;

• Проблемно было совместить Visual Basic 6.0 и Microsoft Office Excel.

Visual Basic 6.0 обладает удобным и гибким отладчиком программы, который позво­ляет детально проследить поведение программы и ее переменной в сомнительных местах.

Плюсы выполненной работы: изучен новый материал, ознакомился на практике с созданием форм.

Минусы выполненной работы: не удалось реализовать объект.

 

 

                             Литература:

1.VB-самоучитель

2. Пособие-самоучитель «Visual Basic - Крепкий Орешек!» Автор - Волков Антон, http://vb.hut.ru !

3. Пособие-самоучитель «Функции Visual Basic». Автор-А.Климов

4. Программируем на Visual Basic'e. Автора – Падре, http://vbmaster.fhost.ru/

5. Пособие-самоучитель on-line "Visual Basic с нуля"

6. Справочник «Visual Basic.NET». Автор - Дэн Рамел

7. Иллюстрированный самоучитель по Visual Basic 6.0

8.http://bit.pirit.info/forum/viewforum

9.. http://www.vbnet.ru/

10.http://www.vbstreets.ru/

 

Приложение

Форма register.frm

Private Sub Command1_Click()

Dim oSheet As Object

Dim MyXL As Object

Dim linedate As String

On Error Resume Next

Set MyXL = GetObject("c:\AUTO.xls")

MyXL.Application.Visible = False

MyXL.Parent.Windows(1).Visible = True

Open "C:\1.txt" For Input As #1

Input #1, linedate

i = Mid(linedate, 1)

Close #1

Set oSheet = MyXL.Worksheets(1)

oSheet.Range("A" & (i)).Value = Text1(10).Text

oSheet.Range("B" & (i)).Value = Text1(0).Text

oSheet.Range("C" & (i)).Value = Text1(3).Text

oSheet.Range("D" & (i)).Value = Text1(1).Text

oSheet.Range("E" & (i)).Value = Text1(4).Text

oSheet.Range("F" & (i)).Value = Text1(2).Text

oSheet.Range("G" & (i)).Value = Text1(5).Text

oSheet.Range("H" & (i)).Value = Text1(8).Text

oSheet.Range("I" & (i)).Value = Text1(7).Text

oSheet.Range("J" & (i)).Value = Text1(6).Text

oSheet.Range("K" & (i)).Value = Text1(9).Text

      

Set oSheet = MyXL.Worksheets(2)

oSheet.Range("A" & (i)).Value = Text2(10).Text

oSheet.Range("B" & (i)).Value = Text2(0).Text

oSheet.Range("C" & (i)).Value = Text2(3).Text

oSheet.Range("D" & (i)).Value = Text2(1).Text

oSheet.Range("E" & (i)).Value = Text2(4).Text

oSheet.Range("F" & (i)).Value = Text2(2).Text

oSheet.Range("G" & (i)).Value = Text2(5).Text

 oSheet.Range("H" & (i)).Value = Text2(8).Text

oSheet.Range("I" & (i)).Value = Text2(7).Text

oSheet.Range("J" & (i)).Value = Text2(6).Text

oSheet.Range("K" & (i)).Value = Text2(9).Text

oSheet.Range("L" & (i)).Value = Text2(11).Text

 MyXL.save

 MyXL.Application.quit

i = i + 1

Open "C:\1.txt" For Output As #1

Print #1, i

Close #1

End Sub

Private Sub Command2_Click()

For i = 0 To 10

Text1(i) = ""

Next i

For i = 0 To 11

Text2(i) = ""

Next i

End Sub

Private Sub Command3_Click()

register.PrintForm

End Sub

Private Sub Command4_Click()

For i = 0 To 10

Text1(i) = ""

Next i

For i = 0 To 11

Text2(i) = ""

Next i

register.Hide

End Sub

 

Форма menu.frm

Private Sub poisk2_Click()

poisc.Show

End Sub

Private Sub reg1_Click()

register.Show

End Sub

Private Sub reg2_Click()

pereregister.Show

End Sub

Private Sub rezerv_Click()

rezerw.Show

End Sub

Private Sub vihod_Click()

End

End Sub