Belajar Module dalam VB

Assalamu’alaikum.. wr.. wb,

Syukur Alhamdulillah ada satu project belajar dari VB.Net yang bisa diselesaikan, semoga bermanfaat.

Pada Project VB kali ini saya akan membuat suatu fungsi dengan sebuah Modul dan sebagai langkah awal buatlah form seperti gambar di bawah ini : 

Setelah selesai membuat  Form diatas, lalu kemudian pada Button 1 masukkan Source Code seperti di bawah ini :

Public Class agil_one

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_angka()

        TextBox3.Text = hasil

    End Sub

dan pada Button2 masukkan Source Code seperti dibawah ini:

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

        Call tampilkan_nama()

        TextBox4.Text = nama

    End Sub

Setelah selesai memasukkan Source Code diatas, langkah selanjutnya  ialah kita membuat Modul yang di dalamnya terdapat Variabel Public yang bisa digunakan untuk semua Form  berikut langkah -  langkahnya : Klik Kanan  pada Project kemudian Add pilih Module kemudian Pilih Add kembali.

 

 

Setelah selesai Memasukkan Modul kemudian masukkan Source Code pada Modul yang sudah di buat yang nantinya akan di panggil di Menu Utama. Untuk proses hitung yang digunakan adalah Proses perkalian seperti dibawah ini :

Module Module1

    'variabel public

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

    Sub tampilkan_nama()

        nama = "Nanang Maulana"

    End Sub

    Sub hitung_angka()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Setelah selesai semua Source Codenya di masukan  berikut inilah hasil outputnya :

Jika ada yang ingin comment... sok atuh !
Mathur Thank U ^^