İnformatikanin əsaslari

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

İndi də məntiqi dəyişənlər üzərində məntiqi əməllər icra edən hadisəvi prosedur hazırlayaq.

5. 
   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:
   
6. 
   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ı.

9.