Объектілерді енгізу. 10 сынып

Пән аты: Информатика

Сыныбы: 10

Сабақтың тақырыбы: Объектілерді енгізу

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

Білімділігі: OLE және Frame басқару элементтерімен таныстыру,

графикалық объектілер құруды үйрету.

Дамытушылығы: Ойлау, есте сақтау қабілеттерін арттыу.

Тәрбиелігі: Бағдарлама жазу барысында тиянақтылыққа, ұқыптылыққа тәрбиелеу.

Сабақтың типі: аралас сабақ

Сабақ түрі: практикалық сабақ

Оқыту әдістері: түсіндірмелі-иллюстративті, көрнекілік, сұрақ-жауап

Сабақтың көрнекілігі: ДК

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

І. Ұйымдастыру кезеңі

Оқушылардың сабаққа қатысын тексеру

ІІ. Сабақтың мақсаты мен міндеттерін айқындау

ІІІ. Жаңа тақырыпты түсіндіру

Графикалық объект құру

1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

2. Пішінге келесі басқару элементтерін орнатып, олардың қасиеттерін сәйкесінше өзгертіңдер:

Объект
Қасиеттері
Index
Shape
Backcolor
Backstyle
Caption
Interval
Объект: Shape1
Қасиеттері: 0
Oval
Қызыл
1-Opaque
Объект: Shape1
Қасиеттері: 1
Oval
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 2
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 3
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 4
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 5
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 6
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 7
Circle
Қара
1-Opaque
Объект: Shape1
Қасиеттері: 8
Circle
Қара
1-Opaque
Объект: Line1
Қасиеттері: 0
Объект: Line1
Қасиеттері: 1
Объект: Line1
Қасиеттері: 2
Объект: Command1
Қасиеттері:
Пуск
Объект: Command2
Қасиеттері:
Шығу
Объект: Timer1
Қасиеттері:
80

3. Command1 батырмасына келесі процедураны жазамыз:

Dim k, i As Integer

Private Sub Command1_Click()

Timer1. Enabled = True

End Sub

4. Command2 батырмасына келесі процедураны жазамыз:

Private Sub Command2_Click()

End

End Sub

5. Пішінді екі рет басып, келесі процедураны толтырыңдар:

Private Sub Form_Load()

Timer1. Enabled = False

k = 0

For i = 0 To 8

Shape1(i) . Visible = False

Next

For i = 0 To 2

Line1(i) . Visible = False

Next

End Sub

6. Timer1 объектісі үшін келесі процедураны жазамыз:

Private Sub Timer1_Timer()

k = k + 1

If k >= 10 And k < 20 Then

For i = 0 To 8

Shape1(i) . Visible = True

Next

For i = 0 To 2

Line1(i) . Visible = True

Next

Else

For i = 0 To 8

Shape1(i) . Visible = False

Next

For i = 0 To 2

Line1(i) . Visible = False

Next

End If

If k = 20 Then k = 0

End Sub

7. Қосымшаны іске қосып, Пуск батырмасын бассаңдар, өшіп-жанып тұрған «қанқыз» графикалық объектісін көресіңдер.

ІV. Жаңа білімді бекіту

Практикалық жұмыс №1

OLE объектісімен жұмыс : Visual Basiс ортасында OLE объектісі арқылы Office программаларын іске қосатын программа құруды үйрету.

Жұмысты орындау реті:

1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

2. Пішінге OLE1, OLE2, OLE3 және OLE4 басқару элементтерін орналастырыңдар.

3. Әрбір OLE объектісін пішінге қойғанда шығатын Объектіні кірістіру (Вставка объекта) терезесінде Файлдан жасау (Создать из файла) ауыстырып қосқышын орнатып, Қарап шығу (Обзор) батырмасы арқылы керекті файлдың маршрутын, мысалы, Калькуляторды іске қосу файлының C:\Windows\system32\calc. exe маршрутын орнатқаннан кейін, байланыс жалаушасын орнатып ОК батырмасын басыңдар.

