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 файлы
Достарыңызбен бөлісу: |