السلام عليكم ورحمة الله وبركاته
اخواني الكرام
صممت برنامج آلة حاسبة بسيط
ومتاكد الف % انه الكود صحيح
وقارنته مع كود احد زملائي وطلع نفس الكود
ومع ذلك عندما اضغط علامة = ليظهر الناتج لا يظهر لي شي
ولا يظهر لي خطا ولا شي
ولا ادري مالسبب !!
البرنامج مرفق و الف شكر لمن سيفتحه
تم تعديل هذه المشاركة بواسطة عبد الله فتحي في 20 أبريل 2005 في 11:13
السلام عليكم اخي MesoOo
بالنسبة للآلة حاسبة حقك
ال select case استعمله بدون case is فقط case اوكي ؟ :D
يالله سلاااااااااااااااااااااااام
لقد وفقنى الله وجدت الخطأ وقمت بتعديله وجربت البرنامج وكانت النتيجة جيدة
واليك البرنامج بعد التعديل مرفق معه برنامج الة حاسبة منذ فترة اتمنى أن تستفيدى منه
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
لاأدرى لماذا لايعمل الملف لكنى أعدت وضعه من جديد وأتمنى أن يعمل هذه المرة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
لاأدرى لماذا لايعمل الملف لكنى أعدت وضعه من جديد وأتمنى أن يعمل هذه المرة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
B) لاأعرف لماذا لاتعمل المفات المضغوطة :( :( :( :(
على كل حال اليكى الكود بعد تعديله
Private Sub equel_Click()
'using select case in the equal opeartion
Select Case O
Case Is = "+" 'الخطأ كان فى المسافات الزائدة " + "
txt.Text = A + Val(txt.Text)
Case Is = "-" 'الخطأ كان فى المسافات الزائدة " - "
txt.Text = A - Val(txt.Text)
Case Is = "*" 'الخطأ كان فى المسافات الزائدة " * "
txt.Text = A * Val(txt.Text)
Case Is = "/" 'الخطأ كان فى المسافات الزائدة " / "
If Val(txt.Text) = 0 Then
txt.Text = " Error !! "
Else
txt.Text = A / Val(txt.Text)
End If
txt.Text = Val(txt.Text)
End Select
end Sub
أتمنى أن أكون قد افدتك......وفقك الله
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
ghost2010
جزاك الله كل الخير
فعلا البرنامج يعمل الآن
شكرا لك
هذا الموضوع مغلق.