Cara Membuat Aplikasi Kalkulator Dengan Menggunakan Visual Basic 6.0

Membuat Aplikasi Kalkulator  Dengan Menggunakan Visual Basic 6.0

Masih dengan visual basic, di posting kali ini saya membahas cara membuat program aplikasi kalkulator dengan fungsi +, -, *, / dan ln saja karena postingan ini merupakan sharean dari PR yang dibebankan dosen kepada saya. Mari langsung kita bahas cara membuat aplikasi kalkulator sederhana ini.

1)   Buat desain kalkulator seperti gambar dibawah ini atau dengan desain anda sendiri,

Gambar 1. Desain Kalkulator

Gambar 2. Keterangan Desain

2)   Kemudian Copy paste listing program dibawah ini ;
Dim a As String
Dim i, X As Integer
Dim no1 As Double, cnt1 As Integer
Dim op As String, op1 As String

Private Sub cmdnumb_Click(Index As Integer)
  If txt1.Text = "0" Then
    txt1.Text = ""
    End If
    If X = 0 Then
    txt1.Text = ""
    X = X + 1
    End If
    txt1.Text = txt1.Text + cmdnumb(Index).Caption
    txt2.Text = txt2.Text + cmdnumb(Index).Caption
End Sub

Private Sub Form_Activate()
txt1.Visible = False
txt2.Visible = False
End Sub

Private Sub cmdon_Click(Index As Integer)
txt1.Visible = True
txt2.Visible = True
End Sub

Private Sub cmdoff_Click(Index As Integer)
txt1.Visible = False
txt2.Visible = False
End Sub

Private Sub cmdopr_Click(Index As Integer)
X = 0
    If cnt1 > 0 Then
        Select Case op
            Case "+"
                    ans = no1 + txt1.Text
                    txt1.Text = ans
                    no1 = txt1.Text
                    op = Cmdopr(Index).Caption
            Case "-"
                    ans = no1 - txt1.Text
                    txt1.Text = ans
                    no1 = txt1.Text
                    op = Cmdopr(Index).Caption
            Case "/"
                    ans = no1 / txt1.Text
                    txt1.Text = ans
                    no1 = txt1.Text
                    op = Cmdopr(Index).Caption
            Case "*"
                    ans = no1 * txt1.Text
                    txt1.Text = ans
                    no1 = txt1.Text
                    op = Cmdopr(Index).Caption
        End Select       
    Else
    no1 = Val(txt1.Text)
    op = Cmdopr(Index).Caption
    cnt1 = cnt1 + 1
    End If
txt2.Text = txt2.Text + Cmdopr(Index).Caption
End Sub

Private Sub cmdc_Click()
Select Case Index
    Case 0
        cnt1 = 0
        X = 0
        txt1.Text = ""
        txt2.Text = ""
        txt1.Visible = True
    Case 1
        txt2.Text = Mid(txt2.Text, 1, Len(txt2.Text) - 1)
    End Select
End Sub

Private Sub cmdent_Click()
cnt1 = 0
    Select Case op
        Case "+"
                ans = txt1.Text + no1
                If cnt = 0 Then
                  no1 = txt1.Text
                    cnt = cnt + 1
                End If
                txt1.Text = ans
        Case "-"
                If cnt > 0 Then
                  txt1.Text = no1
                  no1 = ans
                End If
                 ans = no1 - txt1.Text
                 no1 = txt1.Text
                 txt1.Text = ans
                cnt = cnt + 1
        Case "*"
                ans = no1 * txt1.Text
                If cnt = 0 Then
                  no1 = txt1.Text
                    cnt = cnt + 1
                End If
        txt1.Text = ans
        Case "/"
                If cnt > 0 Then
                  txt1.Text = no1
                  no1 = ans
                End If
                If txt1.Text = "0" Then
                i = MsgBox("Divide by zero error", vbExclamation + vbOKOnly, "ERROR")
                Else
                ans = no1 / txt1.Text
                 no1 = txt1.Text
                txt1.Text = ans
                cnt = cnt + 1
                End If
    End Select
txt1.Text = txt1.Text
txt1.Visible = True
End Sub

Private Sub cmdln_Click(Index As Integer)
   op = Cmdln(Index).Caption
   nos = Val(txt1.Text)
    Select Case op
         Case "ln"
                If nos = 0 Then
                i = MsgBox("Math error", vbExclamation + vbOKOnly, "ERROR")
                Else
                ans = Log(nos)
                End If
       End Select
txt2.Text = ans
End Sub

3)   Setetalah selesai anda desain dan listing programnya sudah di copy paste silahkan anda running dengan mengklik tombol running atau dengan menekan tombol key F5 sehingga hasilnya tampak seperti gambar di bawah ini ;
 
Gambar 2. Hasil Running Kalkulator

4) Untuk mengoperasikan aplikasi kalkulator tersebut klik terlebih dahulu tombol On,          kemudian gunakanlah kalkulator tersebut sesuai dengan kebutuhan anda.
Begitulah cara membuat aplikasi kalkulator, semoga bermanfaat.


Comments

Post a Comment

Popular posts from this blog

Analisis SWOT PT.TELKOM INDONESIA

