Автоматизированое рабочее место "Склад металопродукции"

Автор работы: Пользователь скрыл имя, 01 Июня 2013 в 01:41, курсовая работа

Краткое описание

Автоматизо́вана систе́ма керува́ння (АСК), Автоматизована система управління (АСУ) — автоматизована система, що ґрунтується на комплексному використанні технічних, математичних, інформаційних та організаційних засобів для управління складними технічними й економічними об'єктами.
АСУ являє собою систему управління, яка орієнтована на широке й комплексне використання технічних засобів і економіко-математичних методів для розв'язування інформаційних завдань управління.

Скачать в ZIP архиве (749.94 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Курсак1.doc

— 984.50 Кб (Скачать файл)

 

 

 

РОЗДІЛ 3. ПРОГРАМУВАННЯ

 

Для розробки програм  ми використали наступні процедури  та  
функції  (Таб. 3.1.).

Таблиця 3.1. Використані стандартні підпрограми 

Ім’я підпрограми

Модуль

Призначення

MsgBox

System

Виведення помилки  при заповненні

Rows(3).Insert

System

Вставлення  в позицію 3 нової строки

ActiveSheet.Cells(3,1)

System

Присвоєння  комирці (3,1) активного листка даних  з форми

Unload Me

System

Закриття активної форми

Do

…

Loop Until

System

Цикл з пост умовою для знаходження даних  у таблиці

Rows(i).Select

System

Виділення строки

Val

System

Перетворення  строкового запису у числовий

Str

System

Перетворення  числового запису у строковий

Rows(i).Delete

System

Видалення строки


         

 

КТУ.ПК.6.010104.10.07.05.ЗЧ

         

Зм.

Арк.

№ документа

 Підпис

 Дата

  Розробив

 Іващенко

    

 

 

3. ПРОГРАМУВАННЯ

Літера

Аркуш

Аркушів

  Перевірив

 Харламенко

          

12

5

     

 

 

 

ПН-07

 Н.контроль

      

 Затвердив

      

 

 

3.1.Лістинги програми

 

Програма роботи віконної форми «Меню»:

Private Sub CommandButton1_Click()

    UserForm2.Show

    Unload Me

End Sub

 

Private Sub CommandButton10_Click()

UserForm6.Show

Unload Me

End Sub

 

Private Sub CommandButton11_Click()

Unload Me

End Sub

Private Sub CommandButton7_Click()

    UserForm3.Show

    Unload Me

End Sub

 

Private Sub CommandButton8_Click()

    UserForm4.Show

    Unload Me

End Sub

 

Private Sub CommandButton9_Click()

    UserForm5.Show

    Unload Me

End Sub

         

 

КТУ.ПК.6.010104.10.07.05.ЗЧ

лист

 

лист

№ документа

підпис

дата

13

 

Програма роботи віконної форми «Додати книгу»:

Private Sub CommandButton1_Click()

    Worksheets(1).Rows(3).Insert

    Worksheets(1).Cells(3, 1) = TextBox1

    Worksheets(1).Cells(3, 2) = TextBox2

    Worksheets(1).Cells(3, 3) = TextBox3

    Worksheets(1).Cells(3, 4) = TextBox4

    Worksheets(1).Cells(3, 5) = TextBox5

    Unload Me

End Sub

 

Private Sub CommandButton2_Click()

    Unload Me

End Sub

 

Програма роботи віконної форми «Видати книгу»:

Private Sub CommandButton1_Click()

    Dim i As Integer

    i = 2

    Do

        i = i + 1

    Loop Until Worksheets(1).Cells(i, 1) = TextBox1

    Worksheets(1).Cells(i, 6) = TextBox2

    Unload Me

End Sub

 

Private Sub CommandButton2_Click()

    Unload Me

End Sub

         

 

КТУ.ПК.6.010104.10.07.05.ЗЧ

лист

 

лист

№ документа

підпис

дата

14

 

Програма роботи віконної форми «Отримати книгу»:

Private Sub CommandButton1_Click()

    Dim i As Integer

    i = 2

    Do

        i = i + 1

    Loop Until Worksheets(1).Cells(i, 1) = TextBox1

    MsgBox "Одержано від користувача  №" & Worksheets(1).Cells(i, 6)

    Worksheets(1).Cells(i, 6) = ""

    Unload Me

End Sub

 

Private Sub CommandButton2_Click()

    Unload Me

End Sub

 

Програма роботи віконної форми «Додати користувача»:

Private Sub CommandButton1_Click()

    Worksheets(2).Activate

    Worksheets(2).Rows(2).Insert

    Worksheets(2).Cells(2, 1) = TextBox1

    Worksheets(2).Cells(2, 2) = TextBox2

    Worksheets(2).Cells(2, 3) = TextBox3

    Worksheets(2).Cells(2, 4) = TextBox4

Unload Me

End Sub

 

Private Sub CommandButton2_Click()

    Unload Me

End Sub

         

 

КТУ.ПК.6.010104.10.07.05.ЗЧ

лист

 

лист

№ документа

підпис

дата

15

 

Програма роботи віконної форми «Видалити користувача»:

Private Sub CommandButton1_Click()

    Worksheets(2).Activate

    Dim i As Integer

    i = 1

    Do

        i = i + 1

    Loop Until Worksheets(2).Cells(i, 1) = TextBox1

    Worksheets(2).Rows(i).Delete

 

Unload Me

End Sub

 

Private Sub CommandButton2_Click()

    Unload Me

End Sub

         

 

КТУ.ПК.6.010104.10.07.05.ЗЧ

лист

 

лист

№ документа

підпис

дата

16


 

 

 

РОЗДІЛ 4. ТЕСТУВАННЯ

 

Дана програма повинна бути протестована. Тест включає в себе:

  1. Додати книг до бази даних

Рисунок 4.1. Основна  програма після введення даних

         

 

КТУ.ПР.6.010104.10.12.08.ЗЧ

         

Зм.

Арк.

№ документа

 Підпис

 Дата

  Розробив

 Іващенко

    

 

 

4. ТЕСТУВАННЯ

Літера

Аркуш

Аркушів

  Перевірив

 Харламенко

          

17

3

     

 

 

 

ПН-07

 Н.контроль

      

 Затвердив

      

 



  1. Додати користувачів

 

Рисунок 4.2. Основна програма після додавання користувача даних

  1. Видати книгу

Рисунок 4.4. Форма  видачі книги

 

         

 

КТУ.ПК.6.010104.10.07.08.ЗЧ

лист

 

лист

№ документа

підпис

дата

18

 

 

Рисунок 4.5. Основна програма після видачі книги даних

 

  1. Прийняти книгу

 

Рисунок 4.6. Форма отримання книги

Як показують результати тестування, то програма  розроблена нами виконує всі поставлені до неї  задачи. Обмежень програми виявлено не було.

         

 

КТУ.ПК.6.010104.10.07.08.ЗЧ

лист

 

лист

№ документа

підпис

дата

19


 

СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ

 

  1. Берндт Г, Каинка Б. Издательство: МК-Пресс, КОРОНА-Век. Год: 2008
  2. Гербер Г. З. Основі програмирования на Visual Basic и VBA в Excel 2007
  3. Долженков В. Visual Basic
  4. Зиборов В. Visual Basic 2010 на примерах
  5. Макдональд М. Рецепті программирования на Visual Basic

 

         

 

КТУ.ПР.6.010104.10.12.09.Л

         

Зм.

Арк.

№ документа

 Підпис

 Дата

  Розробив

 Іващенко

    

 

 

ЛІТЕРАТУРА

Літера

Аркуш

Аркушів

  Перевірив

 Харламенко

          

20

1

     

 

 

 

ПН-07

 Н.контроль

      

 Затвердив

      

 


Информация о работе Автоматизированое рабочее место "Склад металопродукции"