أرجوكم , إخوان , لقد , وجدت , مشكلة , في , عمل , هدا , البرنامج , اأرجوكم , مساعدة , بسيطة
بعدما أنهيت البرنامج عندما أدخل اليه و أضغط على 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 كامل لهده العملية يرسله لي
بارك الله فيكم
Hv[,;l Yo,hk gr] ,[]j la;gm td ulg i]h hgfvkhl[ hHv[,;l lshu]m fsd'm