VISUAL BASIC.NET / Açıyı Esas Ölçüye Çeviren Kod Vb.Net

[HZ.CİN]

VISUAL BASIC.NET / Açıyı Esas Ölçüye Çeviren Kod Vb.Net
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