Sunday, August 27, 2017

Cara membuat program kalkulator sederhana di Visual Basic 2010

1. Pilih menu project, kemudian klik Add Windows Form...
2. Kemudian rancanglah tampilan form seperti yang ada pada gambar di bawah ini. Gunakan toolbox sesuai       dengan obyek kontrol yang ingin dibuat.
3. Bila telah selesai nantinya, rename form ini dengan nama Kalkulator.frm. Tidak perlu membuat new               project cukup gunakan project terdahulu untuk semua form latihan, agar semua form terkumpul menjadi         satu project.
4. Untuk menjalankan aplikasi program kalkulator ini, diperlukan pengaturan Start up program menjadi             Kalkulator.frm. Arahkan kursor ke Solution explorer, pilih Project dan klik dua kali hingga muncul jendela     baru. Kemudian gantilah Resorce Start up form : Kalkulator.



Berikut ini adalah contoh penggunaan dari radio button untuk program aplikasi kalkulator sederhana


Kode program yang ditulis di View Code
Public Class Kalkulator
Private Sub BtnHitung_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles BtnHitung.Click
Dim Bil1 As Integer
Dim Bil2 As Integer
Dim msg As String
Dim judul As String
Dim style As String
Bil1 = Val(TxtBoxBilangan1.Text)
Bil2 = Val(TxtBoxBilangan2.Text)
judul = "Hasilnya adalah = "
style = vbOKOnly
If RadioTambah.Checked = True Then
    LblHasil.Text = Bil1 + Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
If RadioKurang.Checked = True Then
    LblHasil.Text = Bil1 - Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
If RadioKali.Checked = TrueThen
    LblHasil.Text = Bil1 * Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
If RadioBagiPecahan.Checked = TrueThen
    LblHasil.Text = Bil1 / Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
If RadioBagiInteger.Checked = TrueThen
    LblHasil.Text = Bil1 \ Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
If RadioPangkat.Checked = TrueThen
    LblHasil.Text = Bil1 ^ Bil2
    msg = LblHasil.Text
    MsgBox(msg, style, judul)
EndIf
EndSub
PrivateSub BtnKeluar_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
EndSub
EndClass

0 comments

Post a Comment