6.Средства и порядок испытаний

6.1.Программные и технические средства.

Программы работают на ПЭВМ типа IBM PC, O.C.Windows.

6.2.Порядок испытаний.

Порядок испытаний определяется последовательностью объектов в списке

п.1, а внутри каждой задачи в соответствии с таблицей 1 п.3.

Обозначение		Назначение
Graphics		Представление анализа уровня безработицы в графическом режиме.
Combobox		Представление анализа уровня безработицы в виде списка в соответствии с отчётными материалами кадровых агенств.
DoEvents		Обработка информации по безработице в виде бесконечного цикла с визуальными эффектами.
БегСтрока	Представление анализа уровня безработицы в свободном режиме (в режиме рекламной строки)
Перекодировка	Перекодирование текста по безработице из ОС DOS в Windows.

8

МОПР 1.3.19.301-79.37 ПМ

6.Методы испытаний

Методы испытаний определяются возможностью действия оператора в О.С.

Утвержден

МОПР 1.3.19.401-78.37 ТП ЛУ

Пакет прикладных программ

Управление персоналом на транспортном предприятии

ППП «Персонал»

Курсовой проект

Текст программы

МОПР 1.3.19.401-78.37 ТП

Листов 17

2005

2

МОПР 1.3.19.401-78.37 ТП

СОДЕРЖАНИЕ

Лист

1.Graphic-графическое представление информации…………………………3

2.DoEvents-обработка ресурсной информации в бесконечном цикле………4

3.Combobox-формирование списков сотрудников……………………………7

4.БегСтрока-представление экономической информации в процессе

аудита…………………………………………………………………………..9

5.Макрос-транслитерция……………………………………………………….15

3

МОПР 1.3.19.401-78.37 ТП

1.Graphic

VERSION 5.00

Begin VB.Form Form2

Caption = "Form2"

ClientHeight = 5550

ClientLeft = 60

ClientTop = 450

ClientWidth = 7470

LinkTopic = "Form2"

ScaleHeight = 5550

ScaleWidth = 7470

StartUpPosition = 3 'Windows Default

Begin VB.Image Image1

Height = 1200

Left = 1080

Picture = "Birdie.frx":0000

Top = 2040

Width = 1200

End

End

Attribute VB_Name = "Form2"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Image1_Click()

End Sub

4

МОПР 1.3.19.401-78.37 ТП

2.DoEvents

VERSION 5.00

Begin VB.Form пфDoEvents

Caption ="Демонстрация бесконечного цикла"

ClientHeight = 2190

ClientLeft = 1320

ClientTop = 1470

ClientWidth = 6585

BeginProperty Font

Name = "Courier New"

Size = 18

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

LockControls = -1 'True

ScaleHeight = 2190

ScaleWidth = 6585

Begin VB.CommandButton кнDoEvents

Caption = "DoEvents"

Enabled = 0 'False

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 780

Left = 2205

TabIndex = 0

Top = 585

Width = 2130

End

Begin VB.Label мтТроньМеня

Alignment = 2 'Центровка

Caption = "Тронь Меня мышкой"

5

МОПР 1.3.19.401-78.37 ТП

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00FF0000&

Height = 420

Left = 225

TabIndex = 2

Top = 1485

Width = 6045

End

Begin VB.Label мтЦикл

Alignment = 2 'Центровка

Caption = "Работает бесконечный цикл"

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00C000C0&

Height = 645

Left = 405

TabIndex = 1

Top = 45

Visible = 0 'False

Width = 5955

End

End

Attribute VB_Name = "пфDoEvents"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

6

МОПР 1.3.19.401-78.37 ТП

Dim tfDO As Boolean

Private Sub Form_Click()

Dim Счётчик As Integer ' то же, что Счётчик%

tfDO = True

мтЦикл.Visible = True

мтТроньМеня.Visible = False

кнDoEvents.Enabled = True

Do While tfDO

DoEvents

tfDO = tfDO: Счётчик = Счётчик ' + 1: tfDO = tfDO

