Selamat pagi semua.........
Di pagi yang cerah ini saya akan memposting tentang cara membuat kalkulator sederhana dengan VB 2008. Nah langsung saja kita praktekkan guys.....
Kalkukato Sederhana
Desain formnya seperti gambar di bawah ini!
Di pagi yang cerah ini saya akan memposting tentang cara membuat kalkulator sederhana dengan VB 2008. Nah langsung saja kita praktekkan guys.....
Kalkukato Sederhana
Desain formnya seperti gambar di bawah ini!
Setelah selesai silahkan masukkan koding di bawah ini.
Public Class Form1
Private Sub BtnTambah_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnTambah.Click
Hasil.Text =
Val(BilanganA.Text) + Val(BIlanganB.Text)
End Sub
Private Sub btnKurang_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles btnKurang.Click
Hasil.Text =
BilanganA.Text - BIlanganB.Text
End Sub
Private Sub btnKali_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnKali.Click
Hasil.Text =
BilanganA.Text * BIlanganB.Text
End Sub
Private Sub btnBagi_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnBagi.Click
Hasil.Text =
Val(BilanganA.Text) / Val(BIlanganB.Text)
End Sub
Private Sub BtnC_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
Close( )
End Sub
Private Sub BtnHapus_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnHapus.Click
BilanganA.Text =
""
BIlanganB.Text =
""
Hasil.Text = ""
End Sub
End Class
Setelah selesai coba anda jalankan programnya. Bagaimana berhasil kan?
Nah itu sedikit ilmu di pagi ini semoga bermanfaat.
Good luck....
0 Response to "Kalkulor Sederhana dengan VB 2008"
Post a Comment