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

Sub cmdPlus_Click 
Txt3.Text = Val(txt1.Text)+Val(txt2.Text) 
End Sub 
Çıxma, vurma və bölmə prosedurları da buna analojidir. 
2. Hər bir düymə üçün hadisəvi prosedur proqramı tərtib etməli. 
3. Mətn sahələrinin Alignement (düzləndirmə) xassəsi üçün Right Justufy qiyməti 
verilməlidir. 
4. Layihəni icraya buraxmalı. Soldakı iki mətn sahəsinə ədəd daxil edib müvafiq 
hesab əməli düyməsini basmalı. Sağdakı mətn sahəsində nəticə görünəcəkdir. 
107
ikisi daxil ediləcək ədədlər üçün, biri nəticə üçün

---

90 
Layihəni \textbook\VB\prjVB3\ adı ilə saxlamalı. 
Val funksiyasının arqumentləri olan sətri ifadələr 8-lik say sistemində &O, 16-lıq say 
sistemində isə &H sözönü ilə verilir. Məsələn, Val (―&O3720‖) və Val (―&H7D0‖) 
funsiyalarının ədədi qiyməti 10-luq say sistemində 2000 ədədidir.
Str, Hex, Oct funksiyaları. Bu funksiyalar 10-luq, 16-lıq və 8-lik ədədləri sətrə 
çevirir. Məsələn, Str(2000), Oct (2000), Hex (2000) 10-luqdakı 2000 ədədidir ki, bunu da 
Oct funksiyası 3720-yə, Hex funksiyası H7D0-a çevirir. Yəni bu funksiyalar Val 
funksiyasının əksinə işləyir. 
İndi tam ədədləri 10-luqdan 8-liyə və 16-lığa və əksinə çevirən layihə yaradaq. 
Bunun üçün: 
1. Yeni layihə yaratmalı. Forma üzərində ədədləri daxil etmək və nəticəni çıxarmaq 
üçün txtDec, txtOct, txtHex adlı 3 mətn sahəsi və cmdDecOct, cmdDecHex, cmdOctDec 
və cmdHexDec adlı 4 əmr düyməsi və mətn sahələri üzərində izahedici metkalar (lblDec, 
lblOct, lblHex) yaratmalı. txtOct və txtHex mətn sahələrinə sətri formada daxil ediləcək 
ədədlərə konkatenasiya (sətrlərin birləşdirilməsi) əməlinin tətbiqi ilə ―&O‖ və ―&H‖ 
sözönlərini birləşdirməli. Alınmış 8-lik və ya 16-lıq ədədləri Val funksiyasından istifadə 
etməklə sətri formadan 10-luq ədədi formaya çevirməli. 
2. cmdOctDec_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: 
Sub cmdOctDec_Click() 
 
txtDec.Text = Val(―&O‖ +txtOct.Text) 
End Sub 
3. cmdHexDec_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: 
Sub cmdHexDec_Click() 
 
txtDec.Text = Val(―&H‖ +txtHex.Text)