Calculator Sederhana Tanpa Mengklik TeksBox (MouseHover)

 




















 Private Sub Form1_Load
        cbxoperator.Items.Add("Tambah")
        cbxoperator.Items.Add("Kurang")
        cbxoperator.Items.Add("Kali")
        cbxoperator.Items.Add("Bagi")
        cbxoperator.Items.Add("Pangkat")
        cbxoperator.Items.Add("Modulus")
        cbxoperator.Items.Add("Divide")
    End Sub

    Private Sub txtblng1_MouseHover
        txtblng1.Text = InputBox("Inputkan Bilangan 1", "Ghifari")
        txtblng1.Enabled = False
        txtblng1.BackColor = Color.LightGray
    End Sub

    Private Sub txtblng2_MouseHover
        txtblng2.Text = InputBox("Inputkan Bilangan 2", "Ghifari")
        txtblng2.Enabled = False
        txtblng2.BackColor = Color.LightGray
    End Sub

    Private Sub cbxoperator_SelectedIndexChanged
        If cbxoperator.Text = "Tambah" Then
            lbltampil.Text = Val(txtblng1.Text) + Val(txtblng2.Text)
        ElseIf cbxoperator.Text = "Kurang" Then
            lbltampil.Text = txtblng1.Text - txtblng2.Text
        ElseIf cbxoperator.Text = "Kali" Then
            lbltampil.Text = txtblng1.Text * txtblng2.Text
        ElseIf cbxoperator.Text = "Bagi" Then
            lbltampil.Text = txtblng1.Text / txtblng2.Text
        ElseIf cbxoperator.Text = "Pangkat" Then
            lbltampil.Text = txtblng1.Text ^ txtblng2.Text
        ElseIf cbxoperator.Text = "Modulus" Then
            lbltampil.Text = txtblng1.Text Mod txtblng2.Text
        ElseIf cbxoperator.Text = "Divide" Then
            lbltampil.Text = txtblng1.Text \ txtblng2.Text
        End If
    End Sub

    Private Sub btncetak_Click
        If cbxoperator.SelectedItem = "Tambah" Then
            listcetak.Items.Add(txtblng1.Text & " + " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Kurang" Then
            listcetak.Items.Add(txtblng1.Text & " - " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Kali" Then
            listcetak.Items.Add(txtblng1.Text & " * " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Bagi" Then
            listcetak.Items.Add(txtblng1.Text & " / " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Pangkat" Then
            listcetak.Items.Add(txtblng1.Text & " ^ " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Modulus" Then
            listcetak.Items.Add(txtblng1.Text & " Mod " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Divide" Then
            listcetak.Items.Add(txtblng1.Text & " Div " & txtblng2.Text & " = " & lbltampil.Text)
        End If
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini