Membuat Kalkulator sederhana dengan VB.net (VB 2010)

Posted: April 19, 2012 in Software & Otomotif

Sahabat-sahabat yang sudah punya aplikasi visual basic 2010 atau juga disebut VB.net tetapi tidak paham bagaimana cara penggunaannya, saya akan memperjelasnya. Sebenarnya visual Basic 2010 memiliki konsep yang sama dengan visual basic 2006 (VB 6). Visual Basic adalah sebuah program yang berguna untuk mengembangkan suatu program (debugging). Nah langsung saja ke dalam Prosesnya, Anda harus teliti dalam bekerja, jangan mudah putus asa dan terus semangat.

Bahan – Bahan:

-Visual Basic 2010 Express

-Kesabaran dan Ketelitian

Component yang dibutuhkan pada Visual Basic adalah..:

– 4 buah Label

– 3 buah Group Box

-10 Buah Button

Langkah langkah:

Disain.lah form seperti pada gambar dibawah :

Setelah itu, masukkan kode berikut (Tekan F7 Untuk masuk ke dalam coding, atau dobel klik pada objek yang dimaksud)

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

Button10.Enabled = False

TextBox1.Enabled = False

TextBox2.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Label4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Label4.Text = Val(TextBox1.Text) – Val(TextBox2.Text)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Label4.Text = “”

TextBox1.Text = “”

TextBox2.Text = “”

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Label4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Label4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Label4.Text = Val(TextBox1.Text) ^ 2

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Label4.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Button10.Enabled = True

TextBox1.Enabled = True

TextBox2.Enabled = True

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Label4.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)

End Sub

End Class

Jangan Lupa juga mengatur maxlength menjadi 12 digit.,

Kalau anda tidak mau bersusah paya membuatnya, anda bisa mendownload project.nya disini

Pass : soptechindonesia.wordpress.com

Semoga sahabat-sahabat bisa mengembangkannya sendiri menjadi yang lebih baik, saya hanya ingin membantu saja..
Pass : soptechindonesia.wordpress.com

Semoga bermanfaat ya..

kritik dan sarannya ya….

Terimakasih

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s