Urganch davlat universiteti fizika matematika fakulteti

Image1.Picture = LoadPicture("c:\Image\smile.gif") qatorida Image1 ob’yektining Picture xossasiga LoadPicture fuktsiyasi qaytaradigan qiymatni o‘zlashtiradi.



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)
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: