Cara membuat kalkulator - Pada sekolah zaman dahulu ketika sudah memasuk jam pulang sekolah para siswa akan diberikan rutinitas berdoa bersama sebelum pulang, nah jika saat jam pulang sekolah kebetulan pelajaran matematika maka sehabis berdoa bersama tidak lantas pulang, tetapi guru membuat sebuah mini kuis yaitu kuis matematika, biasanya siswa yang paling cepat menjawab dengan benar maka berhak pulang terlebih dahulu, dan yang paling banyak dibuat pertanyaan adalah soal perkalian. Zaman dulu belum mengerti kalkulator boro boro gadged jadi saat menjawab kuis perkalian tadi siswa benar benar harus mengitung dengan kecerdasan otaknya sendiri

Beda zaman beda kebiasaan saman sekarang adalah zaman dimana mesin dan komputer menjadi bagian dari kehidupan umat manusia dari anak kecil sampai yang sudah tua tua mereka sangat lekat dengan mesin maupun komputerisasi

Cara membuat kalkulator

Kita tinggalkan kenangan sekarang kita kembali duduk didepan komputer lalu akses microsoft excel anda coba buat perkalian dalam sel atau buat hitung hitungan penjumlahan pengurangan dalam sel, kira kira anda sedang mengerjakan apa kenapa harus berhitung ???

Untuk mempermudah perhitungan dari penjumlahan pengurangan perkalian dan pembagian kita bisa mengunakan kalkulator, andapun bisa membuat kalkulator dengan menggunakan microsoft excel, bagaimana caranya ?? ikuti langkah berikut ini
+ Masuk langsung kejendela VBA
+ Inserfor Userform , rubah namenya menjadi asis10com
+ Masukan kontrol Commandbutton sebanyak 20 untuk properties tiap tombol bebas
+ Masukan textbox dan label untuk properties biarkan defauld saja
+ Lihat gambar design kalkulator dibahwah ini, pastikan form anda tersusun sebagaimana gambar dibawah


+ Pastikan kembali bahwa caption pada commandbutton sesuai dengan gambar diatas, untuk masalah Name pada properties lainnya silahkan diatur sendiri
+ Masukan kode macro dibawah ini kedalam userform, kode macronya agak panjang
Dim CollectBouton As Collection
Dim ClGroup As Collection
Dim mBouton As asis10
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
ControlClick 11
End If
End Sub

Private Sub UserForm_Initialize()
Dim Ctl As Control
Set CollectBouton = New Collection
Set ClGroup = New Collection
For Each Ctl In Me.Controls
If TypeOf Ctl Is MSForms.CommandButton Then
Set mBouton = New asis10
Set mBouton.GroupBoutons = Ctl
CollectBouton.Add mBouton
ClGroup.Add Ctl, Ctl.Tag
End If
Next Ctl
End Sub
Public Sub ControlClick(Index As Integer)
Select Case Index
Case Is < 10: AjouterSurText CStr(Index) Case Is = 10: AjouterSurText "," Case Is = 11 On Error GoTo ErreurCalcul Label1.Caption = Evaluate(Replace(TextBox1.Text, ",", ".")) Case Is < 18 AjouterSurText ClGroup(CStr(Index)).Caption Case 18: If TextBox1.SelLength > 0 Then AjouterSurText ""
Case 19: TextBox1 = "": Label1 = ""
End Select
Exit Sub
ErreurCalcul:
MsgBox "Eror mas, nginputnya iyang bener bae", vbCritical, "asis10.com"
End Sub
Sub AjouterSurText(T As String)
If Len(TextBox1.Text) = TextBox1.SelStart Then
TextBox1 = TextBox1 & T
Else
TextBox1 = Left(TextBox1, TextBox1.SelStart) & T _
& Mid(TextBox1, TextBox1.SelStart + 1 + TextBox1.SelLength)
End If
TextBox1.SetFocus
End Sub

+ Buat Classmodul , nama Classmodul asis10

Public WithEvents GroupBoutons As MSForms.CommandButton
Private Sub GroupBoutons_Click()
Call asis10com.ControlClick(GroupBoutons.Tag)
End Sub

+ Simpan kemudian jalankan
+ Akan lebih bagus kalau kalklator ini dipanggil dengan opsi menu tambahan, silahkan lihat cara membuat menu tambahan pada sel dilink ini

Download - Kalkulator VBA

Demikianlah cara membuat kalkulaor excel semoga bermanfaat, follow IG kami atau Like fanpage Asis10.com
No comments