Açıyı Esas Ölçüye çeviren Program
2 textbox 1 buton ekleyin
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Yusuf Çakmak
'www.visualbasicturk.net
Dim acı, acı2 As Integer
acı = TextBox1.Text 'textbox1 acı degeri
If acı > 0 Then
TextBox2.Text = acı Mod 360 'textbox2 esas ölcü mod aldırarak buluyoruz
End If
If acı < 360 Then 'acı 0 dan küçük ise bu islem gerceklesiyor
acı2 = TextBox1.Text Mod 360
TextBox2.Text = 360 + acı2
End If
End Sub
