Başlangıç > Kodlar > Visual Basic 6 ile Ölçü birimi dönüşümü

Visual Basic 6 ile Ölçü birimi dönüşümü


mm dm cm m hm dm km birbirlerine dönüştürür 7 text ve 7 butom bulunmalı. + çıkış butonu

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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: