Информациялық қызмет көрсету жүйелеріне қойылатын талаптар



жүктеу/скачать 0.7 Mb.
бет4/4
Дата01.07.2016
өлшемі0.7 Mb.
#171322
1   2   3   4



9 сурет-Сlосk мәзірі енгізілген форма модулі



СІосk мәзірі пункттерімен жұмыс
1. Формада Lаbеl1, Lаbеl2 объектілерін орнату. Lаbеl1 өрісіне уақытты, Lаbеl2 өрісіне датаны енгізуді жоспарлау.

2. Сlосk мәзірін ашьш, Тіmе пунктін екі рет шерту. Код терезесі ашылып, процедура моделі көрінеді. Оны толтыру:



Рrіvatе Sub DateItem_Сlісk()

Lаbеl1. Сарtіoп = Тіте

Епd Sub

3. View-Object командасы арқылы форманы экранға қайта шығарып, мәзірдің Dаtе пунктін екі рет шерту. Ашылған код терезесінде процедура моделін толтыру:



Рrіvatе Sub DateItem_Сlісk()

Lаbеl2. Сарtіoп = Date

Епd Sub

General




Form1

Label1


Label2

MnuClock


TimeItem

DateItem




10 сурет-Формаға енгізілген объектілер тізімі


Ескерту. Формада мәзір орнатылған соң код терезесінде процедура модельдерін ашудың екінші әдісі:

- View - Object командасы арқылы код терезесін ашу;

- Терезенің сол жақ (Gеnегаl) беліміне енгізілген тілсызык түймесін шертіп, объектілер тізімін ашу (10 сурет).

- Тізімнен ТіmеItеm қатарын екі рет шерту. Процедура моделі көрінеді. Оған қажетті команданы енгізу.

- DаtеItеm қатарымен де осы сияқты іс-әрекеттерді орындау.

4. Проектіні сақтау (мысалы, FоrтСlock.forт; FоrmСloсk.-vbр).



5. Іске қосу командасын беру (F5). Форма көрінеді.

6. Oған енгізілген СІосk мәзірін ашып, ретімен Тіmе, Dаtе пунктnерін шерту. Lаbеl1, Lаbеl2 өрістеріне ағымдық уақыт пен дата жазылып қойылады, мысалы,

12:47:25 26:12:2000

7. Программа жұмысын аяқтау командасын беру (Еnd). Ескерту. ТіmеItеm объектісінің қасиеттер терезесі жоқ.

Сол себепті формада тек ағымдық уақыт көрінеді. (Жалпы, мәзір элементтерімен жұмыс істеу оқиғасы Сlісk (басу) ғана).

Тапсырма, Формада Сlосk мәзірінің алдына File (Ехіt) мәзірін енгізіңіз (Ехіt-ке арналған процедура моделіне Еnd операторының енгізілуі тиіс).

2.3 VISUАL BASIC ортасында “Бастауыш сыныпта геометриялық денелердің оқытудың электрондық тәсілі” программасын жасау алгоритмі
Электронды оқыту программасын жасайтын программалаушылардың қолданбалы программалар жасау принциптерін оқу программаларына механикалық түрде енгізбеуін қадағалау керек, ол кейбір кезде зиянын тигізуі мүмкін. Мұнда программалардың нақты адамдардың әрекеттерінен әсер ететінін ұмытпау керек, олардың ынтасы, қызығуы, ұмтылысы компьютердегі оқу процесінде ескерілуі қажет.

Бүгінде электрондық оқулық жасаудың түрлі тәсілдері шығып жатыр. Олар әртүрлі бағдарламалау орталарында жасалынып, таратылуда.

Жоғарыда атап өткеніміздей біз бұл ғылыми-зерттеу жұмысымызды Visuаl Basic бағдарламалау ортасында жасадық. Енді осы программаны жасау алгоритміне тоқталайық.

Бұл программаны жасауда дыбыстық файлдарды жазатын микрофон қажет. Ол арқылы қажетті дыбыстық файлдарды жазып аламыз. Мысалы, «Бастауыш мектептерде геометриялық денелерді электрондық оқытудың тәсілдері» деген сөзді дауыс арқылы шығару. т.с.с. дыбыстық файлдарды ***.wav типтегі файлдарды дайындап алу қажет. Мұндай файлдар Стандартты программалар тобындағы ДЫБЫС ЖАЗУ (ЗАПИСЬ) программасы арқылы жасалады.

