Tip Of the week

continue............

Ø   Double clicking on the Button "Square”

                                                Private sub Command 16-Click ()

                                     a= Text 1. Text

                                     Text1.Text =”*”

                                     C=a*a

                                     Text1.Text = c

                                                End Sub

         Ø   Double clicking on the Button "Factorial”

                                                Private sub Command 17-Click ()

                                     a= Text 1. Text

                                     Text1.Text =”i”

                                     e = 1

                                     for i = s to step-1

                                      e = e*i

                                     Text1.Text = e

                                                End Sub

       Ø   Double clicking on the Button "Clear”

                                               Private sub Command 18-Click ()

                                     Text1.Text ( )

                                     End Sub

       Ø   Double clicking on the Button "=”

                                                Private sub Command 19-Click ()

                                     b = Text1.Text

                                     Select case d%

                                     Case 1: c= a + b

                                     Text1.Text = c

                                     Case 2: c = a - b

                                     Text1.Text=c

                                     Case 3: c= a * b

                                     Text1.Text = c

                                     Case 4: c= a / b

                                     Text1.Text = c

                                     End Select

                                                End Sub

      End Project...... i ll meet another project