Programalama > VISUAL BASIC.NET


Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.