Contoh Program Visual Basic 2010 : Latihan 10

'Latihan 10 (Menentukan Genap dan Ganjil)


                      'Tampilan Form

'Coding

Public Class frmLat_10

    Dim akhir As Integer

    Dim ket As String

    Sub GenapGanjil()

        Dim i, sisabagi As Integer

        akhir = Val(Me.txtAkhir.Text)

        If akhir < 0 Then

            MsgBox("Masukkan Bilangan Genap Positif", vbCritical, "Salah Inputan")

            Me.txtAkhir.Text = ""

            Me.txtAkhir.Focus()

        ElseIf akhir >= 0 And akhir < 5 Then

            MsgBox("Masukkan Bilangan 5 Keatas", vbCritical, "Salah Inputan")

            Me.txtAkhir.Text = ""

            Me.txtAkhir.Focus()

        Else

            'ok

            Me.cklsGenap.Items.Clear()

            Me.cbGanjil.Items.Clear()

            If ket = " + " Then

                For i = 0 To akhir

                    sisabagi = i Mod 2

                    If sisabagi = 0 Then

                        Me.cklsGenap.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.cklsGenap.Items.Add(i)

                    ElseIf sisabagi = 1 Then

                        Me.cbGanjil.Items.Add(i)

                    End If

                Next

            End If

        End If

    End Sub

    Private Sub frmLat_10_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_10_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub txtAkhir_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtAkhir.LostFocus

        Call GenapGanjil()

    End Sub

    Private Sub bBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBaru.Click

        Me.cklsGenap.Items.Clear()

        Me.cbGanjil.Items.Clear()

        Me.txtAkhir.Text = ""

        Me.txtAkhir.Focus()

    End Sub

    Private Sub bNaik_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNaik.Click

        ket = " + "

        Call GenapGanjil()

    End Sub

    Private Sub bTurun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTurun.Click

        ket = " - "

        Call GenapGanjil()

    End Sub

End Class