Programalama > VISUAL BASIC.NET

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

yusuf çakmak
http://www.visualbasicturk.net