نجوم المشاركات

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

هذا الموضوع هو عملية لانشاء برنامج مبيعات مصغر اعتمادا على جدولين فقط ، الحركة ، وعمليات النقد ، ورأس الفاتورة مع ما يلزم من جداول الخدمة ، احاول فيه ان اجعل عملية التصميم والاستعلامات والاخراج اكثر مرونة واسهل في المعالجة . سيكون 80% من العمل لفهم المشروع وتصوره في محيط الجداول فقط بسم الله .. نبدأ : 1- جدول العملاء 2-جدول الفاتورة 3- جدول النقدية 4- جدول الحركة 5- جدول الاصناف اولا : جدول العملاء ويشتمل على المعرف ، واسم العميل ، ونوع العميل ( مورد ، زبون ) ، والعنوان ، والهاتف ...

بسم الله الرحمان الرحيم والصلاة والسلام علي سيدنا محمد اليوم سوف أقدم لكم برنامج مراقبة المبيعات العالمية هو خاص با الدول الأجنبية مثل المعاملات كا البترول و احصائيات نسبية في زيادة المردود منها الوارد والصادر حسب كل بلد أي كل بلد لديه نتائج المردودية المتحصل عليها .... أي استفسار حول هذا البرنامج فأنا تحت الخدمة ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @ برنامج مراقبة المبيعات العالمية 20172018.rar

السلام عليكم ورحمة الله وبركاته هذه أول محاضرة لدي في قسم البرمجة أردت فقط تنشيط الأعضاء في قسم برمجة الويب حتى نتمكن من مساعدة أحبائي الأعضاء و خبراء المنتدى لأن الحياة بدون علم ليس لديها أي معنى نظرا لي ضيق الوقت لدي لكن سأعمل جاهدا على أي أستفسار منكم و أعتذر لمن لم ألبي طلبه رغم ضيق الوقت والعمل لساعات اضافية............. بسم الله نبدأ على بركة الله سنبدأ باذن الله دورة لتعلم لغة PHP لتطوير تطبيقات الويب و سأحاول أن يحتوي على تطبيق عملي و انشاء الله بعد أن ننهي الدورة نبرمج موقع متكامل معا. ما نحتاجه منك قبل أن نبدأ : أن تكون لديك دراية باللغة الهيكلية HTML ولغة التنسيق CSS وإن لم تكن لديك تلك الخلفية فلا تحزن سنشرح مدخل سريع لكل منهما وبعض المراجع لتستطيع أن تتابع معنا الدورة أترك درس هنا وسوف أشرحه لك من الأول الى الآخر والسلام عليكم و رحمة الله و بركاته أخوكم في الله مناد سفيان الجزائر مدخل الى اللغة الهيكلية HTML مدخل الى لغة التنسيق CSS تهيئة الخادم لتشغيل ملفات PHP الدرس الأول - نبذه عن اللغة , المتغيرات , التعليقات , العمليات الحسابية , المؤثرات الدرس الثاني : - الثوابت, الشروط , العمليات المنطقية , عمليات المقارنة , حلقات الدوران الدرس الثالث : - المصفوفات , الدوال الدرس الرابع : - إرسال المتغيرات بين صفحات الموقع بإستخدام المتغيرات $_POST و $_GET , تضمين الصفحات بإستخدام include , التعامل مع النماذج وجلب القيم منها الدرس الخامس : - التعامل مع السلاسل النصية , التعابير القياسية Regular Expressions , دوال التعامل مع التعابير القاسية preg_match و preg_replace الدرس السادس : - مدى المتغيرات , تنسيق JSON , تطبيق لعملية التسجيل , تطبيق لعملية تسجيل الدخول الدرس السابع : - الجلسات sessions , الكعكات cookies , وتطبيق عليها في عملية تسجيل الدخول . الدرس الثامن : - التعامل مع الوقت و التاريخ , طرق اظهار التاريخ باللغة العربية . الدرس التاسع : - التعامل مع الملفات والمجلدات كإنشاءها وتعديلها ... الدرس العاشر - التعامل مع قواعد البيانات , تطبيق إنشاء جدول للمستخدمين وتطبيق عملية التسجيل وتسجيل الدخول من خلال قواعد البيانات . الدرس الحادي عشر : - رفع الملفات , تنسيق حقل رفع الملف , انشاء حقل تقدم رفع ملف . الدرس الثاني عشر : - التعامل مع الصور باستخدام php انشاء مصغرات , اضافة تأثيرات الى الصور .. الدرس الثالث عشر : - معايير كتابة الأكواد و تحسين أداء برامج php . الدرس 15 : - الحماية في تطبيقات php . برمجة الكائنات OBJECT ORIENTED PROGRAMMING ملخص سريع عن برمجة الكائنات وكيفية التعامل معها وتطبيقات عليها ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله بحمده .. سبحان الله العظيم @كل الحقوق محفوظة 2017@