Геометриялық денелерді анимация арқылы салып, олардың анықтамасын көрсететін бейнероликтер жасау керек. Оны MacromediaFlashMX программасын пайдалана отыры жасаймыз. MacromediaFlashMX анимациялық файлдарды жасау үшін өте қолайлы, мүмкіндігі жоғары программалардың бірі.

MacromediaFlashMX программасын ашып, геометриялық денелерді анимация арқылы салып, олардың анықтамасын көрсететін бейнероликтер жасаймыз да оларды арнайы бумаға (папкаға) ***.avi түрінде сақтап аламыз.

Одан соң Visuаl Basic бағдарламалау ортасын іске қосып, жаңа форма бетіне Label1, Image1, MediaPlayer1 компоненттерін орнатамыз. Label1 компонентінің Caption қасиетіне «Бастауыш мектептерде геометриялық денелерді электрондық оқытудың тәсілдері» сөзін ендіреміз (11сурет).

Image1 компонентінің код терезесіне келесі формаға өту және дыбыстық файлды шақыру процедурасын жазамыз:


Private Sub Form_Load()

WindowsMediaPlayer1.URL = "c:\dip\takrp.wav"

End Sub
Private Sub Image2_Click()

WindowsMediaPlayer1.URL = "c:\dip\start.wav"

Form1.Show

Form5.Hide

End Sub
Сондай-ақ форма бетін түрлі түстермен безендіреміз.

11 сурет - Программаның 1-ші беті


Ары қарай тағы жаңа форма ашып, оның бетіне OptionButton1, OptionButton2, OptionButton3, OptionButton4, OptionButton5, OptionButton6, OptionButton7, OptionButton8, OptionButton9 OptionButton10, Command1, Command2, Command3, Image1, Image2, MediaPlayer1, MediaPlayer2, Frame1 компоненттерін орнатамыз. Келесі бет негізгі бет болып саналды (12-сурет).

OptionButton1, OptionButton2, OptionButton3 компоненттерінің Caption қасиетттеріне сәйкесінше «1-сынып», «2-сынып», «3-сынып» сөздерін ендіреміз.

Frame1 компонентін форманың оң жақ бөлігіне үлкейтіп, оның бетіне MediaPlayer1-ді орналастыру керек.

OptionButton4, OptionButton5, OptionButton6, OptionButton7, OptionButton8, OptionButton9 OptionButton10 Caption қасиетттеріне сәйкесінше «Нүкте», «Түзу», «Кесінді», «Үшбұрыш», «Төртбұрыш», «Сәуле» , «Тік емес бұрыш», «Аудан» , «Перитметр» сөздерін ендіреміз.

Ал Command1, Command2, Command3 Caption қасиетттеріне сәйкесінше «Геометриялық денелер», «Программа туралы», «Шығу» сөздерін ендіреміз
12сурет - Негізгі терезе

Command1 компонентінің код терезесіне төмендегі процедураны ендіреміз:


Private Sub Command1_Click()

If Command1.Caption = "1 êëàññ" Then

Form2.Caption = "1 êëàñc"

Me.Hide

Form2.Show
Else

If Command1.Caption = "2 êëàññ" Then

Form3.Caption = "2 êëàññ"

Me.Hide

Form3.Show
Else

If Command1.Caption = "3 êëàññ" Then

Form4.Caption = "3 êëàññ"

Me.Hide

Form4.Show

End If

End If

End If

End Sub
Private Sub Command2_Click()

End

End Sub
Private Sub exit_Click()

End

End Sub
Private Sub Command3_Click()

Form4.Show

End Sub
Private Sub Command4_Click()

Form2.Show

Form1.Hide

End Sub
Private Sub Form_Load()

Option5.Value = True

Command1.Visible = False

For i = 0 To 3

Option4(i).Visible = False

Next i

For i = 0 To 2

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = False

Next i

End Sub
Private Sub I1_Click()

Option1.Value = True

MediaPlayer1.Visible = False

For i = 0 To 3

Option4(i).Visible = True

Option4(i).Left = 700

Next i

Option2.Top = 3720

Option3.Top = 4560

For i = 0 To 3

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = False

Next i

Command1.Visible = True

Command1.Caption = Option1.Caption

Frame1.Caption = "ìàçìóíû"

