Explain the work of advanced calculator
Open the program
Select standaed exe
Bring 3 text and change their name from the characteristic text
Bring 11 button is not their name from the caption property
As shown
Press the button twice and type collection this code
Text3.Text = Val (Text1.Text) + Val (Text2.Text)
In this CODE made us Tekest the 3 = Total Tekest 1 and 2
Val used to function discernible numerical value of Alticst else but
1 +2 = 12
In subtraction button Add this code
(Text3.Text = Val (Text1.Text) - Val (Text2.Text
In batting Add button this code
Text3.Text = Val (Text1.Text) * Val (Text2.Text)
In divisible Add button this code
Text3.Text = Val (Text1.Text) / Val (Text2.Text)
In button Wallace Add this code
Text3.Text = Val (Text1.Text) ^ Val (Text2.Text)
In button Wallace 2 Add this code
Text3.Text = Val (Text1.Text) ^ 2
The islands button 2 Add this code
Text3.Text = Sqr (Val (Text1.Text))
sqr meaning square islands
The islands button 3 Add this code
Text3.Text = Val (Text1.Text) ^ (1/3)
In tan button Add this code
Text3.Text = Tan (Val (Text1.Text) * 3.14159265358979 / 180)
This figure اضفناه after the tan because turn it into grades because Visual calculated Ring
And 3.14159265358979 is Albay pi symbol
In this sin Add button code
Text3.Text = Sin (Val (Text1.Text) * 3.14159265358979 / 180)
The button cos Add this code
Text3.Text = cos (Val (Text1.Text) * 3.14159265358979 / 180)
To be the final code
Private Sub Command1_Click ()
Text3.Text = Val (Text1.Text) + Val (Text2.Text)
End Sub
Private Sub Command10_Click ()
Text3.Text = Sin (Val (Text1.Text) * 3.14159265358979 / 180)
End Sub
Private Sub Command11_Click ()
Text3.Text = Cos (Val (Text1.Text) * 3.14159265358979 / 180)
End Sub
Private Sub Command12_Click ()
Text3.Text = Tan (Val (Text1.Text) * 3.14159265358979 / 180)
End Sub
Private Sub Command2_Click ()
Text3.Text = Val (Text1.Text) - Val (Text2.Text)
End Sub
Private Sub Command3_Click ()
Text3.Text = Val (Text1.Text) * Val (Text2.Text)
End Sub
Private Sub Command4_Click ()
Text3.Text = Val (Text1.Text) / Val (Text2.Text)
End Sub
Private Sub Command5_Click ()
Text3.Text = Val (Text1.Text) ^ Val (Text2.Text)
End Sub
Private Sub Command6_Click ()
Text3.Text = Val (Text1.Text) ^ 2
End Sub
Private Sub Command8_Click ()
Text3.Text = Sqr (Val (Text1.Text))
End Sub
Private Sub Command9_Click ()
Text3.Text = Val (Text1.Text) ^ (1/3)
End Sub
Related blog entries to this entry
0 التعليقات:
إرسال تعليق