1 Ақпараттық (информациялық) қызмет көрсету жүйелері мен компьютерлік технологияны білім беруде қолдану мәселесі



жүктеу 3,49 Mb.
бет9/17
Дата05.03.2018
өлшемі3,49 Mb.
#11288
1   ...   5   6   7   8   9   10   11   12   ...   17

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 файлы


жүктеу 3,49 Mb.

Достарыңызбен бөлісу:
1   ...   5   6   7   8   9   10   11   12   ...   17




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау