И-10. Visual Basic программалау тіліндегі графика
Павлодар облысы, Лебяжі ауданы
Малыбай жалпы орта білім беретін мектептіS
ІІ санатты информатика п‰нініS мaCалімі
Жумабекова Мадина Оразхановна
П‰н: информатика
Сынып: 10
СабаKтыS таKырыбы: "Visual Basic программалау тіліндегі графика"
СабаKтыS маKсаты: Visual Basic баCдарламасыныS графикалыK объектілерімен жaмыс жасауCа _йрету
СабаKтыS міндеттері:
Білімділік: Объектілі баCдарланCан программалау бойынша алCан білімдерін саралау.
ДамытушылыK: €р оKушыныS сабаKKа деген ынта мен Kабілетін біріктіріп, KызыCушылыCын арттыру.
Т‰рбиелілік: ТуCан жерге, елге деген с_йіспеншілік пен патриоттыK сезімін ояту; шыдамдылыKKа, aKыптылыKKа баулу.
СабаKтыS к™рнекілігі: интербелсенді таKта, тест, практикалыK тапсырма, с‰йкестендіру кестесі
СабаKтыS Kaрал-жабдыKтары: интерактивті таKта, постер, т_рлі-т_сті маркерлер, Visual Basic 6.0, компьютер, локальды желі
СабаKтыS т_рі: практикалыK сабаK
СабаKтыS ‰діс-т‰сілі: постер жасау, тест, практикалыK тапсырманы орындау, Ішіне-сыртына
П‰наралыK байланыс: бейнелеу, алгебра, аCылшын тілі
СабаK барысы:І.`йымдастыру кезеSі (1 мин) /ЖЕСО модулі/
ОKушылармен с‰лемдесіп, т_гендеп, олардыS назарын сабаKKа бaру
ІІ.^й тапсырмасы (4 мин) /АКТ модулі/
1-флипчарт 2-флипчарт
Сурет-1. ОKушылар «С‰йкестендіру» тапсырмаларын орындауда
ІІІ.Білу ж‰не т_сіну кезеSі. (ОЖТ модулі) (6 мин)
ЖаSа сабаKтыS таKырыбын аныKтау _шін интербелсенді таKтада графикалыK объектілердіS суреттерін к™рсету.
Бaл не? Не _шін арналCан? Бaл фигуралар мен не жасауCа болады? сияKты жетелеме сaраKтары арKылы жаSа сабаKтыS таKырыбына шыCу.
ОKушылар жауабы: графикалыK фигуралар, сурет салу _шін, графикалыK объектілермен жaмыс жасау _шін арналCан.
СабаKтыS таKырыбы мен маKсаты Kандай деп ойлайсыздар?
ОKушылар жауабы: Visual Basic-те графикалыK объектілермен жaмыс жасау ж‰не _йрену
ЖаSа сабаKты т_сіну _шін оKушыларCа теориялыK материалдар таратылады. ОKушылар жаSа материалмен танысып, т_сінгендерін постер бетіне т_сіреді де, т_сінгендерін талдайды.
ТеориялыK материал:
Visual Basic-те графикамен жaмыс жасау _шін - PictureBox, - Shape, - Line, Image элементтерініS к™мегімен іске асырылады.
- PictureВox формаCа графиктік ™ріс шыCаратын компонент
- Shape формаCа тікт™ртбaрыш, эллипс, шеSбер, бaрыштары д™Sгеленген тікт™ртбaрыш фигураларын шыCаратын компонент
Jасиеттер терезесіндегі Shape Kасиеті: 0-прямоугольник, 1-квадрат, 2-овал, 3-круг, 4-скругленный прямоугольник, 5-скругленный квадрат
- Line формаCа сызыK шыCаратын компонент
- Image формаCа т_рлі типті бейнелік файлдардан суреттер шыCаратын компонент
Сурет-2. ТоптыK жaмыс
IV. Jолдану ж‰не талдау кезеSі /АКТ ж‰не ТжДБО модульдері/
ПрактикалыK жaмыс 1 деSгей (7 мин)
ТаKырыбы: ГрафикалыK объект Kaру
ЖaмыстыS маKсаты: Visual Basiс ортасында Kарапайым графикалыK объектілерді Kaруды _йрету.
Жaмысты орындау реті:
1. Visual Basic ортасын іске KосыSдар. Жобаны саKтап KойыSдар.
2. Пішінге келесі басKару элементтерін орнатып, олардыS Kасиеттерін с‰йкесінше ™згертіSдер:
Объект
Jасиеттері
ФормадаCы сурет
Shape
Backcolor
Backstyle
Caption
Form1
к™гілдір
Астана - жас Kала!
Б‰йтерек
Shape1
0-Прямоугольник
АK
1-непрозрачно
Shape2
3-Круг
сары
1-непрозрачно
Line1
Kара
Line2
Kара
Line3
Kара
Line4
Kара
Line5
Kара
Line6
Kара
Line7
Kара
Line8
Kара
Line9
Kара
Line10
Kара
Command1
ШыCу
Label1
Жасай бер, JазаKстан!
Shape3
0-Прямоугольник
к™к
1-непрозрачно
Ту
Shape4
2-Эллипс
сары
1-непрозрачно
Line11
Kара
3. Command1 батырмасына келесі процедураны жазамыз:
Private Sub Command1_Click()
End
End Sub
4. Jосымшаны іске Kосып, салCан суретіSді к™р, ШыCу батырмасын басып, баCдарламадан шыK.
5. Файл - > Создать Проект1.exe командасын орындап, баCдарламанды жоба ретінде саKта.
ПрактикалыK жaмыс 2 деSгей (8 мин)
ТаKырыбы: Visual Basic-те анимация жасау
ЖaмыстыS маKсаты: Visual Basiс ортасында Kарапайым анимацияларды Kaруды _йрету.
Жaмысты орындау реті:
1. Visual Basic ортасын іске KосыSдар. Жобаны саKтап KойыSдар.
2. Жaмыс _стеліндегі 10-сынып KапшыCындаCы “VB анимция” бейнесабаCын ашу
3. БаCдарламаныS коды
Private Sub Timer1_Timer()
Image1.Visible = False
Image2.Visible = True
Timer1.Interval = 0
Timer2.Interval = 400
End Sub
Private Sub Timer2_Timer()
Image2.Visible = False
Image1.Visible = True
Timer2.Interval = 0
Timer1.Interval = 400
End Sub
Private Sub Command1_Click()
End
End Sub
4. Jосымшаны іске Kосып, н‰тижені к™р, ШыCу батырмасын басып, баCдарламадан шыK.
5. Файл - > Создать Проект1.exe командасын орындап, баCдарламанды "Анимация" атты жоба ретінде саKта.
Сурет-3. ОKушылардыS практикалыK тапсырмаларды орындауы
Сергіту с‰ті.