Автоматизация учета движения кадров на складах бытовой химии г. Москвы ППП "Кадры". Текст программ
Разработка решения задачи "Двигай". Оптимизация расположения документации и средств управления на экране. Вид формы в режиме DesignTime и RunTime. Описание элементов управления на языке VB6. Изображение информации графически. Тексты основных программ.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | реферат |
| Язык | русский |
| Дата добавления | 04.04.2013 |
| Размер файла | 2,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
"Автоматизация учета движения кадров на складах бытовой химии г. Москвы ППП "Кадры"
Текст программ
2012
Содержание
- 1. Введение
- 2. Задачи
- 3. Показ информации графически
- 3.1 Вид формы в режиме DesignTime
- 3.2 Вид формы в режиме RunTime
- 3.3 Описание элементов управления на языке VB6
- 3.4 Текст программы
1. Введение
Настоящий документ "Текст программ" является неотъемлемой частью курсового проекта ППП "Кадры" студентки 1-го курса Института Государственного управления и права (ИГУиП), группы ГМУ 1-1 А.А. Максимовой и разработан в соответствии с требованиями ГОСТ 19.401-78.
2. Задачи
Задача "Двигай”
Оптимизация расположения документации и средств управления на экране
Вид формы в режиме DesignTime
Вид формы в режиме RunTime
VERSION 5.00
Begin VB. Form Form1
Caption = "Form1"
ClientHeight = 5145
ClientLeft = 2040
ClientTop = 1635
ClientWidth = 6600
EndProperty
LinkTopic = "Form1"
ScaleHeight = 4575
ScaleWidth = 6360
Begin VB.commandButton "Рисуй"
Width = 1695
Left = 4560
Top = 3600
TabIndex = 15
Height = 855
End
End
Attribute VB_Name = "Двигай"
Attribute VB_UseMasColor = False
Attribute VB_RightToLeft= False
Attribute VB_Visible = True
Attribute VB_Default = False
Attribute VB_Enobled = True
11
Attribute VB_TabStop = True
Текст программы
Function Арифметика (x, y, z) As Integer
Арифметика = (CInt (x) + CInt (y)) * z
End Function
Sub Диагонали ()
Line (0, 0) - (ScaleWidth, ScaleHeight), vbBlue
Line (0, ScaleHeight) - (ScaleWidth, 0), vbGreen
PSet (ScaleWidth / 2, ScaleHeight / 2), vbRed
End Sub
Private Sub Form_KeyPress (KeyAscii As Integer)
If KeyAscii = 246 Then
каСлЦвет. BackColor = RGB (216 * Rnd, 216 * Rnd, 216 * Rnd)
End If
End Sub
Private Sub каДиагонали_Click ()
каДиагонали. PSet (каДиагонали. ScaleWidth / 2, каДиагонали. ScaleHeight / 2), 255
каДиагонали. Line (0, 0) - (каДиагонали. ScaleWidth, каДиагонали. ScaleHeight)
каДиагонали. Line (0, каДиагонали. ScaleHeight) - (каДиагонали. ScaleWidth, 0)
End Sub
Private Sub кнАнна_Click ()
CurrentX = ScaleWidth / 2 - TextWidth ("Ann") / 2: CurrentY = ScaleHeight / 2 - TextHeight ("Ann") / 2
Print "Ann"
каДиагонали. Print "Ann"
End Sub
Private Sub кнДвигай_Click (Index As Integer)
'If Index = 0 Then
'каДиагонали. Left = каДиагонали. Left + 150
'Else
'каДиагонали. Left = каДиагонали. Left - 150
'End If
12
каДиагонали. Left = каДиагонали. Left + Sgn (2 * Index - 1) * 150
End Sub
Private Sub кнРезультат_Click ()
ттРезультат. Text = Арифметика (ттX. Text, ттY. Text, ттZ. Text)
Диагонали
End Sub
'
'Print 101 = 1001
'False
'x = 101 = 101
'Print x
'True
'False
'PSet (ScaleWidth / 2, ScaleHeight / 2), 255
'Line (0, 0) - (ScaleWidth, ScaleHeight)
'Line (0, ScaleHeight) - (ScaleWidth, 0)
'Print Арифметика (10, 4,5)
'70
' Диагонали
'Print Hex (vbRed), Hex (vbGreen), Hex (vbBlue)
'FF FF00 FF0000
' 255 65280 16711680
'BackColor = &HFF
Private Sub кнРезультат_KeyDown (KeyCode As Integer, Shift As Integer)
End Sub
'каДиагонали. Print "Ann"
'Ann
'пфПроба. Print "Ann"
'Print пфПроба. TextWidth ("Ann")
'585
'Print каДиагонали. TextWidth ("Ann")
'285
'CurrentX = ScaleWidth / 2 - TextWidth ("Ann") / 2: CurrentY = ScaleHeight / 2 - TextHeight ("Ann") / 2
Задача "БегСтрока”
Представление в динамике информации об отклонениях от норм использования, справочная информация.
Вид формы в режиме DesignTime
Вид формы в режиме RunTime
текст программа форма режим
Описание элементов управления на языке VB6
VERSION 5.00
Begin VB. Form Form1
Caption = "БегСтрока"
ClientHeight = 5145
ClientLeft = 4725
ClientTop = 10215
ClientWidth = 5940
EndProperty
LinkTopic = "БегСтрока"
ScaleHeight = 4575
ScaleWidth = 5700
Begin VB. Timer ВРЕМЯ
Interval = 100
Left = 2040
Top = 1680
End
End
Attribute VB_Name = "БегСтрока"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Текст программы
Private Sub вяБегстрока_Timer ()
' Form1. BackColor = RGB (256 * Rnd, 256 * Rnd, 256 * Rnd)
Cls
xГде = xГде - 45
CurrentX = xГде
CurrentY = ScaleHeight / 2
Print "учет"
End Sub
Задача "Таблица”
Предоставление информации в наглядном виде для ознакомления сотрудникам.
+ - присутствие на работе
отсутствие
Цифры - кол-во отработанных часов.
Вид формы в режиме DesignTime
Вид формы в режиме RunTime
Текст программы
Sub ЗаполнитьТабл () ' Макрос записан 14.05.2011 ЛАП
Dim Строка As Row, Столбец As Column
Randomize Timer
For Each Строка In ActiveDocument. Tables (1). Rows
For Each Столбец In ActiveDocument. Tables (1). Columns
ActiveDocument. Tables (1). Cell (Строка. Index, Столбец. Index). Range = _
IIf (Rnd < 0.333, Int (1 + Rnd * 100), IIf (Rnd < 0.5, Chr (150), "+"))
Next Столбец
Next Строка
14
End Sub
Sub ПлюсыМинусы () ' Макрос записан 07.04.2009 ЛАП
Dim Минусы%, Плюсы%
Dim Строка As Row, Столбец As Column
Select Case MsgBox ("Последние две колонки таблицы" & vbCrLf & _
"Добавить - Yes" & vbCrLf & "Очистить - No", _
vbYesNoCancel, "Плюсы & Минусы")
Case vbYes
With ActiveDocument. Tables (1)
. Columns (. Columns. Count). Select
End With
Selection. InsertColumnsRight: Selection. InsertColumnsRight
Case vbNo
With ActiveDocument. Tables (1)
. Columns (. Columns. Count - 1). Select: Selection. Delete
. Columns (. Columns. Count). Select: Selection. Delete
End With
Case Else
End
End Select
For Each Строка In ActiveDocument. Tables (1). Rows
Минусы = 0: Плюсы = 0
For Each Столбец In ActiveDocument. Tables (1). Columns
АctiveDocument. Tables (1). Cell (Строка. Index, Столбец. Index). Select
Selection. MoveLeft Unit: =wdCharacter, Count: =1, Extend: =wdExtend
If Left (Trim (Selection. Text), 1) = vbCr Then
' Chr (150) - среднее тире (большой минус);
ElseIf (InStr (Selection. Text, Chr (150)) = 0 And _
InStr (Selection. Text, "-") = 0) Then
Плюсы = Плюсы + 1
Else
Минусы = Минусы + 1
End If
Next Столбец
If Минусы <> 0 Or Плюсы <> 0 Then
Selection. Delete
Selection. Text = Минусы
Selection. MoveLeft Unit: =wdCell, Count: =1, Extend: =wdExtend
Selection. Delete
Selection. Text = Плюсы
End If
' Stop
Next Строка
End Sub
3. Показ информации графически
3.1 Вид формы в режиме DesignTime
3.2 Вид формы в режиме RunTime
3.3 Описание элементов управления на языке VB6
VERSION 5.00
Begin VB. Form Form1
Caption = "Form1"
ClientHeight = 5985
ClientLeft = 5535
ClientTop = 2310
ClientWidth = 4740
EndProperty
LinkTopic = "Form1"
ScaleHeight = 5415
ScaleWidth = 4500
Begin VB.commandButton "Рисуй"
Height = 435
Width = 975
Left = 0
Top = 0
End
Attribute VB_Name = "Рисуй"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
3.4 Текст программы
Dim Рисуй As Boolean, №ав%
Private Sub Form_Load ()
Dim i%, txtЦвета, codЦвета 'As Integer
codЦвета = Array (vbWhite, vbBlack, vbRed, vbGreen, vbBlue, _
vbMagenta, vbCyan, vbYellow)
txtЦвета = Array ("белый", "чёрный", "красный", "зелёный", _
"синий", "малина", "бирюза", "жёлтый")
For i = 1 To 7
Load авЦвет (i)
авЦвет (i). Visible = True
авЦвет (i). Top = авЦвет (i - 1). Top + авЦвет (0). Height
авЦвет (i). Caption = txtЦвета (i)
авЦвет (i). BackColor = codЦвета (i)
Next i
авЦвет (0). BackColor = codЦвета (0)
авЦвет (1). ForeColor = vbWhite
9
End Sub
Размещено на Allbest.ru
...Подобные документы
Программный комплекс для разработки программы транслирующей программу с языка Pascal на язык С++. Построение логической и арифметической модели решения. Разработка компилятора для программы. Методы отладки программы и создание для нее документации.
курсовая работа [742,6 K], добавлен 03.07.2011Характеристика предприятия ТОО "Com Sales Group". Составление программ на языке программирования. Составление алгоритмов, разработка численных методов решения задач. Методы откладки программ. Анализ технологии машинной обработки экономической информации.
отчет по практике [1,3 M], добавлен 19.04.2016Роль информации о персонале для руководства предприятием. Анализ его материального оснащения, технических средств сбора, регистрации и передачи информации. Задачи автоматизированной системы управления персоналом. Программно–техническое обеспечение задачи.
дипломная работа [971,1 K], добавлен 28.11.2012Схема разбора арифметического и логического выражения. Внешняя спецификация конвертора и алгоритм перевода программ на языке Паскаль в текст на языке Си. Назначение подпрограмм, особенности констант и переменных. Код программы и ее тестирование.
курсовая работа [567,5 K], добавлен 03.07.2011Описание методов дихотомии (половинного деления) и касательных. Их применение для решения нелинейных уравнений. Графическое отделение корней. Блок-схемы алгоритмов. Тексты (листинги) программ на языке Delphi. Тестовый пример решения задачи с помощью ЭВМ.
курсовая работа [944,6 K], добавлен 15.06.2013Исследование арифметических выражений и разработка простых программ. Таблица переменных для алгоритма и программы. Алгоритм решения, текст программы на языке С. Разработка программы вычисления значений выражений, сравнение результатов с ручным подсчетом.
лабораторная работа [282,7 K], добавлен 30.01.2015Разработка основных проектных решений и подготовка технической документации в ходе проектирования автоматической информационной системы магазина бытовой техники. Выбор инструментальных средств, задачи, интерфейс программы, диалог пользователя с системой.
курсовая работа [997,7 K], добавлен 27.10.2013Разработка кодификатора, классификатора кадровых ресурсов, входных документов "Прием на работу", "Кадровое перемещение", "Увольнение" и выходных документов учета кадров организации для автоматизации учета кадров на предприятии с помощью 1С:Предприятие.
курсовая работа [72,1 K], добавлен 02.07.2012Создание программы для перевода кодов с языка Pascal на язык Си. Обработка программ операторами case, assign, rewrite и write. Способы объявления файла, комментария, переменных, логических и арифметических выражений. Виды синтаксических анализаторов.
курсовая работа [461,0 K], добавлен 03.07.2011Применение методов касательных (Ньютона) и комбинированного (хорд и касательных) для определения корня уравнения. Разработка алгоритма решения и его описание его в виде блок-схем. Тексты программ на языке Delphi. тестовый пример и результат его решения.
курсовая работа [923,7 K], добавлен 15.06.2013Характеристика и функциональные возможности программы "1С:Предприятие" по автоматизации участка учёта движения и наличия основных средств. Структура информации и технология выполнения работ (работа со справочниками, документами, отчётными формами).
курсовая работа [1,9 M], добавлен 04.11.2013Анализ современного состояния проблемы по учету движения кадров на предприятии. Изучение мирового рынка информационных систем учета и контроля персонала. Разработка программного продукта для конкретного предприятия. Охрана труда при работе с компьютером.
дипломная работа [3,4 M], добавлен 23.04.2015Выполнение арифметических операций с помощью вспомогательных переменных, которые позволяют вычислить искомую переменную. Использование оператора цикла с предусловием и полной формы условного оператора. Примеры решения задач на работу с двумерным массивом.
курсовая работа [518,8 K], добавлен 07.03.2014Проектирование программного обеспечения, позволяющего создавать и вести множество электронных словарей. Обоснование выбора программных средств решения задачи. Разработка формы входных и выходных данных. Описание модулей программы и процесса отладки.
дипломная работа [1007,7 K], добавлен 03.07.2015Графическое изображение последовательности технологического процесса. Описание метода решения задачи на математическом языке. Общий алгоритм решения задачи и структура программы. Основные понятия сетевых моделей. Разработка программы на языке С++.
курсовая работа [1,3 M], добавлен 23.05.2013Автоматизация подсистемы управления кадрами на ОАО Судостроительный завод "Лотос". Описание предметной области, построение инфологической и даталогической модели. Проектирование базы данных и разработка приложения. Взаимосвязь командных файлов в проекте.
дипломная работа [326,9 K], добавлен 02.10.2013Назначение программ офисной автоматизации. Преимущества ERP-систем, критерии их выбора. Характеристики ряда программ: "БЭСТ-5" - информационной системы управления предприятием, описание 1С:Предприятие 8.1, Microsoft Dynamics AX, Галактика Business Suite.
курсовая работа [907,2 K], добавлен 19.12.2011Организационно-экономическая характеристика предметной области. Описание компании ООО "Алеф", анализ административной и хозяйственной деятельности предприятия. Автоматизация процесса учета основных средств с помощью комплекса комплекс УСН 1С Бухгалтерия.
дипломная работа [3,6 M], добавлен 01.06.2010Использование пакета прикладных программ OrCad 9.2 для моделирования работы электронного прибора: создание электрической схемы, оптимизация, трассирование печатных плат, создание набора полной технической документации по устройству; ускорение разработки.
практическая работа [885,4 K], добавлен 17.09.2012Обзор существующих систем и методов реализации звуковых эффектов. Методы решения поставленной задачи. Эффекты, основанные на задержке сигнала. Простые и сложные звуковые эффекты. Разработка программной модели и текст программ на Maltab и языке Cи.
курсовая работа [428,6 K], добавлен 12.03.2009
