Тема "Объектілерді енгізу"

Сабақтың тақырыбы: Объектілерді енгізу Сабақтың мақсаты: Білімділігі: 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. Компоненттердің келесі қасиеттерін орнатыңдар: Объект Қасиеті Мәні 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 = 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. Өз беттеріңше «Калькулятор» программасына қалған батырмаларды қосып, - сандар , , , және операциялар - , толықтырыңдар. Сәйкесінше, программалық код жазыңдар. V. Сабақты қорытындылау Бағалау. Үйге тапсырма: § 2.7Сабақтың тақырыбы: Объектілерді енгізу Сабақтың мақсаты: Білімділігі: 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. Компоненттердің келесі қасиеттерін орнатыңдар: Объект Қасиеті Мәні 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 = 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. Өз беттеріңше «Калькулятор» программасына қалған батырмаларды қосып, - сандар , , , және операциялар - , толықтырыңдар. Сәйкесінше, программалық код жазыңдар. V. Сабақты қорытындылау Бағалау. Үйге тапсырма: § 2.7