Cara Buat kalkulator

Kali ini saya akan memposting cara membuat kalkulator dengan menggunakan VB6. Sebelum kita melakukan percobaan, sebaiknya kita mempelajari apa itu “ Array “ . karna dalam pembuatan kalkulator Array sangat dibutuhkan dan bahkan pembuatan program” lain dengan menggunakan VB. Untuk mempersingkat waktu, kita mulai saja dari pengenalan Array. Array dalam bahasa Indonesia adalah index. Maka variable index ialah variabaile yg mempunyai index yg biasa ditulis var(index). Array sangat penting sekali dalam pemrograman, karna Array dapat menampung banyak data yg bertipe sama. Untuk dapat membuat Array, maka terlebih dahulu hrs didefinisikan nama variable Array dan berapa Jumlah maksimalnya dengan cara

                                          Dim nama_variabel (jumlah_array ) as type_data

Perintah ini digunakan sesuai kebutuhan, apakah array ini hanya untuk subroutine (event) local atau event” lain yg ada di form. Cukup sekian gambaran penjelasan tentang Array. Sekarang kita mulai saja membuat program kalkulator penjumlahan, pengurangan, pembagian ataupun perkalian dapat dilakukan dengan memanfaatkan control Array pada tombol”   yg digunakan.
1. Buka program VB 6. Pasti anda tahu kan gimana cara bukanya.

 2. Buat project baru dengan standart exe.

     

Gbr 1.

 3.   Buat komponen text box, atur property [ font ] size sesuai keinginan.

  4. Buat  1 buah command button yg digunakan untuk tombol” angka pada kalkulator  dijadikan control

     Array dengan cara  mengcopy  paste command button sehingga menjadi command1(0), Command1(1),

     Command1(2),  dan seterusnya hingga  Command1(9). Dan ubah caption nya sesuai angka”  yg didalam

     kurung.
     cth:  pada tombol command 1 (2):  buat angka 2 pada caption tombol tsb.

     Tombol tersebut dicopy sebanyak 10 tombol agar mencapai Command1(9).

 5.  Buat 1 buah command button lagi untuk tombol merestart  hingga angka yang ada dilayar kembali

      menjadi 0.  Yg biasanya captionnya diubah mejadi  C.

  6.  Dan 1 command button lagi untuk membuat tanda tambah (+) kurang (-), kali (*), bagi     ( : ), dan

      samadengan (=).  Caranya sama seperti no 4  dengan mengcopy tombol.

  7.   Kemudian atur posisinya sebagai Berikut:

Gbr  2

k     8.      Pada  jendela code, tambahkan code program berikut ( copas seluruhnya ya ) :

Dim kal, operasi As String

Dim bil As Integer

Private Sub Command1_Click(Index As Integer)

kal = kal + Trim(Str(Index))

Text1 = kal

End Sub

Private Sub Command2_Click()

Text1 = "0"

kal = ""

End Sub

Private Sub Command3_Click(Index As Integer)

Select Case Index

Case 0:

bil2 = Val(kal)

If operasi = "+" Then bil = bil + bil2

If operasi = "-" Then bil = bil - bil2

If operasi = "*" Then bil = bil * bil2

If operasi = "/" Then bil = bil / bil2

Text1 = bil

kal = Trim(Str(bil))

Case 1:

bil = Val(kal)

operasi = "+"

kal = ""

Case 2:

bil = Val(kal)

operasi = "-"

kal = ""

Case 3:

bil = Val(kal)

operasi = "*"

kal = ""

Case 4:

bil = Val(kal)

operasi = "/"

kal = ""

End Select

End Sub

       9.      Program siap untuk digunakan.

  Program yg saya berikan masih sangat sederhana. Anda dapat berkreasi lebih baik lagi.  

           INGAT ….. !!!!!     Sebaiknya anda pelajari code yang saya berikan.

Agar  anda dapat mengembangkan nya dengan mudah.

Sebelum anda beranjak dari sini, sebaiknya anda meninggalkan komentar anda terlebih dahulu. Agar  kreasi “ Tumorang “   yg lain, lebih baik dari yg sebelumnya  dan lebih cerah dari hari ini.

Terima Kasih.  Selamat mencoba

Salam  Kreatif.  J