Here's what i have so far.
How would i go about making buttons like, 1, 2, 3, type buttons? It's kind of confusing for me.Code:Private Sub Add_Click() TextBox3.Text = Val(Value1Text.Text) + Val(TextBox2.Text) MSD.Text = "+" End Sub Private Sub Clear_Click() TextBox3.Text = 2 TextBox2.Text = 1 Value1Text.Text = 1 MSD.Text = "" End Sub Private Sub Divide_Click() TextBox3.Text = Val(Value1Text.Text) / Val(TextBox2.Text) MSD.Text = "/" End Sub Private Sub Exxit_Click() Unload Me MsgBox "You Have exited out of Calculator" End Sub Private Sub Multiply_Click() TextBox3.Text = Val(Value1Text.Text) * Val(TextBox2.Text) MSD.Text = "*" End Sub Private Sub Square_Click() TextBox3.Text = Val(Value1Text.Text) ^ Val(TextBox2.Text) MSD.Text = "^" End Sub Private Sub Subtract_Click() TextBox3.Text = Val(Value1Text.Text) - Val(TextBox2.Text) MSD.Text = "-" End Sub
And if it helps i'm trying to make a calculator and i started 2 days ago.




Reply With Quote