VBSlip 20_2_2015-16



=================================Slip20_2===================================
Design a calculator in VB, Which has Two extra command buttons to check factorial of given number and to check whether entered number is even or odd.
==========================================================================
 


Dim no1 As Integer
Dim no2 As Integer
Dim op As Integer


Private Sub Command1_Click()
                Text1.Text = Text1.Text & 1
End Sub

Private Sub Command10_Click()
                Text1.Text = Text1.Text & 9
End Sub

Private Sub Command11_Click()
                no1 = Val(Text1.Text)
                Text1.Text = "0"
                op = 4
End Sub

Private Sub Command12_Click()
                no1 = Val(Text1.Text)
                Text1.Text = "0"
                op = 5
End Sub

Private Sub Command13_Click()
                no1 = Val(Text1.Text)
                If no1 Mod 2 = 0 Then
                                Text1.Text = "Even"
                Else
                                Text1.Text = "Odd"
                End If
               
               
End Sub

Private Sub Command14_Click()
                Text1.Text = Text1.Text & .
End Sub

Private Sub Command15_Click()
                no2 = Val(Text1.Text)
                If op = 1 Then
                                Text1.Text = no1 + no2
                ElseIf op = 2 Then
                                Text1.Text = no1 - no2
                ElseIf op = 3 Then
                                Text1.Text = no1 * no2
                ElseIf op = 4 Then
                                Text1.Text = no1 / no2
                ElseIf op = 5 Then
                                Text1.Text = no1 Mod no2
                End If
               
End Sub

Private Sub Command16_Click()
                Dim f As Integer
                f = 1
                no1 = Val(Text1.Text)
                While no1
                                f = f * no1
                                no1 = no1 - 1
                Wend
                Text1.Text = f
               
End Sub

Private Sub Command17_Click()
                no1 = Val(Text1.Text)
                Text1.Text = "0"
                op = 1
End Sub

Private Sub Command18_Click()
                no1 = Val(Text1.Text)
                Text1.Text = "0"
                op = 2
End Sub

Private Sub Command19_Click()
                no1 = Val(Text1.Text)
                Text1.Text = "0"
                op = 3
End Sub

Private Sub Command2_Click()
                Text1.Text = Text1.Text & 2
End Sub

Private Sub Command20_Click()
                Text1.Text = "0"
End Sub

Private Sub Command3_Click()
                Text1.Text = Text1.Text & 3
End Sub

Private Sub Command4_Click()
                Text1.Text = Text1.Text & 4
               
End Sub

Private Sub Command5_Click()
                Text1.Text = Text1.Text & 6
End Sub

Private Sub Command6_Click()
                Text1.Text = Text1.Text & 5
End Sub

Private Sub Command7_Click()
                Text1.Text = Text1.Text & 8
End Sub

Private Sub Command8_Click()
                Text1.Text = Text1.Text & 7
End Sub

Private Sub Command9_Click()
                Text1.Text = Text1.Text & 0
End Sub
 

No comments:

Post a Comment

Note: only a member of this blog may post a comment.