1. Ana Sayfa
  2. Eğitim
  3. ölçü birimi dönüştürücü-visual basic

ölçü birimi dönüştürücü-visual basic

Son güncelleme: 05.09.2007 10:25
JoLiE JoLiE foto
  • 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
#05.09.2007 10:25 0 0 0