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

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: