Searching...
Thursday 21 August 2014

Membuat Kalkulator Di Visual Basic 2012

Kali ini saya akan berbagi bagaimana cara membuat sendiri aplikasi Kalkulator sederhana dengan menggunakan visual basic 2012.

 langkah  Pertama buka Visual Basic 2012 di komputer anda.

Lalu Pilih New Project.
Setelah itu akan muncul gambar seperti di bawah ini.

Setelah itu beri nama sesuai keinginan anda dan jangan lupa taruh file project di tempat yang anda inginkan,
Lalu klik oke dan gambar nya akan muncul seperti di bawah ini.

Setelah itu untuk menambahkan tombol - tombol operasi, memberi nama tombol, dan juga tombol inputan, kita dapat menambahkan textbox untuk kotak memasukan angka pada kalkulator dan menggunakan radiobutton untuk tombol - tombol pengoperasian pada kalkulator dan juga memberi nama pada masing-masing tombo dengan label. Textbox, label, dan radiobutton di atur sedemikian rupa sehingga dapat terlihat seperti gambar di bawah ini.
Apabila form sudah di buat seperti pada gambar di atas, di lanjutkan dengan memasukan beberapa kode agar kalkulator dapat di gunakan. Kode pada pembuatan kalkulator tersebut adalah :

Public Class Form1

    Private Sub rbtambah_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub rbkurang_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub rbbagi_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub rbkali_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub
End Class


Setelah semua kode di masukan, kita dapat menggunakan kalkulator dengan cara running (tekan F5) pada visual basic anda.

0 komentar:

Post a Comment