السلام عليكم و رحمة الله و بركاته اخواني و اساتذتي الاعزاء ارفق لكم فكرة عمل مفضلة بحث لجلسة العمل الواحدة و فكرتها تشبه الى حد ما مفضلة متصفحات الانترنت ... و الفكرة تتلخص في التالي : انشاء مربع تحرير و سرد نوع مصدر الصف له قائمة قيم ... مربع التحرير و السرد هذا ليس له مصدر بيانات و لكن يتم اضافة القيم اليه من خلال زر اضافة و يتم حذف القيم منه باستخدام زر حذف ... و الفائدة من هذه الفكرة هي : انتقاء بعض السجلات و التنقل بينها بسهولة دون الرجوع الى نظام البحث بالبرنامج و تعمل قيم مربع التحرير و السرد المنتقاة كاشارات مرجعية محفوظة لجلسة العمل الواحدة . المثال يتكون من جدول اسمه tbl1 و نموذج اسمه frmFavourites و هذا النموذج مصدره الجدول النموذج يحتوي على مربع تحرير و سرد اسمه ( comboSearch ) لإضافة و حذف الاشارات المرجعية من خلال زري امر احدهما يحمل علامة + اسمه cmdAdd للاضافة و الاخر يحمل علامة - و اسمه cmdDelete للحذف. اكود المثال : 1: كود يجعل قيمة مربع التحرير و السرد عند فتح النموذج تساوي فراغ (Null) اي عدم وجود قيمة ظاهره به .. و هذا الكود هو بحدث عند الفتح للنموذج: Me.comboSearch = Null 2: كود بحدث عند النقر لزر الحذف cmdDelete و هذا الكود خاص بحذف القيمة الظاهرة على مربع التحرير و السرد عند عدم الحاجة اليها .. و هذا الكود كالتالي : On Error Resume Next Me.comboSearch.RemoveItem (Me.comboSearch.Value) Me.comboSearch = Null السطر الاول : يقوم باستئناف السطر التالي للكود عند وجود خطأ . السطر الثاني : يقوم بحذف العنصر المختار من مربع التحرير و السرد السطر الثالث : يقوم بازالة هذه القيمة حتى لا تبدو ظاهرة 3: كود بحدث بعد التحديث لمربع التحرير و السرد و هذا الكود خاص بعملية البحث في سجلات النموذج بناءً على قيمة حقل الاسم بالنموذج و الكود كالتالي : Me.txtName.SetFocus DoCmd.FindRecord Me!comboSearch If Me.comboSearch <> Me.txtName Then Me.comboSearch.RemoveItem (Me.comboSearch.Value) Me.comboSearch = Null End If السطر الاول : ينقل التركيز على مربع النص الخاص بالاسم حتى يتم تنفيذ عملية البحث. السطر الثاني : يقوم بعملية البحث بناءً على قيمة مربع التحرير و السرد السطر الثالث : باستخدام الجملة الشرطية If يتم مقارنة قيمة مربع التحرير و السرد مع قيمة مربع النص الخاص بالاسم . و هنا المقارنة بعدم المساواة .. اي اذا كانت قيمة مربع التحرير و السرد لا تساوي قيمة مربع النص ... السطر الرابع : في حالة عدم المساواة فإن هذا يعني عدم تطابق عملية البحث اي لا يوجد سجل مطابق لقيمة مربع التحرير و السرد . السطر الخامس : بناءً على عدم وجود قيمة كما هو موضح بالسطر الرابع فسيتم حذف هذا العنصر من مربع التحرير و السرد. السطر السادس : و سيتم حذف القيمة الظاهرة على مربع التحرير و السرد الخاصة بالعنصر المحذوف. السطر السابع : انهاء الجملة الشرطية If . 4: و هذا الكود خاص بزر اضافة الاشارات المرجعية للسجلات الى مربع التحرير و السرد ليتم استخدامها .. و هو كالتالي : Dim i As Integer If IsNull(Me.txtName) Then MsgBox "لا يوجد قيمة للإضافة", vbMsgBoxRight, "تنبيه" Exit Sub End If For i = 0 To Me.comboSearch.ListCount If Me.comboSearch.ItemData(i) = Me.txtName Then Exit For i = i + 1 Else Me.comboSearch.AddItem (Me.txtName) MsgBox "تمت اضافة اشارة مرجعية", vbOKOnly + vbMsgBoxRight, "اشارة مرجعية" Exit Sub End If Next السطر الاول : تعريف متغير من نوع عدد صحيح السطر الثاني : استخدام الجملة الشرطية If لاختبار قيمة مربع النص الخاص بالاسم ان كانت خالية . السطر الثالث : سيتم اظهار رسالة للمستخدم تخبره بعدم وجود قيمة للاضافة . السطر الرابع : الخروج من الاجراء السطر الخامس : انهاء الجملة الشرطية If . السطر السادس : استخدام الحلقة التكرارية For ... Next للمرور على جميع عناصر مربع التحرير و السرد ، و تم استخدام هذه الحلقة التكرارية ليتم مقارنة قيمة مربع النص الخاص بالاسم مع كل عنصر من عناصر مربع التحرير و السرد حتى يتم تفادي اضافة قيمة موجودة مسبقاً من ضمن عناصر مربع التحرير و السرد. السطر السابع : باستخدام الجملة الشرطية If يتم اختبار قيمة عنصر مربع التحرير و السرد للفهرس المساوي للمتغير I علماً بأن القيمة ستبدأ بالصفر لاول عنصر من عناصر مربع التحرير و السرد و تزداد هذه القيمة بمقدار واحد ( كما هو موضح بالسياق ) فإذا كانت مساوية لقيمة مربع النص فإن هذا يعني ان العنصر هذا موجود مسبقاً من ضمن عناصر مربع التحرير و السرد. السطر الثامن : يتم الخروج من الحلقة التكرارية. السطر التاسع : اضافة واحد الى قيمة المتغير I ليتم المرور على العنصر التالي من عناصر مربع التحرير و السرد. السطر العاشر : تعني و الا .. اي اذا كانت قيمة عنصر مربع التحرير و السرد لا تساوي قيمة مربع النص . اي ان قيمة مربع النص الخاصة بالاسم غير موجودة ضمن عناصر مربع التحرير و السرد. السطر الحادي عشر : يتم اضافة القيمة الى مربع التحرير و السرد. السطر الثاني عشر : يتم اخبار المستخدم برسالة بأن العنصر تمت اضافته. السطر الثالث عشر : يتم الخروج من الاجراء . السطر الرابع عشر : انهاء الجملة الشرطية If . السطر الخامس عشر : العودة للحلقة التكرارية الى ان يتم المرور على جميع عناصر مربع التحرير و السرد. اعتذر على الاطالة و ارجو ان اكون وفقت في شرح الفكرة و خصوصاً لاخواني المبتدئين حتى يسهل عليهم تطبيقها ان ارادوا الاستفادة منها . اليكم المثال بالتوفيق للجميع مفضلة البحث لجلسة العمل الواحدة.rar

