قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:مظلات و سواتر غاية الافكار 0544447186 بواسطة: (rahma allah) :: (قسم الاعلانات) الموضوع:مؤسسة غاية الافكار تركيب و تورد هناجر 0544447186 بواسطة: (rahma allah) :: (منتدى ADO.NET العام) الموضوع:شركة الافضل لخدمات نقل العفش بالكويت بواسطة: (االافضل) :: (منتدى ADO.NET العام) الموضوع:شركة الافضل لخدمات شراء الاثاث المستعمل بالكويت بواسطة: (االافضل) :: (قسم الدعم الفني) الموضوع:شركة الافضل لخدمات مكافحة الحشرات بالكويت بواسطة: (االافضل) :: (منتدى ADO.NET العام) الموضوع:شركة الافضل لخدمات التنظيف بالكويت بواسطة: (االافضل) :: (منتدى ADO.NET العام) الموضوع:شركة تنظيف بالرياض 0500685570 تنظيف فلل شقق منازل مجالس بواسطة: (روج شفايف روح) :: (منتدى الأكسس) الموضوع:عدم زيادة مبلغ الفواتير بواسطة: (saleh204) :: (قسم الاعلانات) الموضوع:صور مشبات الاحساء،مشبات الشرقيه،مشبات الخبر بواسطة: (جنون المطر) :: (منتدى مبرمجي ASP) الموضوع:افضل شركة تنظيف بجميع الاماكن بالمملكه بواسطة: (mahaelgyar) :: (منتدى Microsoft Visual Basic) الموضوع:افضل شركة تنظيف بجميع الاماكن بالمملكه بواسطة: (mahaelgyar) :: (قسم الاعلانات) الموضوع:افضل شركة تنظيف بجميع الاماكن بالمملكه بواسطة: (mahaelgyar) :: (منتدى الأكسس) الموضوع:طلب اتصال الاسكانر مع الفورم اكسيس وعرض الصور بواسطة: (أم خلود) :: (قسم الاعلانات) الموضوع:وفاة سيدة بسبب تناول علبه كولا شاهد السبب بنفسك بواسطة: (ضيااء) :: (قسم الاعلانات) الموضوع:احدث غرف سفره مودرن رووعه وعصرية 2017 معرض الكامل دمياط بواسطة: (رمز الهنا) :: (قسم الاعلانات) الموضوع:سيارات فيات مستعملة بواسطة: (ديزاينر ديزاينر) :: (أخبار التكنولوجيا) الموضوع:مشبات رخام ديكورات مشبات ديكور مشبات بواسطة: (مشبات مدافئ) :: (منتدى الأكسس) الموضوع:[طلب] شرح طريقة تحديث البيانات محطات الوقود بواسطة: (خالد الجزائري) :: (منتدى ADO.NET العام) الموضوع:هل تحب ان تتعلم التصوير؟ بواسطة: (بنوته جاأاده) :: (قسم الاعلانات) الموضوع:مشبات صور مشبات ديكورات مشبات جديده بواسطة: (مشبات مدافئ)


راديو القرآن

المواضيع المثبته: (منتدى Microsoft Excel) الموضوع:أكواد جاهزة للإستخدام في اكسل ( ماكروات ) بواسطة: (junkbki) :: (منتدى برمجة الألعاب) الموضوع:اعلان هام بواسطة: (مصطفي البارودي) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:تعرف على تقنية Oracle APEX بواسطة: (وليد القدسي) :: (القسم المفتوح) الموضوع:قصص الأنبياء عليهم السلام .جميعا بواسطة: (غزاوية أصيلة) :: (منتدى الوورد والباور بوينت) الموضوع:دورة انتاج برامج تفاعلية بإستخدام الباور بوينت بواسطة: (خليل إبراهيم) :: (منتدى برمجة الجرافكس) الموضوع:مجموعة دروس لتعليم الدايركت اكس بواسطة: (alaa gomaa) :: (منتدى Borland Delphi) الموضوع:دورة تعليمية في تصميم دليل هاتف في دلفي بواسطة: (مهند عبادي) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:Oracle Online Documentation .. best resource of Info about Oracle بواسطة: (adnan_som) :: (منتدى Microsoft Visual Basic) الموضوع:نظام إدارة المرتبات للمدارس Salary System 2008 بواسطة: (Max Bayne) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:نبذة مختصرة عن تعريف تقنية أجاكس بواسطة: (عبدالله جابر شقليه) :: (قسم الاعلانات) الموضوع:الرجاء عدم تكرار الاعلانات حتي يستفيد الجميع من المنتدي بواسطة: (startnet) :: (منتدى Microsoft Excel) الموضوع:معلومات سريعة من برنامج اكسل بواسطة: (junkbki) :: (منتدى Microsoft SQL Server) الموضوع:كتب SQL server بواسطة: (m.atassi) :: (منتدى Microsoft SQL Server) الموضوع:SQL SERVER vs ORACLE بواسطة: (m.atassi) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:أساسيات تصميم الشبكات بواسطة: (مرحبا الساع) :: (القسم المفتوح) الموضوع:نصيحة لوجه الله بواسطة: (غزاوية أصيلة) :: (القسم المفتوح) الموضوع:شاهد واشكر ربك على نعمة الاسلام بواسطة: (غزاوية أصيلة) :: (قسم الـ portable) الموضوع:أفضل برامج مفيدة للكمبيوتر وتعمل Portable اي بدون تنصيب بواسطة: (أبو ليان) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى التصميم والجرافيكس) الموضوع:الكتابة باللغة العربية في برنامج فلاش بواسطة: (مبرمجة فلسطينية)

عدد الصفحات : 3  1  2  3   > » إضافة رد إضافة موضوع جديد

> دورة انتاج برامج تفاعلية بإستخدام الباور بوينت,دروس صوت و صورة من البداية
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالاثنين,02/رجب/1428 هـ,02:13 صباحاً
المشاركة #1

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 78
سجل في:الاثنين,02/شعبان/1426 هـ,05:30 مساءً
الدولة:البحرين
رقم العضوية: 5178



السلام عليكم و رحمة الله و بركاته



سيكون هذا الموضوع متجدد يرجى التحديث في كل مرة لتجد جديد الدروس.

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


الدرس الثاني تسجيل و تشغيل مايكرو


الدرس الثالث درس ادراج الأدوات و الخصائصها


الدرس الرابع :شرح خصائص الأدوات

شرح خصائص مربع النص textbox

خصائص اداة الزر

خصائص مربع التسمية Label

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

و هنا ملفات تطبيقية على المواضيع المشروحة (صوت و صورة)
يرجى زيادة الصوت لانه سجل ضعيفا
عن ادراج الشفرة ملف ثاني

ربط السلاسل النصية

شرح بعض الدوال الجزء الاول

شرح بعض الدوال الجزء الثاني

العمليات الجمع و الطرح و الضرب و القسمة

اضافة الارقام

دالة الشرط if

المتغيرات الجزء الاول

المتغيرات الجزء الثاني



يرجى قراءة و محاولة التطبيق جيدا

الدروس التاالية سنطبق عملي انتاج دروس تفاعلية يرجى ادراج الواجب

الدرس السادس : دالة اضهار المسج msgbox
بهذا الدرس بدأنا بإختبار اجابات التلاميذ بعمل درس عملي ليكون التعلم ذاتيا للطلاب باستعمال دالة المسج
نحتاج لصفحة او جزء من صفحات الكتاب المدرسي الذي تدرسه بطباعتها بالسكانرو ادخالها للحاسوب ثم تابع الدرس التالي بالصوت و الصورة و التطبق العملي.


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

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


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالاثنين,02/رجب/1428 هـ,05:06 صباحاً
المشاركة #2

مشرف لمنتدى الوورد - منتدى البرامج
الرتبة في المنتدى:ملازم أول

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 255
سجل في:الجمعة,11/ذو القعدة/1427 هـ,01:38 مساءً
الدولة:سوريا
رقم العضوية: 16069



مشكور على الإفادة
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالثلاثاء,03/رجب/1428 هـ,04:40 صباحاً
المشاركة #3

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 21
سجل في:الخميس,17/ذو القعدة/1427 هـ,02:47 صباحاً
الدولة:السودان
رقم العضوية: 16360



مشكووووووووووووووووووووووووووووووووووور



--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأربعاء,04/رجب/1428 هـ,11:47 صباحاً
المشاركة #4

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 78
سجل في:الاثنين,02/شعبان/1426 هـ,05:30 مساءً
الدولة:البحرين
رقم العضوية: 5178



الدرس السابع التحقق من القيم المدخلة رقمية او نصية

اضغط هنا للشرح بالصوت و الصورة
الواجب عمل برنامج يتحقق من قيمة رقمية رقمية او نصية
تحتاجون الى
textbox
زر
و تقولون له في الزر
اذا كانت القيمة رقمية ارسل مسج القيمة رقمية
اذا كانت القيمة نصية يرسل مسج ان القيمة نصية


الدرس الثامن : نقل القيم من شريحة لأخرى

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

و شكرا لكم الاستاذ خليل


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,06/رجب/1428 هـ,01:00 مساءً
المشاركة #5

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 78
سجل في:الاثنين,02/شعبان/1426 هـ,05:30 مساءً
الدولة:البحرين
رقم العضوية: 5178



السلام عليكم

الدرس التاسع : كيفية عمل حساب الدرجات
الجزء الاول بالصوت و الصورة

الجزء الثاني بالصوت و الصورة

انتظر تطبيقاتكم الرجاء عملها بسرعة و عدم الابطاء

الاستاذ خليل


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,06/رجب/1428 هـ,03:59 مساءً
المشاركة #6

مشرف لمنتدى الوورد - منتدى البرامج
الرتبة في المنتدى:ملازم أول

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 255
سجل في:الجمعة,11/ذو القعدة/1427 هـ,01:38 مساءً
الدولة:سوريا
رقم العضوية: 16069



ممتاز أخي الكريم أكمل بهذا الشكل
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,06/رجب/1428 هـ,05:13 مساءً
المشاركة #7

الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: أعضاء الشرف
المشاركات: 517
سجل في:الاثنين,06/ربيع الثاني/1428 هـ,12:02 مساءً
الدولة:أخرى
رقم العضوية: 24215



شكرا الأخ خليل واصل في مجهودتك الله يكون في عونك...


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,08/رجب/1428 هـ,11:19 صباحاً
المشاركة #8

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 78
سجل في:الاثنين,02/شعبان/1426 هـ,05:30 مساءً
الدولة:البحرين
رقم العضوية: 5178



السلام عليكم
شكرا على التشجيع

الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ

هنا الدرس بالصوت و الصورة و عذرا على الاطالة
الاستاذ خليل

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

Dim trueq, falseq As Integer
Dim jawab As Boolean



Private Sub Comfalse_Click()
Comfalse.Enabled = False
Comtrue.Enabled = False
If jawab = False Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

End Sub

Private Sub Comsoal_Click()
Randomize

Dim a, b As Integer
a = Int(Rnd * 2)

b = Int(Rnd * 101)

If a = 0 Then
soal.Caption = "ناتج ضرب " & b & "×" & 10 & "=" & b * 100
jawab = False
Else
soal.Caption = "ناتج ضرب " & b & "×" & 10 & "=" & b * 10
jawab = True
End If
Comtrue.Enabled = True
Comfalse.Enabled = True
End Sub

Private Sub Comtrue_Click()
Comtrue.Enabled = False
Comfalse.Enabled = False
If jawab = True Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
End Sub


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,08/رجب/1428 هـ,11:35 صباحاً
المشاركة #9

الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: أعضاء الشرف
المشاركات: 517
سجل في:الاثنين,06/ربيع الثاني/1428 هـ,12:02 مساءً
الدولة:أخرى
رقم العضوية: 24215



واصل اخي مجهودك في ميزان الحسنات انشاء الله...هل نضع الواجب هنا ايضاً؟؟؟؟؟؟


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالاثنين,09/رجب/1428 هـ,08:20 صباحاً
المشاركة #10

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 78
سجل في:الاثنين,02/شعبان/1426 هـ,05:30 مساءً
الدولة:البحرين
رقم العضوية: 5178



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

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

Dim trueq, falseq As Long
Dim a, b, c As Integer
Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer

