К?ні: 04.12.14ж. Сыныбы: 10 «А»
Саба?ты? та?ырыбы: Графиканы программалау (практикалы? саба?)
Саба?ты? ма?саты: Visual Basic программалау тілінде компьютерлік графика т?рімен ж?не оны? классификациясымен, компьютерде WindowsMediaPlayerді ?олдану.
Саба?ты? міндеттері:
1. Графикалы? а?параттарды ??деу технологиясын о?ушылар?а ме?герту.
2. О?ушыларды? ой-?рісін ке?ейтіп, практикалы? іс-?рекеттерін ж?не есте са?тау ?абілеттерін дамыту.
3. О?ушыларды? жа?а ??ымдарды тез ?абылдау?а, ?семділікке, жылдамдылы??а т?рбиелеу.
Саба?ты? типі: аралас саба?
Саба?ты? т?рі: практикалы? саба?
Саба?ты? ?дісі: кері ?сер пара?ы, техникалы? диктант
Саба??а ?ажетті ??ралдар мен к?рнекіліктер:
- ??ралдар : компьютер, интерактивті та?та
- К?рнекіліктер: ?лестірмелі бетшелер
П?наралы? байланыс: музыка
К?тілетін н?тиже: Visual Basic программалау тілінде компьютерлік графикамен ж?мыс жасай алады.
Саба?ты? жоспары:
І. ?йымдастыру кезе?і. (2 мин)
Топты т?гелдеу, саба??а даярлы?ын тексеру.
ІІ. ?й тапсырмасын с?рау. (8 мин)
Техникалы? диктант
- CheckBox – жалауша
- ListBox – тізім
- ComboBox – аралас ?ріс
- HscrollBar – айналдыру жола?тары
- Image – сурет
- Timer – уа?ыт
- Label – жазу
- TextBox – м?тін енгізу
- CommandButton – батырма
- OptionButton – ауыстырып ?ос?ыш
- Line – сызы?
- Shape – фигура
ІІІ. ?ыс?аша т?сінік (10 мин)
Жоба?а аудио-видео файлдар кірістіруді? бірнеше жолдары бар. К?бінесе API функциясы немесе MediaPlayer, MMControl компоненттері ?олданылады.
API функциясымен ?осымша?а дыбысты? немесе бейнелік объектілер кірістіру ?шін, программалы? кодты? General б?лігінде функцияны mciExecute атауымен жариялап кету ?ажет. Содан со? программа?а аудио-видео файлдармен ж?мыс жасайтын функциялы? айнымалы кірістіріп, о?ан келесі м?ндер берілуі м?мкін.
X=mciExecute(“Play F”) // ? файлын іске ?осу
X= mciExecute(“Close F”) // ? файлын жабу
м?нда?ы:
Х – функциялы? айнымалы
? – аудио-видео файлды? жолы.
WindowsMediaplayer бас?ару элементі жоба?а аудио-видео файлдар кірістіру ?шін ?олданылатын стандартты компоненттер панелінде белгішесі жо? ?осымша компонент. Оны? белгішесін компоненттер панеліне шы?ару ?шін Project-Components командасын орында?анда шы?атын Components терезесіні? Controls пара?ында?ы тізімнен Windows Media player ?атарын белгілеп, Применить батырмасын басу ?ажет. Негізгі о?и?асы - dvd.
Негізгі ?асиеттері мен ?дістері:
URL – файлды? жолын орнату
Fullscreen – к?рсетілім барлы? экран бетіне жайып к?рсету
ІV. Практикалы? саба?. /15 мин/
Тапсырма1. WindowsMediaplayer бас?ару элементімен ж?мыс.
Тапсырманы? орындалу реті:
1. Форманы? Caption ?аситеіне WindowsMediaplayer м?нін бері?із, Font комплексті ?асиетін ашып, шрифт ?лшемін 12 етіп орнаты?дар.
2. Элементтер панелінде WindowsMediaplayer бас?ару элементін форма?а орнаты?дар. Егер б?л бас?ару элементі жо? болса, тыш?анды элементтер панеліне апарып, о? жа? батырмасын басып, контекстілі менюді ша?ырамыз. Components командасын орында?дар. Шы??ан Components диалогты? терезесінде тізімдегі Windows Media player м?ніні? т?сына ?анатша белгісін ?ойып, Прменить батырмасын басы?дар, сонда WindowsMediaplayer бас?ару элементі панельде пайда болады.
3. Форма?а Command1, Command2, Command3 бас?ару элементтерін орнаты?дар. Оларды? Caption ?асиетіне “Tada”, “Start”, “Notify” м?ндерін меншікте?дер.
4. Command1_Click процедурасына ?тіп, Windows-ті? стандартты Media бумасында?ы tada.wav дыбысты? файлын кірістірі?дер.
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "c:\windows\media\tada.wav"
End Sub
5. Command2_Click процедурасына ?тіп, Windows-ті? стандартты Media бумасында?ы start.wav дыбысты? файлын кірістірі?дер.
Private Sub Command2_Click()
WindowsMediaPlayer1.URL = “c:\windows\media\start.wav”
End Sub
6. Command3_Click процедурасына ?тіп, Windows-ті? стандартты Media бумасында?ы notify.wav дыбысты? файлын кірістірі?дер.
Private Sub Command3_Click()
WindowsMediaPlayer1.URL = «c:\windows\media\notify.wav»
End Sub
7. ?осымшаны іске ?осып, орындап к?рі?із.
Тапсырма2. ?ндер жина?ы ?осымшасын ??ру.
Тапсырманы? орындалу реті:
1. Форманы? Caption ?асиетіне ?ндер жина?ы м?нін бері?дер. Font комплексті ?асиетін ашып, шрифт ?лшемін 12 етіп орнаты?дар.
2. Компоненттер панеліне WindowsMediaplayer компонентіні? белгішесін шы?арып, форма?а WindowsMediaplayer1 элементін т?сірі?із, оны? Visible ?асиетіне False м?нін орнаты?дар.
3. Форма?а List1 бас?ару элементін орнатып, List ?асиеті ар?ылы ?ле?дер аттарынан т?ратын тізім жаса?дар. (6 ?ле?).
4. Форма?а Command1 бас?ару элементін орнатып, оны? Caption ?асиетіне Ойнату м?нін меншікте?дер.
5. Тізімнен ?ле?ді та?дап, Ойнату батырмасын бас?анда, ?ле?ді ойнату ?шін Command1_Click() процедурасына келесі программалы? кодты тереміз:
Private Sub Command1_Click()
n = List1.ListIndex
Select Case n
Case 0: WindowsMediaPlayer1.URL = "D:\Музыка\! Алёна Высотская - Вижу тебя.mp3"
Case 1: WindowsMediaPlayer1.URL = "D:\Музыка\03 Maxim - Не отдам.mp3"
Case 2: WindowsMediaPlayer1.URL="D:\Музыка\05 Angel'rCrying 5.mp3"
Case 3: WindowsMediaPlayer1.URL = "D:\Музыка\08 - Валерий Меладзе - Говорила ты.mp3"
Case 4: WindowsMediaPlayer1.URL = "D:\Музыка\100 Nepara - Plach i smotri.mp3"
Case 5: WindowsMediaPlayer1.URL = "D:\Музыка\A'studio - Ангел.mp3"
End Select
End Sub
6. ?осымшаны іске ?осып, орындап к?рі?із.
V. Cаба?ты бекіту /7 мин/
Галерея?а саяхат
VІ. ?й тапсырмасын беру/1 мин/. 2.8-та?ырып, Visual Basic ортасында ба?даршам программасын ??р.
VІІ. О?ушы ?рекетін ж?не саба? барысын ба?алау /1 мин/.
VІІІ. Кері ?сер пара?ы/1 мин/
Б?гін мен не ?йрендім?
Ма?ан не ?нады/ ?намады?
Жа?а саба? бойынша с?ра? немесе пікірі?..