Jump to content

أبو هادي

الأعضاء
 View Profile  See their activity

  • Content Count

    276

  • Joined

  • Last visited

Posts posted by أبو هادي

  1. Posted · Report reply

    السلام عليكم

     

    أخي هذا ملف أكسس لن يعمل إلا بوجود "مايكروسوفت أكسس" على جهازك هذا أولا ،

    ثانيا يجب تقليل مستوى الأمان للـ "ماكرو" إلى أقل مستوى لتعمل الأكواد بالخطوات التالية :

    بعد تشغيل الأكسس وليس برنامج التقويم 3 :

    - إذهب إلى Tools ثم Macro ثم Security ثم Low ثم Ok

    - بعدها اقفل الأكسس ثم افتح ملف التقويم 3

     

    تحياتي .

  4. Posted · Report reply

    السلام عليكم

     

    برنامج (حاسبة) لدخول القمر ببرج العقرب حسب :

    - دائرة البروج الـ 12 القديمة .

    - دائرة البروج الـ 12 القديمة المصححة (أي باعتماد الإزاحة/التقهقر) .

    - دائرة البروج الـ 13 الحديثة .

     

    البرنامج نسخة تجريبية خاضعة للنقد والإنتقاد :rolleyes:

    استجابتي لتعديلات مقترحاتكم لن تكون سريعة وذلك لعدم تفرغي للبرمجة لعدة ظروف أهمها "الختيرة" .

     

    تحياتي .

  5. Posted · Report reply

    السلام عليكم

     

    هذه حسابات تقريبية وهي قريبة لحسابات تقويم الرضا الإلكتروني

     

    يدخل القمر في العقرب يوم السبت 13/06/1992م 12 ذو الحجة 1412هـ حسب أم القرى 11 ذو الحجة 1412هـ حسب جمعية الفلك بالقطيف

    الساعة 5:24 صباحا ،

    و

    يخرج القمر من العقرب يوم الإثنين 15/06/1992م 14 ذو الحجة 1412هـ حسب أم القرى 13 ذو الحجة 1412هـ حسب جمعية الفلك بالقطيف

    الساعة 2:33 مساء .

     

    والله أعلم .

     

    تحياتي .

     

     

    ملاحظة : لقد تم تصحيح السنة الميلادية .

  7. Posted · Report reply

    السلام عليكم

     

    آسف ، لم أعلم بمشاركتكم !!

     

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

    الرابط الثاني تم تصحيح العنوان .

     

    تحياتي .

  8. Posted · Report reply

    السلام عليكم

     

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

    أ = ( السنة الهجرية – 1 ) × 354.3667 ( اجبر الكسر إن بلغ النصف )

    ب = ( الشهر - 1 ) × 29.5 ( اجبر الكسر بواحد إن بلغ 0.5 )

    ج = اليوم + أ + ب + 1948438

     

    بعدها إجمع عليها يومان أي (ج + 2)

    ثم استخرج باقي القسمة على سبعة

    والناتج هو تسلسل اليوم من الأسبوع على أن ترتيب الأيام ستكون كالتالي :

    0 - السبت

    1 - الأحد

    2 - الإثنين

    3 - الثلاثاء

    4 - الأربعاء

    5 - الخميس

    6 - الجمعة

     

    تحياتي .

  10. Posted · Report reply

    السلام عليكم

     

    تم إضافة تقويم جمعية القطيف على التقويم 3

    كذلك تم إضافة تسلسل اليوم للفصول الأربعة .

     

    يوجد لدي مكان شاغر لتقويم إضافي ، لو تقترحون علي إضافة أي تقويم ترون أنه يستحق الإضافة أكون لكم من الشاكرين .

     

    تحياتي .

    Calendar3_20100115.zip

  12. Posted · Report reply

    السلام عليكم

     

    شكرا لك أخي الرئيس ودمت بصحة وعافية .

     

    بما أن الكود مصمم لتقويم الفيجوال بيزك يلزم الإنتباه للتالي :

    - التقويم هو الجريجوري وليس له علاقة بقفزة عشرة الأيام لتصحيح التقويم اليولياني بمعنى أن ما قبل تاريخ 15/10/1582م هو 14/10/1582م وليس 04/10/1582م .

    - عند الرغبة في الحصول على التاريخ القبطي قبل 01/01/0001 قبطي يلزم تبديل الدالة Fix بدالة Int .

    - لا ينصح باستخدام تقويم الفيجول بيزك قبل عام 101 جريجوري .

     

    تحياتي .

  13. Posted · Report reply

    السلام عليكم

     

    لقد صممت لكم هذا الكود خصيصا للفيجوال بيزك :

    Function Greg2Coptic(ByVal yy As Integer, _
                     ByVal mm As Integer, _
                     ByVal dd As Integer) As String
  Dim Days As Long
  
  Days = DateSerial(yy, mm, dd) + 365 + 589990
  yy = Fix((Days - 1 + 0.75) / 365.25)
  
  Days = Days - Fix(yy * 365.25)
  mm = Fix((Days - 1) / 30)
  
  dd = Days - mm * 30
  mm = mm + 1
  
  Greg2Coptic = Format(dd, "00/") & Format(mm, "00/") & Format(yy, "0000")
