منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة في كود عملية ضرب عددين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] مساعدة في كود عملية ضرب عددين (/showthread.php?tid=34341)



مساعدة في كود عملية ضرب عددين - ضياء الدين - 16-04-20

السلام عليكم
اعدوا لجميع الاعضاء بالصحة والعافية
ابحث عن كود عملية ضرب عددين
يعني العدد الاول في  text1.text
العدد الثاني في text2.text
والمجموع في text3.text
ولكن المشكلة اريد ان ادخل اعداد طويلة ولم اعرف
اطلب المساعدة منكم جزاكم الله خيرا


RE: مساعدة في كود عملية ضرب عددين - AL_BRNS - 17-04-20

وعليكم السلام ورحمة الله وبركاته

بالنسبة لكود ضرب عددين

جرب التالي

PHP كود :
Private Sub Command1_Click()
Text3.Text Val(Text1.Text Text2.Text)
End Sub 


اما للتحكم بعدد الارقام المدخلة في Text

جرب التالي سيقبل ال Text عشرة ارقام فقط


PHP كود :
Private Sub Text1_Change()
Text1.MaxLength 10
End Sub 

اما ادا اردت ان يكون  Text بعرض المدخل من الارقام

جرب التالي

PHP كود :
Private Sub Text1_Change()
Text1.Width 400 TextWidth(Text1.Text)
End Sub 


بالتوفيق .


RE: مساعدة في كود عملية ضرب عددين - ضياء الدين - 17-04-20

جزاك الله خيرا على المحاولات الطيبة وغفر ذنبك
ولكن من فضلك لم يعمل على الارقام الطويلة التي اريدها 
مثلا عندي 50 رقم اريد ضربه في 10 ارقام
اتمنى اني اوضحت لك الفكرة


RE: مساعدة في كود عملية ضرب عددين - Amir_Alzubidy - 17-04-20

(17-04-20, 09:24 AM)ضياء الدين كتب : جزاك الله خيرا على المحاولات الطيبة وغفر ذنبك
ولكن من فضلك لم يعمل على الارقام الطويلة التي اريدها 
مثلا عندي 50 رقم اريد ضربه في 10 ارقام
اتمنى اني اوضحت لك الفكرة

السلام عليكم و رحمة الله 
اهلا بك اخي الكريم
تابع هذا الموضوع


RE: مساعدة في كود عملية ضرب عددين - ضياء الدين - 17-04-20

بارك الله فيكم ورفع الله درجاتكم في الجنة
اشكركم على الاهتمام(AL_BRNS _Amir_Alzubidy)
ولكن لم يعمل بشكل جيد لربما يحتاج السورس كود الى تعديل او تصحيح
وهذا ما وجدته في الموضوع
STOPNOW = False
Text3.Text = IntMultiply(Text1.Text, Text2.Text)
ما رايكم يا محترمين


RE: مساعدة في كود عملية ضرب عددين - yasserabd - 17-04-20

السلام عليكم و رحمة الله
اهلا بك اخي الكريم
أتوقع أن تكون خصائص الحقل الموجود بالجدول و المربوط به text1 من نوع number/ Double


RE: مساعدة في كود عملية ضرب عددين - ابو ليلى - 18-04-20

السلام عليكم و رحمة الله و بركاته
لو كنت تعمل على Net. لكنت اقترحت عليك التعامل بنوع (BigInteger)  فهو يلبي حاجتك.
اما عن VB6 فلا اعرف.


RE: مساعدة في كود عملية ضرب عددين - ضياء الدين - 18-04-20

السلام عليكم ورحمة الله
اعمل على vb6


RE: مساعدة في كود عملية ضرب عددين - ابو ليلى - 18-04-20

و عليكم السلام و رحمة الله و بركاته
اذا صعب عليك الامر فتوكل على الله و فكر بها كالتالي.
في الحياة الواقعية انت تستطيع فعل ذلك على الورق (الطريقة التي تعلمتها بالمدرسة)
فالخوارزمية المناسبة لذلك تتلخص بعدة خطوات.
1-لدي رقمين كبيرين لا يمكن استيعابها ضمن الانواع المعروفة في اللغة لذا وجب ان اضعها في نصوص.
2-عملية الضرب تتم بين اعداد و ليس نصوص ؟؟ , لذا وجب ان نقسم النص الى ارقام و فق طريقة ما.
3-بالعودة للطريقة المدرسية , انت تضع الارقام تحت بعضها و تبدأ بعملية الضرب لكل رقم بكامل الرقم الذي فوقه و هكذا.
ثم تعود للجمع ... الخ (المهم انك فاهم الطريقة على الورق).
4-نقوم بتعريف مصفوفتين رقمتين (واحدة لكل نص)و نقوم  بعدها باستخلاص الارقام داخل كل نص الى داخل كل مصفوفة عبر دوال النصوص او غيرها .
و من ثم نقوم بالمرور على عناصر المصفوفة الثانية و نضرب كل عنصر بكل ارقام المصفوفة الاولى(حلقات معششة).
و هكذا دواليك , بمعنى ان نطبق الفكرة على الورق الى كود .
فقط تحتاج الى المام باساسيات بسيطة و تصور لكافة مراحل العملية.


RE: مساعدة في كود عملية ضرب عددين - ضياء الدين - 20-04-20

السلام عليكم
ابو ليلى جزاك الله كل خير على كتاية كلماتك الراقية والمعبرة
سوف اجتهد لكي اصل
انت محق من الاساسيات البسيطة اذا درسناها بعقلانية وتفكير عميق نصل الى ما نريد
حقا ابتعدت عن الطريقة التي امشي بها في جميع الميادين وبفضلك ارجعتني الى الطريق بارك الله فيك وشكر الله سعيك
شكرا جزيلا