Perkalian dan Membuat Bilangan Ganjil & Genap Dengan menggunakan Module “Part5”

Pertama kita buat perkalian dan berikut disannya :

Setelah itu isi printahnya :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call tampilnama()

        TextBox1.Text = nama

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        h = TextBox2.Text

        b = TextBox3.Text

        Call hitung()

        TextBox4.Text = hasil

    End Sub

End Class

Jangan lupa tambahkan module,berikut isinya :

Module ary

    'variablepublic

    Public nama As String, hasil, h, b As Integer

    Sub tampilnama()

        nama = "sandhy aryardhana"

    End Sub

    Sub hitung()

        hasil = Val(h)* Val(b)

    End Sub

   

End Module

Dan berikutnya Bilangan Ganjil dan Genap

Kita buat dulu desainnya :

Dan isi perintahnya :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        c = TextBox1.Text

        Call pilih(ListBox1, ListBox2)

    End Sub

End Class

Tambahkan juga modulenya :

Module sandhy

    Public nama As String, hasil, c, ganjil, genap As Integer

    Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)

        For i = 1 To Val(c)

            If i Mod 2 = 0 Then

                lb2.Items.Add(i)

            ElseIf i Mod 2 = 1 Then

                lb1.Items.Add(i)

            End If

        Next

    End Sub

End Module

Sekian dan untuk latihan berikutnya,“Selanjutnya ke-part6”