Belajar Visual Basic Bahasa Indonesia

Belajar Visual Basic Bahasa Indonesia

Kalkulator Sederhana dengan Visual Basic 6

Posted: 12 Dec 2013 11:10 AM PST

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

Komentar

Posting Komentar

Postingan Populer