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

‏windows 8 · منذ /11-09-2012, 07:00 PM

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

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

بعدما أنهيت البرنامج عندما أدخل اليه و أضغط على 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

المواضيع المتشابهه للموضوع: أرجوكم إخوان لقد وجدت مشكلة في عمل هدا البرنامج اأرجوكم مساعدة بسيطة
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
[ مشكله ] ممكن مساعدة .... عند مشكلة في فتح البورت	picsooo	مشاكل وحلول إختراق الأجهزة	3	01-24-2013 07:40 PM
[ مشكلة ] مساعدة هل أنا مخترق	‏windows 8	الأرشيف	0	11-11-2012 04:12 PM
مشكلة في الدولفي بسيطة ارجوا الحل	‏windows 8	الأرشيف	0	11-06-2012 02:10 PM
مشكلة بسيطة في اتشفير	‏windows 8	الأرشيف	0	11-03-2012 03:40 AM
مشكلة بسيطة بتعديل سباي نت	aaqassam	الأرشيف	0	10-30-2012 11:16 PM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

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

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