Практична завдання № 19. Visual Basic. Збереження даних.

З

АВДАННЯ: Створити програму під Visual Basic «Збереження даних».

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

Dim f1 As String

Dim f2 As String

Dim f3 As String

Dim f4 As String

Dim f5 As String

Dim f6 As String

Private Sub Command1_Click()

f1 = Text1.Text

f2 = Text2.Text

f3 = Text3.Text

f4 = Text4.Text

f5 = Text5.Text

f6 = Text6.Text

'Open "D:\1-TXT\Щесюк\Різне\44\Студент\Uk\Dani.txt" For Append As #1

Open App.Path + "\Dani.txt" For Append As #1

Print #1, f1; " -- "; f2; " -- "; f3; " -- "; f4; " -- "; f5; " -- "; f6

Close #1

Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "":

End Sub

Практична завдання № 25. “Комунальні послуги”.

Завдання А:

1. Створити базу даних для сплати комунальних послуг по таблиці 1.

2. Заповнити базу даних (стрічок записів має бути 6-ть).

Таблиця 1

№п/п	Назва поля	Тип поля	Формат поля
	№ п/п	Лічильник
	Квартира	Числовий	Ціле число
	Прізвище, ім’я, по батькові	Текстовий	Розмір поля 50
	Площа (м)	Числовий	З плаваючою комою
	Кількість проживаючих (чол.)	Числовий	Ціле число
	Опалення (куб.м)	Числовий	Множник 1,97
	Газ (куб.м)	Числовий	Множник 1,86
	Вода (куб.м)	Числовий	Множник 0,34
	Електроенергія (квт)	Числовий	Множник 0,34
	Сміття	Числовий	Множник 0,34

Завдання Б:

3. Створити форму для заповнення бази даних.

4. Створити клавіші пошуку інформації під програмою Visual Access.

5. Створити клавіші переміщення по формі (на початок, назад, вперед, на останній запис).

6. Створити текстове поле на формі, яке буде автоматично рахувати:

де P – площа квартири, N – кількість проживаючих

а) Суму за опалення (P1,97);

б) Сума за газ (N3,80);

в) Сума за воду (N1,24);

г) Сума за електроенергію (1 квт0,56);

д) Сума за сміття (N0,34).

Завдання В:

7. Створити звіт у майстрові звітів.

8. Відкоректувати поля звіту і виправити всі записи у звіті на українську мову.

Практична завдання № 12. Visual Basic. Інформаційне вікно.

З

АВДАННЯ: Ввімкнути інформаційне вікна відповідною процедурою.

На верху форми декларуємо API -функцию ShellAbout:

Private Declare Function ShellAbout Lib "shell32.dll" _ Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As _ String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Для виклику використовуємо у кнопку вписуємо команду:

Call ShellAbout(Form1.hwnd, App.Title, "Ваше ім'я", Me.Icon)

Практична завдання № 20. Visual Basic. Програма "Пароль”.

Іноді трапляється так, що вам потрібно поставити на програму пароль. Для цього ви звичайно можете закодувати сам файл - exe програмами типу Cryto, але із цим багато мороки : спочатку потрібно закодувати файл, потім якщо хочете його запустити прийдеться його розкодувати. Набагато краще вмонтувати пароль прямо в програму. Тим більше що це зовсім неважко.

К

рок №1 - Постановка задачі

Наша програма буде запитувати пароль. Якщо юзер введе правильний пароль то вона повідомить йому що пароль правильний. Якщо ж ні, то вона повідомить йому, що пароль неправильний. Як бачите отут усе легко і просто.

Крок №2 - Візуальне проектування

На формі розмістите такі елементи з такими настроюваннями:

TextBox (Поле властивості text повинне бути порожнім)

Command1 (у поле властивості Caption уведіть - Вхід )

Command2 (У поле властивості Caption уведіть - Вихід)

Крок №3 - Програмування в коді

Напишіть самостійно програмний код для програми "Перевірка паролю"

Крок №4 – ЗАДАЙТЕ Властивості ВІКНА "TextBox"

1. PasswordChar

2. MaxLend