Класс модульдері. Класс модульдері белгілі бір нысанмен немесе
есеппен байланысқан бағдарламалар болып табылады. Класс
модульдері нысандағы немесе есептегі оқиғаға жауап ретінде іске
қосылатын, оқиғаларды өңдеу рəсімдерін қҧрайды. Оқиғаларды өңдеу
рəсімдері мысалы, пернеге басу сияқты нысанның немесе есептің
тəртібін жəне олардың оқиғаға жауап беру тəртібін басқару ҥшін
пайдаланылады.
Нысан немесе есеп ҥшін оқиғаны өңдеудің бірінші рəсімін қҧру
кезінде автоматты тҥрде онымен байланысты нысанның немесе есептің
модулі жасалады. Нысанға немесе есепке арналған модульді қарау
ҥшін
Құрастырушы режиміндегі құрал-саймандар панеліндегі Бағдарлама
пернесіне басу жеткілікті.
Нысандар мен есептердің модульдерінің рəсімдерінде стандартты
модульдерге қосылған рəсімдерді шақыру болуы мҥмкін.
Стандартты модульдер. Стандартты модульдер ешқандай
объектке байланысты емес жалпы рəсімдерді, сонымен қатар
дерекқордың кез-келген терезесінен іске қосылуы мҥмкін рəсімдерді
қҧрайды.
Стандартты модульдер ғаламдық ауыспалыларды жариялау ҥшін
жасап шығарылуы мҥмкін. Егер модульдің рəсімдерінде қосымшаның
нақты объекттеріне (нысандар, есептер, басқару элементтері)
сілтемелер көрсетілмесе, онда осындай модуль Access басқа
қосымшаларында қолданылуы мҥмкін.
8.1,
а- суретте басты нысан, 8.1-суретте,
б — электртехниканың
теориялық негіздері бойынша оқу қҧралының электронды нҧсқасында
оқыту бағдарламасымен жҧмыс істеу режимдерінің пернелі нысаны
көрсетілген.
Төменде 8.1-суретте көрсетілген, оқу қҧралының осы жəне басқа
нысандарымен жҧмысын басқаратын модульдің мəтіні келтірілген.
'Осы модуль жалпы мақсатты əртҥрлі рəсімді
сақтайды
'Жасап шығарушылар: Фуфаев Э.В. жəне Фуфаева Л.И.
Option Explicit
'Төменде нысандар арасындағы жағдай параметрлерінің берілуі
ҥшін жауап беретін ауыспалылар келтірілген'.
Public ShowMax As Boolean
Private Default As Boolean
Private FrmBackColor As Long
'Рəсім барлық нысандардың бағдарламада инициалдануын, экран
орталығында позициялануын іске асырады.
Public Sub InitForm(TForm As Form, TPicture As PictureBox, TFrame
As Frame, TButton As CommandButton, TSSubItem As Menu) TForm.Left
= 0 TForm.Top = 0
TForm.Width = Screen.Width '12000
TForm.Height = Screen.Height ' - 430 '8570
TPicture.Left = 0 TPicture.Top = 0
TPicture.Width = Screen.Width ' - 15 * 6 TPicture.Height =
Screen.Height ' - 15 * 25 TPicture.BackColor = FrmBackColor If
ShowMax Then TForm.WindowState = 0 If Not ShowMax Then
TForm.WindowState = 2 If Default Then Lines TPicture
TButton.Left = (TPicture.Width - TFrame.Width * 15)/30
TButton.Top = (TPicture.Height - TFrame.Height * 15 - 750)/30
TFrame.Left = TButton.Left + 2
TFrame.Top = TButton.Top + 2
If Default Then TSSubItem.Checked = True
If Not Default Then TSSubItem.Checked = False
End Sub
'Тҥстің
өтуін пайдалана отырып, басты нысанның фонын салу
рəсімі.
Public Sub Lines(Picture As PictureBox)
Dim i, J, Stp, col As Integer J = 0 col = 255 Stp = Step
For i = 0 To (Picture.Height\15)
J = J + 1
If (J = Stp) And (col <> 1) Then col = col - 1 J = 0 End If
Picture.Line (Picture.Left, i)-(Picture.Left + Picture.Width, i), RGB(0, 0,
col)
Next End Sub
'Фон тҥсінің өзгеру қадамын есептейтін қосалқы рəсім
Public Function Step() As
Integer Dim i, Col_ As Integer i = 0
Col_ = 0
Do Until Col_ > (Screen.Height\15)
Col_ = Col_ + 255
i = i + 1
Loop
If Col_ - (Screen.Height \ 15) > 100 Then i = i - 1 Step = i End Function
'Тізілімнен бағдарлама
параметрлерін оқу