كود حاسبة للاعداد الكبيرة

[كريم الامين]

بسم الله الرحمن الرحيم

الاخوة الافاضل السلام عليكم

في المرفق برنامج حاسبة( calculator) بسيط جدا  ولكن للاسف عند اجراء عملية الضرب يقف عند حد معين من الارقام

المطلوب لطفا منكم  كود  يجعل من الممكن ضرب الاعداد الكبيرة في اعداد كبيرة (اي يقبل اعداد كبيرة غير محددة)

مع تقديري 

حاسبة 4.xlsm

[أ / محمد صالح]

تحتاج فقط إلى تغيير تنسيق الرقم

يمكنك تغيير كود زر الضرب والقسمة إلى هذا الكود

Private Sub CommandButton3_Click()
TextBox3.Text = Format(Val(TextBox1.Text) * Val(TextBox2.Text), "#.00")
End Sub

Private Sub CommandButton4_Click()
TextBox3.Text = Format(Val(TextBox1.Text) / Val(TextBox2.Text), "#.00")
End Sub

 

[كريم الامين]

بارك الله فيكم استاذنا وانا ممنون منكم اشد الامتنان على جميل ردكم وفقكم الله تعالى