End Sub
Private Sub II2_Click()

Option2.Value = True

MediaPlayer1.Visible = False

For i = 0 To 3

Option4(i).Visible = False

Option4(i).Left = 700

Next i

Option2.Top = 1260

Option3.Top = 3840

For i = 0 To 3

Option6(i).Visible = True

Next i

For i = 1 To 3

Option7(i).Visible = False

Next i

Command1.Visible = True

Command1.Caption = Option2.Caption

Frame1.Caption = "ìàçìóíû"

End Sub
Private Sub III3_Click()

Option3.Value = True

For i = 0 To 3

Option4(i).Visible = False

Option4(i).Left = 700

Next i

Option2.Top = 1260

Option3.Top = 1920

For i = 0 To 3

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = True

Next i

Command1.Visible = True

Command1.Caption = Option3.Caption

Frame1.Caption = "ìàçìóíû"

End Sub
Private Sub kla_Click()

Option5.Value = True

Command1.Visible = False

For i = 0 To 3

Option4(i).Visible = False

Next i

For i = 0 To 3

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = False

Next i

Option2.Top = 1260

Option3.Top = 1920

End Sub
Одан соң Option1 компонентінің код терезесіне төмендегі программаны ендіреміз:
Private Sub Option1_Click()

WindowsMediaPlayer1.Visible = False

If Option1.Value = True Then

For i = 0 To 3

Option4(i).Visible = True

Option4(i).Left = 700

Next i

Option2.Top = 3720

Option3.Top = 4560

For i = 0 To 3

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = False

Next i

Command1.Visible = True

Command1.Caption = Option1.Caption

Frame1.Caption = "Мазмұны"

End If

End Sub
Option2 компонентінің код терезесіне төмендегі программаны ендіреміз:

Private Sub Option2_Click()

If Option2.Value = True Then

For i = 0 To 3

Option4(i).Visible = False

Option4(i).Left = 700

Next i

Option2.Top = 1260

Option3.Top = 4500

For i = 0 To 3

Option6(i).Visible = True

Next i

For i = 1 To 2

Option7(i).Visible = False

Next i

Command1.Visible = True

Command1.Caption = Option2.Caption

Frame1.Caption = "ìàçìóíû"

End If

End Sub
Option3 компонентінің код терезесіне төмендегі программаны ендіреміз:
Private Sub Option3_Click()

'WindowsMediaPlayer1.Stop

WindowsMediaPlayer1.Visible = False

If Option3.Value = True Then

For i = 0 To 3

Option4(i).Visible = False

Option4(i).Left = 700

Next i

Option2.Top = 1260

Option3.Top = 1920

For i = 0 To 3

Option6(i).Visible = False

Next i

For i = 1 To 2

Option7(i).Visible = True

Next i

Command1.Visible = True

Command1.Caption = Option3.Caption

Frame1.Caption = "ìàçìóíû"

End If

End Sub
Option4 компонентінің код терезесіне төмендегі программаны ендіреміз

Private Sub Option4_Click(Index As Integer)

If Option4(1).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\nykteavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\j_nykte.wav"

End If



If Option4(0).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\tyzuavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_tyzu.wav"

End If
If Option4(2).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\kesindiavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_kesindi.wav"

End If
If Option4(3).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\sauleavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_saule.wav"

End If

End Sub
Option6 компонентінің код терезесіне төмендегі программаны ендіреміз:
Private Sub Option6_Click(Index As Integer)

If Option6(0).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\tkbrshavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_tkbrshtar.wav"

End If
If Option6(1).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\tkemesbrshavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_tkemesbrshtar.wav"

End If
If Option6(2).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\3brshavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_3brsh.wav"

End If
If Option6(3).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\4brshavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\4brsh.wav"
End If

End Sub
Option7 компонентінің код терезесіне төмендегі программаны ендіреміз:
Private Sub Option7_Click(Index As Integer)

If Option7(1).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\perimetr.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_perimetr.wav"

End If
If Option7(2).Value = True Then

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = "c:\dip\audanavi.avi"

WindowsMediaPlayer2.URL = "c:\dip\J_audan.wav"

End If

End Sub
Private Sub prog_Click()

Form2.Show: Form1.Hide

End Sub
Геометриялық денелерді тағы бір тәсілмен таныстыру үшін Paint редакторында геометриялық денелерді салып, оларды жеке-жеке ***.jpg типіндегі файл түрінде сақтап аламыз.

