Aplikasi Menentukan Genap Ganjil Visual Basic 2010

• Form Design 

 

• Code

Public Class Latihan_10
    Dim IGenap, IGajil, Akhir As Integer
    Dim ket As String

    Sub genapganjil()
        Dim i, SisaBagi As Integer
        Akhir = Val(Me.txtAkhir.Text)
        If Akhir < 0 Then
            MsgBox("masukan Bilangan Genap Positif", vbCritical, "masukan Bilangan Ganjil Negatif ")
            Me.txtAkhir.Text = ""
            Me.txtAkhir.Focus()
        ElseIf Akhir >= 0 And Akhir < 5 Then
            MsgBox("masukan Bilangan 5 keatas", vbCritical, "salah Inputan ")
            Me.txtAkhir.Text = ""
            Me.txtAkhir.Focus()
        Else
            'ok
            Me.clklsGenap.Items.Clear()
            Me.cbGanjil.Items.Clear()
            If ket = "+" Then
                For i = 0 To Akhir
                    SisaBagi = i Mod 2
                    If SisaBagi = 0 Then
                        Me.clklsGenap.Items.Add(i)
                    ElseIf SisaBagi = 1 Then
                        Me.cbGanjil.Items.Add(i)
                    End If
                Next
            ElseIf ket = "-" Then
                For i = Akhir To 0 Step -1
                    SisaBagi = i Mod 2
                    If SisaBagi = 0 Then
                        Me.clklsGenap.Items.Add(i)
                    ElseIf SisaBagi = 1 Then
                        Me.cbGanjil.Items.Add(i)
                    End If
                Next
            End If


        End If
    End Sub

    Private Sub txtAkhir_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtAkhir.LostFocus
        Call genapganjil()
    End Sub
Private Sub bturun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bturun.Click
        ket = "-"
        Call genapganjil()
    End Sub

    Private Sub bnaik_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bnaik.Click
        ket = "+"
        Call genapganjil()
    End Sub
End Class

• Start Debugging