23-02-22, 06:26 PM
اريد سورس كود لاله حاسبه
تقبل قيم لا نهائية لعملية حسابيه واحده وباكثر من شارة حسابيه
كما فى الاله الحاسبه الخاصه بويندوز 7
مثال : 3*5+4-2/2=؟؟؟
أو
4+6+7+8-1-3=؟؟؟
وجزاكم الله خيرا اخوانى الكرام
BigIntegerBigIntegerImports System.Numerics
Public Class Form1
Private Sub CalculateButton_Click(sender As Object, e As EventArgs) Handles CalculateButton.Click
' استخدام BigInteger للقيام بالعمليات الحسابية
Dim value1 As BigInteger = BigInteger.Parse(Value1TextBox.Text)
Dim value2 As BigInteger = BigInteger.Parse(Value2TextBox.Text)
Dim result As BigInteger
Select Case OperationComboBox.SelectedItem.ToString()
Case "+"
result = BigInteger.Add(value1, value2)
Case "-"
result = BigInteger.Subtract(value1, value2)
Case "*"
result = BigInteger.Multiply(value1, value2)
Case "/"
If value2 = 0 Then
ResultLabel.Text = "Error: Division by zero!"
Return
End If
result = BigInteger.Divide(value1, value2)
End Select
ResultLabel.Text = result.ToString()
End Sub
End Class
BigIntegerValue1TextBoxValue2TextBoxBigIntegerOperationComboBoxResultLabel