End Function

    تحياتي .

  16. Posted · Report reply

    السلام عليكم

     

    تصحيح المعادلات لتصبح أكثر مرونة ولتجنب أخطاء تبديل خانات الكسر :

    تعريف متغير الكسر أولا :

    Dim DP As Byte     'Decimal Places

DP = 4

     

    ثم المعالجة : 

    Lng = Left(Lng, Len(CStr(Lng)) - DP) + Right(Lng, DP) / Val(1 & String(DP, "0"))

    أو كالتالي :

    Lng = CDbl(Left(Lng, Len(CStr(Lng)) - DP) & "." & Right(Lng, DP))

     

    تحياتي .

  17. Posted · Report reply

    السلام عليكم

     

    بما أن الجدول لا يستخدم الفاصلة فحتما ولابد من عدد خانات محددة لكل الأطوال والعروض .

    عليه تأكد من عدد الخانات بعد الفاصلة وبدلها في الكود ، على سبيل المثال لو الخانات عددها أربعة فابحث عن رقم 2 في الكود وبدله برقم 4 .

    تمعن أكثر بجدول البيانات وسوف توافقني الرأي .

     

    تحياتي .

  18. Posted · Report reply

    السلام عليكم

     

    يجب أن تذكر اللغة التي تستخدمها أولا !

    وبافتراض أن اللغة المستخدمة هي الـ VB ومتغير خط الطول هو Lng فتكون المعالجة كالتالي :

    Lng = Left(Lng, Len(CStr(Lng)) - 2) + Right(Lng, 2) / 100

    أو كالتالي :

    Lng = CDbl(Left(Lng, Len(CStr(Lng)) - 2) & "." & Right(Lng, 2))

     

    تحياتي .

  19. Posted · Report reply

    السلام عليكم

     

    شكرا لكل من مر الموضوع .

     

    مشكور ولكن ما زالت ارقام الاشهر بحاجة الى تعديل

     

    أعتقد تقصد أرقام البروج الثلاثة عشرة !

    الأمر هين كان بإمكانك تبديل الأرقام بنفسك .

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

     

     

    تحياتي

    Constellations_20090925.zip

  20. Posted · Report reply

    السلام عليكم

     

    أخي سر الكون ،

    أنا لا أستخدم هذه الحسابات البتة .

    هي حسبة تقريبية سريعة تنفع لمن لا يمتلك أدوات الحساب الدقيق على أن يعرف :

    - ترتيب الأبراج .

    - معرفة التاريخ الهجري ليوم الحساب .

    - معرفة برج الشمس ليوم الحساب .

     

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

     

    تحياتي

  21. Posted · Report reply

    السلام عليكم

     

    شكرا أخي وعزيزي سالم الجعيدي وتحياتي الزهرية لك ،

    القلوب عند بعضها ،

    وسلامتك من الحروق والإنفطار :rolleyes:

     

    وشكرا أخي سر الكون على مرورك وأنا بانتظار أن تضع ما لديك من معلومات ومعادلات وشكرا سلفا .

     

    تحياتي .

  23. Posted · Report reply

    السلام عليكم

     

    حاولت أدخل على الرابط السابق ولم أستطع ، ولقد حصلت على رابط آخر يحتوي على نفس المعلومة :

    http://www.qassimnews.com/news-action-show-id-2174.htm

     

    وفي الموضوع رد ظريف أعجبني وهو يمثل حل على قدر بساطته لرفض الخضيري التعاون مع الفلكيين :

    [فهد نايف الحربي] [ 01/10/2008 الساعة 2:24 مساءً]

    الجدل الدائر كل سنة

    الحل بسيط امسك الخضيري راع الحوطه

    واركبوه بجيب واطلعوا بالمكان اللي يشوف فيه الهلال

    وخلوه يفتح عيونه وحطوا جنبه اكبر تلسكوب معكم ولاقال

    شفته امغطوا التلسكوب والماء تكذب الغطاس

     

    ((ابفهم ليش رفض يروح مع اللجنة )) ؟؟

    رحم الله امرئٍ جب الغيبة عن نفسه

     

    تحياتي

  24. Posted · Report reply

    السلام عليكم

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

    معلومة مفيدة .

     

    نأمل تزويدنا بأحداثيات حوطة سدير وارتفاعها عن سطح البحر إن أمكن .

     

    تحياتي

  25. Posted · Report reply

    السلام عليكم

     

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

    يعني الشمس إلى جهة الشمال والقمر إلى جهة الجنوب

     

    كما أن شكل الهلال لا يطابق الشكل المتوقع كما في الموضوع التالي :

    http://qasweb.org/qasforum/index.php?s=&am...ost&p=37241

     

    تحياتي .

×