Seperti biasa buat form yang di inginkan
- Untuk N0.1,2 dan 3 menggunakan textfield
- Untuk Press dan tamipl nama menggunakan Button
Terus sesuaikan dengan coding di bawah ini :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click_1(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()
TextBox3.Text = nama
End Sub
End Class
Selanjutnya membuat Class Module
Langkahnya sebagai berikut :
1. Click Toolbar Project,
2. Pilih Add Module, Module,
3. Terus click Add.
Atau dengan cara :
1. Klik kanan pada object,
2. Pilih Add , Module,
3. Klik Add.
Kemudian sesuaikan dengan contoh Coding yang saya buat :
--------------------------------------------------------
Module Module1
'variable public
Public hasil, h, b As Integer, nama As String
Sub hitung()
hasil = Val(h) + Val(b)
End Sub
Sub tampilnama()
nama = " Rustendi "
End Sub
End Module
--------------------------------------------------------------------------
NB :
Coding yang berwarna merah bisa kamu rubah .
Twitter
10.57
Unknown




0 komentar:
Posting Komentar
, kalaw mau komentar yang ikhlas y !