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

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

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

Сабақтың мақсаты:
Білімділігі: OLE және Frame басқару элементтерімен таныстыру,
графикалық объектілер құруды үйрету.
Дамытушылығы: Ойлау, есте сақтау қабілеттерін арттыу.
Тәрбиелігі: Бағдарлама жазу барысында тиянақтылыққа,

ұқыптылыққа тәрбиелеу.

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

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

І. Ұйымдастыру кезеңі
Оқушылардың сабаққа қатысын тексеру
ІІ. Сабақтың мақсаты мен міндеттерін айқындау

ІІІ. Жаңа тақырыпты түсіндіру
Графикалық объект құру
1.     Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
2.     Пішінге келесі басқару элементтерін орнатып, олардың қасиеттерін
сәйкесінше өзгертіңдер:
|Объект |Қасиеттері |
| |Index |Shape |Backcolor |Backsty|Caption |Interval|
| | | | |le | | |
|Shape1 |0 |Oval |Қызыл |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |1 |Oval |Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |2 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |3 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |4 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |5 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |6 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |7 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|Shape1 |8 |Circle|Қара |1-Opaqu|  |  |
| | | | |e | | |
|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.     Қосымшаны іске қосып, Пуск батырмасын бассаңдар,  өшіп-жанып тұрған
«қанқыз» графикалық объектісін көресіңдер.
 
[pic]
 ІV. Жаңа білімді бекіту
Практикалық жұмыс №1
OLE объектісімен жұмыс : Visual Basiс ортасында  OLE объектісі арқылы
Office программаларын іске қосатын программа құруды үйрету.
Жұмысты орындау реті:
1.     Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
2.     Пішінге OLE1, OLE2, OLE3 және OLE4 басқару элементтерін
орналастырыңдар.
3.     Әрбір OLE объектісін пішінге қойғанда шығатын Объектіні кірістіру
(Вставка объекта) терезесінде Файлдан жасау (Создать из файла) ауыстырып
қосқышын орнатып, Қарап шығу (Обзор) батырмасы арқылы керекті файлдың
маршрутын, мысалы, Калькуляторды іске қосу файлының
C:\Windows\system32\calc.exe маршрутын орнатқаннан кейін, байланыс
жалаушасын орнатып ОК батырмасын басыңдар.
[pic]
4.     Керекті файлдарды пішінге түсіргеннен кейін, қосымша іске қосылғанда
контексті мәзір шықпауы үшін, объектілердің AutoVerbMenu  қасиеттеріне
False  мәнін меншіктеңдер.
5.     Қосымшаны іске қосып, .exe типті файлдарын іске қосу арқылы Office
программаларын ашып көріңдер.
[pic]
 
 Практикалық жұмыс №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. Қосымшаны іске қосып, кірістірілген құжатты айналдыру жолақтарының
көмегімен оқып көріңіздер.
[pic]
 Практикалық жұмыс №3
Калькулятор программасын құру: Visual Basiс ортасында қарапайым
калькулятордың қызметін атқаратын WINDOWS қосымшасын құруды
үйрету.
Жұмысты орындау реті:
1.     Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
2.     Пішіннің Caption қасиетіне Калькулятор мәнін меншіктеңдер.
1.     Пішінге Text1 және 9 Command (Command1 – Command9) басқару
элементтерін орналастырыңдар.
2.     Компоненттердің келесі қасиеттерін орнатыңдар:
|Объект |Қасиеті |Мәні |
|Text1 |Text | Бос |
|Command1 |Caption |1 |
|Command2 |Caption |2 |
|Command3 |Caption |3 |
|Command4 |Caption |4 |
|Command5 |Caption |5 |
|Command6 |Caption |С |
|Command7 |Caption |+ |
|Command8 |Caption |- |
|Command9 |Caption |= |

  [pic]

3.     Command батырмаларын 2 рет шертіп, келесі процедураларды  жазыңдар:
Command1 батырмасы:
Dim c, s, sim
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
c = Text1.Text
End Sub
Command2 батырмасы:
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
c = Text1.Text
End Sub
Command3 батырмасы:
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
c = Text1.Text
End Sub
Command4 батырмасы:
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
c = Text1.Text
End Sub
Command5 батырмасы:
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
c = Text1.Text
End Sub
Command6 батырмасы:
Private Sub Command6_Click()
Text1.Text = " "
End Sub
Command7 батырмасы:
Private Sub Command7_Click()
s = Val(c)
Text1.Text = " "
sim = "+"
End Sub
Command8 батырмасы:
Private Sub Command8_Click()
s = Val(c)
Text1.Text = " "
sim = "-"
End Sub
Command9 батырмасы:
Private Sub Command9_Click()
Select Case sim
Case "+"
Text1.Text = s + Val(c)
Case "-"
Text1.Text = s - Val(c)
End Select
End Sub 4.      Өз беттеріңше «Калькулятор» программасына қалған
батырмаларды қосып, -  сандар [pic], [pic], [pic], [pic]  және операциялар
- [pic], [pic] толықтырыңдар. Сәйкесінше, программалық код жазыңдар.
V. Қорытынды кезең. Бүгін сабақта біздің білгеніміз?
Үйге тапсырма: § 2.7