İki Sayı Arasındaki Tek Sayı, Çift Sayı İşlemleri  

Bu örneğimizde InputBoxtan girilen sayı aralığındaki tek sayı, çift sayıların toplamını alacağız. Formunuza 3 adet RadioButton 1 adet Button ekleyin. Aşağıdaki resimleri inceleyin.

Şekil 1

Şekil 2

Şekil 3

Şekil 4

Public Class Form1

    Function sayi_kontrol(ByVal n As Integer) As Boolean

        sayi_kontrol = True

        If n And 1 Then sayi_kontrol = False

    End Function

    Private Sub btnGiris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGiris.Click

        If rb1.Checked = False And rb2.Checked = False And rb3.Checked = False Then
            MsgBox("Seçiminizi yapınız", MsgBoxStyle.OkOnly, "Bahadirsa Seç")
            Exit Sub
        End If
        Dim i, bas, son, l, m As Integer

        For i = 1 To 2 Step 1
            If i = 1 Then
                bas = InputBox(i & ". sayı girişi", "Sayı Girişi", 0)
            End If
            If i = 2 Then
                son = InputBox(i & ". sayı girişi", "Sayı Girişi", 0)
            End If
        Next

        If rb1.Checked Then

            For l = bas To son

                m = (son) * (son + 1) / 2 - ((bas) * (bas + 1) / 2)
            Next

            MsgBox(bas & "-" & son & " aralığındaki sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa")

        End If

        If rb2.Checked Then

            If sayi_kontrol(bas) Then
                bas = bas + 1
            Else
                bas = bas
            End If

            If sayi_kontrol(son) Then
                son = son - 1
            Else
                son = son
            End If

            For l = bas To son Step 2
                m = ((son + 1) / 2) ^ 2 - ((bas + 1) / 2) ^ 2
            Next

            MsgBox(bas & "-" & son & " aralığındaki tek sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa")

        End If

        If rb3.Checked Then
            If sayi_kontrol(bas) Then
                bas = bas
            Else

                bas = bas + 1
            End If

            If sayi_kontrol(son) Then
                son = son
            Else

                son = son - 1
            End If

            For l = bas To son Step 2

                m = ((son) / 2) * (((son) / 2) + 1) - ((bas) / 2) * (((bas) / 2) + 1)
            Next

            MsgBox(bas & "-" & son & " aralığındaki çift sayıların toplamı: " & m, MsgBoxStyle.OkOnly, "Sayı Toplamı...Bahadirsa")

        End If

    End Sub

    Private Sub rb1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb1.MouseMove
        rb1.Cursor = Cursors.Hand
    End Sub
    Private Sub rb2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb2.MouseMove
        rb2.Cursor = Cursors.Hand
    End Sub
    Private Sub rb3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rb3.MouseMove
        rb3.Cursor = Cursors.Hand
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Tek ve Çift Sayı Toplama...Bahadirsa"
            .MaximizeBox = False
            .Size = New System.Drawing.Size(328, 147)
            .Location = New Point(250, 250)
        End With

    End Sub
End Class

Bir sonraki makalede buluşmak üzere...Bahadır