Sabtu, 09 April 2011

Membuat aplikasi penjumlahan sederhana

Buatlah Projek Baru (New project, standar exe) dan beri nama 'ProjectJumlah'
Rubah nama pada "form1" menjadi "frmJumlah".
Pada frmJumlah tambahkan control/object sbb:
  1. 3 buah textBox dengan nama masing-masing Text1, text2, dan text3. Lalu hapus properti text-nya(kosongkan)
  2. CommandButton dengan nama 'cmdJumlah' , Caption  "="
  3. CommandButton dengan nama 'cmdHapus' , Caption  "Hapus"
  4. CommandButton dengan nama 'cmdKeluar' , Caption  "Keluar"
  5. Buatlah label dengan caption "+"

Aturlah ukuran dan tampilannya sesuai selera, serta tambahkan label judul atau yang lainnya.
Lalu urutkan secara horisontal Text1 -- label "+" -- Text2 -- cmdJumlah -- Text3   pada baris pertama.
Kemudian dibawahnya urutkan   cmdHapus -- cmdKeluar


Setelah selesai, copy code dibawah ini dan letakkan pada halaman kode (untuk menampilkan halaman kode, klik 2 kali pada form).

Option Explicit

Dim input1 As Long
Dim input2 As Long
Dim hasil As Long

Private Sub cmdJumlah_Click()
'mengambil data dari user
 input1 = Val(Text1.Text)
 input2 = Val(Text2.Text)
 'menghitung hasil
 hasil = input1 + input2
 'menampilkan hasil pada text3
 Text3.Text = hasil
End Sub

Private Sub cmdHapus_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 'tempatakan kursor pada text1
 Text1.SetFocus
End Sub

Private Sub cmdKeluar_Click()
 End
End Sub

Cobalah test dengan mengklik menu Run > Start atau icon Start, atau bisa juga menekan F5 pada keyboard. Lihatlah hasilnya.


Artikel yang berkaitan:

Tidak ada komentar:

Posting Komentar

Tuliskan komentar anda