İ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.