Visual basıc'te ölçü bulma

Formumuza


Dim acı, acı2 AsInteger
acı = TextBox1.Text 'textbox1 acı degeri
If acı > 0 Then
TextBox2.Text = acı Mod 360 'textbox2 esas ölcü mod aldırarak buluyoruz
EndIf
If acı < 360 Then'acı 0 dan küçük ise bu islem gerceklesiyor
acı2 = TextBox1.Text Mod 360
TextBox2.Text = 360 + acı2
EndIf

kodları ekledikten sonra formu çalıştırın..