Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) / 10
Text3.Text = Val(Text1.Text) / 100
Text4.Text = Val(Text1.Text) / 1000
Text5.Text = Val(Text1.Text) / 10000
Text6.Text = Val(Text1.Text) / 100000
Text7.Text = Val(Text1.Text) / 1000000
End Sub

Private Sub Command2_Click()
Text1.Text = Val(Text2.Text) / 0.1
Text3.Text = Val(Text2.Text) / 10
Text4.Text = Val(Text2.Text) / 100
Text5.Text = Val(Text2.Text) / 1000
Text6.Text = Val(Text2.Text) / 10000
Text7.Text = Val(Text2.Text) / 100000
End Sub

Private Sub Command3_Click()
Text1.Text = Val(Text3.Text) / 0.01
Text2.Text = Val(Text3.Text) / 0.1
Text4.Text = Val(Text3.Text) / 10
Text5.Text = Val(Text3.Text) / 100
Text6.Text = Val(Text3.Text) / 1000
Text7.Text = Val(Text3.Text) / 10000
End Sub

Private Sub Command4_Click()
Text1.Text = Val(Text4.Text) / 0.001
Text2.Text = Val(Text4.Text) / 0.01
Text3.Text = Val(Text4.Text) / 0.1
Text5.Text = Val(Text4.Text) / 10
Text6.Text = Val(Text4.Text) / 100
Text7.Text = Val(Text4.Text) / 1000
End Sub

Private Sub Command5_Click()
Text1.Text = Val(Text5.Text) / 0.0001
Text2.Text = Val(Text5.Text) / 0.001
Text3.Text = Val(Text5.Text) / 0.01
Text4.Text = Val(Text5.Text) / 0.1
Text6.Text = Val(Text5.Text) / 10
Text7.Text = Val(Text5.Text) / 100
End Sub

Private Sub Command6_Click()
Text1.Text = Val(Text6.Text) / 0.00001
Text2.Text = Val(Text6.Text) / 0.0001
Text3.Text = Val(Text6.Text) / 0.001
Text4.Text = Val(Text6.Text) / 0.01
Text5.Text = Val(Text6.Text) / 0.1
Text7.Text = Val(Text6.Text) / 10
End Sub

Private Sub Command7_Click()
Text1.Text = Val(Text7.Text) / 0.000001
Text2.Text = Val(Text7.Text) / 0.00001
Text3.Text = Val(Text7.Text) / 0.0001
Text4.Text = Val(Text7.Text) / 0.001
Text5.Text = Val(Text7.Text) / 0.01
Text6.Text = Val(Text7.Text) / 0.1
End Sub

Private Sub Form_Load()

End Sub

Beğeniler: 0
Favoriler: 0
İzlenmeler: 1449
favori
like
share