İsa Musayev, Mətləb Əlizadə

Dim intA, intB As İnteger, bytC As Byte, sngD As Single, dblE As Double 
Sub cmd1_Click() 
intA = 2 
intB = 3 
bytC = intA / intB 
sngD = intA / intB 
dblE = intA / intB 
frm1. Print bytC, sngD, dblE 
End Sub 
 
İndi sətr və sətri dəyişənləri birləşdirən (konkatenasiya edən) hadisəvi proseduru 
hazırlamaq lazımdır. Bunun üçün: 
5. frm1 forması üzərində cmd2 əmr düyməsi yerləşdirməli. Yaradılacaq hadisəvi 
prosedurda obyekt cmd2 düyməsi, hadisə isə Click() olacaqdır. Bundan sonra sətri 
dəyişənləri elan etmək və bunları birləşdirmək lazımdır. Bunun üçün: 
6. Proqram kodu pəncərəsində ikinci hadisəvi proseduru yazmaq lazımdır: 
Dim strA, strB As String 
Sub cmd2_Click() 
strA=‖forma‖ 
strB=‖in‖+strA+‖tika‖ 
frm1.Print strB 
End Sub

---

86 
İndi də məntiqi dəyişənlər üzərində məntiqi əməllər icra edən hadisəvi prosedur 
hazırlayaq. 
7. frm1 forması üzərində cmd3 əmr düyməsi yerləşdirməli. Yaradılacaq hadisəvi 
prosedurda obyekt cmd3 düyməsi, hadisə isə Click() olacaqdır. Bundan sonra məntiqi 
dəyişənləri elan etmək, bunları müqayisə etmək, məntiqi vurma əməlini icra etmək 
lazımdır. Bunun üçün: 
8. Proqram kodu pəncərəsində üçüncü hadisəvi proseduru yazmaq lazımdır: 
Dim blnA, blnB, blnC As Boolean 
Sub cmd3_Click() 
blnA = 5 > 3 
blnB = 2*2 = 5 
blnC = blnA And blnB 
frm1. Print blnC 
End Sub
9. Layihəni işə buraxdıqdan sonra ekranda onun qrafik interfeysi görünəcəkdir. 
Buradakı əmr düymələrini basmaqla müvafiq əməliyyatın icra nəticələrini forma üzərində 
almaq mümkün olacaqdır. Belə ki, birinci hadisəvi prosedur icra edildikdə bölmənin 
nəticələri müxtəlif dəqiqliklə ekrana çıxacaqsa, ikinci hadisəvi prosedur ―informatika‖ 
sözünü ekrana çıxaracaq, üçüncü prosedur isə ekrana False (yalan) sözünü çap edəcəkdir.
Layihəni \textbook\VB\prjVB2\ adı ilə saxlamalı.