Private Sub Comfalse_Click()
Comfalse.Enabled = False
Comtrue.Enabled = False
If jawab = False Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

End Sub

Private Sub Com1_Click()
Com1.Enabled = False
Com2.Enabled = False
Com3.Enabled = False
Com4.Enabled = False

trueq = trueq + 1

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة صحيحة"

Labeltruefalse.Visible = True

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


DoEvents ' Yield To other processes.
Loop


Comsoal_Click

Labeltruefalse.Visible = False

End Sub

Private Sub Com2_Click()
Com1.Enabled = False
Com2.Enabled = False
Com3.Enabled = False
Com4.Enabled = False

falseq = falseq + 1

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة خاطئة"

Labeltruefalse.Visible = True

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


DoEvents ' Yield To other processes.
Loop


Comsoal_Click
Labeltruefalse.Visible = False
End Sub

Private Sub Com3_Click()
Com2_Click
End Sub

Private Sub Com4_Click()
Com2_Click
End Sub

Private Sub Comsoal_Click()
If trueq + falseq = 10 Then
MsgBox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbOKOnly, "رسالة البرنامج"
Comsoal.Visible = True
End If

Comsoal.Visible = False
Com1.Visible = False
Com2.Visible = False
Com3.Visible = False
Com4.Visible = False

Randomize

a = Int(Rnd * 3)
b = Int(Rnd * 101)
c = Int(Rnd * 3)

If a = 0 Then
a = 10

If c = 0 Then
b = b * 10
ElseIf c = 1 Then
b = b * 100
ElseIf c = 2 Then
b = b * 1000
End If


ElseIf a = 1 Then
a = 100

If c = 0 Then
b = b * 100
ElseIf c = 1 Then
b = b * 1000
ElseIf c = 2 Then
b = b * 10000
End If


ElseIf a = 2 Then
a = 1000

If c = 0 Then
b = b * 1000
ElseIf c = 1 Then
b = b * 10000
ElseIf c = 2 Then
b = b * 100000
End If

End If



soal.Caption = "ناتج قسمة " & b & "÷" & a & "="

Com1.Caption = b / a
Com2.Caption = (b / a) * 10
Com3.Caption = (b / a) * 100
Com4.Caption = (b / a) * 1000

L1 = Com1.Left
L2 = Com2.Left
L3 = Com3.Left
L4 = Com4.Left
T1 = Com1.Top
T2 = Com2.Top
T3 = Com3.Top
T4 = Com4.Top

Dim v As Integer
v = Int(Rnd * 4)
If v = 0 Then
Com1.Left = L1
Com2.Left = L2
Com3.Left = L3
Com4.Left = L4
Com1.Top = T1
Com2.Top = T2
Com3.Top = T3
Com4.Top = T4
ElseIf v = 1 Then
Com2.Left = L1
Com1.Left = L2
Com3.Left = L3
Com4.Left = L4
Com2.Top = T1
Com1.Top = T2
Com3.Top = T3
Com4.Top = T4
ElseIf v = 2 Then
Com3.Left = L1
Com2.Left = L2
Com1.Left = L3
Com4.Left = L4
Com3.Top = T1
Com2.Top = T2
Com1.Top = T3
Com4.Top = T4
ElseIf v = 1 Then
Com4.Left = L1
Com3.Left = L2
Com2.Left = L3
Com1.Left = L4
Com4.Top = T1
Com3.Top = T2
Com2.Top = T3
Com1.Top = T4
End If

Com1.Enabled = True
Com2.Enabled = True
Com3.Enabled = True
Com4.Enabled = True
Com1.Visible = True
Com2.Visible = True
Com3.Visible = True
Com4.Visible = True

End Sub

يرجى عمل احد المواضيع التالية :
برنامج جدول الضرب يعتمد على نفس الطريقة
برنامج حقائق القسمة
برنامج الضرب في 10 او 100 او الف
برنامج التقريب لاقرب اي منزلة تريدونها
برنامج لحلول معادلة معينة .
برنامج لمعرفة اي ربع لنقاط التمثيل على المحور السيني و الصادي مثلا
او اي برنامج تحبونه من منهجكم .

الاستاذ خليل


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

عدد الصفحات : 3  1  2  3   > » إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,06:35 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)