4. Керекті файлдарды пішінге түсіргеннен кейін, қосымша іске қосылғанда контексті мәзір шықпауы үшін, объектілердің AutoVerbMenu қасиеттеріне False мәнін меншіктеңдер.

5. Қосымшаны іске қосып, . exe типті файлдарын іске қосу арқылы Office программаларын ашып көріңдер.

Практикалық жұмыс №2

OLE және Frame басқару элементтерімен жұмыс: Visual Basiс ортасында OLE объектісі арқылы кірістірілген үлкен құжатты көру үшін Frame объектісін пайдаланып айналдыру жолақтарын жасауды үйрету.

Жұмысты орындау реті:

1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

2. Пішінге Frame1 объектісін орналастырыңдар.

3. Оның үстіне OLE1 объектісін қойып, шекараларын созу арқылы Frame1 объектісін толық жабатындай етіп, беттестіріңдер де, Word программасынан кез келген бір үлкен құжатты кірістіріңдер.

4. Қосымша іске қосылғанда контексті мәзір шықпауы үшін, OLE1 объектісінің AutoVerbMenu қасиетінде False мәнін меншіктеңдер.

5. Frame1 объектісінің ішіне Vscroll1 вертикаль және Hscroll1 горизонталь айналдыру жолақтарының объектілерін орналастырыңдар.

6. Олардың Max қасиетіне құжаттың өлшеміне сәйкес мән беріңдер.

7. LargeChange және SmallChange қасиеттеріне 50 мәнін меншіктеңдер.

8. Vscroll1 объектісін екі рет шерту арқылы код терезесіне келесі процедураны жазыңдар:

Private Sub VScroll1_Change()

OLE1. SetFocus

OLE1. Top = -VScroll1. Value

OLE1. Height=OLE1. Height+ VScroll1. Value

End Sub

9. Hscroll1 объектісін екі рет шерту арқылы код терезесіне келесі процедураны жазыңдар:

Private Sub HScroll1_Change()

OLE1. SetFocus

OLE1. Left = -HScroll1. Value

OLE1. Width=OLE1. Width+ HScroll1. Value

End Sub

10. Қосымшаны іске қосып, кірістірілген құжатты айналдыру жолақтарының көмегімен оқып көріңіздер.

Практикалық жұмыс №3

Калькулятор программасын құру : Visual Basiс ортасында қарапайым калькулятордың қызметін атқаратын WINDOWS қосымшасын құруды үйрету.

Жұмысты орындау реті:

1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

2. Пішіннің Caption қасиетіне Калькулятор мәнін меншіктеңдер.

1. Пішінге Text1 және 9 Command (Command1 - Command9) басқару элементтерін орналастырыңдар.

2. Компоненттердің келесі қасиеттерін орнатыңдар:


Ұқсас жұмыстар
Word мәтіндік редакторына графикалық, бейнелік объектілерді кірістіру
Сабақтың жоспары
Күнтізбелік - тақырыптық жоспар
Обьектілерді көшіру себет (корзина). себеттегі обьектілерді өшіру, қалпына келтіру
Мауыстың негізгі батырмасын ата
«дербес компьютердің сыртқы құрылғылары
Мәтінге сурет кірістіру. Құжат бөліктерін көшіру және жылжыту
Объектіні дискетке көшіру
Техника қауіпсіздігі және жұмыс орнын ұйымдастыру
Орта мектептің жоғарғы буынында "page make"r бағдарламасын оқыту
Пәндер



Реферат Курстық жұмыс Диплом Материал Диссертация Практика Презентация Сабақ жоспары Мақал-мәтелдер 1‑10 бет 11‑20 бет 21‑30 бет 31‑60 бет 61+ бет Негізгі Бет саны Қосымша Іздеу Ештеңе табылмады :( Соңғы қаралған жұмыстар Қаралған жұмыстар табылмады Тапсырыс Антиплагиат Қаралған жұмыстар kz