أبو هادي

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

السلام عليكم يوجد تقويم بالأكسل بإسم "تقويم المناسبات" ، قد يكون مناسبا . تحياتي .

السلام عليكم نسخة جديدة بعد إضافة عمود لتصنيف الحدث وذلك لتقليص دليل الألوان أسفل التقويم ، كما تمت تنقيحات عدة . تحياتي . EventsCalendar_20070118.rar

السلام عليكم سعدنا بعودتك أخي خضر والعود أحمد وسررنا برؤية إسمك من جديد وبعد غياب طويل فحمدا لله على السلامة . وكل عام وأنت بخير وأيامك سعيدة . تحياتي .

السلام عليكم هناك مدخل للكسر تستطيع أن تبدله من إثنين إلى واحد . كما أن الدالة تفحص إسم المعدود فإذا كان الإسم "درجة" سوف تتخذ نمطا خاصا بالدرجات ويمكن خداع الدالة بتغيير الإسم وذلك بإضافة شرطة مد "_" ليصبح الإسم "درجـة" . أو يمكنك اختيار دالة أخرى كما اقترح عليك الأخ wessamh ويبدو من رده أنه مستاء من اختيارك لهذه الدالة . وأنا بدوري أحثه أي wessamh على القيام بتجربة كل الدوال والمقارنة بينها ثم نصحك بجديد على الدالة المناسبة حتى يكون لمساهمته فائدة أكبر من سابقتها . تحياتي .

السلام عليكم أشكرك أخي بو يوسف الراشد بالإصالة عن نفسي ونيابة عن الأخ husam2004 على مشاركتك الكريمة وبعد إذنك أشاركك الحل . مشكلة الهوامش مشكلة عويصة وخصوصا أن هناك دائما حد أدنى للهامش لا يمكن إنقاصه عن طريق الخصائص ولكن أعتقد ولا أجزم أننا عن طريق الكود يمكن التغلب عليها ، فلنجرب هذا الكود : With Printer .LeftMargin = 10 .TopMargin = 10 .RightMargin = 0 .BottomMargin = 0 End With ولنضعه في حدث عند فتح التقرير وإن لم ينجح فجرب أن تضعه في قسم رأس الصفحة حيث هناك ثلاثة أحداث إبدأ بحدث عند الطباعة وإن لم ينجح جرب الحدثين الآخرين . تحياتي .

السلام عليكم كثير ما يشتكي المبرمجون من مشكلة كتابة الأكواد للقوائم كمصدر الـ List Box و Combo Box عند استخدام الفاصلة للفصل بين العناصر ، حيث يوجد هناك الفاصلة والفاصلة المنقوطة . لكن المشكلة لا تطول عند تجربة الأكواد على أجهزتهم التي يبرمجون عليها ، لكنها تكون مزعجة عند استخدام البرامج من المستخدمين حين تكون الفاصلة مختلفة في الإعدادات الإقليمية لأجهزتهم . وقد يكون المستخدم يعي المشكلة فيقوم بحل المشكلة بتبديل الفاصلة للإعدادات الإقليمية ولكن : - ماذا بشأن من لا يستطيع أن يشخص المشكلة ؟ - ماذا لو كان يستخدم أكثر من برنامج يختلف فيهم نوع الفاصلة ؟ والحل هو كيفية الحصول على نوع الفاصلة من الإعدادات الإقليمة حسب الكود التالي : Option Explicit Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SLIST = &HC Private Declare Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long Function ListSeparator() As String Dim lReturn As Long Dim sSeparator As String sSeparator = Space(256) lReturn = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLIST, sSeparator, Len(sSeparator)) If lReturn <> 0 Then sSeparator = Left$(sSeparator, lReturn - 1) End If ListSeparator = sSeparator End Function ويمكن تجربة الدالة بهذا الإجراء البسيط : Sub Test() Dim MonthsList As String '-- MonthsList = "Jan" & "," & "Feb" MsgBox MonthsList, , "الفاصلة الإفتراضية للإنجليزي" '-- MonthsList = "Jan" & ";" & "Feb" MsgBox MonthsList, , "الفاصلة الإفتراضية للعربي" '-- Dim ls As String ls = ListSeparator MonthsList = "Jan" & ls & "Feb" MsgBox MonthsList, , "الفاصلة حسب الإعدادت الإقليمية" End Sub آمل أن ينتفع به . تحياتي .

السلام عليكم وصلة ذات صلة : http://www.officena.net/ib/index.php?s=&am...ost&p=65596 تحياتي .

السلام عليكم مرفق نسخة أحدث وجدتها بمنتدى أخي العزيز خضر الرجبي . تحياتي . ChangeOrientation20050706.rar

السلام عليكم الملف مرفق ، قد لا يكون موافقا لما طلبت تماما ولكن باعتقادي أنه مرضي . تحياتي . Elect_20061215.rar

