تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود
#1
مطلوب كود لمعرفة ناتج قسمة عددين من حيث ان الناتج هل هو رقم صحيح او رقم كسري باستخدام الدالة IF و MSGBOX 
msgbox"هذا الرقم عدد كسري"
ولكم كل الاحترام والتقدير
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم ان نوع البيانات التي تستعمل للارقام الصحيحة  هي (Byte,Short,Integer,Long ) 
أما التي تسعمل الارقام الصحيحة والعشرية فهي من نوع (Decimal,Double,Single)
وللقسمة نستخدم المجموعة الثانية للحصول على نتائج ادق
ولمعرفة ان كانت نتيجة القسمة فيها كسور او لا 
نقوم بتحويل النتيجة وذلك بتقريب الرقم عبر حذف الارقام بعد الفاصلة عن طريق الدالة Floor بعدها نقوم بطرح هذا الرقم المقرب من نتيجة القسمة فأن كان الناتج اكبر من الصفر فهذا يعني ان الرقم فيه كسور وان كانت النتيجة تساوي صفر فإن النتيجة هي عدد صحيح
اليك هذا الكود 3 تكست بوكس وبوتون
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA, BB, CC As Double
       AA = CDbl(Val(TextBox1.Text))
       BB = CDbl(Val(TextBox2.Text))
       If BB = 0 Then
           MsgBox("لايمكن القسمة على صفر")
           TextBox2.SelectAll()
           Exit Sub
       Else
           CC = AA / BB
           TextBox3.Text = CC.ToString("0.00")
       End If

       If CC - Math.Floor(CC) > 0 Then
           MsgBox("ناتج القسمة فيها كسور")
       Else
           MsgBox("ناتج القسمة عدد صحيح")
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
شكرا لك اخي ابراهيم ايبو وجزاك الله خيرا نعم الكود يعمل تمام
شكرا مرة اخرى للاهتمام
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة


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


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