Part 5

Penggunaan Module

Module Module1
'Public Variabel
Public nama As String, Hasil, b, h, c, Ganjil, Genap As Integer
Sub tampilnama()
nama = "Alfaqir"
End Sub
Sub hitung()
Hasil = Val(b) * Val(h)
End Sub
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


Form 1

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
TextBox3.Text = Hasil
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call tampilnama()
TextBox4.Text = nama
End Sub
End Class


Form 2 (Menampilkan Bilangan Ganjil & Genap)

Public Class Form2
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