PROGRAM KALKULATOR

Bentuk program yang saya buat yaitu:  “Program Kalkulator”

Langkah pertama

1.      membuat  Frorm program seperti gambar di bawah ini. Tambahkan judul dan label,teks box yang dibutuhkan.  Susun desain utama untuk memudahkan memasukan rumus atau kode pada button. Seperti gambar di bawah:

 

       

2.      Tambahkan  11 comamand button untuk tombol penjumlahan, pengurangan, cos, pembagian, perkalian, sin, pangkat, log,tan. Dan reset untuk menghapus bilangan, close untuk keluar dari program tampak seperti gambar di atas:

3.      Kemudian masukan coding yang akan di gunakan untuk program penghitungan:

·        Coding Penjumlahan.

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

Txthasil.Text = CSng(Txt1.Text) + CSng(Txt2.Text)

End Sub

Coding perkalian.

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

Txthasil.Text = CSng(Txt1.Text) * CSng(Txt2.Text)

End Sub

·        Coding pengurangan

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

Txthasil.Text = CSng(Txt1.Text) - CSng(Txt2.Text)

·        Coding pembagian.

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

Txthasil.Text = CSng(Txt1.Text) / CSng(Txt2.Text)

End Sub

·        Coding SIN

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

Txthasil.Text = Math.Sin(CSng(Txt1.Text) * 3.1416 / 180)

End Sub

·        Coding COS

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

Txthasil.Text = Math.Cos(CSng(Txt1.Text) * 3.1416 / 180)

End Sub

·        Coding perpangkatan

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

Txthasil.Text = CSng(Txt1.Text) ^ CSng(Txt2.Text)

End Sub

·        Coding Log

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

Txthasil.Text = Math.Log(CSng(Txt1.Text))

End Sub

·        Coding  TAN

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

Txthasil.Text = Math.Tan(CSng(Txt1.Text) * 3.1416 / 180)

End Sub

·        Coding untuk menghapus  bilangan 1, bilangan 2, hasil.

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

Txt1.Clear()

Txt2.Clear()

Txthasil.Clear()

End Sub

·        Coding close.

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

If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2,

"Keluar") = vbYes Then

Me.Close()

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

4.   Setelah selesai memasukan koding  pindahkan ke form disign dan masukan gambar background sesuai keinginan anda. Seperti pada gambar di bawah ini :

5.   Lalu di RUN, kita isi bilanagan satu dan bilangan 2,dan kita tekan tombol yang di butuhkan. Dan tampak pada gambar di bawah ini:

·         Untuk menghapus bilangan klik tombol RESET.

·         Jika ingin keluar klik tombol CLOSE untuk menutup program. Seperti gambar di bawah ini:

Ini lah hasil program sederhana yang saya buat semoga bermanfaat. Terima kasih :D