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

 
4-misol 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

Har  xil  turdagi  o’zgaruvchilar  va  ularning  har  xil  diapazondagi  qiymatlarini  ishlatish  uchun  yangi 
loyiha yaratamiz. 
 
 
10.8-rasm 
Dastur kodi  
Option Explicit  
Private Sub Command1_Click() 
  End 
End Sub  
Private Sub Command2_Click()  
    Dim intX1 As Integer, lngX2 As Long 
    Dim sngX3 As Single, dblX4 As Double 
    Dim binX5 As Boolean, strX6 As String 
    intX1 = Val(Text1.Text) 
    lngX2 = Val(Text2.Text) 
    sngX3 = Val(Text3.Text) 
    dblX4 = Val(Text4.Text) 
    binX5 = Text5.Text 
    strX6 = Text6.Text 
    Text7.Text = Str(intX1) 
    Text8.Text = Str(lngX2) 
    Text9.Text = Str(sngX3) 
    Text10.Text = Str(dblX4) 
    Text11.Text = binX5 
    Text12.Text = strX6 
End Sub  
Private Sub Form_Load() 
End Sub 
 
Dastur kodida quyiq-qiya shaklda operatorlar ajratilib yozilgan. 
 
Ob’yekt 
Xossa