02-08-21, 01:00 AM
مطلوب كود لمعرفة ناتج قسمة عددين من حيث ان الناتج هل هو رقم صحيح او رقم كسري باستخدام الدالة IF و MSGBOX
msgbox"هذا الرقم عدد كسري"
ولكم كل الاحترام والتقدير
msgbox"هذا الرقم عدد كسري"
ولكم كل الاحترام والتقدير
02-08-21, 01:00 AM
02-08-21, 01:37 AM
السلام عليكم ورحمة الله وبركاته
اخي الكريم ان نوع البيانات التي تستعمل للارقام الصحيحة هي (Byte,Short,Integer,Long )
أما التي تسعمل الارقام الصحيحة والعشرية فهي من نوع (Decimal,Double,Single)
وللقسمة نستخدم المجموعة الثانية للحصول على نتائج ادق
ولمعرفة ان كانت نتيجة القسمة فيها كسور او لا
نقوم بتحويل النتيجة وذلك بتقريب الرقم عبر حذف الارقام بعد الفاصلة عن طريق الدالة Floor بعدها نقوم بطرح هذا الرقم المقرب من نتيجة القسمة فأن كان الناتج اكبر من الصفر فهذا يعني ان الرقم فيه كسور وان كانت النتيجة تساوي صفر فإن النتيجة هي عدد صحيح
اليك هذا الكود 3 تكست بوكس وبوتون
اخي الكريم ان نوع البيانات التي تستعمل للارقام الصحيحة هي (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 Sub02-08-21, 11:27 PM
شكرا لك اخي ابراهيم ايبو وجزاك الله خيرا نعم الكود يعمل تمام
شكرا مرة اخرى للاهتمام
شكرا مرة اخرى للاهتمام