Alat Hitung Sederhana Menggunakan Visual Basic

Hi guyss kali ini saya mau menunjukkan cara membuat alat hitung sederhana menggunakan Visual Basic / VB. Yuk langsung aja..

Pertama buka aplikasi Visual Basic, Kemudian ke File > New Project, kemudian buat nama file

Jika sudah, buat desain pada form, yang dibutuhkan hanya Label, TextBox dan Button, lalu mulailah desain

>> Kemudian mulailah untuk memasukkan codingan, yang pertama untuk Buton1 atau tombol Hitung

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Integer
        Dim B As Integer
        Dim C As Integer

        A = TextBox1.Text
        B = TextBox2.Text

        C = A + B
        TextBox3.Text = C

        C = A - B
        TextBox4.Text = C

        C = A * B
        TextBox5.Text = C

        C = A / B
        TextBox6.Text = C

        C = A \ B
        TextBox7.Text = C

        C = A ^ B
        TextBox8.Text = C

        C = A Mod B
        TextBox9.Text = C
    End Sub

>> Kemudian untuk tombol Clear atau Membersihkan :

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""

    End Sub

>> Dan yang terakhir pada tombol Exit atau Keluar

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

End Class

Lalu mulailah Run atau jalankan program, jika sudah tidak ada error maka program dapat dijalankan, seperti berikut:

 

Jika diekan tombol Clear maka semua text akan kembali kesemula, dan kursor akan muncul pada TextBox1

Sangat sederhana dan mudah untuk pembelajaran bagi pemula, Kalian dapat memodifikasi desain atau menambahkan rumus hitung yang kalian inginkan. Selamat mencoba :)

Semoga Bermanfaat

Mohon maaf bila terdapat kesalahan , Terimakasih

Wasallam