Visual Basic-тегі графика

Jызылорда облысы,
№4 облыстыK дарынды балаларCа арналCан мектеп-интернаты
І санатты информатика п‰нініS мaCалімі
Ешімова Айнaр JуанышбайKызы

П‰н: информатика
Сынып: 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-флипчарт


ІІІ.Білу ж‰не т_сіну кезе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аратын компонент

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та.

Сергіту с‰ті.
ОKушылармен к™зге арналCан жаттыCулар жасау
1-жаттыCу
-К™здеріSніS бaлшыK етін Kатайтып, бірнеше секунд жaмыSдар.
-К™здеріSніS бaлшыK етін босаSсытып, ашыSдар.