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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود (/showthread.php?tid=39199)

طلب كود - الراس الكبيرة - 02-08-21

مطلوب كود لمعرفة ناتج قسمة عددين من حيث ان الناتج هل هو رقم صحيح او رقم كسري باستخدام الدالة IF و MSGBOX 
msgbox"هذا الرقم عدد كسري"
ولكم كل الاحترام والتقدير

RE: طلب كود - ابراهيم ايبو - 02-08-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم ان نوع البيانات التي تستعمل للارقام الصحيحة  هي (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


RE: طلب كود - الراس الكبيرة - 02-08-21

شكرا لك اخي ابراهيم ايبو وجزاك الله خيرا نعم الكود يعمل تمام
شكرا مرة اخرى للاهتمام