طراحي يك ماشين حساب ساده

طراحي يك  ماشين حساب ساده كه حداقل جمع،ضرب،تفريق،تقسيم، سينوس

 

 ، كسينوس ، تانژانت ،لكاريتم و كتانژات را براي ما انجام دهد .

 

براي اين كارمراحل زير را طي مي كنيم

 

1.       برنامه را باز كرده و يك New باز كرده و مانند شكل زير آن را طراحي

 

مي كنيم .و نام آنها را مثل شكل تغير مي دهيم .

 

  2.     وقتي كه شكل را رسم كرديم و نام انها را تغير داديم بر روي انها كليك

 

كرده تا پنجره كد باز شودو كد ها زير را هر كدام در قسمت خود آن ،آن را

 

وارد مي كنيم. 

 

براي شماره 1 : Text1.Text = Text1.Text + "1"

 

براي شماره 2:  Text1.Text = Text1.Text + "2"

 

براي شماره 3: " Text1.Text = Text1.Text + "3

 

براي شماره 4: Text1.Text = Text1.Text + "4"

 

براي شماره 5: Text1.Text = Text1.Text + "5"

 

براي شماره 6: Text1.Text = Text1.Text + "6"

 

براي شماره 7: Text1.Text = Text1.Text + "7"

 

براي شماره 8: Text1.Text = Text1.Text + "8"

 

براي شماره 9: Text1.Text = Text1.Text + "9"

 

براي شماره 0:  "Text1.Text = Text1.Text + "0

 

3. در قسمت General كد هاي زير را وارد كنيد :

Dim a As Currency

Dim mem1 As Long

Dim e As String

 

4.     دكمه "+" را مضاف نموده و كدهاي زير را تايپ كنيد :

"+"=E

a = Val(Text1.Text)

Text1.SetFocus

 

5.     دكمه "-" را مضاف نموده و كدهاي زير را تايپ كنيد :

"-"= e

a = Val(Text1.Text)

""= Text1.Text

Text1.SetFocus

 

6.     دكمه "*" را مضاف نموده و كدهاي زير را تايپ كنيد :

"*"= E

a = Val(Text1.Text)

""=  Text1.Text

Text1.SetFocus

 

7.    دكمه "/" را مضاف نموده و كدهاي زير را تايپ كنيد :

"/"=  E

a = Val(Text1.Text)

Text1.Text = ""

Text1.SetFocus

 

8. دكمه "C" را مضاف نموده و كد زير را تايپ كنيد :

""=  Text1.Text

 

9.     دكمه "= "را مضاف نموده و كد زير را تايپ كنيد :

 

If E = "+" Then Text1.Text = a + Val(Text1.Text)

If E = "-" Then Text1.Text = a - Val(Text1.Text)

If E = "*" Then Text1.Text = a * Val(Text1.Text)

If E = "/" Then Text1.Text = a / Val(Text1.Text)

 

 

 

۱0. دكمه Sin را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Sin(Text1.Text)

 

11. دكمه Cos را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Cos(Text1.Text)

 

12. دكمه Tan را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Tan(Text1.Text)

 

13. دكمه Cot را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = cot(Text1.Text)

 

14. دكمه Log را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Log(Text1.Text)

 

15. دكمه Exit را مضاف نموده و كد زير را تايپ كنيد :

 End

 

۱۶. برنامه را با كليد F5 اجرا كرده و از صحت ان برخوردار شويد .