السلام عليكم مرفق ملف آمل أن يفي بالمطلوب . تحياتي . TimeToYear_end.rar

السلام عليكم تحية لكم جميعا وبارك الله فيكم على جهودكم الواضحة : وصلة ذات صلة : http://www.officena.net/ib/index.php?s=&am...ost&p=57681 تحياتي .

السلام عليكم بكل تأكيد أخي رضوان سؤالك لا يخص مثال التعديل على الصور ، بل يخص برنامج خارطة الهلال . وسؤالك فلكي ويحتاج إلى قراءة ليست بالبسيطة لفهم المعايير المؤثرة في رؤية أهلة بداية الشهور وسأذكر ما يحضرني الآن على سبيل الإيجاز : 1 - "المكث" وهو الفترة مابين غروب الشمس وغروب الهلال . 2 - "العمر" وهو عمر الهلال منذ ولادته وحتى وقت غروب الشمس ليوم الإقتران أو الأيام التالية ليوم الإقتران . 3 - "الإرتفاع" وهو ارتفاع الهلال عن الأفق . 4 - "البعد" وهو البعد الزاوي بين مركزي الشمس والهلال . والألوان بالبرنامج تخص معيار يسميى بمعيار يالوب والمرمزة من A إلى F وهو معيار "معقد" يوضح امكانية رؤية الهلال . أما اللون الأحمر فهو يخص المعايير أعلاه من 1 إلى 3 حين لا يكون هناك مكث أو عمر أو ارتفاع ، ويبقى اللون الرمادي فهو للمواقع التي لا تستطيع المعادلات أن تعطي نتائج لها . علما أن البرنامج يعني بثلاثة أيام فقط أول كل شهر ابتداء من يوم الإقتران أو ولادة الهلال . لمزيد من المعلومات الفلكية تستطيع زيارة موقع جمعية الفلك بالقطيف . تحياتي .

السلام عليكم شكرا لك أخي محمد على اهتمامكم ومشاركتكم الكريمة . البرنامج يحتاج إلى ملف مكتبة واحد فقط في حال عدم تسجيله . الملف مرفق . سببه هو إخفاء الأكسس ، عطل الماكرو وجرب . تحياتي . FM20.rar

السلام عليكم شكرا لمرورك أخي الفاضل . افتح المثال باستخدام الشفت ثم قم بالتعديل على الكود حسب التعليمات بالمشاركة رقم 2 . تحياتي .

السلام عليكم هناك خطأ في الوحدة النمطية EditPicture في السطر التالي : .PicBox2.Visible = False وهو وجود النقطة بداية السطر وتصحيحه بإزالة النقطة كالتالي : PicBox2.Visible = False تحياتي .

السلام عليكم تم فتح موضوع جديد بإسم التعديل على الصور وإعادة حفظها بالكود . آمل أن وفيت بوعدي مع الإعتذار عن عدم قيامي بشرح المثال . تحياتي .

السلام عليكم كما وعدتكم في برنامج خارطة الهلال ها أنا أرفق لكم مثالا لكيفية التعديل على الصور ثم تخزينها . للمبتدئين ، لأسباب خاصة اسمحوا لي فلن أستطع شرح الأكواد وكلي أمل بالمحترفين أن يقوموا بهذا الدور بدلا مني . للمحترفين ، آمل من يستطع أن يفهم الكود جيدا أن يقوم بتفكيك الكود وتبسيطه للمبتدئين مع الشكر سلفا . كما أن هناك فكرة عمل مؤشر خاص يلحق بالفأرة وبه خاصية التثبيت وفك التثبيت . كما أن هناك فكرة احتساب خطي الطول والعرض وفارق التوقيت مع جرينتش . آمل أن ينتفع به . تحياتي . تم تعديل الملف بعد تنزيله عدد 42 مرة EditPic2.rar

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

السلام عليكم شكرا لكم جميعا على دعواتكم المخلصة وعلى مشاركاتكم الكريمة . كما أود أن أستسمحكم بأن تقبلوا تأجيلي في ما قطعته من وعد في ما يخص هذا البرنامج إلى وقت آخر . تحياتي .

السلام عليكم شكرا لك أخي محمد طاهر ويشرفني مرورك . أنا على أعتاب رحلة علاج مفتوحة المدة وبعد عودتي إن شاء الله سأقوم بعمل المستطاع فيما طلبت . أخي مالك ، أعتقد أن أكسس إكس بي هو أكسس 2002 إن لم أخطئ ، وربما هو شبيه تماما لأكسس 2003 ولن تكون هناك مشكلة في فتح ملفات 2003 على أكسس 2002 ، والله أعلم . عموما تحتاج إلى قراءة المشاركة الأولى مرة أخرى وفيها : - وجود الخارطة في نفس مسار البرنامج . - تسجيل ملف Fm20.dll في حالة عدم تسجيله سابقا . إذا تأكدت من هاتين الخطوتين ولم يعمل التطبيق فارفع لنا رسالة الخطأ إذا وجدت وإلا فانتظر عودتي على أعمل نسخة خاصة على أكسس 2000 . نسألكم الدعاء . تحياتي .

