cara mudah dan simpel membuat kalkulator dengan VB
Assalamualaikum Wr.Wb dan Selamat Malam Para Blogger
kali ini saya akan memposting bagaimana cara pembuatan kalkulator sederhana dengan menggunakan bahsa pemograman yaitu VB6,
kebetulan ini adalah tugas pertama saya sewaktu di semster 2,
oke langsung saja tahap pembuatan kalkulator sederhana dengan menggunakan VB
1.siapkan kupi+roko untuk cemilan kita memulai ngoding :D
2. stel music iwak peyek untuk menghilangkan jenuh,sambil menambah refresing:D
3.buka program VB6 anda,lalu masukan code ini
Dim angka(1 To 2) As Single
Dim operator As String
Private Sub cmdangka_Click(index As Integer)
txt1.Text = txt1.Text & cmdangka(index).Caption
End Sub
Private Sub cmdclear_Click()
txt1.Text = ""
End Sub
Private Sub cmdhitung_Click()
Dim hasil As Single
If txt1.Text = "" Then Exit Sub
angka(2) = CSng(txt1.Text)
Select Case operator
Case "+"
hasil = angka(1) + angka(2)
txt1.Text = hasil
Case "-"
hasil = angka(1) - angka(2)
txt1.Text = hasil
Case "*"
hasil = angka(1) * angka(2)
txt1.Text = hasil
Case "/"
If angka(2) = 0 Then
MsgBox "angka tidak bisa dibagi nol"
txt1.Text = ""
Exit Sub
Else
hasil = angka(1) / angka(2)
txt1.Text = hasil
End If
End Select
End Sub
Private Sub cmdoperator_Click(index As Integer)
If txt1.Text = "" Then Exit Sub
angka(1) = CSng(txt1.Text)
operator = cmdoperator(index).Caption
txt1.Text = ""
End Sub
4.untuk lebih lengkapnya anda dapat mendownload disini
5.tampilan untuk vb dapat anda ganti sesuai dengan kriteria anda,seperti contoh pada gambar di atas
6.ok sekian tutorial mengenai pembuatan kalkulator sederahana
Title : Tutorial cara simpel membuat kalkulator dengan VB
Description : cara mudah dan simpel membuat kalkulator dengan VB Assalamualaikum Wr.Wb dan Selamat Malam Para Blogger kali ini saya akan mempost...