Setelah selesai membuat Form utama kemudian pada Button 1 masukkan Source Code seperti di bawah ini .
Public Class Form2
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
Setelah selesai memasukkan Code diatas selanjut 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.
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
Setelah selesai memasukkan Code diatas selanjut 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.
Module Module1
'variabel public
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = "Sugeng"
End Sub
Sub hitung()
hasil = Val(h) * Val(b)
End Sub
End Module
Module Module1
'variabel public
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = "Sugeng"
End Sub
Sub hitung()
hasil = Val(h) * Val(b)
End Sub
End Module
0 komentar:
Posting Komentar