السلام عليكم أشكرك أخي التقني وأثمن لك اهتمامك بالموضوع . كما آمل من الجميع أن لا يزعجهم رفعي البرنامج بصيغة mde فهو برنامج وليس مثالا وقد سبق أن رفعت لكم برامج متخصصة بالباسكال والفجوال بيسك والحقيقة هو معد لموقع متخصص بالفلك ولكني رأيت أن أضعه لكم هنا عله ينتفع به . تحياتي .

السلام عليكم ملف خارطة الهلال إصدار 1.0.1 يتميز بدقته في رسم الخارطة ويحتوي على سبع مستويات من الدقة ويتفاوت في وقت الرسم حسب الدقة المختارة فمثلا الدقة السابعة قد تستغرق دقيقة ونصف أما الدقة الأولى فقد تصل إلى ساعة ونصف ( يعتمد حسب سرعة الجهاز ) . - يمكن استخدام الخارطة دون الحاجة لرسمها فهي تعطي كل النتائج بمجرد اختيار الموقع بتحريك الفأرة . - يمكن تثبيت الموقع بالضغط على أداة الخيار والتي تتوسط علامة التحديد التي تلحق الفأرة عند تحريكها . - كذلك يمكن تثبيت الموقع باستخدام نموذج التثبيت بعد الضغط على زر تثبيت الموقع . - يمكن فك التثبيت بالضغط على أداة الخيار مرة أخرى . - يمكن اختيار التاريخ بطلب التقويم (النتيجة) بالضغط على زر التقويم أو على مربع التواريخ يمين النموذج والإختيار متوفر بثلاث تقاويم هجري وميلادي وأم القرى . لعمل البرنامج مطلوب التالي : - أكسس 2003 أو أعلى . - وجود الخارطة في نفس مسار البرنامج . - تسجيل ملف Fm20.dll في حالة عدم تسجيله سابقا . طريقة تسجيل الأداة/الملف : - انسخ ملف Fm20.dll أولا في C:\Windows\System32 . - ثم افتح أكسس . - اختر من القائمة Tools . - ActiveX Controls . - Register . - ثم تحديد نوع الملفات : - Files of type: Libraries (*.dll) . - اختر المسار التالي : - C:\Windows\System32 . - ثم اختر ملف Fm20.dll . - OK . - تأكد الآن من وجوده الأداة بإسم Microsoft Forms 2.0 Image . كما أن هناك طريقة أخرى لتسجيل الملف عن طريق الويندوز يمكن استخدامها لمن يتقنها . إن شاء الله تعالى الإصدار القادم سيحتوي على استخدام أكثر من خارطة مبدئيا سوف تكون على مستوى القارات . هناك فكرة أن أجعل المستخدم يجلب الخارطة التي يرغب باستخدامها وعن طريق معالج يستطيع ربطها بالبرنامج ثم استخدامها مباشرة دون الرجوع إلى المبرمج . آمل أن يكون مفيدا . تحياتي . ملاحظة تم نقل الملف الي هذا الموضوع ( المواضيع المعروضة بالصفحة الرئيسية) بعد تحميله 568 مرة للتحميل

السلام عليكم شكرا لكما أخاي وبارك الله فيكما . تحياتي .

السلام عليكم Private Sub امر1_Click() Dim m As Variant Do m = InputBox("ادخل الرقم المطلوب ", , " ") If m = 0 Then MsgBox ("يجب عليك ادخال رقم اكبر من صفر") If m <> "" And Trim(m) = "" Then MsgBox ("يجب عليك ادخال قيمة حقيقية ") If m = "" Then MsgBox ("لقد تم الغاء العملية بطلب منك") If Val(m) > 0 Then MsgBox ("مبروك تمت العملية بنجاح") Loop Until m = "" Or Val(m) > 0 End Sub - تم تبديل نوع المتغير m . - عند الضغط على زر الإلغاء دائما ما تكون القيمة لا شيئ "" . - عند الضغط على زر نعم بدون إضافة أي قيمة سوف تكون القيمة هي نفسها عند الضغط على الإلغاء أي "" . - للتفريق بين زر الإلغاء وزر نعم للـقيمة "" قمت بإضافة مسافة " " كقيمة إفتراضية . - تم عمل تكرار loop لإرغام المستخدم على إدخال قيمة أو الإلغاء بطلب منه . تحياتي .