Робота з текстовими зміними. Теоретичний матеріал

ПРАКТИЧНА РОБОТА 12

Теоретичний матеріал

Побудова графіка функції

ПРАКТИЧНА РОБОТА 11

1. МЕТА РОБОТИ

Вивчення технології побудови графіка функції.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Скласти схему алгоритму розв’язку задачі відповідно до варіанта завдання.

Виконайте команду Components контекстного меню панелі компо-нентів. В отриманому меню на закладці Controls встановити прапорець в позиції ChartFX 2.0 OLE Custom Control=>Ok. Встановити на форму об’єкт ChartFX (діаграма) для побудови графіка функції. Виберіть контекстне меню Properties цього об’єкту і на вкладці Appearance в списку Gallery Type виберіть піктограму потрібного графіку.

Private Sub Command1_Click()

Dim x As Double

Dim n, i, cod As Long

x = 0

n = 200

cod = Chartfx1.OpenDataEx(COD_VALUES, 1, n)

For i = 0 To n - 1

Chartfx1.Value(i) = Sin(x) + 1 будуємо графік

Chartfx1.Legend(i) = x

‘ формуємо легенду

x = x + 0.5

‘ наступне значення х

Next

Chartfx1.CloseData (COD_VALUES)

End Sub

Контрольні запитання.

1.За допомогою якого компонента будується графік функції?

2.Які властивості цього компонента використовуються?

Завдання для самостійного розв’язку.

1. Побудувати графіки функцій:

a) y=cos(x); b) y=x² +5

1. МЕТА РОБОТИ

Вивчення функцій текстових змінних.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Виконати самостійні задачі.

Теоретичний матеріал

Функція	Дія
Left$(s,к)	Виділяє К символів в тексті s починаючи з першого
Right$(s,к)	Виділяє К символів в тексті s починаючи з останнього
Mid$(s,L,M)	Виділяє в s частину символів M починаючи з L
InStr(s,и)	Повертає номер позиції з якого починається входження рядка и в рядок s
Chr(74)	Повертає символ з таблиці ASCII
Asc(“j”)	Повертає номер коду з таблиці ASCII
Len(s)	Визначає кількість символів в s

Private Sub Command1_Click()

Dim s As String

s = Text1.Text

n = Len(s)

Label1.Caption = Str(n)

Label2.Caption = Left$(s, 4)

Label3.Caption = Right$(s, 7)

Label4.Caption = Mid$(s, 6, 1)

Label5.Caption = Val("90")

Label6.Caption = InStr(s, " ")

Label7.Caption = Chr(74)

Label8.Caption = Asc("o")

End Sub

Приклад

Підрахуємо кількість букв в реченні

Private Sub Command1_Click()

Dim s, b, k As String

s = Text1.Text

b = Text2.Text

n = Len(s)

Sum = 0

For i = 1 To n

If Mid(s, i, 1) = b Then

Sum = Sum + 1

End If

Next i

Print Sum

End Sub

Криптографія – наука про способи перетворення інформації (шифрування) з метою її захисту. Розшифрування інформації називається криптоаналізом. Різні способи захисту інформації використовують в наші дні в банківській справі, де через комп‘ютерні мережі пересилають контракти, документи.

Приклад. Скласти програму для кодування тексту за таким правилом: вилучити з тексту пропуски, коми, крапки, а всі решта символів продублювати.

Private Sub Command1_Click()

s = Text1.Text

b = " "

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c <> "," And c <> "." And c <> " " Then

b = b + c + c

End If

Next i

Label1.Caption = b

End Sub

Контрольні запитання.

1. Які функції текстових змінних ви знаєте?

2. Використання текстових змінних?

3. Що таке криптографія?

Завдання для самостійного розв’язку.

1. Модифікуйте програму, щоб вона підраховувала кількість букв в реченні.

2. Введіть Прізвище, ім’я, по-батькові в текстове поле. Виведіть на окремі Label прізвище, ім’я та по-батькові.

3. Напишіть програму, яка шифрує заданий текст, а також дешифрує його.

Дата добавления: 2014-12-24