Дастурлаш асослари фанидан маърузалар матни doc

 
Ob‘yekt 
Xossa 
O‘rnatilgan qiymatlari 
Form1 
Caption 
Seyfni chiqarib tashlash 
Label1 
Caption 
Illyuminatorning radiyusini kiritingiz 
Label2 
Caption 
Seyf uzunligini kiritingiz (А yo‘qi) 
Label3 
Caption 
Seyf kengligini kiritingiz (B yo‘qi) 
Label4 
Caption 
Seyf balandligini kiritingiz (C yo‘qi) 
Label5 
Caption 
Caption xossasi maydonini tozalash  
Command1 
Caption 
Tekshirish 
Command2 
Caption 
Tugatish 
Text1, Text2 
Text3, Text4 
Caption 
 
Text xossasi maydonini tozalash 
 
 
 
11.26-rasm 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

Blok-sxemasi 
 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

Dasturning kodi 
 
Option Explicit 
 
Private Sub Command1_Click() 
Dim R, A, B, C As Single 
Dim X1, X2, X3, D As Single 
Dim S As String 
R = Text1.Text 
A = Text2.Text 
B = Text3.Text 
C = Text4.Text 
If (A < B) And (A < C) Then 
If B < C Then 
      
 
 
X1 = A 
      
 
 
X2 = B 
      
 
 
X3 = C 
      
 
Else 
X1 = A  
X2 = C 
X3 = B 
      
 
End If 
ElseIf (B < A) And (B < C) Then 
If A < C Then 
X1 = B 
X2 = A 
X3 = C 
Else 
X1 = B 
X2 = C 
X3 = A 
End If 
Else 
If A < B Then 
X1 = C 
X2 = A 
X3 = B 
Else 
X1 = C 
X2 = B 
X3 = A 
End If 
End If 
D = Sqr(X1 * X1 + X2 * X2) 
If D > 2 * R Then 
S = "" 
Else 
S = "" 
End If 
Label5.Caption = S 
End Sub 
 
Private Sub Command2_Click() 
End 
End Sub 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

S ni chiqarish 
 
 
     Oxiri 
 
M 
 
 
12-misol: Gototuzilmasini ishlatish 
 
 
Butun son kiritish. Uning juftligini tekshirish. Agar son juft bo‘lsa, “Juft son” jumlasini chiqarish, 
agar son toq bo‘lsa, “Toq son” jumlasini chiqarish. 
 
 
 
 
 
 
 
 
 
 
 
 
11.27-rasm 
Ob’yekt 
Xossa 
O‘rnatilgan qiymatlari 
Form1 
Caption 
Shartsiz o‘tish operatori 
Label1 
Caption 
Butun son kiritingiz 
Label2 
Caption 
Caption xossasi maydonini tozalash  
Command1 
Caption 
Tekshirish 
Command2 
Caption 
Tugatish 
Text1 
Text 
Text xossasi maydonini tozalash 
 
 
 
 
Blok–sxema 
 
 
 
 
         Boshi 
 
 
 
 
 
                   N ni kiritish 
 
 
 
 
 
 
 
 
 
N  
 
Hа               
 
 
 
        juftmi? 
 
 
          
 
 
 
 
 
 
 
    Yo‘q 
 
 
 
         S = “ Son TOQ” 
 
 
 
          M 
     S = “Son JUFT” 
 
 
  
 
 
 
     
 
Dastur kodi 
Option Explicit 
Private Sub Command1_Click() 
 
Shartsiz o‘tish operatori 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

       Dim N As Integer 
       N = Val(Text1.Text) 
       If (N Mod 2) = 0 Then GoTo Met1 
       Label2.Caption = "Toq son" 
       GoTo Met2 
Met1:  Label2.Caption = "Juft son" 
Met2: End Sub 
 
Private Sub Command2_Click() 
  End 
End Sub 
 
 
11.28-rasm 
 
11.7. Shartli  Select Case  operatori 
 
Select  Casetuzilmasi  dasturda  bir  necha  shartlarni  tekshirishga  imkon  beradi  If  ...Then  ...  Else 
konstruktsiyasi  blokiga  mos  bo‘ladi.  Butuzilma  tahlil  qilinuvchi  ifodalardan  va  har  biri  ushbu  ifodaning 
qabul qiladigan qiymatlariga ega Case operatorlari majmuyidan tashkil topgan.  
Struktura sintaksisi: 
Select Case  O‘zgaruvchi 
CASE  qiymat1  
konstruktsiya1 
CASE  qiymat2  
konstruktsiya2  
. . .  
CASE  qiymatK  
konstruktsiyaK 
CASE Else  
Alternativ  konstruktsiya  
End Select  
 
Visual  Basic  ifodaning  konstruktsiyasida  berilgan  qiymatlarni  hisoblaydi.  So‘ng  olingan  qiymat 
konstruktsiyadagi Case operatorlarida berilgan qiymatlari bilan solishtiriladi. Agar dastlabki qiymat topilsa, 
unda Case operatorida yozilgan buyruqlar bajariladi. Agar dastlabki qiymat topilmasa, unda alternativ Case 
Else  operatorida  (agar  u  ham  bor  bo‘lsa)  yozilgan  buyruqlar  bajariladi.    Konstruktsiya  bajarilishi 
yakunlangandan so‘ng bosqarish End Select xizmatchi so‘zidan keyingi operatorga beriladi. Konstruktsiya 
boshida  Select  Case  xizmatchi  so‘zi  joylashgan  bo‘lib,  undan  keyin  joylashgan  “O‘zgaruvchi”  parametri 
bir necha qiymatlarni tekshiradi. Davomi Case xizmatchi so‘zi bilan boshlangan buyruqlar guruhidan iborat. 
Agar  “O‘zgaruvchi”  parametri  joriy  Case  operatorida  ko‘rsatilgan  qiymatga  teng  bo‘lsa,  unda  shu  va 
keyingi Case xizmatchi so‘zlari orasidagi buyruqlar bajariladi.