Практична завдання № 23. Visual Basic. Зміна розкладки клавіатури.

Інтерфейс програми

Код програми:

Private Sub Convert_Click()

OutputText = ConvertToNormal(InputText)

End Sub

Private Sub Exit1_Click()

End

End Sub

Public Function ConvertToNormal(ByVal InputVal As String) As String

Dim TypeOfConvert As Integer, ConvertionMassive(1 To 2) As String

10: x = x + 1

TypeOfConvert = 0

If Asc(Mid(InputVal, x, 1)) > 58 And Asc(Mid(InputVal, x, 1)) < 123 Then TypeOfConvert = 1_

_ Else If Asc(Mid(InputVal, x, 1)) > 128 And Asc(Mid(InputVal, x, 1)) < 243 Then TypeOfConvert = 2

If TypeOfConvert = 0 Then GoTo 10

ConvertionMassive(1) = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,йцукен_ _гшщзхъфывапролджэячсмитьбю.ё1234567890-=\Ё!""№;%:?*()_+/ "

ConvertionMassive(2) = "QWERTYUIOP{}ASDFGHJKL:""ZXCVBNM<>?qwert_ _yuiop[]asdfghjkl;'zxcvbnm,./`1234567890-=\~!@#$%^&*()_+| "

For x = 1 To Len(InputVal)

If TypeOfConvert = 1 Then temp = 2 Else temp = 1

ConvertToNormal = ConvertToNormal & Mid(ConvertionMassive(TypeOfConvert), InStr(1, ConvertionMassive(temp), Mid(InputVal, x, 1)), 1)

Next x

End Function

Практична завдання № 11. Векторна графіка word.

ЗАВДАННЯ: Намалювати спрощену схему фарбової групи.

l₃ h₄ k₅

r₃ h₅

h₃ l₄

r₅ h_c

l₂ h₂

h₁ l₁

l₅

h₀

Рис.1. Схема фарбової групи

Практична завдання № 24. Векторна графіка word.

ЗАВДАННЯ: Намалювати спрощену схему фарбової групи.

6 h₆

h₁

к₇

h₅ 5 l_ф h_c

h₂ b₃ h₄

r₇

h₀

1 2 3 4

h₃

h_p

h_ф

Рис.1. Схема фарбової групи

Практична завдання № 17. Векторна графіка word.

ЗАВДАННЯ: Намалювати спрощену схему фарбової групи.

h_c

k_f

f₀

f₁

f₂

r_f

h₀

1

2

3

4

5

6

7

b₇

8

9

Рис.1. Базова схема фарбового апарата