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


Image1.Picture  =  LoadPicture("c:\Image\smile.gif")



Download 2,87 Mb.
Pdf ko'rish
bet167/218
Sana31.12.2021
Hajmi2,87 Mb.
#202470
1   ...   163   164   165   166   167   168   169   170   ...   218
Bog'liq
dasturlash asoslari (1)

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: 
 
 

Download 2,87 Mb.

Do'stlaringiz bilan baham:
1   ...   163   164   165   166   167   168   169   170   ...   218




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish