Perkalian dan Membuat Bilangan Ganjil & Genap dengan Modul

Dengan modul untuk membuat perkalian bilangan ganjil & genap

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
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 modul ini



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