Postingan

Menampilkan postingan dari Agustus, 2012

Source Code Program Kalkulator Pada Visual Basic 6.0

Kali ini Ahma mau berbagi source code kalkulator sederhana dengan menggunakan Visual Basic atau lebeih keren di singkat VB. Source codenya sederhana bangett nich, kalau ada yang error atau nggak bisa jalan tolong ya di revisi sendiri. Atau kalau temen-temen ada hasil yang lain bolehlah di bagi di sini dengan meninggalkan komentar di bawah... Option Explicit Private Hasil As Double Private Const opNol = 0 Private Const opTambah = 1 Private Const opKurang = 2 Private Const opkali = 3 Private Const opBagi = 4 Private Operator As Integer Private NilaiBaru As Boolean //untuk menghapus karakter terakhir Private Sub Hapus() Dim txt As String Dim min_len As Interger txt = txtdisplay.Text If Left$(txt, 1) = "-" Then min_len = 2 Else min_len = 1 End If If Len(txt) > min_len Then txtdisplay.Text = Left$(txt, Len(txt) - 1) Else txtdisplay.Text = "0" End Sub Private Sub cmdaAngka_Click(Index As Integer) End Sub //hapus angka, hasil terakhir