منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكل في عملية الضرب ومشكل أخر مشروح بصورة

[COLOR="#008000"]

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

[/COLOR]

السلام عليكم

- هذا المثال بعد التعديل على حسب مافهمت .

- تحياتي .

[COLOR="#008000"]

بسم الله الرحمان الرحيم:
السلام عليكم ورحمة الله تعالى وبركاته
شكرا لك أخي الغالي على المساعدة
أخي نفس المشكل بالنسبة لعملية الضرب فهل المشكل من جهازي؟
الفورم الرابع به خطأ في الكود ربما إضافة then ونفس الكود يتعامل مع الداتاجريد 2 وهي غير موجودة فهل هو خطأ؟
لاحظت أن النص المقابل لرقم 3 مرتبط بالادو2 وهو غير موجود في الفورم فهل لهذا علاقة بالامر(adodc2)
بالمرفقات شرح فيديو للمشكل
جزاك الله كل خير

[/COLOR]

السلام عليكم

- فعلا هي ليست أخطاء أنا نسيت أن أحذفها . ماعليك فعله هو كالتالي :

1- قم بحذف الكود كله الموجود في الفروم4 . لاتحتاج إلى كود وإنما نسيت أن أحذفه .
2- التكست الموجود في الفورم3 والمقابل لرقم 3 قم حذف القيم الموجوده في كل من خاصية الـDataField والـ DataSource . وخاصية الـ DataFormat غيرها إلى General .
3- غير الكود الموجود في حدث الـ Change للتكست Txt_Qte الموجود في الفورم3 . إلى هذا الكود :

كود :

Dim A, B, C As Double

A = Val(Txt_Qte.Text)

B = Val(coe.Text)

Txt_Poids.Text = Format(A * B, "0.000")

- تحياتي .

[COLOR="#0000CD"]

السلام عليكم ورحمة الله تعالى وبركاته
شكرا لمساعدتك الدائمة أخي
تم عمل المطلوب لكن للأسف لا شيء تغير نفس المشكل
الملف بالمرفقات بعد التعديل

[/COLOR]

السلام عليكم

- المثال يعمل بشكل جيد عندي . لاتوجد به اية مشكله .

السلام عليكم ورحمة الله تعالى وبركاته
والله أخي لست أدري من أين المشكل حيث تمت تجربته في 3 أجهزة مثبت بها الفيجوال ونفس المشكل
جزاك الله كل خير
**************************

[COLOR="#0000FF"]أخي الغالي لقد إكتشفت المشكل بفضل من الله سبحانه وتعالى
والحل بإذن الله لمن واجه نفس المشكل:
المشكل أني أستعمل ويندوز فرنسي وهذا الويندوز يستعمل الفاصلة بعد الأعداد العشرية(0,000)
فقمت بتغييرها إلى النقطة(0.000) وإنتهى المشكل بفضل من الله
جزاك الله كل خير أخي الكريم.[/COLOR]

***********************
[COLOR="#008000"]أخي الغالي بالنسبة للسؤال الأخير هل لم تستطع عمل المطلوب أم لم تفهم سؤالي ؟
بالمرفقات صورة للسؤال تشرح المطلوب بشكل دقيق
جزاكم الله عنا كل خير[/COLOR]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

calmehicham

VB_Coder

calmehicham

VB_Coder

calmehicham

VB_Coder

calmehicham