Cara Membuat Aplikasi Kalkulator Dengan Menggunakan Visual Basic 6.0

            Cara membuat aplikasi sederhana yaitu kalkulator dengan menggunakan Visual Basic 6.0 adalah sebagai berikut:

Pertama buka Visual Basic 6.0 dan pilih Standard EXE lalu klik Open

Lalu akan muncul form seperti gambar dibawah ini:

Setelah muncul form seperti gambar diatas lalu pasangkan 4 buah Label yang ada diToolbox kedalam form tersebut dang anti Caption ke 4 Lael tersebut dengan:

Label1 ganti dengan PENJUMLAHAN

Label2 ganti dengan Angka 1

Label 3 ganti dengan Angka 2

Label 4 ganti dengan Hasil

Seperti gambar dibawah Ini:

   

Setelah itu lalu pasang 3 buah Text tang ada di Toolbox kedalam form juga

Speprti pada gambar dibawah ini 

Setelah itu pasangkan juga CommandButton yang ada di Toolbox dan lalu ganti captionnya menjadi:

Command1 diganti jadi Tambah

Seperti pada gambar dibawah:

Setelah itu klik 2 kali pada commandbutton itu dan copy kan koding dibawah ini

Private Sub Command1_Click()

                angka1 = Text1.Text

                angka2 = Text2.Text

                hasil = angka1 + angka2

                Text3.Text = hasil

End Sub

Setelah itu tambah koding seperti ini

Dim angka1 As Single

Dim angka2 As Single

Dim hasil As Single

seperti pada gambar dibawah

Setelah itu klik run à lalu start atau langsung aja klik F5

Dan jadi deh program kalkulator tambah dengan menggunakan Visual Basic 6.0 sperti pada gambar dibawah

Dan lalukan hal yang sama untuk membuat program kurang, bagi ataupun kali dan hasilnya kan seperti gambar dibawah

Dan demikianlah aplikasi kalkulator dengan menggunakan  Visual Basic 6.0

Koding lengkap aplikasi kalkulator

Dim angka1 As Single

Dim angka2 As Single

Dim hasil As Single

---------------------------------------------------------------------------------------------------------------

Private Sub Command1_Click()

angka1 = Text1.Text

angka2 = Text2.Text

hasil = angka1 + angka2

Text3.Text = hasil

End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Command2_Click()

angka1 = Text4.Text

angka2 = Text5.Text

hasil = angka1 - angka2

Text6.Text = hasil

End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Command3_Click()

angka1 = Text7.Text

angka2 = Text8.Text

hasil = angka1 * angka2

Text9.Text = hasil

End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Command4_Click()

angka1 = Text10.Text

angka2 = Text11.Text

hasil = angka1 / angka2

Text12.Text = hasil

End Sub

Selamat Mencoba