Дастурлаш асослари фанидан маърузалар матни 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  Case
tuzilmasi  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.  
 
Butun son 
kiriting 
Shartsiz o‘tish operatori 
Juft son 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

13-misol:  Select Case tuzilmasini ishlatish 
 
Tasodif sonlar datchigi yordamida o‘yin zarlarini tashlashni dasturlash. Olingan natijalarni matn 
shaklida ko‘rsatish kerak.