ok... ini adalah project iseng-iseng... hehe...
tapi siapa tau ini juga bisa membantu...
kali ini gw ngebuat kalkulator sederhana atau bisa dibilang sangat sederhana,,
dengan menggunakan VB2005 Express Edition (.Net) memang sih masih banyak banget kesalahan...
tapi lumayanlah... hehe...
udah gak usah banyak intro...
ini nih penampakannya... and whaaalaaa...
dan di bawah ini adalah penampakan listing programnya :
''=================================================================
Dim hasil As Integer
Dim tambah As Boolean = False
Dim kurang As Boolean = False
Dim kali As Boolean = False
Dim bagi As Boolean = False
Dim a As Integer
private Sub hallo(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btn1.Click, btn2.Click, btn3.Click, btn6.Click, btn5.Click, btn4.Click, btn9.Click, btn8.Click, btn7.Click, btn0.Click
If TextBox1.Text = "0" Then
TextBox1.Clear()
End If
If TextBox1.Text = "+" Then TextBox1.Clear()
If TextBox1.Text = "-" Then TextBox1.Clear()
If TextBox1.Text = "*" Then TextBox1.Clear()
If TextBox1.Text = "/" Then TextBox1.Clear()
TextBox1.Text = TextBox1.Text + sender.text
txtsimpen1.Text = TextBox1.Text
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
TextBox1.Text = "0"
balikin()
End Sub
Private Sub btnBackspace_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackspace.Click
Dim st As String = TextBox1.Text
If TextBox1.Text = (st.Length = 1) Or TextBox1.Text = (st.Length = 0) Then
TextBox1.Text = "0"
Else
TextBox1.Text = st.Remove((st.Length - 1), 1)
End If
End Sub
Private Sub btnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKali.Click
manipulasi(sender, e)
kali = True
proses()
End Sub
Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click
proses()
TextBox1.Text = hasil
balikin()
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
manipulasi(sender, e)
tambah = True
proses()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsimpen1.TextChanged
End Sub
Private Sub btnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBagi.Click
manipulasi(sender, e)
bagi = True
proses()
End Sub
Private Sub btnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKurang.Click
manipulasi(sender, e)
kurang = True
proses()
End Sub
Sub proses()
If tambah = True Then hasil = Val(txtsimpen2.Text) + Val(txtsimpen1.Text)
If kurang = True Then hasil = Val(txtsimpen2.Text) - Val(txtsimpen1.Text)
If kali = True Then
If Not txtsimpen2.Text = "0" And Not txtsimpen1.Text = "0" Then
hasil = Val(txtsimpen2.Text) * Val(txtsimpen1.Text)
End If
If txtsimpen1.Text = "0" Then
hasil = 0
End If
End If
If bagi = True Then
If Not txtsimpen2.Text = "0" And Not txtsimpen1.Text = "0" Then
hasil = Val(txtsimpen2.Text) / Val(txtsimpen1.Text)
End If
End If
End Sub
Sub balikin()
txtsimpen1.Text = "0"
txtsimpen2.Text = "0"
tambah = False
kurang = False
kali = False
bagi = False
End Sub
Sub manipulasi(ByVal sender As System.Object, ByVal e As System.EventArgs)
txtsimpen1.Text = TextBox1.Text
If TextBox1.Text = "+" Then TextBox1.Clear()
If TextBox1.Text = "-" Then TextBox1.Clear()
If TextBox1.Text = "*" Then TextBox1.Clear()
If TextBox1.Text = "/" Then TextBox1.Clear()
txtsimpen2.Text = txtsimpen1.Text
TextBox1.Clear()
hallo(sender, e)
txtsimpen1.Text = "0"
End Sub
End Class
''====================================================================
Gimana gan..?? puas..? haha...
pelan-pelan ya bacanya supaya gak keselek... hehe...
oiya,, yg harus diketahui,, sebenernya gw menggunakan 3buah 'textbox' yang pertama untuk menampilkan hasil (yg keliatan gede di gambar) nah yg 2nya lagi gw bikin Goib (visible=false), fungsi dari yang 2 ini untuk menyimpan sementara nilai-nilai yg ingin diproses yg selanjutnya setelah diproses(tambah, kurang, kali, bagi) baru hasilnya ditampilkan di Textbox yang pertama...
kekurangan pada program yg gw buat adalah:
1. setiap operasi (tambah, kurang, bagi, kali) harus diakhiri dengan ' = '
2. angka yg bisa digunakan di program gw ini cuma sepanjang type data Integer,, jadi gak bisa lebih...
udah ah... capek... caww dulu ya sobb...
