Dasturlash asoslari

Xossa
O‘rnatilgan qiymatlari
Form1	Caption	Sonni tashkil qiluvchi raqamlar yig‘indisini hisoblash
Label1	Caption	To‘rt xonali butun sonni kirirting
Label2	Caption	Raqamlar yig’indisi
Command1	Caption	Hisoblash
Command2	Caption	Tugatish
Text1 Text2	Text	Text xossasi maydonini tozalash

11.8-rasm
Dasturning kodi
Option Explicit
Private Sub Command1_Click()
Dim intN, intKE, intKD, intKS, intKT, intS As Integer
intN = Val(Text1.Text)
intKE = intN Mod 10
intN = intN \ 10
intKD = intN Mod 10
intN = intN \ 10
intKS = intN Mod 10
intKT = intN \ 10
intS = intKE + intKD + intKS + intKT
Text2.Text = Str(intS)
End Sub

Private Sub Command2_Click()

End
End Sub



4582

11.9-rasm

4582

19

11.20-rasm

11.6. If, Go To, Select boshqaruvtuzilmalari

If va Select boshqaruvtuzilmalari boshqaruv operatorlari yoki echim qabul qiluvchi konstruktsiyalar deb ataladi. Shu bois ular dastur operatorlarining odatdagi ketma-ket bajarilishini o‘zgartiradi. Bu konstruktsiyalar ishlatilmaganda dastur birinchi operatordan oxirgi operatorgacha ketma-ket bajariladi. Echim qabul qiluvchi operatorlarini qo‘llgash dasturda hosil bo‘lgan shartlarga boi‘lik holda aniqlangan amallarni bajarishga imkon beradi.

10-misol: Tarmoqlanuvchi dastur

To‘rtta A, B, C va D haqiqiy qiymatlarini kiritib, ularning maksimal va minimal qiymatlarini chiqarishni dasturlash.
Algoritm

1. 
   A, B, C, D larni kiritish.
   
2. 
   A va B qiymatlarining kattasini aniqlash va uni R1 o‘zgaruvchisiga o‘zlashtirish.
   
3. 
   C va D qiymatlarining kattasini aniqlash va uni R2 o‘zgaruvchisiga o‘zlashtirish.
   
4. 
   R1 va R2 qiymatlarining kattasini aniqlash va uni MAX o‘zgaruvchisiga o‘zlashtirish.
   
5. 
   A va B qiymatlarining kichigini aniqlash va uni R1 o‘zgaruvchisiga o‘zlashtirish.
   
6. 
   C va D qiymatlarining kichigini aniqlash va uni R2 o‘zgaruvchisiga o‘zlashtirish.
   
7. 
   R1 va R2 qiymatlarining kichigini aniqlash va uni MIN o‘zgaruvchisiga o‘zlashtirish.
   
8. 
   MAX va MIN o‘zgaruvchilarining qiymatlarini chop etish
   

11.21-rasm

Ob’yekt	Xossa	O‘rnatilgan qiymatlari
Form1	Caption	Maksimal va minimal qiymatlarini aniqlash