هذا ملف الأستاذ محمود الشريف قمت بعمل إضافات عليه وأعتقد أنه يفي الغرض فصول محمود الشريف.rar

أشكرك على سرعة الاستجابة أستاذ @يوسف أحمد لكن قبل أبدأ المناقشة أعيد تسجيل اعتراض الاستاذ @Shivan Rekany التالي نعم! لماذا لا يكون البحث في جميع الأسماء؟! ولماذا أقوم بتسجيل ما أريد البحث عنه؟!... استفهام الأستاذ شيفان كان اعتراضا مبطنا!.. وفي تقديري لا يزال قائما ويحسب للأستاذ شيفان، وإجابة الاستاذ يوسف كانت سطحية بعض الشيء! ولا لوم عليه في ذلك، لأن القصد من المثال هو توضيح الفكرة في طريقة التسجل في اعتقادي.. إذاً.. لماذا لا نأخد بالأمرين جميعا؛ فنجعل مربع التحرير يظهر الأسماء جميعا كالمعتاد، ثم نترك الخيار للمستخدم؛ ما إذا كان يرد تسجيل جلسة العمل من عدمه؛ عن طريق مربع اختيار.. ويتم السجيل في الخلفية في cl، على أن يكون ذلك للسجلات التي جرى عليها التعديل فقظ، يقع ذلك في حدث بعد التحديث للنموذج، ولو ظهر عدد السجلات التي تم تسجيلها في مربع نص بلون مميز يكون العمل أكثر تفاعلا وحيوية... عند العودة إلى جلسة العمل؛ إذا كان هناك سابق تسجيل يخير المستخدم فيما إذا كان يريد البحث في جميع السجلات أم السجلات التي جرى تسجيلها فقط.. عن طريق مربع اختيار أيضا.. وبهذه الطريقة تكتمل الصورة الجمالية للفكرة.. ونكون أرضينا الجميع!