Одан соң Ассess программасын ашып, төмендегі кестені толтырамыз (13 сурет). Оны IBR деген атпен сақтаймыз.

Негізгі беттегі Command4 түймесін екі рет шертіп, Form2-ге өту үшін мына программаны ендіреміз:

Private Sub Command4_Click()

Form2.Show

Form1.Hide

End Sub

13 сурет - Ассess программасы


Форма бетіне Data1, Command1, Label1 компонеттерін орнатамыз.

OLE компоненті арқылы Ассess программасында жасаған IBR.mdb файлын шақырамыз (14 сурет).



14 сурет - OLE компоненті арқылы Ассess программасында жасаған IBR.mdb файлы


Data1 компонентінің DatebaseName қасиетіне C:\dip\Ibr.mdb мәнін береміз.

Command1 компонентінің код терезесіне мына процедураны ендіреміз:


Private Sub Command1_Click()

Form1.Show

Form2.Hide

End Sub
Сосын, тағы бір жаңа форма ашамыз, Негізі мәзірдегі Command3 компонентінің код терезесіне сол ашылған 4-формаға өту программасын жазамыз:

Private Sub Command3_Click()

Form4.Show

End Sub
Жаңа ашылған форма (Form4) бетіне Label1, Label2, Label3, Label4, Command1 компоненттерін орнатып, Caption қасиеттеріне қажетті мәліметтерді ендіреміз (15 сурет). Command1 түймесінің код терезесіне мына программаны ендіреміз:

Private Sub Command2_Click()

Me.Hide

Form1.Show

End Sub

15 сурет – Жаңа форма


Жоғарыдағы айтылып кеткен әрбір геометриялық денелердің анимацияық эффектілер көрсетілуі төмендегі тәртіппен жүреді:

16 сурет - Түзу ұғымын түсіндіру



17 сурет - Нүкте ұғымын түсіндіру

18 сурет - Кесінді ұғымын түсіндіру


19 сурет - Сәуле ұғымын түсіндіру


20 сурет - Тікбұрыштарды түсіндіру



21 сурет - Тік емес бұрыштар ұғымын түсіндіру



22 сурет - Үшбұрыштар ұғымын түсіндіру



23 сурет - Төртбұрыштар ұғымын түсіндіру




24 сурет - Аудан ұғымын түсіндіру, оны табу жолы



25 сурет - Периметр ұғымын түсіндіру, оны табу формуласын түсіндіру


Қорытынды
Компьютерлік сауаттылықты және жаңа ақпараттық технологияны меңгеру үрдісі адамдық факторлармен санасуды талап етеді. Бұл мәселе әсіресе мектепке дейінгі және кіші мектеп жасындағы балаларға білім беру сатысында маңызды. Себебі, балалық шақ адамдық дарындылықты байқау көзі ғана емес, сонымен бірге жанның тез жараланушы және психикалық әлсіздікке әкелетін кезеңі болып табылады. Сондықтан кіші мектеп жасындағы балалар өміріне жаңалықтарды енгізуде өте сақ болу керектігін ескеру маңызды мәселе.

Компьютер адам іс-әрекетінің құралы қатарында негізінде жаңа әмбебап ақпараттық құрылғы. Компьютер барлық мүмкін формаларда (мәтін, сан, дыбыс, графика, бейне) ақпаратты қабылдай, сақтай, өңдей және шығара алатын қабілеттілігі арқасында адамның барлық қызмет аймағында қолданылады. Жаңа ақпараттық технология көмегімен орындалатын қызмет өзінің кез келген нақты формасында ризашылығын көрсетеді, тиімдірек орындалады, адам өркениетті бола бастайды, қоғамға, оның материалды және рухани жақтарына зор көңілмен қарай бастайды.

Сонымен компьютерді оқу процесінде пайдаланудың мынадай жетістіктерін атауға болады:

- оқушылардың жеке дара жұмыс жасауын ұйымдастыруда. Ол үшін әр бір оқушының өзіне тән ерекшеліктерін (ойлауын, қабылдауын, жұмыс жасау жылдамдығын) ескере отырып жекелеме тапсырмалар құруға болады;

- денсаулығынан кемшілік бар балалар үшін (нашар естетін, көретін, сөйлейтін) оқудың тиімділігін арттыруға болады;

