Pertemuan 9, 20 April 2015 : Membuat Calculator Sederhana di Visual Basic 2010 Menggunakan Parameter ByVal

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, 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. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar 

 

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. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar. Maka hasilnya jika kita menekan tombol “Input Bilangan” maka hasilnya akan jalan 2 2 nya.

Sekian dan Terima Kasih.