-
Объект
|
Қасиеті
|
Мәні
|
Text1
|
Text
|
Бос ету
|
Text2
|
Text
|
Бос ету
|
Text3
|
Text
|
Бос ету
|
Label1
|
Caption
|
1 - айнымалы
|
Label2
|
Caption
|
2 - айнымалы
|
Label3
|
Caption
|
Нәтиже
|
Label4
|
Caption
|
Қосу (+)
|
Label5
|
Caption
|
Алу (-)
|
Label6
|
Caption
|
Кӛбейту (*)
|
Label7
|
Caption
|
Бӛлу (/)
|
Command1
|
Caption
|
Іске қосу
|
Command2
|
Caption
|
Шығу
|
OptionButton1,OptionButton2,
OptionButton3, OptionButton4
|
|
|
- Command1 элементін екі рет шертіп, ашылған код терезесіне келесі процедураны енгізіңіз:
Private Sub CommandButton1_Click()
Dim Per, Vt
Per=Val(Text1.Text)
Vt=Val(Text2.Text)
If Option1.Value=True Then
Text3.Text=Per+Vt
End If
If Option2.Value=True Then
Text3.Text=Per-Vt
End If
If Option3.Value=True Then
Text3.Text=Per*Vt
End If
If Option4.Value=True Then
Text3.Text=Per/Vt
End If
End Sub
Тапсырмалар:
Енгізілген датадан қазіргі уақыт аралығында қанша секунд, минут, сағат, күн, апта, ай, тоқсан, жыл бар екендігің анықтау жобасын құру.
Үш орынды кездейсоқ тандалған екі санның қосындысын анықтау.
Үшбұрыштың берілген катеттері бойынша гипотенузасы мен ауданын табу.
Кездейсоқ берілген санның жұп немесе тақ екендігін анықтау.
1 ден 20 дейінгі сандардың қосындысын шығару.
Калькулятор бағдарламасын құру.
Бақылау сҧрақтары:
Label объектісінің қасиеттері.
TextBox объектісінің қасиеттері.
Таймер объектісінің оқиғалары.
Формада жиі қолданылатын оқиғалар.
Айнымалылар дегеніміз не? 6. Айнымалыларға қолданылатын қызметші сӛздер.
ІІІ тарау
3.1. Тәуелді және тәуелсіз айырып-қосқыштар
VB процедураларында операторлық орындалу ретін басқарып отыратын тармақталу процестерін ұйымдастырылуда шартсыз Goto, шартты If…Then…Else және таңдау Select Case операторлары қолданылады.
Тармақталу процестерін тӛменде берілген құрылымдарды қолданып ұйымдастыруға болады.
If операторын қолдану арқылы:
If шарт Then оператор
Егер шарт орындалса, онда басқару Then операторына жазылған операторға барады, әйтпесе –келесі қатарға ӛтеді
If шарт Then 1-оператор Else 2-оператор
Егер шарт орындалса, басқару 1-операторға барады, әйтпесе 2операторға барады. 3. Шартсыз кӛшу ( Goto ) операторын қолдану арқылы: If шарт Then Goto n
Егер шарт орындалса, онда басқару n-ші қатарға ӛтеді, әйтпесе келесі қатарға беріледі.
Мысал 1: Visual Basic программалау ортасында квадрат теңдеуді шешу қосымшасын жасау.
Visual Basic ортасын ашып, жаңадан проект құрыңыз.
Формаға келесі элементтерді орналастырыңыз және қасиеттерін ӛзгертіңіз:
8-сурет
-
Объект
|
Қасиеті
|
Мәні
|
Form1
|
Caption
|
Квадрат теңдеуді
|
|
|
шешу
|
TextBox1
|
Text
|
-
|
TextBox2
|
Text
|
-
|
TextBox3
|
Text
|
-
|
Label1
|
Caption
|
A=
|
Label2
|
Caption
|
B=
|
Label3
|
Caption
|
C=
|
Label4
|
AutoSize
WordWrap
Alignment
|
True
True
2-Center
|
Command1
|
Caption
|
OK
|
Command1_Click процедурасына ӛтіп, квадрат теңдеуді шешу процедурасын толтырыңыз: Private Sub Command1_Click()
a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) D = b ^ 2 - 4 * a * c
If D < 0 Then Label4.Caption = "мәні жоқ"
If D = 0 Then
X = b / (2 * a)
Label4.Caption = "X=" + Str(X)
End If
If D > 0 Then
X1 = (-b - Sqr(D)) / (2 * a)
X2 = (-b + Sqr(D)) / (2 * a)
Label4.Caption = "x1= " + Str(X1) + Chr(13) + "x2= " + Str(X2) End If
End Sub
Программада берілген бірнеше пунктің ішінен екі түрлі жолмен жүзеге асыруға болады: жалауша және ауыстырып-қосқыш объектілері арқылы.
OptionButton (ауыстырғыш) компоненті жанындағы ауыстырғышты орнату арқылы пайдаланушыға ұсынылған мәліметтер топтамасы ішінен тек бір ғана пунктін таңдауына мүмкіндік береді. Негізгі оқиғасы – Click.
Value қасиеті – топтамадағы ауыстырғышты таңдау (қалыпты жағдайда True мәнін қабылдайды).
CheckBox (жалауша) компоненті пайдаланушыға ұсынылатын топтамалар ішінен бір немесе бірнеше пунктіні таңдауына мүмкіндік береді. Негізгі оқиғасы - Click. Бұл объектінің негізгі қасиеттері ауыстырғыш қасиеттерімен бірдей келеді.
Style - формада орналасқан жалаушаның сыртқы түрін басқаратын қасиет. Ол екі мән қабылдайды. Бұл қасиеттің қалыпты жағдайдағы мәні - Standard, жалаушаның таңдалғандығын кӛрсететін мән – Graphical.
OptionButton объектісінен айырмашылығы Value қасиетінің үш мән қабылдай алуында ғана.
-
Кҥйі
|
Value қасиетінің мәні
|
Unchecked (Сброшен)
|
0(vbUnchecked)
|
Checked (Установлен)
|
1(vbChecked)
|
Grayed (Недоступен)
|
2 (vbGrayed)
|
Ауыстырып-қосқыштарды кӛрнекі түрде біріктіру үшін Frame объектісін қолдануға болады.
Frame (Жақтау) объект ішіне басқа объектілерді топтастырып орналастыру үшін қолданылады. Негізгі оқиғасы – DragDrop. Frame объектісінің ішіне орналасқан объектілер топтасып, осы объектінің кейбір қасиеттерін қабылдап алады. Мысалы, бұл объектіні жылжытса, ішінде топтастырылған объектілер де бірге жылжиды. Сондай-ақ, Frame объектісінің кӛрінбейтін етіп қойса немесе ӛшіріп қойса, онда ішіндегі объектілерде кӛрінбейді немесе ӛшіп қалады.
Frame объектісінің ішіне кӛбінесе OptionButton, CheckBox объектілерін орналастырады. Әсіресе жақтау ішінде ауыстырғыштарды жиі орналастырып, қосымша орындалғанда оның біреуін орнатса, онда қалған ауыстырғыштар автоматты түрде ажыратылып қалады. Сондықтан, әртүрлі мақсаттарда қолданылатын ауыстырғыштарды бӛлек-бӛлек топтастырып, әрқайсысын әр жақтау ішіне орналастырады.
Frame объектісінің негізгі қасиеттері ретінде Caption, Enabled, Name,Visible қасиеттерін атап ӛтуге болады.
Ескерту: Frame объектісі соңынан қойылса, оның арғы жағындағы объектілерді кӛрсету үшін жанама мәзірден Send To Back командасын орындау керек.
Мысал 2: Жазуды қалың не курсив шрифтімен шығару жобасын құру.
Visual Basic ортасын ашып, жаңадан жоба құрыңыз.
Формаға келесі элементтерді орналастырыңыз және қасиеттерін ӛзгертіңіз:
Достарыңызбен бөлісу: |