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
Do'stlaringiz bilan baham: