منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

منتديات حاسبكو المتخصصة بمادة الحاسب الآلي (http://www.7asabco.org/index.php)
-   الصف الثالث ثانوي (http://www.7asabco.org/forumdisplay.php?f=81)
-   -   ارجو الحل الله يسعدكم (http://www.7asabco.org/showthread.php?t=23615)

ليالي نجران 11-30-2014 08:12 PM

ارجو الحل الله يسعدكم
 
السلام عليكم
حبيت اسألكم عندي مشكلة في تطبيق برنامج حساب درجات و تقدير طالب
تتنفذ معي الشاشة ادخل اسم الطالبة و الدرجات كمان بس لما اضغط على زر اعرض التقدير يطلع لي المشكلة في السطر التالي
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For I = 0 To 3 Step 1
A(I) = InputBox(
" ادخل درجة الطالب في مادة الحاسب على التوالي اعمال السنة ،الحضور و الغياب ،الاختبار الفصلي ،النهائي ")
Next
EndSub

يطلع لي مشكلة ذي مكتوب
Conversion from string "2،3،4،4" to type 'Integer' is not valid.

طالب المزيد 12-01-2014 03:06 AM

رد: ارجو الحل الله يسعدكم
 
لو تضع البرنامج كامل يفضل

عشان نقدر نشوف وين الخلل

بس أعتقد بأنها مشكلة في نوع المتغيرات !!

حسن مجهلي 12-01-2014 11:45 AM

رد: ارجو الحل الله يسعدكم
 
1 مرفق
السلام عليكم ورحمة الله وبركاته
البرنامج السليم الخاص بحساب التقدير
للتحميل من المرفقات
ومن الرابط التالي
http://www.gulfup.com/?6OUpJB
والبرنامج يعمل كما توضح الصورة التالية
http://im86.gulfup.com/OV0Ehx.jpg

SHO0OSHO0O 12-01-2014 08:23 PM

رد: ارجو الحل الله يسعدكم
 
غير هذا السطر

A(I) = InputBox("أدخل درجة الطالب في مادة الحاسب الآلي (أعمال السنة ، الحضور والغياب،الاختبار الفصلي ، الاختبار النهائي) على التوالي")


الى هدا
A(I) = CInt(InputBox("أدخل درجة الطالب في مادة الحاسب الآلي (أعمال السنة ، الحضور والغياب،الاختبار الفصلي ، الاختبار النهائي) على التوالي"))



يعني راح تستخدم دالة التحويل من نص إلى عدد صحيح
CINT

ليالي نجران 12-01-2014 09:31 PM

رد: ارجو الحل الله يسعدكم
 
لا الحمدالله ضبط معي ...صارت المشكلة اني ادخل الدرجات كل مرة في نافذة و لس مع بعضها البعض \


الساعة الآن 05:09 AM.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ

a.d - i.s.s.w