Scarlet 1
Scarlet
xranzei 1
xranzei
mavzermete 1
mavzermete
Psych0SoociaL 1
Psych0SoociaL
Hikaye Ekle

Vb.NET'te Kombinasyon Hesaplama

  • Konuyu başlatan Konuyu başlatan ßyMesMes
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 0
  • Görüntüleme Görüntüleme 621
Tarihe Göre Sırala Reaksiyona göre sırala

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde VB.NET'te kombinasyon hesaplayan programı yazacağız.

İlk olarak programın görüntüsünü oluşturalım:
vbnetkombinasyonhesaplama.jpg


Daha sonra değişkenlerimizi oluşturalım:
Kod: 
[COLOR=#0000BB][FONT=Consolas]Dim[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]pay[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas],[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]payda[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]As[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Double[/FONT][/COLOR]
[COLOR=#0000BB][FONT=Consolas]Dim[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]n[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas],[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]r[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]As[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Integer[/FONT][/COLOR]


Daha sonra hesaplamamızı yapabilmek için btnKombinasyonHesapla_Click Olayını yazalım:
Kod: 
[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Try[/FONT][/COLOR]
            pay [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            payda [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] 
           
            If txtn[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]<>[/COLOR] [COLOR=#D40000]""[/COLOR] And txtr[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]<>[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                n [COLOR=#0000FF]=[/COLOR] Integer[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]txtn[COLOR=#0000FF].[/COLOR]Text[COLOR=#0000FF])[/COLOR]
                r [COLOR=#0000FF]=[/COLOR] Integer[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]txtr[COLOR=#0000FF].[/COLOR]Text[COLOR=#0000FF])[/COLOR]
                If n [COLOR=#0000FF]>=[/COLOR] r Then

                    pay [COLOR=#0000FF]=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]n[COLOR=#0000FF],[/COLOR] Globalization[COLOR=#0000FF].[/COLOR]NumberStyles[COLOR=#0000FF].[/COLOR]Integer[COLOR=#0000FF])[/COLOR]
                    For i [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] To r [COLOR=#0000FF]-[/COLOR] [COLOR=#FF0000]1[/COLOR]

                        pay [COLOR=#0000FF]*=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF](([/COLOR]n [COLOR=#0000FF]-[/COLOR] i[COLOR=#0000FF]).[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF]())[/COLOR]

                    Next
                    For i [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] To r
                        payda [COLOR=#0000FF]*=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]i[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF](),[/COLOR] Globalization[COLOR=#0000FF].[/COLOR]NumberStyles[COLOR=#0000FF].[/COLOR]Integer[COLOR=#0000FF])[/COLOR]
                    Next


                    lblSonuc[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#0000FF]([/COLOR]pay [COLOR=#0000FF]/[/COLOR] payda[COLOR=#0000FF]).[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF]()[/COLOR]



                Else
                    [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"r , n'den büyük olamaz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]

                End If
            ElseIf txtn[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"n sayısını giriniz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]
            ElseIf txtr[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"r sayısını giriniz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]
            End If



        Catch hata As Exception
            [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR]hata[COLOR=#0000FF].[/COLOR]Message[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF](),[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]SystemModal[COLOR=#0000FF],[/COLOR] [COLOR=#D40000]"Hata..!"[/COLOR][COLOR=#0000FF])[/COLOR]

        Finally
            pay [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            payda [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            n [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            r [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
 [COLOR=#0000BB][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]End[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Try[/FONT][/COLOR][COLOR=#333333][FONT=Arial]

Bütün kodların hazır hali:

Kod: 
[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Public[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Class[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Form1[/FONT][/COLOR]
    Dim pay[COLOR=#0000FF],[/COLOR] payda As Double
    Dim n[COLOR=#0000FF],[/COLOR] r As Integer

    Private Sub [COLOR=#333333][B]btnKombinasyonHesapla_Click[/B][/COLOR][COLOR=#0000FF]([/COLOR]sender As Object[COLOR=#0000FF],[/COLOR] e As EventArgs[COLOR=#0000FF])[/COLOR] Handles btnKombinasyonHesapla[COLOR=#0000FF].[/COLOR]Click
        Try
            pay [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            payda [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] 
           
            If txtn[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]<>[/COLOR] [COLOR=#D40000]""[/COLOR] And txtr[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]<>[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                n [COLOR=#0000FF]=[/COLOR] Integer[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]txtn[COLOR=#0000FF].[/COLOR]Text[COLOR=#0000FF])[/COLOR]
                r [COLOR=#0000FF]=[/COLOR] Integer[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]txtr[COLOR=#0000FF].[/COLOR]Text[COLOR=#0000FF])[/COLOR]
                If n [COLOR=#0000FF]>=[/COLOR] r Then

                    pay [COLOR=#0000FF]=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]n[COLOR=#0000FF],[/COLOR] Globalization[COLOR=#0000FF].[/COLOR]NumberStyles[COLOR=#0000FF].[/COLOR]Integer[COLOR=#0000FF])[/COLOR]
                    For i [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] To r [COLOR=#0000FF]-[/COLOR] [COLOR=#FF0000]1[/COLOR]

                        pay [COLOR=#0000FF]*=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF](([/COLOR]n [COLOR=#0000FF]-[/COLOR] i[COLOR=#0000FF]).[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF]())[/COLOR]

                    Next
                    For i [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR] To r
                        payda [COLOR=#0000FF]*=[/COLOR] Double[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]Parse[/B][/COLOR][COLOR=#0000FF]([/COLOR]i[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF](),[/COLOR] Globalization[COLOR=#0000FF].[/COLOR]NumberStyles[COLOR=#0000FF].[/COLOR]Integer[COLOR=#0000FF])[/COLOR]
                    Next


                    lblSonuc[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#0000FF]([/COLOR]pay [COLOR=#0000FF]/[/COLOR] payda[COLOR=#0000FF]).[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF]()[/COLOR]



                Else
                    [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"r , n'den büyük olamaz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]

                End If
            ElseIf txtn[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"n sayısını giriniz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]
            ElseIf txtr[COLOR=#0000FF].[/COLOR]Text [COLOR=#0000FF]=[/COLOR] [COLOR=#D40000]""[/COLOR] Then
                [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR][COLOR=#D40000]"r sayısını giriniz..!"[/COLOR][COLOR=#0000FF],[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]Exclamation[COLOR=#0000FF],[/COLOR] Title[COLOR=#0000FF]:=[/COLOR][COLOR=#D40000]"Uyarı..!"[/COLOR][COLOR=#0000FF])[/COLOR]
            End If



        Catch hata As Exception
            [COLOR=#333333][B]MsgBox[/B][/COLOR][COLOR=#0000FF]([/COLOR]hata[COLOR=#0000FF].[/COLOR]Message[COLOR=#0000FF].[/COLOR][COLOR=#333333][B]ToString[/B][/COLOR][COLOR=#0000FF](),[/COLOR] MsgBoxStyle[COLOR=#0000FF].[/COLOR]SystemModal[COLOR=#0000FF],[/COLOR] [COLOR=#D40000]"Hata..!"[/COLOR][COLOR=#0000FF])[/COLOR]

        Finally
            pay [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            payda [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            n [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]
            r [COLOR=#0000FF]=[/COLOR] [COLOR=#FF0000]1[/COLOR]

        End Try
    End Sub

     [COLOR=#0000BB][FONT=Consolas]End[/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000BB][FONT=Consolas]Class[/FONT][/COLOR][COLOR=#333333][FONT=Arial]


Bu dersimizin sonuna geldik. Herkese iyi çalışmalar.
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.



 
Cevap yazmak için giriş yap yada kayıt ol.

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Benzer konular

KAYITURKU
Beran Setaou (Mavi Ejderha) Quest
Cevaplar
3
Görüntüleme
105
Kuara
Oğuzhan Aggul
  • Soru Soru
Cevaplanmadı PVP MANAGER VURUŞ SORUNU
Cevaplar
2
Görüntüleme
69
Oğuzhan Aggul
SeumonDizayn
Yeni Quest I Bahtına Ne Çıkarsa
Cevaplar
1
Görüntüleme
69
Son1Dem
LunaUI
[NEW!] Hulk Simulator 2 (x4 Coin - Flling Player) Script LUA
Cevaplar
2
Görüntüleme
201
masumaqrk
SeumonDizayn
Yeni Quest I Kaçakcı
2
Cevaplar
9
Görüntüleme
186
Kuara
Geri
Üst