†`Li†o`† Admin
Posts : 80 Points : 168 Reputation : 9 Birthday : 1995-11-16 Join date : 2011-08-31 Age : 28 Location : Mayapa Calamba Laguna Job/hobbies : Playing Computer Games.
| Subject: My MiniCalCulator Activity 2 in COS6 Tue Dec 06, 2011 9:32 am | |
| My Art Work in Visual Basic 6 Share ko lng - Quote :
Private Sub cmdAdd_Click() Dim num1, num2, sum As Double
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
sum = num1 + num2
lblDis.Caption = "S U M :" lblAns.Caption = sum
End Sub
Private Sub cmdClear_Click() txtnum1.Text = "" txtnum2.Text = "" lblAns.Caption = "" lblDis.Caption = "" End Sub
Private Sub cmdDiv_Click() Dim num1, num2, quotient As Double
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
quotient = num1 / num2
lblDis.Caption = "QUOTIENT:" lblAns.Caption = quotient End Sub
Private Sub cmdExp_Click() Dim num1, num2, exp As Double
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
exp = num1 ^ num2
lblDis.Caption = "E X P:" lblAns.Caption = exp End Sub
Private Sub cmdMod_Click() Dim num1, num2, mod1 As Double
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
mod1 = num1 Mod num2
lblDis.Caption = "M O D:" lblAns.Caption = mod1 End Sub
Private Sub cmdMul_Click() Dim num1, num2, product As Double
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
product = num1 * num2
lblDis.Caption = "PRODUCT:" lblAns.Caption = product End Sub
Private Sub cmdSub_Click() Dim num1, num2, difference As Integer
num1 = Val(txtnum1.Text) num2 = Val(txtnum2.Text)
difference = num1 - num2
lblDis.Caption = "DIFFERENCE:" lblAns.Caption = difference End Sub
copy then paste | |
|