Басқару элементі

Практикалық жұмыс 1 деңгей
Тақырыбы: CheckBox басқару элементімен жұмыс жасау.
<<Ұлттық рәміз туралы>> программасын құру
Жұмыстың мақсаты: Visual Basiс ортасында мәтінмен жұмыс істеп үйрену.
Жұмысты орындау реті:
1. Visual Basic ортасын іске қосыңдар.
2. Жобаны өз есімдеріңмен сақтап қойыңдар.
3. Пішінде Label1, Check1, Check2, Check3, Check4 басқару элементтерін орнатыңдар.
4. Осы басқару элементтерінің келесідей қасиеттерін өзгертіңдер:
Басқару элементі
Қасиеті
Орнату мәні
Form1
Caption
Ұлттық рәміз
Label1
Caption
Көк тудың желбірегені
Жаныма қуат береді
Таласка түссе жан мен ту
Жан емес маған керегі
Көк тудың желбірегені
Check1
Caption
Қиғаш
Check2
Caption
Жартылай қалың
Check3
Caption
Асты сызылған
Check4
Caption
Үсті сызылған
5. Check1, Check2, Check3, Check4 басқару элементтеріне Click процедурасын таңдап, әрқайсысына келесі программалық кодты тереміз (сәйкесінше элементте тышқанның сол батырмасын екі рет шертеміз):

Check1 Private Sub Check1_Click()
Label1.FontItalic = Check1.Value
End Sub
Check2 Private Sub Check2_Click()
Label1.FontBold = Check2.Value
End Sub
Check3 Private Sub Check3_Click()
Label1.FontUnderline = Check3.Value
End Sub
Check4 Private Sub Check4_Click()
Label1.FontStrikethru = Check4.Value
End Sub
6. Жобаны іске қосыңдар. (Start)

Практикалық жұмыс 2-деңгей
Тақырыбы: ListBox басқару элементімен жұмыс істеу.
<<Тәуелсіз жылдар тізімі>> қосымшасын құру
Жұмыстың мақсаты: Visual Basiс ортасында ListBox компонентін қолдануды үйрену.
Жұмысты орындау реті:
1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
2. Пішінде екі басқару элементін орнатыңдар. Біріншісі - ListBox1 Тізім басқару элементі, екіншісі - CommandButton1 басқару элементі. Оларды келесі суретте көрсетілгендей етіп, орналастырыңдар.

ListBox1

CommandButton1

3. Осы басқару элементтері үшін келесі қасиеттерді орнатыңдар:

Объект
Объект аты
Қасиеті
Мәні
Пішін
Form1
Caption
Тәуелсіз жылдар тізімі
Басқару батырмасы
Command1
Caption
Шығару
4. Command1 басқару элементі үшін Click процедурасын таңдап (батырмада тышқанмен екі рет шертіңдер), келесі кодты жазыңдар:
Private Sub Command1_Click()
List1.Additem "1991 жыл - Тәуелсіздік алған жыл"
List1.Additem "1992 жыл - Дүниежүзі қазақтарының құрылтайы"
List1.Additem "1993 жыл - ҚР Конституциясы қабылданды"
List1.Additem "1994 жыл - Халықаралық отбасы жылы"
List1.Additem "1995 жыл - Абай жылы"
List1.Additem "1996 жыл - Бейбітшілік пен рухани татулық жылы"
List1.Additem "1997 жыл - Саяси қуғын-сүргін құрбандарын еске алу жылы"
List1.Additem "1998 жыл - Халық бірлігі мен ұлттық тарих жылы"
List1.Additem "1999 жыл - Ұрпақтар бірлігі мен сабақтастығы жылы"
List1.Additem "2000 жыл - Мәдениетті қолдау жылы"
List1.Additem "2001 жыл - Тәуелсіздікке 10 жыл"
List1.Additem "2002 жыл - Денсаулық жылы"
List1.Additem "2003 жыл - Ауыл жылдары"
List1.Additem "2004 жыл - Отбасы жылы"
List1.Additem "2005 жыл - Н.Назарбаевтың қайта сайлануы"
List1.Additem "2006 жыл - Жаңа әнұранның шығуы"
List1.Additem "2007 жыл - Көпбалалы аналарды мараппатау"
List1.Additem "2008 жыл - Астанаға 10 жыл"
List1.Additem "2009 жыл - Президенттің жолдауы"
List1.Additem "2010 жыл - ЕҚЫҰ саммиті"
List1.Additem "2011 жыл - Тәуелсіздікке 20 жыл!"
End Sub
5. Қосымшаны іске қосыңдар (F9). Шығару батырмасын басыңдар, тәуелсіз жылдар тізімі шығады.

Практикалық жұмыс 3 деңгей
Тақырыбы: Графикалық объект құру
Жұмыстың мақсаты: Visual Basiс ортасында қарапайым графикалық объектілерді құруды үйрету.
Жұмысты орындау реті:
1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
2. Пішінге келесі басқару элементтерін орнатып, олардың қасиеттерін сәйкесінше өзгертіңдер:

Объект
Қасиеттері

Index
Shape
Backcolor
Backstyle
Caption
Form1

Қызғылт

Қазақстан астанасының символы
Shape1
0
4-Rounded Rectangle
Сұр
1-Opaque

Shape2
1
3-Circle
Көк
1-Opaque

Line1
0

көк
1-Opaque

Line1
1

көк
1-Opaque

Line1
2

көк
1-Opaque

Line1
3

көк
1-Opaque

Line1
4

көк
1-Opaque

Line1
5

көк
1-Opaque

Line1
6

көк
1-Opaque

Command1
0

Бастау
Command2
1

Шығу
Picture1

Астана-Байтерек
3. Command1 батырмасына келесі процедураны жазамыз:
Dim k, i As Integer
Private Sub Command1_Click()
End Sub
4. Command2 батырмасына келесі процедураны жазамыз:
Private Sub Command2_Click()
End
End Sub
5. Қосымшаны іске қосып, Бастау батырмасын басыңдар.