استاذ خليل انقذني بسرعه بليز

[جودعمار]

:00911:استاذ خليل رجاء المساعده
عندي درس تفاعلي وفيه مجموعه اسئله متنوعه مثل اختياري وصح وخطا والسحب والافلات
وماعرفت بصراحه كيف اسويها ممكن تساعدني خطوه خطوه ولك مني جزيل الشكر ولازم يكون لها وقت محدد وبعدين اضغط زر يخرج الدرجه النهائيه واذا فيه امكانيه اخراج مثل الشهاده النهائيه اكون لك من الشاكرين يااروع استاذ في النت كله في مجال الفيجول بيسك بشهادتي وشهاده جميع زملائي

[الاستاذ خليل]

المسابقة معمولة مسبقا فقط راجعي الدروس
لا يمكن ان اعملها كلها انا فهي تاخذ وقت ارجو ان ترسلي عملك و سنساعدك بعون الله في الاكواد التي تكمل عملك بعون الله.
مع جزيل الشكر لثقتك بنا

[جودعمار]

بسم الله الرحمن الرحيم
شكرا لك استاذي الفاضل على تجاوبك السريع
وسوف ارسل لك في اقرب فرصهالعمل الذي قمت به وتساعدني بالاكواد

[الاستاذ خليل]

نحن بإنتضار

[جودعمار]

جبت معى البرنامج استاذي ومحتاجه الاكواد عليها

[الاستاذ خليل]

اختي اول مرة اشوف هذا االتنسيق potm لا اعلم باي برنامج صنع فهو ليس بالفجوال بيسك التي اعرفها انشاء الله فلا يمكنني المساعدة بهذه الحالة!

[الاستاذ خليل]

من خلال البحث عرفت انه معمول بالببرنامج الباور بوينت 2007 ممكن تصدريه الى 2003 لان الي عنديباور بوينت 2003

[جودعمار]

السلام عليكم
طيب بصدره لك

[جودعمار]

انشاء الله يفتح معك ساعدني ارجوك معليش ادري اني ثقلت عليك لكني والله مضطره يااستاذي الفاضل

[جودعمار]

الملف هنا هنا هنا هنا هنا

[جودعمار]

http://www.up.00op.com/download.php?id=NXYK2U0GPA
هنا تجد الدرس استاذي

[جودعمار]

السلام عليكم استاذي الفاضل اعتقد اني اثقلت عليك وذلك لانك اهملت رسائلي التي ارسلتها لك سابقا
لكن اريد منك ومن الاخوان الذين لهم درايه بالحاسب
كود التقادير وكيفيه وضع التقدير بالشريحه التي تليها اي ضغط التقدير يكون في الشريحه الاولى وظهور التقدير في الشريحه التي تليها؟
ايضا اريد كود امر الطباعه اي لو لدي شريحه واريد ان اطبعها فماذا اعمل؟
الكود الاخير الذي اريده شريحه بها صح وخطا وشريحه بها ادخال القيم واريد في الشريحه الثالثه جمعهما كيف يتم ذلك
رجاء من لديه المعلومه ان يفيدني بها في اقصى وقت ولكم مني جزيل الشكر:011:

[الاستاذ خليل]

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

[جودعمار]

اشكرك استاذي واذا ممكن احتاج العمل في اقرب فرصه ممكنه لان الاسبوع القادم احتاج الى تقديم
ايضا اريد منك الان مساعده سريعه
1)كود الطباعه رقم طابعتيhp1300
2)كود التقديرفي شريحه واليبل قي الشريحه الاخيره
3)جمع الشرائح السابقه(الاجابات الصحيحه):01011: في الشريحه التاليه

[جودعمار]

http://www.up.00op.com/download.php?id=J4EAKWTM7N
تقدر تشوف الناقص كما في السابق استاذي واسفه على ازعاجك

[الاستاذ خليل]

الملف معطوب حملته مرتين دون فائدة ارفعيه مرة اخرى

[جودعمار]

استاذي ردي علي بطلباتي السابقه كودالطابعه وكود النتيجه بليز
الوقت صار يعد علي بالتنازل

[جودعمار]

http://www.up.00op.com/download.php?id=PDHABB9P03

[الاستاذ خليل]

كود الطباعة

With Application.ActivePresentation
.PrintOptions.PrintHiddenSlides = True
.PrintOut From:=4, To:=4, Copies:=1, Collate:=msoFalse
End With

الشرح
حيث From:=4, To:=4, Copies:=1 تعني من صفحة 4لاالى صفحة اربعة نسخة واحدة

[الاستاذ خليل]

بالنسبة لكود الحساب تخليه مثل المسابقات الي ابو اربع اجابات و هي مشروحة سابقا بالكود
اي تستعملي المديول للتصريح عن متغيرات تريدنها جمع النتائج كلها و ايضا اضهار التقدير

[جودعمار]

السلام عليكم شكرا على كود الطباعه ه ريحتني كثير بس باقي اخر شي
ممكن تطلع على الملف السابق وتشوف طريقتي وعلى اساسها اريد التقدير النهائي
ماادري ليش في كل الارقام يكتب يحتاج الى رعايه
رد علي في اقرب فرصه رجاء

[الاستاذ خليل]

انا لم اتمكن من تحميله ارفعيه على مستضيف اخر من امس و انا احاول دون فائدة

[جودعمار]

URL=http://www.faylat.com/up/get-1204561399.rar]التحميل من هنا[/URL]

http://www.faylat.com/up/files-1204561399.rar

[الاستاذ خليل]

لا زلت لم اتمكن من تحميل الملف لوجود عطل بالوصلة سأقوم بتكبير حجم المرفقات و ارفقيه

[جودعمار]

هذا المرفق

[جودعمار]

قدرت تحمله؟

[جودعمار]

استاذي كيف الملف والملاحظات اللي سبق اني ذكرتها مع فائق التقديرلك ولمجهودك معي

[الاستاذ خليل]

نعم حملته
و يجب وضع التقدير في المديول لتحتفظ بقيمة التقدير و النتائج و سيعمل بشكل جيد
انا حملت افس 2007 على جهازي بس ما عرفت اطلع شريط الفجوال بيسك تغير على الافس يبي لي اتعمق فيه اكثر

[جودعمار]

هذا من قائمه ثم ادوات وفي الشريط المنسدل منه ادوات

[جودعمار]

ماعرفت استاذي معليش اشرح لي اكثر

[جودعمار]

وابغى ادخل في الجمع الاخير الشرائح السابقه الفراغ والصح والخطااشرح لي بالتفصيل الطريقه لذلك

[الاستاذ خليل]

قمت بعمل الازم حاولي التعديل عليه ليضبط حسب ما تريدين

[جودعمار]

شكرا جزيلا بطلع عليه الانواعطيك خبر

[جودعمار]

استاذي شكرا جزيلا لكن كيف ممكن اعمل عليه التايمر

[الاستاذ خليل]

Dim a As Integer
'If a <> 0 Then GoTo 10

a = 0
10
a = a + 1


Label1.Caption = a
Dim Start As Long
Start = Timer
Do While Timer < Start + 1 'a 3 second delay (Change To any numer you want)


DoEvents ' Yield To other processes.
Loop
If a = 120 Then


MsgBox ("نفذ الوقت")
Exit Sub

End If

GoTo 10

[جودعمار]

استاذي اضع له ليبل وهل اضع ليبل في كل شريحه حتى يحسب لي الوقت

[الاستاذ خليل]

في كل شريحة ليبل
و اجعلي السؤال مخفي اذا ضغط عليه يضهر و بعده يشتغل الوقت
و لا تنسي ان تلغي عمل التايمر اذا اجاب اجابة صحيحة او خاطئة

[جودعمار]

اشرح لي بالخطوات استاذي اذا ممكن

[الاستاذ خليل]

شوي صعب انا ساضع الكود و انت الصقيه و جربيه ساضعه لاحقا

[الاستاذ خليل]

قومي بجعل خاصية الاخفاء للاجابات TextBox1 و غيره الى مخفية
و امسحي جميع الكود في الشريحة رقم 5 و استبدليه بهذا الكود
اذا ضغطتي على ليبل Label1 سيقوم باضهار مربعات النصوص TextBox1 و غيره و سم يحسب الوقت في Label1 و بعدما سينتهي الوقت سيخفي مربعات النصوص TextBox1 و غيره

اليكم الكود



Private Sub CommandButton1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub




Private Sub CommandButton3_Click()

sumq = sumq + 1
If TextBox1.Text = 3 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox2.Text = 4 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox3.Text = 2 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox4.Text = 1 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
Label2 = " عدد الأسئلة: " & sumq & " عدد الإجابات الصحيحة: " & trueq & " التقدير: " & taqdeeruzer
Call taqdeer
End Sub

Private Sub Label1_Click()
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
Dim a As Integer
'If a <> 0 Then GoTo 10

a = 0
' تم تسجيل الماكرو 19 شباط، 08 بواسطة khalil
10
a = a + 1

'Slide5.Label2.Caption = a
Label1.Caption = a
Dim Start As Long
Start = Timer
Do While Timer < Start + 1 'a 3 second delay (Change To any numer you want)


