Postingan kali ini tentang membuat kalkulator sederhana menggunakan VB6,Guna memenuhi tugas saat kuliah pemrograman 1.Berikut kita liat priviewnya :
Berikut apasaja objek dan propertiesnya :
Berikut apasaja objek dan propertiesnya :
Dan berikut ini source codenya :
Dim inAngka(0 To 1), Opr
Private Sub cbAngka_Click(Index As Integer)
txthasil.Text = txthasil.Text + cbAngka(Index).Caption
End Sub
Private Sub cbClear_Click()
txthasil.Text = ""
End Sub
Private Sub cbKoma_Click()
If txthasil.Text <> "" Then
txthasil.Text = txthasil.Text + ","
End If
End Sub
Private Sub cbOpr_Click(Index As Integer)
If txthasil.Text <> "" Then
inAngka(0) = CSng(txthasil.Text)
Opr = cbOpr(Index).Caption
txthasil.Text = ""
Else
psn = MsgBox("Masukkan Angka Terlebih Dahulu!", vbCritical, "Warning!")
End If
End Sub
Private Sub cbPlusMinus_Click()
txthasil.Text = txthasil.Text * (-1)
End Sub
Private Sub cbProses_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
Sekian postingan kali ini,apabila ada salah penulisan saya mohon maaf,..^_^
