.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Contoh Program Kalkulator Sederhana dengan Visual Basic 6.0

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Kalkulator merupakan alat untuk menghitung bilangan angka biasanya di gunakan di sekolahan, kantor, instansi dan lain-lain yang berfungsi mulai dari perkalian, pengurangan, pembagian, persen dan banyak lagi kegunaan kalkulator ini

Untuk tutorial sekarang kami mengambil hasil contoh belajar member dari Group Belajar Visual Basic 6, yaitu tentang Cara membuat  Kalkulator sederhana dengan Visual Basic, Kalkulator ini hanya menghitung perkalian, pengurangan, pembagian, pertambahan jadi  cukup sederhana untuk belajar mengenal logika dan mengembangan logika IF/then. Logika If/then ini merupakan logika untuk memperkirakan hal yang akan terjadi menurut pemahaman sederhana saya.

Untuk lebih jelasnya mari kita langsung ke materi Cara Membuat Kalkulator Sederhana dengan Visual Basic.
1. Buatlah sebuah form dengan Referensi desain form seperti di bawah ini, untuk tampilan desain pada visual basic bisa di sesuaikan dengan selera.



2. Buatlah 18 Command button untuk angka 1 sampai 10, 1 buah text box untuk memasukan angka dan tambahan lain seperti  gambar desain form di atas.

3. Masukan kode program tersebut pada visual basic sesuai dengan pengaturan properti yang sudah di atur

Dim inAngka(0 To 1), Opr

Private Sub cmdAngka_Click(Index As Integer)
    txtHasil.Text = txtHasil.Text + cmdAngka(Index).Caption
End Sub

Private Sub cmdClear_Click()
    txtHasil.Text = ""
End Sub

Private Sub cmdKoma_Click()
    If txtHasil.Text <> "" Then
        txtHasil.Text = txtHasil.Text + ","
    End If
End Sub

Private Sub cmdOpr_Click(Index As Integer)
    If txtHasil.Text <> "" Then
    inAngka(0) = CSng(txtHasil.Text)
    Opr = cmdOpr(Index).Caption
    txtHasil.Text = ""
    Else
        psn = MsgBox("Masukkan Angka Terlebih Dahulu!", vbCritical, "Warning!")
    End If
End Sub

Private Sub cmdPlusMin_Click()
    txtHasil.Text = txtHasil.Text * (-1)
End Sub

Private Sub cmdProses_Click()
        inAngka(1) = CSng(txtHasil.Text)
    
        Select Case Opr
            Case "*"
                total = inAngka(0) * inAngka(1)
            Case "/"
                total = inAngka(0) / inAngka(1)
            Case "+"
                total = inAngka(0) + inAngka(1)
            Case "-"
                total = inAngka(0) - inAngka(1)
        End Select
    
        txtHasil.Text = total
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Contoh Program Kalkulator Sederhana dengan Visual Basic 6.0, Diterbitkan oleh scodeaplikasi pada Kamis, 12 Desember 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to