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

Label1.Caption = Int(Rnd * 6) + 1
 qatorida 0 dan 5 gacha bo‘lgan intervaldagi 
tasodifiy butun sonni hisoblaydi, 1 ga oshiradi, olingan qiymat esa 
Label1
 ob’yektining 
Caption
 xossasiga 
o‘zlashtiriladi  
Image1.Picture  =  LoadPicture("c:\Image\smile.gif") 
qatorida 
Image1
  ob’yektining 
Picture 
xossasiga LoadPicture fuktsiyasi qaytaradigan qiymatni o‘zlashtiradi. 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
9.53-rasm 
 
7.  Dasturni  ishga  tushiramiz  – 
Run
  asosiy  menyuining 
Start
  bo‘limi  tanlanadi  va  quyidagi  natijaga 
ega bo‘lamiz: 
 
 
9.54-rasm 
yoki 
 
9.55-rasm 
 
8.  Dastur  kodini  quyidagicha  o‘zgartiramiz:    yutuq  holatida  matn  va  kartinka  chiqaradi,  yutuqsiz 
holatda  esa  faqat  matn  chiqaradi.  Bunday  holatda 
Command1
  buyruq  tugmasiga  quyidagicha  dastur  kodi 
yoziladi: 
Private Sub Command1_Click() 
 Dim a, b 
 Label1.Caption = Int(Rnd * 6) + 1 
 a = Int(Label1.Caption) 
 Label2.Caption = Int(Rnd * 6) + 1 
 b = Int(Label2.Caption) 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 If a + b > 6 Then 
        Label3.Caption = "
УРА
!!!  Siz yuttingiz!!!" 
        Image1.Visible = True 
 Else 
        Label3.Caption = "Afsus... Siz yutqazdingiz..." 
        Image1.Visible = False 
 End If 
End Sub 
Natijada esa yutuq holatida o‘zgarmasdan qoladi, yutuqsiz holarda quyidagicha bo‘ladi: