Mutlak Değer Fonksiyonu


   
Public Class Form1

Function mutlak(ByVal Sayi As Integer)

If Sayi < 0 Then

Return (-1) * (Sayi)

ElseIf (Sayi >= 0) Then

Return Sayi

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(mutlak(0))
End Sub

End Class

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Konu: Mutlak Değer Fonksiyonu Gönderim Zamanı: 03.Aralik.2008 Saat 09:21
	Public Class Form1 Function mutlak(ByVal Sayi As Integer) If Sayi < 0 Then Return (-1) * (Sayi) ElseIf (Sayi >= 0) Then Return Sayi End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(mutlak(0)) End Sub End Class