code pemograman kalkulator pakai combobox (visual basic 2010)

nih gan code pemograman buat kalkulator combobox!
oh ya, saya kali ini cuma ngasih kode nya aja yg baru di ajarkan.

Public Class kalkulator

Dim angka1 As Integer

    Dim angka2 As Integer

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

End Sub

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

        angka1 = Val(TextBox1.Text)

        angka2 = Val(TextBox2.Text)

        If TextBox1.Text = "" And TextBox2.Text = "" Then

            Label1.Text = "mohon masukkan angka"

        ElseIf ComboBox1.Text = "" Then

            Label1.Text = "masukkan jenis hitung"

        ElseIf TextBox1.Text = "" Then

            Label1.Text = "masukkan angka pertama"

        ElseIf TextBox2.Text = "" Then

            Label1.Text = "masukkan angka kedua"

        ElseIf ComboBox1.Text = "+" Then

            Label1.Text = angka1 + angka2

        ElseIf ComboBox1.Text = "-" Then

            Label1.Text = angka1 - angka2

        ElseIf ComboBox1.Text = "x" Then

            Label1.Text = angka1 * angka2

        ElseIf ComboBox1.Text = "/" Then

            Label1.Text = angka1 / angka2

        End

 End Sub

• Tweet
• Share
• Share
• Share
• Share

About Yunul Fikri

Terima Kasih Atas Kunjungannya, maaf kadang Postingannya Berbahasa Asing karna sambil belajar bahasa asing juga

Related Post