Birim Çevirici(Derece-Radyan-Grad) VB.Net

Birim Çevirici(Derece-Radyan-Grad) VB.Net

Form1′e Yazılacak Kodlar;

<p style="text-align: left;">Public Class Form1</p>
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
'textBox1.Text = Math.PI();
If radioButton1.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * (Math.PI * 2)) / 360).ToString()
End If
If radioButton2.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * 400) / 360).ToString()
End If
If radioButton3.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * 360) / (Math.PI * 2)).ToString()
End If
If radioButton4.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * 400) / (Math.PI * 2)).ToString()
End If
If radioButton5.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * 360) / 400).ToString()
End If
If radioButton6.Checked = True Then
textBox2.Text = ((Double.Parse(textBox1.Text) * (Math.PI * 2)) / 400).ToString()
End If
End Sub
End Class

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.