Програма для отримання відомості трудомісткості і розцінок на виріб в розрізі дільниць та кодів деталей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?лавіша F4). Процедура виводить на дисплей екранну форму для вводу даних з первинних документів. Ввід даних здійснюється в такій послідовності:
- номер дільниці;
- код деталі;
- обєм виробничої партії;
- часу підготовчий;
- час штучний;
- розцінка підготовчого часу
- розцінка штучного часу.
Після вводу запису користувачеві пропонується продовжити ввід даних, натиснувши клавішу Enter, або завершити ввід, натиснувши комбінацію клавіш CTRL+Z. В останньому випадку процедура припиняє роботу і повертає керування в програму.
Процедура Out_Oper. Призначення - читання вхідних даних з дискового файлу MVPR.DAT та вивід їх на дисплей. Процедура викликається з головного меню програми при виборі пункту Вивід файлу на дисплей (функціональна клавіша F5). При ініціалізації процедури на екран виводиться екранна форма и відкривається вхідний файл MVPR.DAT для читання. Записи файлу зчитуються з диска один за одним і виводяться на дисплей (див. додаток 4). Процедура завершує роботу при досягненні кінця файлу MVPR.DAT і передає керування у викликаючу її програму.
Процедура Vidomist. Призначення - вивід вихідного зведення на друкуючий пристрій ПК. Вхідна інформація для жаної процедури зберігається у файлі MVPR.DAT. Виклик процедури здійснюється з головного меню програми при натисканні функціональної клавіші F6, тобто при виборі пункту Вивід таблиці на дисплей. Процедура в свою чергу викликає процедури DRSUM1, DRSUM2.
Дана процедура здійснює ввід записів вхідного файлу MVPR.DAT та форматований вивід їх на друк з одночасним підрахунком підсумків по коду деталі та коду дільниці. При досягненні кінця файлу MVPR.DAT процедура завершує свою роботу і передає керування в програму.
Блок-схема процедури представлена в додатку 3.
2.2 Опис програми
Програма складена і відладжена в середовищі Turbo Pascal 6.0. На початку програми згідно вимог технології програмування розміщується вступний коментар, а решта операторів програми мають таке призначення:
001Заголовок програми
002Підключення зовнішніх модулів управління дисплеєм (Crt) та друкуючим пристроєм (Printer)
003опис типу даних vypusk для опису структури запису оперативного вхідного файлу
004Опис типу даних vyroby для опису структури довідкового вхідного файлу
005опис дискових файлів OPER та DOV‚ робочих змінних програми
006Заголовок процедури IN_DOV
007Початок процедури
008Очистка екрану
009-015Вивід екранної форми для вводу даних
016Присвоєння системній змінній ChekEof істиного значення, що забезпечує переривання вводу даних з клавіатури з допомогою комбінації клавіш CTRL+Z
017Відкриття дискового файлу DOV для запису даних з первинних документів
018Заголовок оператора присвоєння
020Початок циклу, котрий буде виконуватись поки змінна eof не набуде значення true ( цикл вводу даних з клавіатури)
021-023Ввід показників код виробу (VYRIB)‚ код деталі (DET)‚ кількість деталей (KILDET)
025Запис введених даних у вхідний дисковий файл DOV
024Збільшення змінної позиціонування курсора на одиницю
026Кінець дії оператора приєднання
027Закриття дискового файлу DOV
028Кінець циклу вводу даних
029Кінець тіла процедури
030Кінець процедури In_Dov
031Заголовок процедури Out_Dov
032Початок процедури
033-039Вивід екранної форми для відображення вхідних даних
040Відкриття дискового файлу DOV для читання записів
041Присвоєння змінній позиціонування курсора початкового значення 8
042Початок циклу вводу записів файлу DOV (поки не eof)
045Зчитування запису файлу Dov у змінну vrb
046Форматований вивід полів введеного запису на дисплей
047Збільшення змінної позиціонування курсора на одиницю
048Кінець циклу вводу записів файлу MVPR
049-050Вивід останньої стрічки екранної форми
051Організація зупинки у виконанні програми (очікування вводу довільного символа з клавіатури)
052Закриття дискового файлу DOV
053Кінець процедури Out_Dov
054Заголовок процедури In_Oper
055Початок процедури
056Очистка екрану
057Присвоєння системній змінній ChekEof істиного значення, що забезпечує переривання вводу даних з клавіатури з допомогою комбінації клавіш CTRL+Z
058Відкриття дискового файлу OPER для запису даних з первинних документів
059Заголовок оператора присвоєння
062-072Вивід екранної форми для вводу даних
061Початок циклу, котрий буде виконуватись поки змінна eof не набуде значення true ( цикл вводу даних з клавіатури)
063-069Ввід показників номер дільниці (DIL)‚ код деталі (DET)‚ обєм виробничої партії (OPP)‚ час підготовчий (TPZ) та штучний (TST)‚ розцінка підготовчого (RPZ) та штучного часу (RST)
070Запис введених даних у вхідний дисковий файл OPER
073Кінець дії оператора приєднання
074Кінець циклу вводу даних
075Закриття дискового файлу OPER
076Кінець процедури In_Oper
077Заголовок процедури Out_Oper
078Початок процедури
079Відкриття дискового файлу Oper для читання записів
080-086Вивід екранної форми для відображення вхідних даних
087Присвоєння змінній позиціонування курсора початкового значення 10
088Початок циклу вводу записів файлу Oper (поки не eof)
090Зчитування запису файлу OPER у змінну vps
091-093Форматований вивід полів введеного запису на дисплей
094Збільшення змінної позиціонування курсора на одиницю
095Кінець циклу вводу записів файлу Oper
096-097Вивід останньої стрічки екранної форми
098Організація зупинки у виконанні програми (очікування вводу довільного символа з клавіатури)
099Закриття дискового файлу Oper