أرجوكم إخوان لقد وجدت مشكلة في عمل هدا البرنامج اأرجوكم مساعدة بسيطة

[‏windows 8]

أرجوكم , إخوان , لقد , وجدت , مشكلة , في , عمل , هدا , البرنامج , اأرجوكم , مساعدة , بسيطة

أرجوكم إخوان لقد وجدت مشكلة في عمل هدا البرنامج اأرجوكم مساعدة بسيطة

بعدما أنهيت البرنامج عندما أدخل اليه و أضغط على Calculer يضهر لي خطأ "OverFlow" مع العلم أنني لم أخطئ في تسميات مربع النصوص و العمليات


هاهو كود البنامج :

كود:

Private Sub Command1_Click()
Dim a, b, c, d As Integer
a1.Text = a
b1.Text = b
c1.Text = c
d = (b * b) - (4 * a * c)
If d = 0 Then
r1.Text = r2.Text = (-b) / (2 * a)
End If

If d < 0 Then
r1.Text = "Pas De SoluTion --' "
End If

If d > 0 Then
r1.Text = -b + (Sqr(d)) / (2 * a)
r2.Text = -b - (Sqr(d)) / (2 * a)
End If

End Sub

Private Sub Command2_Click()
a1.Text = ""
b1.Text = ""
c1.Text = ""
r1.Text = ""
r2.Text = ""

End Sub
r2.Text = ""
و هاهي صورة للخطئ



أرجوكم لو يوجد أحد عنده Projet Vb كامل لهده العملية يرسله لي
بارك الله فيكم

المصدر: development-point - للمزيد تابع : الأرشيف

---

Hv[,;l Yo,hk gr] ,[]j la;gm td ulg i]h hgfvkhl[ hHv[,;l lshu]m fsd'm