DoEvents ' Yield To other processes.
Loop
If a = 10 Then
'MsgBox ("نفذ الوقت")
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
CommandButton3_Click
Exit Sub

End If

GoTo 10


End Sub

[جودعمار]

السلام عليكم استاذي كيف ممكن اخفي زر امر وبعد مثلا ثانيتين يظهر مرة اخرى

[الاستاذ خليل]

قصدك في الطباعة ؟

قومي بوضع الاخفاء قبل الطباعة
ثم بعده كود الطباعة
ثم كود الاضهار مرة اخرى كي لا يطبع الزر

[جودعمار]

استاذي لم يتم جمع الاختياري مع البقيه بالشكل الصحيح فقط الصح والخطا واملا الفراغ يتم جمعهم وانا اريد جمع الجميع بشكل نهائي وهذا المرفق

[جودعمار]

هذا هو المرفق وارجو ان تعدله لي في اقرب فرصه ممكنه

[جودعمار]

استاذي رد علي قبل غد ارجوك

[الاستاذ خليل]

عدلته جربيه

[جودعمار]

شكرا استاذي جاري التحميل

[جودعمار]

استاذي هناك عده مشاكل 1)عداد الاسئله لايعمل
2)لم يجمع من الاختياري سوى الاول والبقيه لم تجمع
3)لايظهر التقدير بشكل صحيح
ايمكنك تعديله اكثر

[الاستاذ خليل]

انا الغيت العداد لانه لا يوضح عدد الاسئلة ماخوذة ممكن ارجعها
لكن يجب الحساب على مجموع الاجابات الصحيحة و الخاطئة لذلك تجدى الدرجة قليلة في نهاية الاختبار .
لانه لا يجب الحساب على ان درجة الطالب 100 من اول سؤال لانه فقط اجاب على سؤال واحد و ياخذ 100 هذا غير عادل .

[جودعمار]

معليش استاذي اعط السؤال المكون من الفقرات الاربعه درجتان ونصف والبقيه 10 درجات فيصبح المجموع 100 هذا هو المطلوب ويوضح كذلك التقدير المفروض تاخذه في هذه المرحله ساعدني استاذي ارجوك وبسرعه

[جودعمار]

ساعدني استاذي وبسرعه اذا ممكن

[الاستاذ خليل]

عدلته جربيه

[جودعمار]

استاذي مازالت المشكله موجوده وهي انه لايجمع الاختياري من slaid 12 الى slaid17 ويضيف ناتجها على السابق
الاربع شرائح الاولى مظبوطه وكما اريد لكن الست شرائح الاختياري لاتظهر نتيجة جمعها في الاخير لماذا ساعدني ارجوك فقد حيرني امرها كثيرا ولم اعد استطيع النوم من كثر تفكيري فيها ارجوك استاذي

[جودعمار]

ايضا مشكله اخرى وجدتها وهي عداد الاسئله المفروض ان السؤال الاول يتبعه الثاني وهكذا حتى نهاية الاسئله لايحسب بالطريقه الصحيحه يعطيالاول 0 ثم 1 ثم 3 عند السؤال الرابع لماذا

[الاستاذ خليل]

لماذا يضهر لدي بشكل صحيح جربيه على جهاز اخر او في المدرسة اما عدد الاسئلة حتى يكون التقدير صحيح جعلته يبدا برقم 1

[جودعمار]

استاذي في عداد الاسئله يظهر الاول 1 والثاني 1والثالث 3 والرابع 3 وعندما يكون هناك خطا في سؤال واحد عند الجمع يظهر الدرجه 100 لانه الغى درجه سؤال واحد وحصل بصوره هذه على ممتاز بدرجه 100 والمفروض بدرجه 90

[جودعمار]

ايضا عندما يكون هناك سؤالين خطاء يحسب النتيجه 75 ليس 80 ؟؟؟؟

[جودعمار]

وعندما تكون الاسئله الثلاثه الاولى خطا والبقيه صح تظهر النتيجه 33 ؟؟؟؟

[جودعمار]

استاذي مازلت انتظر مساعدتك

[جودعمار]

استاذي طلعت اليبل في الاختياري عشان توضح لك الصوره اكثر وتشوف ان عداد الاسئله مايتحرك واجابات الاختياري الصحيحه ماتطلع في الملف المرفق

[جودعمار]

im wait:) :( :) :)

[الاستاذ خليل]

اختى اعطيني الاجابات الصحيحة للاسئلة للتجربة يمكن انا وضعت اجابات خطا

[بنية]

انا عندي اسئلة كثيرة ارجوكم ساعدوي

[جودعمار]

في الاختياري س1: 2 س2: 1 س3: 3 س4: 4 س5: 1 س6: 2