توجد طريقة للبحث بنفس النموذج من خلال تكست بوكس وهي انشاء استعلام للنموذج من ( تبويب بيانات) وعمل كود Me.Requery للتكست بوكس ارفق قاعدة البيانات وسأقوم بالتعديل عليها

و عليكم السلام بخير استاذنا العزيز محمد سلامة دامكم بخير و عافية الاجمل مرورك بارك الله فيك .. اشكرك على مرورك العطر .. شرفتنا يالغالي الاروع مروك استاذنا الغالي و الرائع ابو ابو ابراهيم في الحقيقة ان الفكرة منذ فترة و كانت تحتوي على جدول للسجلات المراد البحث بها و لكنني احببت ان اجعلها لجلسة واحدة فحذفت الجدول و غيرت الطريقة ... فكرة ان يكون هناك خيار للمستخدم بالعودة الى جلسة العمل السابقة فكرة رائعة منك استاذنا مع انني اعتقد بأن المستخدم قد تزعجه الرسالة التي ستظهر له في كل مرة يفتح النموذج بينما لا يستخدم هذه الميزة دائماً ... مرفق المثال و به وحدة نمطية بها تعريف لــمجموعة اسميتها cl لتضاف اليها القيم و يتم من خلالها اعادة العناصر لمربع التحرير و السرد في حالة موافقة المستخدم على استخدام الجلسة السابقة و في حالة اختار المستخدم الخيار لا من الرسالة فان العناصر ستحذف من المجموعة . مفضلة البحث لجلسة العمل الواحدة.rar

اخي صديق المشكله عندك .. جزاك الله خيرا اخي ahmedkamelelsay ربنا يبارك فيك ويارب تكون استفدت

الفكرة وطريقة تسجيل البيانات بحد ذاتها رائعة أتمنى من الاستاذ @يوسف أحمد أن يوسع هذه الفكرة بجعل القيم تبقى في الذاكرة حتي وإن تم إغلاق النموذج! لأن الرجوع لجلسة العمل يكون في الغالب بعد إنهاء جلسة العمل. يبدأ العمل مثلا بخيار هل تريد تسجل جلسة العمل؟ فيبدأ التسجيل للسجلات التي يجرى العمل عليها.... الرجوع للعمل إذا كان هناك تسجل مسبق يبدأ مثلا بخيار هل تريد الرجوع لجلسة العمل السابقة... يمكن استخدام Collection Object طالما قاعدة البيانات مفتوحة.. كما يمكناستخدام جدول خاص إذا كان طلب الرجوع إلى جلسة البيانات السابقة بعد إغلاق قاعدة البيانات أتمني لك التوفيق..

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

جرب هذا الماكرو Option Explicit Sub Filter_me() Range("xfd1") = "الصف" Range("xfd2") = Range("i1") On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Range("a2:k500").AdvancedFilter xlFilterInPlace, Range("xfd1:xfd2") Range("xfd1:xfd2") = vbNullString End Sub

السلام عليكم كيف حالك استاذ يوسف . اتمني تكون بخير ماشاء الله مبدع دائما.. مثال جميل وله فوائد جيدة

ھذا الكود لفتح النموذج من اليسارك الاعلى الى يمينك للاسفل هذا عند فتح Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub وهذا في تايمر Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideHeight >= 3000 Then Me.InsideHeight = 4000 Me.InsideWidth = 4165 Me.TimerInterval = 0 End If End Sub وهذا الكود لفتح النموذج من يسارك الى يمينك عند الفتح Private Sub Form_Open(Cancel As Integer) Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub عند تايمر Private Sub Form_Timer() Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideWidth >= 4000 Then Me.TimerInterval = 0 Me.InsideWidth = 4165 End If End Sub وهذا من الاعلى الى الاسفل Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.TimerInterval = 100 End Sub Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 If Me.InsideHeight >= 4000 Then Me.TimerInterval = 0 Me.InsideHeight = 4165 End If End Sub واليك 3 نماذج بثلاث طرائق ثلاث طرائق جميلة لفتح نماذج.rar

