+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] سورس كود الاله الحاسبه مثل الخاصه بويندوز 7 (/showthread.php?tid=40810)
سورس كود الاله الحاسبه مثل الخاصه بويندوز 7 - عبدالرحمن.1 - 23-02-22
اريد سورس كود لاله حاسبه
تقبل قيم لا نهائية لعملية حسابيه واحده وباكثر من شارة حسابيه
كما فى الاله الحاسبه الخاصه بويندوز 7
مثال : 3*5+4-2/2=؟؟؟
أو
4+6+7+8-1-3=؟؟؟
وجزاكم الله خيرا اخوانى الكرام
RE: سورس كود الاله الحاسبه مثل الخاصه بويندوز 7 - HALIM ELEULMA - 05-01-24
إذا كنت تبحث عن كود يقبل قيمًا غير محدودة للعمليات الحسابية، يمكنك استخدام مكتبة تعامل مع الأرقام الكبيرة. في VB.NET، يُمكنك استخدام
كود :
BigIntegerكود :
BigIntegerPHP كود :
Imports 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
هذا المثال يستخدم
كود :
BigIntegerكود :
Value1TextBoxكود :
Value2TextBoxكود :
BigIntegerكود :
OperationComboBoxكود :
ResultLabel