Loop

End Sub

Private Sub кнDoEvents_Click()

tfDO = False

мтЦикл.Visible = False

мтТроньМеня.Visible = True

кнDoEvents.Enabled = False

End Sub

Private Sub мтТроньМеня_Click()

Form_Click

End Sub

7

МОПР 1.3.19.401-78.37 ТП

3.Combobox

VERSION 5.00

Begin VB.Form Form1

BackColor = &H0080C0FF&

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 'Windows Default

Begin VB.ComboBox Combo3

Height = 315

ItemData = "Combobox.frx":0000

Left = 3120

List = "Combobox.frx":000A

Style = 2 'Dropdown List

TabIndex = 2

Top = 480

Width = 1335

End

Begin VB.ComboBox Combo2

Height = 315

ItemData = "Combobox.frx":0027

Left = 1800

List = "Combobox.frx":0031

Style = 1 'Simple Combo

TabIndex = 1

Text = "Combo2"

Top = 1200

Width = 1215

End

Begin VB.ComboBox Combo1

Height = 315

ItemData = "Combobox.frx":004C

Left = 360

List = "Combobox.frx":0059

TabIndex = 0

Top = 480

Width = 1215

8

МОПР 1.3.19.401-78.37 ТП

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Combo1_Change()

End Sub

9

МОПР 1.3.19.401-78.37 ТП

4.БегСтрока

VERSION 5.00

Begin VB.Form У

BackColor = &H00C0C000&

Caption = "Form1"

ClientHeight = 4020

ClientLeft = 2070

ClientTop = 2565

ClientWidth = 6390

ForeColor = &H00000000&

LinkTopic = "Form1"

ScaleHeight = 4020

ScaleWidth = 6390

Begin VB.Timer tmВремя

Enabled = 0 'False

Interval = 50

Left = 1320

Top = 600

End

Begin VB.Menu мнРежим

Caption = "&Режим"

Visible = 0 'False

End

Begin VB.Menu мнНачалоРаботы

Caption = "&НачалоРаботы"

Begin VB.Menu мнНачало

Caption = "&УглыФормы"

Index = 0

End

Begin VB.Menu мнНачало

Caption = "&ТочкаУдара"

Index = 1

End

Begin VB.Menu мнНачало

Caption = "&СлучайнаяТочка"

Index = 2

End

End

Begin VB.Menu мнУглы

Caption = "&Углы"

Enabled = 0 'False

10

МОПР 1.3.19.401-78.37 ТП

Begin VB.Menu мнГоризонталь

Caption = "&Горизонталь"

Begin VB.Menu мнLeftRight

Caption = "... &Left"

Index = 0

End

Begin VB.Menu мнLeftRight

Caption = "... &Right"

Index = 1

End

End

Begin VB.Menu мнВертикаль

Caption = "&Вертикаль"

Begin VB.Menu мнTopBottom

Caption = "... &Top"

Index = 0

End

Begin VB.Menu мнTopBottom

Caption = "... &Bottom"

Index = 1

End

End

End

Begin VB.Menu мнРисуем

Caption = "&Рисуем"

Visible = 0 'False

Begin VB.Menu мнПечатаемБегСтроку

Caption = "&ПечатаемБегСтроку"

End

Begin VB.Menu мнРисуемКрестик

Caption = "&РисуемКрестик"

End

End

Begin VB.Menu мнПомощь

Caption = "&Помощь"

End

Begin VB.Menu мнВыход

Caption = "&Выход"

End

End

Attribute VB_Name = "У"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

11

МОПР 1.3.19.401-78.37 ТП

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Type тчкLong

X As Long

Y As Long

End Type

Dim тчкПродолжение As тчкLong, тчкНачало As тчкLong, текстБег As String

Const cnsКрестик$ = "Рисуемкрестик"

Const cnsБегСтрока$ = "ПечатаемБегСтроку"

Option Explicit

Private Sub Form_Activate()

Const cnsТкниМеня$ = "Ткни меня правой мышкой"

