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

Sub cmdMid_Click() 
txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text), Val(txt2Mid.Text)) 
End Sub 
6. Layihəni icraya buraxmalı.
7. İndi sətrin uzunluğunu göstərən əməli icra etmək üçün forma üzərində cmdLen 
düyməsi yerləşdirməli və cmdLen_Click() prosedurunu aşağıdakı kimi yazmalı: 
Sub cmdLen_Click() 
txt3.Text = Len(txt1.Text) 
End Sub 
8. Layihəni icraya buraxmalı. 

---

94 
9. İndi forma üzərində cmdAsc əmr düyməsi yerləşdirib, cmdAsc_Click() 
prosedurunu aşağıdakı kimi yazmalı: 
Sub cmdAsc_Click() 
txt3.Text = Asc(txt1.Text) 
End Sub 
10. Layihəni icraya buraxmalı.
Bu layihəni \textbook\VB\prjVB7\ adı ilə saxlamalı. 
Daxiletmə və çıxarma funksiyaları. 
İnputBox
112
funksiyası. Bu, verilənləri dialoq panelindən daxil etmək üçündür. Bu 
funksiyanın arqumentləri 3 sətirdən ibarətdir və funksiyanın aldığı qiymət də sətirdir: 
İnputBox (Dəvət$, Başlıq$,[Susma$]). 
Bu funksiya icra edilərkən ekrana mətn sahəsi olan dialoq paneli açılır. Panelin başlıq 
sətrində Başlıq$ arqumentinin, panelin özündə isə Dəvət$ arqumentinin qiyməti çap edilir. 
Üçüncü arqument Susma$ varsa, cap edilir, yoxdursa, ona aid pəncərə açılmır. Bu 
funksiyanın qiyməti istifadəçinin mətn sahəsinə daxil etdiyi sətrdən ibarətdir. 
MsgBox
113
funksiyası. Bu funksiya xəbəri forma üzərinə deyil, xüsusi xəbərlər 
panelinə çıxarır. Bunun qiymətini hər hansı dəyişənə mənimsətmək mümkündür. MsgBox 
funksiyasının sintaksisi aşağıdakı kimidir: 
MsgBox(Xəbər$[,ƏdədiKod1+ƏdədiKod2][,Başlıq$]) 
Xəbər$ 
sətri 
xəbərlər 
panelinə 
çıxarılır. 
Panelin 
xarici 
görünüşünü 
ƏdədiKod1+ƏdədiKod2 arqumenti təyin edir. Başlıq$ sətri panelin sərlövhəsinə çıxarılır. 
Kvadrat mötərizədəki arqumentlər məcburi deyillər. ƏdədiKod1 piktoqramı, ƏdədiKod2 
düymələr yığımını təyin edir. Məsələn: 
ƏdədiKod1 Piktoqram 
ƏdədiKod2 Düymələr yığımı 
16 
0 
Ok 
32 
? 
1 
Ok, Отмена 
48 
! 
2 
Стоп, 
Повтор, 
Пропустить 
64 
i 
3 
Да, Нет, Отмена 
112
İnputBox - Daxiletmə pəncərəsi 
113
MsgBox – Xəbərlər paneli 

---

95 
4 
Да, Нет 
5 
Повтор, Отмена 
İki ədədi kodun cəmi (ƏdədiKod1+ƏdədiKod2) olan bir ədədlə eyni vaxtda həm 
piktoqramı, həm də düymələr yığımını təyin etmək olar. Məsələn, 36 ədədinə 32+4 kimi 
baxmaqla, ? piktoqramını və Да, Нет düymələrini panel üzərinə çıxarmaq mümkündür. 
Düymə basılan kimi MsgBox funksiyasının qiyməti hesablanır. Funksiyanın qiyməti 
basılan düymədən asılıdır. Məsələn: 
Basılan 
düymə 
Funksiyanın qiyməti 
OK 
1 
Отмена 
2 
Стоп 
3 
Повтор 
4 
Пропустить 
5 
Да 
6 
Нет 
7 
İndi biliyi yoxlayan layihə yaradaq. Bunun alqoritmi aşağıdakı əməliyyatları özündə 
birləşdirməlidir: 
Sualı ekrana çıxarmaq; 
Klaviaturadan daxil edilən cavabı yadda saxlamaq; 
Daxil ediləni düzgün cavabla müqayisə etmək və bu şərtin ödənib-ödənmə-
məsindən asılı olaraq müxtəlif əməllərin reallaşdırılması. 
Əvvəlcə İnputBox və MsgBox funksiyalarından istifadə etməklə biliyi yoxlanılanı 
qeydiyyata almağı reallaşdırmaq lazımdır.