Buka program VB, kemudian buat project dengan formasi tool dan properties seperti gambar.
Kemudian, masukkan kode berikut ke dalam jendela kode program VB tersebut.
Private Sub Combo1_Click()
Dim A As Variant
Dim B As Variant
A = Val(Text1.Text)
B = Val(Text2.Text)
Select Case Combo1.ListIndex
Case 0
Text3.Text = A + B
Case 1
Text3.Text = A - B
Case 2
Text3.Text = A * B
Case 3
Text3.Text = A / B
End Select
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "Addition"
Combo1.AddItem "Substraction"
Combo1.AddItem "Multiplication"
Combo1.AddItem "Division"
End Sub
Catatan : Tulisan yang diberi warna merah berarti opsional. Tulisan tersebut bisa diganti sesuai keinginan tetapi program yang akan di compile nantinya tidak akan berubah.
Addition = pertambahan ; substraction = pengurangan ; multiplication = perkalian, division = pembagian.
Setelah selesai, aktifkan program dengan menekan tombol "start" di tool bar, sehingga muncul layar dengan tampilan berikut.
Contoh eksekusi program setelah memilih operasi pertambahan |
Contoh eksekusi program setelah memilih operasi perkalian |
Jika anda telah mengerti proses eksekusi program ini, maka anda akan bisa membuat program kalkulator yang lebih "rumit".
Tidak ada komentar:
Posting Komentar