CurrentX = (ScaleWidth - TextWidth(cnsТкниМеня)) /

2

CurrentY = (ScaleHeight - TextHeight(cnsТкниМеня))

/ 2

Print cnsТкниМеня

End Sub

Private Sub Form_Load()

Dim пфБег As String

Randomize Timer

пфБег = App.Path & "Экономика.txt"

If Dir(пфБег) = "" Then

Else

Open пфБег For Binary Access Read As #1

текстБег = Trim(Input(LOF(1), #1))

Close #1

End If

Me.Font.Size = 18

Me.Font.Bold = True

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ФормированиеТчкНачало X, Y

Select Case Button

Case vbLeftButton

If Not мнРежим.Visible Then

MsgBox "Ткни меня ПРАВОЙ мышью", vbExclamation, "Режим не включен!"

End If

If мнРежим.Caption = cnsБегСтрока Then

Else

НарисоватьКрестик тчкПродолжение

12

МОПР 1.3.19.401-78.37 ТП

End If

Case vbRightButton

PopupMenu мнРисуем

End Select

End Sub

Private Sub НарисоватьКрестик(Где As тчкLong)

Dim n_цвета%

Cls

GoSub Дайцвет

Line (0, Где.Y)-(ScaleWidth, Где.Y),

QBColor(n_цвета)

GoSub Дайцвет

Line (Где.X, 0)-(Где.X, ScaleHeight), QBColor(n_цвета)

НарисоватьНачало

Exit Sub

Дайцвет:

n_цвета = Rnd * 15

If n_цвета = 7 Then GoTo Дайцвет

Return

End Sub

Private Sub НарисоватьНачало(X As Single, Y As Single)

Dim dw%

dw = DrawWidth

End Sub

Private Sub ФормированиеТчкНачало(X As Single, Y As Single)

Dim Поправка%

тчкНачало.X = X: тчкНачало.Y = Y

With тчкПродолжение

Select Case True

Case мнНачало(0).Checked 'УглыФормы

Поправка = 15 * (мнРежим.Caption = cnsКрестик) _

* мнLeftRight(1).Enabled * DrawWidth

.X = IIf(мнLeftRight(0).Checked, 0,

ScaleWidth - Поправка)

Поправка = IIf(мнРежим.Caption = cnsБегСтрока, _

TextHeight(Left(текстБег, 30)), -15 *

мнTopBottom(1).Enabled * DrawWidth)

.Y = IIf(мнTopBottom(0).Checked, 0,

ScaleHeight - Поправка)

13

МОПР 1.3.19.401-78.37 ТП

Case мнНачало(1).Checked 'ТочкаУдара

.X = X: .Y = Y

Case мнНачало(2).Checked 'СлучайнаяТочка

.X = Rnd * ScaleWidth

Поправка = (.X / ScaleWidth) * IIf(мнРежим.Caption

= cnsБегСтрока, 0, 15 * DrawWidth)

.X = X - Поправка

.Y = Rnd * ScaleHeight

Поправка = (.Y / ScaleHeight) * IIf(мнРежим.Caption = cnsБегСтрока,

TextHeight(Left(текстБег, 30)), 15 * DrawWidth)

.Y = Y - Поправка

End Select

End Sub

Private Sub tmВремя_Timer()

Cls

CurrentX = тчкПродолжение.X

CurrentY = тчкПродолжение.Y

Print текстБег

тчкПродолжение.X = тчкПродолжение.X - 90

If тчкПродолжение.X + TextWidth(текстБег) < 0 Then

tmВремя.Enabled = False

MsgBox "все!", vbExclamation

End If

НарисоватьНачало

End Sub

Private Sub мнВыход_Click()

End

End Sub

Private Sub мнНачало_Click(Index As Integer)

Dim i As Byte

мнНачало(Index).Checked = True

For i = 1 To 2

мнНачало((Index + i) Mod 3).Checked = False

Next i

End Sub

Private Sub мнПомощь_Click()

MsgBox "", vbInformation, "Помощь"

End Sub