Практична завдання № 26. Visual Basic. Реагування форми.

Написати програму, що реагує на пересування її по екрану.

1. У самому верху коду форми (розділ General), оголошуємо дві змінні:

Public MyTop As Integer Public MyLeft As Integer

2. Потім в Load_Form:

'змінним MyTop і MyLeft присвоюємо MyTop = Me.Top 'актуальне значення форми по вертикалі і горизонталі MyLeft = Me.Left

3. І в таймер (інтервал поставте, наприклад 100, тобто подія відбувається кожну 1/10 секунд):

'тут таймер перевіряє чи ідентичні If Me.Top <> MyTop Or Me.Left <> MyLeft Then MsgBox "Форма пересунута"'значення форми по вертикалі і горизонталі MyTop = Me.Top 'засічені раніше і нині. MyLeft = Me.Left 'якщо ні, то вистрибує повідомлення і End If 'актуальые значення перезаписуються

Практична завдання № 21. “Магазин продуктовий”.

Завдання А:

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

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

Таблиця 1

№п/п	Назва поля	Тип поля	Формат поля
	№ п/п	Лічильник
	Ідентифікаційний код	Числовий	Розмір поля 9
	ПІПБ здавача	Текстовий	Розмір поля 25
	ПІПБ заготівельника	Текстовий	Розмір поля 25
	Назва продукції	Текстовий	Розмір поля 25
	Кількість ( кг )	Числовий	З плаваючою комою
	Ціна за 1 кг ( грн )	Грошовий	Формат поля грошовий (у гривнях, або у карбованцях)

Завдання Б:

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

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

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

6. Створити текстове поле на формі, яке буде автоматично рахувати суму зданої продукції (грн. або у крб.).

Завдання В:

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

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

Практична завдання № 22. Visual Basic. Браузер.

Завдання: Створити програму «Браузер (перегляд фотографій)»

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

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

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

SelectedFile = File1.Path & "\" & File1.FileName

Image1.Picture = LoadPicture(SelectedFile)

'Імя = File1

Шлях = Dir1 & "\" & File1

End Sub

3

Практична завдання № 1. Visual Basic. Калькулятор.

ЗАВДАННЯ: Створити програму «Калькулятор»

Dim a As Single

Dim b As Single

Dim c As Single

Dim d As Single

Private Sub C0_Click()

Label1 = Label1 + "0"

End Sub

Private Sub C1_Click()

Label1 = Label1 + "1"

End Sub

Private Sub C2_Click()

Label1 = Label1 + "2"

End Sub

Private Sub C3_Click()

Label1 = Label1 + "3"

End Sub

Private Sub C4_Click()

Label1 = Label1 + "4"

End Sub

Private Sub C5_Click()

Label1 = Label1 + "5"

End Sub

Private Sub C6_Click()

Label1 = Label1 + "6"

End Sub

Private Sub C7_Click()

Label1 = Label1 + "7"

End Sub

Private Sub C8_Click()

Label1 = Label1 + "8"

End Sub

Private Sub C9_Click()

Label1 = Label1 + "9"

End Sub

Private Sub Coma_Click()

Label1 = Label1 + ","

End Sub

Private Sub Di_Click()

a = Label1

Label1 = ""

c = 4

End Sub

Private Sub Dor_Click()

b = Label1

Label1 = ""

If c = 1 Then d = a + b

If c = 2 Then d = a - b

If c = 3 Then d = a * b

If c = 4 Then d = a / b

Label1 = d

End Sub

Private Sub Minus_Click()

a = Label1

Label1 = ""

c = 2

End Sub

Private Sub Mn_Click()

a = Label1

Label1 = ""

c = 3

End Sub

Private Sub Plus_Click()

a = Label1

Label1 = ""

c = 1

End Sub

Private Sub Очистити_Click()

a = ""

b = ""

c = ""

d = ""

Label1 = ""

End Sub