تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مشكله فى VB 6 فى برنامج لطرح عددين عشريين
#1
Lightbulb 
السلام عليكم اعضاء المنتدى الكرام 
عندى مشكله فى كود ازاى يطرح عددين عشرين اى ان كان احدهما كبير او صغير 
مثلا 4.000 - 4.002 او العكس ارجوا الافاده لانى جربت كود val  مع تعريف المتغير و برضوا النتيجه مش صحيحه و لكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
Dim m As Double = "4.002" : Dim f As Double = "4.000 "
Dim g As Double = m - f
MsgBox(CSng(g))

دعواتك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
اخى الكريم lion_Ksa مشكور على ردك
انا عايز البرنامج يطرح عددين عشريين مش الرقمين دول بس
بشرط انى يطرح الكبير من الصغير او الصغير من الكبير مع الاحتفاظ بالاشارات اثناء الطرح
يعنى لو ناتج الطرح موجب يفضل موجب و لو ناتج الطرح سالب يدى سالب و هكذا
الرد }}}}
تم الشكر بواسطة:
#4
تفضل أخي هذا المثال


الملفات المرفقة
.rar   ex.rar (الحجم : 1.38 ك ب / التحميلات : 27)

العاب من برمجتي  

Smile
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
انا عارف المثال ده اخى AGASHE و لكن لو عملت text box اللى فيه النتاتج طوله ثلاثة فقط سوف ترى الناتج مختلف و هى دى المشكله فى طرح عددين . انا عايز ناتج الطرح يكون ثلاثة decimal فقط و شكرا\
الرد }}}}
تم الشكر بواسطة:
#6
(27-08-15, 09:33 AM)Ayman2895 كتب : اخى الكريم lion_Ksa  مشكور على ردك
انا عايز البرنامج يطرح عددين عشريين مش الرقمين دول بس
بشرط انى يطرح الكبير من الصغير او الصغير من الكبير مع الاحتفاظ بالاشارات اثناء الطرح
يعنى لو ناتج الطرح موجب يفضل موجب و لو ناتج الطرح سالب يدى سالب و هكذا

انت لو جربت تحط بدل الارقام في الكود اعلاه text1 & text2 & text3
كنت وصلت للنتيجة

المثال مرفق جرب طرح اي عددين

.zip   Ayman.zip (الحجم : 1.57 ك ب / التحميلات : 18)

اذا ما كان هذا هو المطلوب لا بأس وضح اكثر وأبشر
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#7
شكرا لك اخى الكريم انا بجد مش عارف اقولك ايه انتا فعلا ساعدتى كتيييييير
جزاء الله خيرا و جعله فى ميزان حسناتك و بارك لك فى علمك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج وارد ومصروفات abdohassan 7 204 12-09-17, 08:13 PM
آخر رد: abdohassan
Question [vb6.0] هل يوجد برنامج تنصيب يبحث ويجمع ملفات برنامجي المصنوع من فجوال بيسك ؟؟ Microformt 3 164 11-07-17, 04:34 PM
آخر رد: Microformt
  تحزيم برنامج بالVB6 متصل بقاعدة بيانات أكسس اسلام الكبابى 13 431 08-07-17, 12:21 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] عمل برنامج شبكات ffmmffmm 0 134 29-06-17, 03:18 AM
آخر رد: ffmmffmm
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 213 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy
  برنامج setup factory 9 norhan 3 706 05-06-17, 04:10 AM
آخر رد: عبد العزيز البسكري
  كود تشغيل برنامج اخر مرفق bidaya 2 155 28-05-17, 05:08 AM
آخر رد: bidaya
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 6 433 12-04-17, 04:34 PM
آخر رد: الخير طهوري
  برنامج حساب ساعات إضافية فيصل علي 2 223 30-03-17, 02:17 AM
آخر رد: فيصل علي
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 279 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم