Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
07.Nisan.2015, 07:42 #1Pro Üye
- Üyelik tarihi
- 06.Kasım.2014
- Mesajlar
- 405
Vb.NET'te Kombinasyon Hesaplama
Bu dersimizde VB.NET'te kombinasyon hesaplayan programı yazacağız.
İlk olarak programın görüntüsünü oluşturalım:
Daha sonra değişkenlerimizi oluşturalım:
Kod:
Dim pay, payda As Double
Dim n, r As Integer
Daha sonra hesaplamamızı yapabilmek için btnKombinasyonHesapla_Click Olayını yazalım:
Kod:
Try
pay = 1
payda = 1
If txtn.Text <> "" And txtr.Text <> "" Then
n = Integer.Parse(txtn.Text)
r = Integer.Parse(txtr.Text)
If n >= r Then
pay = Double.Parse(n, Globalization.NumberStyles.Integer)
For i = 1 To r - 1
pay *= Double.Parse((n - i).ToString())
Next
For i = 1 To r
payda *= Double.Parse(i.ToString(), Globalization.NumberStyles.Integer)
Next
lblSonuc.Text = (pay / payda).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.SystemModal, "Hata..!")
Finally
pay = 1
payda = 1
n = 1
r = 1
End Try
Kod:
Public Class Form1
Dim pay, payda As Double
Dim n, r As Integer
Private Sub btnKombinasyonHesapla_Click(sender As Object, e As EventArgs) Handles btnKombinasyonHesapla.Click
Try
pay = 1
payda = 1
If txtn.Text <> "" And txtr.Text <> "" Then
n = Integer.Parse(txtn.Text)
r = Integer.Parse(txtr.Text)
If n >= r Then
pay = Double.Parse(n, Globalization.NumberStyles.Integer)
For i = 1 To r - 1
pay *= Double.Parse((n - i).ToString())
Next
For i = 1 To r
payda *= Double.Parse(i.ToString(), Globalization.NumberStyles.Integer)
Next
lblSonuc.Text = (pay / payda).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.SystemModal, "Hata..!")
Finally
pay = 1
payda = 1
n = 1
r = 1
End Try
End Sub
End Class
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
PHP KDV Hesaplama Fonksiyonu
Konu Sahibi optimusprime Forum PHPCevap: 0Son Mesaj : 12.Ağustos.2015, 07:32 -
PERL / Faktoriyel Hesaplama
Konu Sahibi optimusprime Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 11.Aralık.2014, 07:50 -
Gebelik Hesaplama Tekniği Kodu
Konu Sahibi optimusprime Forum HTMLCevap: 0Son Mesaj : 04.Aralık.2014, 16:27 -
Try – Catch Kullanarak Ortalama Hesaplama C#
Konu Sahibi optimusprime Forum .Net ProgramlamaCevap: 0Son Mesaj : 30.Kasım.2014, 17:29 -
İki Tarih Arasındaki Gün Sayısını Hesaplama Kodu
Konu Sahibi donjuanhose81 Forum Mobil ProgramlamaCevap: 0Son Mesaj : 11.Kasım.2014, 16:54
Shopsocks5 - Service Socks5 Cheap...
Bugün, 14:40 in Güvenlik