Image
I.    Latar Belakang Telkom Idonesia PT. TELKOM, Tbk adalah Suatu Badan Milik Negara (BUMN) yang bergerak dalam bidang jasa Telekomunikasi. PT. TELKOM menyediakan sarana dan jasa layanan Telekomunikasi dan Informasi kepada masyarakat luas sampai kepelosok daerah di seluruh Indonesia. Sejarah PT. TELKOM di Indonesia pertama kali berawal dari sebuah badan usaha swasta penyediaan layanan pos dan telegrap yang didirikan kolonial Belanda pada tahun 1882. Pada tahun 1961 status jawatan diubah menjadi perusahaan Negara Pos dan Telekomunikasi. Kemudian pada tahun 1965 pemerintah memisahkannya menjadi perusahan Negara Pos dan Giro dan perusahaan Negara Telekomunikasi. Pada tahun 1974 Perusahaan Negara Telekomunikasi disesuaikan menjadi perusahaan Umum Telekomunikasi yang menyelenggarakan jasa Telekomunikasi Nasional dan Internasional. Pada tahun 1989 pemerintah Indonesia mengeluarkan UU No.3/ 1989 mengenai Telekomunikasi, yang isinya tentang peran swasta dalam penyelenggaraan Telekomunikasi.
Read more

Cara Mengatasi Tidak Bisa Main di RANKED Mobile Legends

Image
Bagi anda para pecinta games online khususnya game yang satu ini MOBA atau Mobile Legends pastinya banyak diantara anda yang mengalami hal yang sama dengan saya yaitu tidak bisa main di mode RANKED bukan? Nah hal ini terjadi dikarenakan SKOR KREDIT anda terlalu rendah (minus 90), sedangkan supaya bisa main dimode RANKED, skor kredit anda harus memenuhi nilai 90.  SKOR KREDIT rendah disebabkan karena perilaku anda yang AFK seperti bermain males-malesan sehingga dilaporin teman main anda sebagai afk atau keluar dari permainan yang mungkin karena anda membalas chat atau angkat telepon dari mantan :( dan yang paling seringnya adalah karena koneksi jaringan yang jele, biasanya dialami oleh anda sekalian yang tinggal dipinggiran kota dan anda yang berada di lokasi gedung-gedung tinggi. Cara melihat skor kredit, anda bisa klik "info akun" anda kemudian pilih tab "skor kredit". Contoh dibawah : Untuk mengatasi supaya skor kredit anda naik dan sampai 90
Read more

Cara Mudah Mengatasi Windows Explorer Yang Lambat

Image
Windows explorer yang super lambat ini saya alami 3 hari yang lalu padahal lagi sibuk-sibuknya ngerjain tugas kuliah, beghhh itu membuat saya sangat kesal dan rasanya pengen bakar laptop sendiri. Kata teman windows explorer lambat karena virus dan datanya terlalu banyak sehingga memori laptopnya lambat untuk menampilkan drivenya.  Saking kesalnya dan dengan gagahnya saya langsung ambil senjata (CD Windows 7) langsung saya instal itu laptop. Setelah melakukan instral ulang windows 7 ternyata masalahnya masih muncul, mungkin karena pada saat instal ulang yang saya format hanya drive C-nya. Setelah cari info dari internet kebanyakan ngasih solusi kayak gini : 1) Klik Start 2) Pilih Settings 3) Klik Control Panel 4) Klik Administrative Tools 5) Klik Services 6) Cari DCOM Server Process Launcher 7) Ubah di Startup Type menjadi Manual / Disable 8) Klik Ok 9) Restart Komputer 10) Jalankan Explorer jika sudah tidak lambat lagi maka berhasil. Dan ternyata setelah
Read more

MAKRAB (Malam Keakraban)

Image
Salam sejahtera buat para pengunjung yang sedang singgah untuk lebih mengenal tentang Malam Keakraban . Sesuai dengan topik tentang Malam Keakraban yg sering disebut dengan kata singkat MAKRAB. Makrab adalah sebuah cara yang dilakukan oleh organisasi mahasiswa seperti senat mahasiswa, yang bertujuan untuk menjalin keakraban antar mahasiswa (mahasiswa junior <> senior), menjalin silaturahmi antar mahasiswa dengan pihak kampus, dan untuk mempererat tali persaudaraan antara mahasiswa dengan alumni. Cerita sedikit cerita, makrab yang pernah saya alami didalamnya terdapat susunan acara mulai dari sharing session, game (outdoor/indoor), jurik malam, hingga puncak acara diakhiri dengan api unggun. Selain untuk pengenalan akan almamater kampus kepada mahasiswa baru, dalam makrab mahasiswa baru juga diajarkan tentang kerja team melalui game dan jurik malam. Makrab ini kami adakan diluar area kampus tepatnya di cisarua bogor, disebuah villa yang fasilitasnya mendukung untuk s
Read more

Cara Mudah Mengatasi Kamera Error Pada Samsung Grand Prime

Image
Sekilas spesifikasi  Samsung Grand Prime :   Memang sangat jengkel rasanya jikalau kamera Handphone tidak berfungsi/rusak seperti yang saya alami, jadinya tak bisa voice call lagi sama bebebzzz. :D :D :D Fungsi kamera Handphone sangat bervariasi sesuai kebutuhan para pemiliknya. Kadangkala kamera Handphone tak selamanya berfungsi sesuai yang kita harapkan, berikut notifikasi kesalahan pada kamera khususnya Samsung Grand Prime : Berikut cara mengatasi kesalahan/masalah tersebut, Cara Pertama : Pada menu Aplikasi > pilih Pengaturan > pilih Manager Aplikasi  Pada proses manager aplikasi sorot ke kiri hingga ketemu tab SEMUA Cari dan klik icon Camera Test pilih Paksa Berhenti dan Hapus Data dan Hapus Memori   Kemudian cari dan klik icon Kamera pilih Paksa Berhenti dan Hapus Data dan Hapus Memori Langkah akhir restart Handphone dan coba aktifkan kameranya. Coba cara 2 jikalau cara 1 belom berhasil. Cara Kedua : Ma
Read more