ماشین حساب
من سعی می کنم بیشتر برنامه نویسی را کاربردی توضیح دهم ،من خودم 2 ساله که با ویژوال برنامه می نویسم و برنامه هایی که اینجا توضیح می دهم و حل می کنیمرا خودم می نویسم.
امروز سعی دارم که برنامه ماشین حساب را باهم مرور کنیم.
روش کار :
ما نیاز به دو متغییر( برای ریختن عدد اول و عدد دوم در متغییرها ) و یک نشانه برای عملیات ها.
Private Number1, Number2 as Integer
Private Flag as String
حالا ما به 16 عدد Command Button ونیز یک عدد Textbox داریم.
برا هریک از دکمههای عددی (از 0 تا 9 ) اینطوری کد می نوییسیم.
Private Sub Cmd0_Click ()
Text1.Text = Text1.Text + “0”
End Sub
Private Sub Cmd1_Click ()
Text1.Text = Text1.Text + “1”
End Sub
Private Sub Cmd2_Click ()
Text1.Text = Text1.Text + “2”
End Sub
Private Sub Cmd3_Click ()
Text1.Text = Text1.Text + “3”
End Sub
Private Sub Cmd4_Click ()
Text1.Text = Text1.Text + “4”
End Sub
Private Sub Cmd5_Click ()
Text1.Text = Text1.Text + “5”
End Sub
Private Sub Cmd6_Click ()
Text1.Text = Text1.Text + “6”
End Sub
Private Sub Cmd7_Click ()
Text1.Text = Text1.Text + “7”
End Sub
Private Sub Cmd8_Click ()
Text1.Text = Text1.Text + “8”
End Sub
Private Sub Cmd9_Click ()
Text1.Text = Text1.Text + “9”
End Sub
حالا می توانیم برای دکمه های عملیاتی ( +,*,-,/ ) کد بنویسیم.
برای دکمه جمع ( + ) :
Private Sub C mdjam _Click ()
Flag = “+”
Number1 = Val (Text1.Text)
Text1.Text = “”
End Sub
برای دکمه تفریق ( - ) :
Private Sub C mdtafregh _Click ()
Flag = “-“
Number1 = Val (Text1.Text)
Text1.Text = “”
End Sub
برای دکمه ضرب ( * ) :
Private Sub C mdzarb _Click ()
Flag = “*”
Number1 = Val (Text1.Text)
Text1.Text = “”
End Sub
برای دکمه تقسیم( / ) :
Private Sub C mdtagsim _Click ()
Flag = “/”
Number1 = Val (Text1.Text)
Text1.Text = “”
End Sub
حالا قسمت اصلی کد یعنی کد دکمه مساوی ( = ) را بنویسیم.
Private Sub C mdmosavi _Click ()
Number2 = Text1.Text
Select case flag
Case “+”
text1= number1+number2
Case “-”
text1= number1-number2
Case “*”
text1= number1*number2
Case “/”
text1= number1/number2
End Sub
کد دکمه پاک کننده مقادیر و Textbox :
Private Sub Cmdclear_Click()
Text1.Text = ""
End Sub