Membuat Kalkulator Sederhana dengan Visual Basic 5.0

Microsoft Visual Basic merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Sumber : Wikipedia. Kalau belum punya aplikasinya anda bisa download di blog ini.
Nah disini kita akan membuat program kalkulator sederhana, yaaa walaupun nggak mirip banget tapi fungsinya sama kok. Oke langsung dimulai aja ya :

1. Software Visual Basic (VB).

Disini saya pakai software Visual Basic 5.0

2. Design Tampilannya.

Kalau udah punya softwarenya, baru deh kita design tampilan formnya seperti ini :

 

• Label
• TextBox 
• CommandButton
• Properties Windows

Setelah designnya sudah selesai, sekarang berikan name pada Textbox dan CommandButton, supaya dilisting program nanti biar rapih. Contohnya :

Ubah name seperti ini :

1. Text1 jadi bil1
2. Text2 jadi bil2
3. Text3 jadi hasil
4. Command1 jadi kali
5. Command2 jadi bagi
6. Command3 jadi tambah
7. Command4 jadi kurang
8. Command5 jadi bersih
9. Command6 jadi keluar

Mungkin belum terjadi apa-apa setelah namenya diubah, selanjutnya masukan program dibawah ini:
 3. Listing Program.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
        txthasil.Text = Val(txtnil1.Text) + Val(txtnil2.Text)
    End Sub

    Private Sub cmdkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkurang.Click
        txthasil.Text = Val(txtnil1.Text) - Val(txtnil2.Text)
    End Sub

    Private Sub cmdbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbagi.Click
        txthasil.Text = Val(txtnil1.Text) - Val(txtnil2.Text)
    End Sub

    Private Sub cmdkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkali.Click
        txthasil.Text = Val(txtnil1.Text) * Val(txtnil2.Text)
    End Sub
End Class

Contoh Gambarnya :

4. Running Program.
    selesai.
  

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.