14 Мопр 1.3.19.401-78.37 тп

Private Sub мнРисуемКрестик_Click()

мнРежим.Caption = cnsКрестик

мнРежим.Visible = True

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

мВремя: Enabled = False

End Sub

Private Sub мнПечатаемСтроку_click()

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

мнРежим.Visible = True

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

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

тмВремя.Enabled = True

End Sub

15

МОПР 1.3.19.401-78.37 ТП

5.Макрос

Attribute VB_Name = "Перекодировка"

Option Explicit

Public Sub ИзDOSвWindows()

Dim ff$, k%, i%, n%

On Error GoTo Ошибка

ff = ""

With Selection

k = Len(.Text)

If .Start = .End Then

MsgBox "Нет текста для перекодировки", vbOKOnly + vbExclamation, "DOS => Windows"

Else

For i = 1 To k

n = Asc(Mid(.Text, i, 1))

If n > 127 And n < 176 Then

n = n + 64

ElseIf n > 223 And n < 240 Then

n = n + 16

ElseIf n = 241 Then 'ё

n = 184

End If

ff = ff & Chr(n)

Next i

.Delete

.InsertAfter ff

End If

End With

Exit Sub

Ошибка:

On Error GoTo 0

MsgBox "Документ отсутствует", vbCritical, "Работу

прекращаем"

End Sub

Public Sub ИзWindowsвDOS()

Dim ff$, k%, i%, n%

On Error GoTo Ошибка

ff = ""

With Selection

k = Len(.Text)

16

МОПР 1.3.19.401-78.37 ТП

If .Start = .End Then

MsgBox "Нет текста для перекодировки", vbOKOnly + vbExclamation, "DOS => Windows"

Else

For i = 1 To k

n = Asc(Mid(.Text, i, 1))

If n > 191 And n < 240 Then

n = n - 64

ElseIf n > 239 And n < 256 Then

n = n - 16

End If

ff = ff & Chr(n)

Next i

.Delete

.InsertAfter ff

End If

End With

Exit Sub

Ошибка:

On Error GoTo 0

MsgBox "Документ отсутствует", vbCritical, "Работу

прекращаем"

End Sub

Public Sub ИзТекстаВрусс()

Dim ff$, k%, i%, j%, n%, min%, max%

ff = "": min = 256

With Selection

k = Len(.Text)

If .Start = .End Then

MsgBox "Нет текста для перекодировки", vbOKOnly +

vbExclamation, "DOS => Windows"

Else

For i = 1 To k 'определение минимального кода

n = Asc(Mid(.Text, i, 1))

min = (n + min - Abs(n - min)) / 2

max = (n + max + Abs(n - max)) / 2

Next i

For j = 192 To 255

If j + max - min > 255 Then Exit For

ff = ff & Format(j - 191) & ". "

For i = 1 To k

ff = ff & Chr(Asc(Mid(.Text, i, 1)) - min + j)

17

МОПР 1.3.19.401-78.37 ТП

Next i

If j < 255 Then ff = ff & vbCrLf

Next j

If ff = "" Then

Beep

Else

Documents.Add Template:="Normal",

NewTemplate:=False

.InsertAfter ff

End If

End If

End With

End Sub

Утвержден

МОПР 1.3.19.402-78.37 ПО ЛУ

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

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

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

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

Описание ППП «Персонал»

МОПР 1.3.19.402-78.37 ПО

Листов 9

2005

2

МОПР 1.3.19.402-78.37 ПО

СОДЕРЖАНИЕ

Лист

1.Введение……………………………………………………………3

2.Общие сведения……………………………………………………3

3.Функциональное назначение………………………………………4

4.Описание логической структуры………………………………….5

4.1. Алгоритм программы…………………………………………5

4.2Используемые методы…………………………………………...5

4.3.Структуры программы с описанием других частей и

связи между ними………………………………………………5

4.4.Связи программы с другими программами…………………..5

5.Используемые технические средства………………………………6

6.Вызов и загрузка……………………………………………………..7

7.Входные данные……………………………………………………..8

8.Выходные данные…………………………………………………….9

3

МОПР 1.3.19.402-78.37 ПО