اضافتا على ما قال استاذنا الحبيب يوسف احمد يجب ان يكون خاصية key preview للنموذج يساوي yes او عند فتح النمو«ج ان تستخدم ھذا الكود Me.KeyPreview = True ولانك تريد عند الضغط على F12 ان یفتح سجل جدید و یرکز الى حقل باركود اتفضل اليك هذا للنموذج الفرعي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF12 Then Forms!sh!SH_NO.SetFocus DoCmd.GoToRecord , , acNewRec Forms!sh!SH_A_F.SetFocus Me.BAR_COD.SetFocus End If End Sub لكن يجب ان تضغط على Shift او Ctrl مع F12

مجموعة أكواد جاهزة html بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتهاليوم جايب لكم مجموعة من الأكواد الجاهزة اللي راح تساعدكم في تصميم المواقع بلغة html وأروا أن يستفيد الجميع منها :-أكواد الhtml 1. جعل الصورة او الكلمة او جملة تتحرك <html><head><tilte><span lang="ar-sa">شبيه الريح 2002</span></title></head><body><marquee direction="right">هاااااااااااااي</marquee>يمكن إضافة خلفية لكلمة او كبر خطها نوعها و يمكن تحريكها بأشكالم مختلفةلوضع خلفية بلون <marquee background="red">جربه</marquee><marquee <font color="red" direction="right">ان شاء الله حلو</marquee>ملاحظة يمكن كتابة جميع هؤلاء داخل الكود<marquee <font color="red">باااااااااااااااي</marquee>2.كود زرين للامام وللخلف<form method="post"><input type="button"value="للخلف" onClick="gotoHist(-1)"><input type="button" value="للامام" onClick="gotoHist(1)"></form> 3. رسالة تظهر للزائر عندما يدخل لصفحتك<SCRIPT LANGUAGE="JavaScript"><!--window.alert("مرحبا بكم مع تحيات شبيه الريح 2002 بس ")// --></SCRIPT> 4. كود طلب ترشيح للموقعscript language="JavaScript"><!-- The JavaScript Source!! <a href="http://faam.8m.com.">function vote () {vote4alnadeem=window.open("http://www.arank.com/cgi-bin/rank/rankem.cgi?action=in&id=hamad999");} function cancel () {}if (confirm("هل ترشحنى لافضل مائه موقع عربى")) { vote();} else cancel()// --></script>5. كود لعداد رائع تستطيع وضعه في جميع صفحات مع ضرورة تغيير العنوان في كل مرة<img src="http://cgibin.erols.com/cgi-bin/Count.cgi?df=غير العنوان فى كل مره &ft=6&tr=N&dd=B&md=8">6. كود الشريط المتحرك<p align="center"><marquee bgcolor="#FFFFFF" width="468">شبيه الريح 2002</marquee></p>7. كود لإجبار المتصفح على عدم الاحتفاظ بصفحة مؤقتة و طلب الصفحة من الموقع فى كل مرة تزور فيها الصفحة.<META http-equiv="Pragma" content="no-cache">يتابع ... ::3:: 8. ضع خدمة القاموس (انجليزى-عربى) (عربى-انجليزى) فى موقعك<TABLE align=center cellSpacing=1 cellPadding=1 bgColor=#bbbbbb width=10% border=0><TD width=100% bgcolor=cccccc><FONT face='Verdana' color=#000000 size=2>Dictionary</font></td><TR><TD width=100% bgcolor=cccccc><Form Name='Search' method='POST' action='http://vbzoom.com/dictionary/index.php'><FONT face='Verdana' color=#000000 size=1><INPUT type='text' maxLength=50 size=20 name=FindWord><BR><input type=radio name=SearchMothod value=0 checked><B> Start Of Field </B><BR><input type=radio name=SearchMothod value=1><B> Any Part Of Field</B><BR><INPUT type=submit value='Find'></TD></form></TABLE>9.كود جالب اخبار جريدة الجزائر <iframe src="http://server1.الجزائر .com.sa/express/sitenews.asp?site=4852" width=250 height=25 frameborder=0 scrolling=no></iframe>10. لتغيير لون شريط التمرير في صفحة موقعك<STYLE>BODY {SCROLLBAR-FACE-COLOR: #808080; SCROLLBAR-HIGHLIGHT-COLOR: #eabc5a; SCROLLBAR-SHADOW-COLOR: #eabc5a; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #c0c0c0; SCROLLBAR-DARKSHADOW-COLOR: #eabc5a}</STYLE>11. اليوم والتاريخ بصفحتك<script LANGUAGE="JavaScript"><!-- This script and many more are available online from --><!-- The JavaScript Source!! http://javascriptsource.com --><!-- Beginvar day="";var month="";var myweekday="";var year="";mydate = new Date();myday = mydate.getDay();mymonth = mydate.getMonth();myweekday= mydate.getDate();weekday= myweekday;myyear= mydate.getYear();year = myyearif(myday == 0)day = " الأحد, "else if(myday == 1)day = " الأثنين, "else if(myday == 2)day = " الثلاثاء, "else if(myday == 3)day = " الاربعاء, "else if(myday == 4)day = " الخميس, "else if(myday == 5)day = " الجمعة, "else if(myday == 6)day = " السبت, "if(mymonth == 0) {month = "يناير "}else if(mymonth ==1)month = "فبراير "else if(mymonth ==2)month = "مارس "else if(mymonth ==3)month = "ابريل "else if(mymonth ==4)month = "مايو "else if(mymonth ==5)month = "يونيو "else if(mymonth ==6)month = "يوليو "else if(mymonth ==7)month = "اغسطس "else if(mymonth ==month = "سبتمبر "else if(mymonth ==9)month = "اكتوبر "else if(mymonth ==10)month = "نوفمبر "else if(mymonth ==11)month = "ديسمبر "document.write("<b><font face=Arial size=3> " + day + " " + myweekday + " - " );document.write(month + " - "+ year + "</font></b>");// End --></script> 12.ارسل الموقع لصديق<!-- TWO STEPS TO INSTALL EMAIL THIS PAGE:1. Copy the coding into the HEAD of your HTML document2. Add the last code into the BODY of your HTML document --><!-- STEP ONE: Paste this code into the HEAD of your HTML document --><HEAD><SCRIPT LANGUAGE="JavaScript"><!-- Original: Ronnie T. Moore --><!-- Web Site: The JavaScript Source --><!-- This script and many more are available free online at --><!-- The JavaScript Source!! http://javascript.internet.com --><!-- Beginfunction initMail(form) {text = "Check out this page: " + window.location;form.message.value = "Hi" + form.sendto.value + " (" + form.to.value + "):\n\n"+ text + "\n\nYour Friend,\n" + form.sendername.value + "(" + form.senderemail.value + ")";return (form.to.value != "");}// End --></script></HEAD><!-- STEP TWO: Copy this code into the BODY of your HTML document --><BODY><center><form name=emailform method=post action="http://cgi.freedback.com/mail.pl" target="_new" onSubmit="return initMail(this);"><input type=hidden name=subject value="** Check Out This Site! **"><input type=hidden name=message value=""><table><tr><td colspan=2 align=center><b><font color="#FF00FF">ارسل الموقع لصيق</font></b></td></tr><tr><td><font color="#FF00FF"><b>اسم صديقك</b></font><b><font color="#FF00FF">:</font></b></td><td><font color="#FF00FF"><b><input type=text name=sendto size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">بريد صديقك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=to size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">اســــــــــمك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=sendername size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">بــــــــــريدك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=senderemail size="20"></b></font></td></tr><tr><td colspan=2 align=center><input type=submit value="Ok!"></td></tr></table></form></center><p><center><p><a href="http://www.geocities.com/reo2003_eg">موقع شبي الريح 2002</a></p></center><p><!-- Script Size: 1.63 KB -->13.لمنع اعلانات النوافذ لمن يعاني من الاعلانات <!-- Start code //--><Script Language='Javascript'><!--eval(unescape('%66%75%6E%63%74%69%6F%6E%20%6F%70%6 5%6E%20%28%29%20%7B%72%65%74%75%72%6E%20%74%72%75% 65%3B%7D'));//--></Script>

شكرا ابا عبدالله على هذه المعلومة القيمة

هذه اضافة يسيرة بعد ما تفضل به أستاذنا أبا خليل تفضل: https://drive.google.com/file/d/0B3yVHfWpKqY3ZkdGR0NtdXhfUWc/view?usp=docslist_api