KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Vb//Permütasyon Hesaplama
Konu : Vb//Permütasyon Hesaplama - 19.02.2015, 09:59
Mesaj: #1
Arkadaşlar Kodları Vericeğim Ayriyeten Kendi Denememi De Upload Ediyorum.İşinize Yararsa Teşşekkürü Çok Görmeyin.
Link: Tıklayın
Kaynak Kodları:
Kod:
Public Class Form1
    Dim n, r As Integer
    Dim sonuc As Double

    Private Sub btnPermutasyonHesapla_Click(sender As Object, e As EventArgs) Handles btnPermutasyonHesapla.Click
        Try
            If txtn.Text <> "" And txtr.Text <> "" Then
                n = Integer.Parse(txtn.Text)
                r = Integer.Parse(txtr.Text)
                If n >= r Then
                    sonuc = Double.Parse(n, Globalization.NumberStyles.Integer)
                    For i = 1 To r - 1
                        sonuc *= Double.Parse((n - 1).ToString())

                    Next
                    lblSonuc.Text = sonuc.ToString()
                Else
                    MsgBox("r, n'den büyük olamaz..!", MsgBoxStyle.Exclamation, Title:="Uyarı..!")
                End If
            ElseIf txtn.Text = "" Then
                MsgBox("n sayısını giriniz...", MsgBoxStyle.Exclamation, Title:="Uyarı..!")
            ElseIf txtr.Text = "" Then
                MsgBox("r sayısını giriniz...", MsgBoxStyle.Exclamation, Title:="Uyarı..!")

            End If


        Catch hata As Exception
            MsgBox(hata.Message.ToString(), MsgBoxStyle.Information, Title:="Hata..!")

        End Try
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub lblFormul_Click(sender As System.Object, e As System.EventArgs) Handles lblFormul.Click

    End Sub
End Class

Unutmadan Virüs Total: Virüs Total
İşinize Yaradıysa Mutlu Olurum.
Edit:
Özellikleri:
1-r,n den Büyük Olduğunda Hata Verir.
) Tek Özelliği O Sonuçlar Doğrudur.Denenmiştir
Rar Pass:illeg4lizm.org/Anchor202
İşinize Yaradıysa +Rep Vermeyi Unutmayın

(Son Düzenleme: 19.02.2015, 12:56, Düzenleyen: Anchor202.)
WWW Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
hd porno antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort ataşehir escort türk ifşa hd porno