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

Label1, Label2, Label3 
ob’yektlarining 
Caption
 xossasi (xossalarning mos maydonlari tozalanadi) 
va 
Command1,  Command2
  ob’yektlarining  ham 
Caption
  xossasi  (tugmalar  nomini  yozish  orqali) 
о
‘zgartiladi.  Mazkur  ob’yektlarning  barobarlashtirish  va  shrift  xossalri  o‘zgartiriladi.  Tasvir  (
Image
) 
ob’yektining “Cho‘zish” (
Stretch
) xossasini ham o‘zgartiramiz. Bu xossasini o‘rnatilayotganda uning 
True 
qiymatida kartina tasvir oynasida aniq chiziladi. 
6. 
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.Picture = LoadPicture("c:\Image\smile.gif") 
 Else 
       
 
  Label3.Caption = " Afsus... Siz yutqazdingiz..." 
     
 
  Image1.Picture = LoadPicture("c:\Image\cry.gif") 
 End If 
End Sub 
Bu dasturning kodida