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