Pertemuan 7, 30 Maret 2015 : Membuat Calculator Sederhana di Visual Basic 2008 Menggunakan Parameter ByVal

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Buat design dan atributnya sep\erti ini yah :


3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

§ 1 Buah GroupBox : Text : Perhitungan

§ 3 Buah Text Box

§ TextBox1 : (name) : txtbilsatu

§ TextBox2 : (name) : txtbildua

§ TextBox3 :(name) : txthasil

§ 2 Buah Button

§ Button 1 : (name) : btnHitung2 | Text : InputB

§ 3 Buah Label

§ Label 1 : Text : Bilangan 1

§ Label 2 : Text : Bilangan 2

§ Label 3 : Text : Hasil

4. Klik 2X pada Button1 (btnHitung2), lalu isikan koding seperti berikut :

Private Sub btnHitung2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung2.Click
Dim sngTotal As Single
sngTotal = Sum(txtbilsatu.Text, txtbildua.Text)
End Sub
Function Sum(ByVal SngNum1 As Single, ByVal sngNum2 As Single) As Single
Dim sngHasil
sngHasil = SngNum1 + sngNum2
txthasil.Text = sngHasil
Return sngHasil
End Function

End Class

5. Kemudian coba jalankan dengan meng klik tombol Run coba.

Hasilnya :

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J