- оқушыда еркіндік позициясы орын алады, яғни оқушының жұрт алдындағы жасқаншақтық әдеті ескеріледі;

- оқушының жауапкершілігін арттырады, себебі, компьютердегі әр тапсырма өзіне ғана арналғандығын сезінеді;

- оқушының сабаққа деген қызығушылығы артады.

Бала бастауыш мектеп сатысынан-ақ жаңа ақпараттық технологияны меңгеруіне болады. Ол үшін оның қызметінің құралы ретінде жаңа ақпараттық технологияның компьютерлік құралдары қолданыла бастаса, яғни күнделікті қарым-қатынас құралы ретінде, ойын барысында, күшті еңбек кезінде, конструктірлеу және т.б. өнімді шығармашылық жұмыстарында. Бұлар өз кезінде ғылыми сипаттағы компьютерлік бағдарламаларды жасауды талап етеді және ол баланың іс-әрекетінің интелектеулды құрылысымен сәйкес келуі керек.

Осы электрондық оқулықты бастауыш сыныпта геометрия ұғымдарын оқушыға түсіндіруде қолдануға болады. Дегенмен бұл жұмысты кейінгі өзімнің ғылыми жұмыстарымда одан әрі жалғастырамын деген ойдамын.



Қолданылған әдебиеттер


  1. Т.Қ.Оспанов, Ш.Х.Құрманалина, С.Х.Құрманалина. Бастауыш сыныптарда математиканы оқыту әдістемесі. Астана-2003.

  2. Оспанов Т.Қ. Құрманалина Ш.Х. Математиканың бастауыш курсын оқыту әдістемесі. І-бөлім. Алматы-1995. Республикалық баспа кабинеті.

  3. Т.Қ.Оспанов, Қ.Ә.Өтеева, Ж.Т.Қайыңбаев, К.Ә.Ерешева Математиканы оқыту әдістемесі. /1-сынып/. Алматы “Атамұра” 1997.

  4. О.Камардинов. Visual Basic 5.0 Шымкент 2001.

  5. О.Сейітқұлов. Visual Basic 6.0 (1-бөлім), Шымкент 2005.

  6. О.Сейітқұлов. Visual Basic 6.0 (2-бөлім), Шымкент 2006.

  7. О.Сейітқұлов. Visual Basic 6.0 (3бөлім), Шымкент 2006.

  8. Атли К. Visual Basic. NET. Самоучитель Москва 2005.

  9. В.Г.Кузьменко. VBA-2003, Москва. Издательство – Бином 2004.

  10. А.Арлов VBA: для тех, кто любит думать. Москва. СОЛОН-Р 2002.

  11. Х.М.Дейтел, П.Дж.Дейтел, Т.Р.Насто Как программировать на Visual Basic. Москва. Издательство – Бином 2003.

  12. М.Хановерсон. “Шаг за шагом”. Visual Basic 5.0. “Эком”, М.,1998

  13. Д.Соха и др. Visual Basic 5.0, Минск, 1997

  14. С.Броун. Visual Basic 6 (учебный курс). “ПИТЕР”, 1999

  15. С.Макашарипов. Программирование базы данных на Visual Basic 5.0 в примерах. “ПИТЕР”, 1997

  16. Г.Корнелл. Программирование в середе Visual Basic 5.0, Минск, 1995

  17. О.Камардинов. Информатика. “ҒБО” Aлматы, 2004ж

  18. О.Камардинов. Информатика (I,II-бөлім). Шымкент, 2000ж.

  19. К.З.Халықова.Информатиканы оқыту әдістемесі. Алматы, “Білім” 2002ж.

  20. Л.Ташимов, С.Мұратов, Қ.Мамаев. Қолданбалы информатика. Шымкент –2000ж.

  21. Д. Соха и др. Visual Basic 5.0. Минск, 1998.

  22. С.Браун. Visual Basic 6 (учебный курс). “Питер”, 1999.

  23. Г.Корнелл. Программирование в среде Visual Basic 5.0. Минск, 1998.

  24. Visual Basic. Руководство и программирования, версия 6.0. Microsoft Corporation.


жүктеу/скачать 0.7 Mb.

Достарыңызбен бөлісу:
1   2   3   4



©dereksiz.org 2024
әкімшілігінің қараңыз
    Басты бет