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

aibekkamil000Камиль Айбек Павлодар қ. Дарынды балаларға арналған Абай атындаѓы №10 лицей-мектебi

Visual Basic бойынша практикалық сабақтар жинағы (7 сабақ) Толық нұсқасын көшіріп алыңыз.
Айы, күні: ____________
Тексерілді: ____________ Камиль Айбек
Сабақ саны:
Cабақтың тақырыбы: Басқару элементтері.
Сабақтың мақсаты:
1.Білімділік: Басқару элементі туралы түсінікті беру. Оның негізігі жұмыс істеу және атқару қызметтері туралы мағлымат беру.
2.Тәрбелік: Оқушылардың сабаққа деген қызығушылығын, бейімділігін ояту
3.Дамыту: Оқушылардың білімін арттыру, VB ортасымен қолдануға үйрету.
Сабақтың әдіс-тәсілдері: түсіндіру, ой қозғау, мағынаны ашу, өз бетімен жұмыс,жеке жұмыс.
Көрнекіліктер: компьютер, VB праграмма ортасы
Міндеттері: 1. Логикалық ойлау қабілеттерін дамыта отырып, білім білік дағдыларын қалыптастыру.
2. Оқушының өз бетімен жұмыс істеуі, шығармашылық қабілетін дамыту.

Сабақтың барысы:

І.Ұйымдастыру кезеңі: Оқушылармен аманадасу, жоқ балаларды белгілеу.
ІІ.Үй тапсырмасын тексеру.Өткен тақырып бойынша деректер мен тапсырмаларды сұрау.
ІІІ.Жаңа сабақ түсіндіру.
Мультипликациялық файлдарды ойнату.
Мультипликациялық AVI-файлдарды ойнату бағдарламасын жасайық. Ол үшін Animation, ToolBar, ImageList қосымша басқару элементтерін пайданалайық.
Анимация басқару элементі қарапайым, көрнекі бейнелеу үшін пайдаланады.
1. Жаңа жоба жаса.
2. Project ьунюін ашып, Components шерт.

Одан Microsoft Windows Common Controls – 2, Microsoft Windows Common Controls қосымша элементтері үшін *қанат белгілер*(галочка) орнатып,ОК шерт.

3. Animation, ToolBar, ImageList басқару элементтерін пішінде орналастыру.
4. Пішінде ImageList ерекшелеп, қасиеттер терезесінен Custom бас. ImageList элементінің қасиеттер тізімі пайда болды.
5. Images екінші қосымша бетіне өтіңдер. Одан Insert Pictures –ке өтіп, CommonGraphicsbitmapstlbr_95 файлдан өзімізге таныс ОРЕN.BMP тандап, Открыть бас.
6. Тағы COPY.BMP,DELETE.BMP,FIND.BMP үш сурет кіргізіп, жүктелген соң Ок бас.
7. Пішінде ToolBar ерекшелеп, қасиеттер терезесінен Custom бас. Батырмалар терезесіне өтіп, Insert button батырмасын 4 шерт. Index-те 4 деген мән болу керек. Сосын Ок бас.
8. Пішін модулінің терезесін ашу үшін пішінді екі рет шерт.Онда келесі кодты жаз:

Private Sub Form_Load()
Dim I As Integer
Caption “проигрвн.мультипликации” “связывание панели инструментов со списком изобрежений”
ToolBar1.ImageList = ImageList1
“связывание кнопок панели с изображениями со списка ”
For i = 1 to 4
ToolBar1.Buttons(i).Image = i
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
Animation1.Close
End Sub

Private Sub toolbar1_ButtonClicK(Byval Button As Button)
’по индексу нажатой кнопки определяем действие
Select Case Button.IndexCase Is = 1
“ кнопка OPEN
Animation1.Open
<< C: VBCommonGraphicsVideosdownload.avi>>
Case is =2 ” кнопка СOPY

Animation1.Open
<< C: VBCommonGraphicsVideosfilecopy.avi>>
Case is =3 ” кнопка Delete

Animation1.Open
<< C: VBCommonGraphicsVideosfiledel.avi>>
Case is =4 ” кнопка Find

Animation1.Open
<< C: VBCommonGraphicsVideosdownload.avi>>
And Select
Animation1.AutoPlay = True
End Sub.

ІV.Жаңа сабақты бекітуге сұрақтар қою.
V.Үйге тапсырма
VI.Сабақты қорытындылау.

Visual Basic бойынша практикалық сабақтар жинағы (7 сабақ) Толық нұсқасын көшіріп алыңыз.

Check Also

Аудандық олимпиада. ІІ-тур. 2016-2017 оқу жылы.

D есебі 5 бүтін сандар берілген. Осы сандардың арасынан төртеуін таңдағандағы қосындының ең үлкен жəне …

2 комментария

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.