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

[ابوخليل]

السلام عليكم

هدية طريفة .. وجدتها .. فاحببت ان اتحفكم بها

 

حساب الحمل.rar

[Foksh]

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

أكثر الله من هداياكم وعطاياكم معلمنا الفاضل .. وجزاكم الله كل الخير

 

يبدو أنني لست من المحظوظين لأن النسخة 32 ، وانا عندي الإصدار 2016 - 64 😥 

[ابوخليل]

ولا يهمك اخي العزيز

 هذه النسخة مقفلة .. سأبحث عن الأصل .. وأقدمها بإطار افضل  ان شاء الله

[Foksh]

جزاك الله عنا كل الخير ..

انا اعجبتني الفكرة ، وقد تكون إضافة مميزة لبرنامج عيادات نسائية  

تم تعديل منذ 12 ساعات بواسطه Foksh

[ابوخليل]

تفضل 

علما انه تم استبدال المرفق السابق بهذا

الفكرة بسيطة جدا .. اولا واخيرا هي فكرة طبية

    Dim Dday As Integer
    Dim i As Double
    Dim sc As Integer
    Dim d1 As Date
    Dim s1 As String
    Dim m1 As Date
      i = DateDiff("d", Date, Text1)
      me.w1 = Abs(i \ 7)
      me.dx = Abs(i Mod 7)
      m1 = DateAdd("d", 280, Text1)
    Dday = Weekday(m1)
If Dday = 1 Then yom.Text = "الأحد"
If Dday = 2 Then yom.Text = "الاثنين"
If Dday = 3 Then yom.Text = "الثلاثاء"
If Dday = 4 Then yom.Text = "الأربعاء"
If Dday = 5 Then yom.Text = "الخميس"
If Dday = 6 Then yom.Text = "الجمعة"
If Dday = 7 Then yom.Text = "السبت"
  me.h1 = Format(m1, "YYYY/MM/DD")

حساب الحمل.rar

[Foksh]

4 دقائق مضت, ابوخليل said:

حساب الحمل.rar 126.28 kB · 0 downloads

زاد الله فضلك ، وأشكرك اهتمامك معلمي الفاضل ، ولكن للأسف لم تكتمل اللحظة 😥

[ابوخليل]

تفضل

ضعه في sysWoW64

قد يحتاج لتسجيل

وسوف ارفق ملف اكسس ايضا 

MSSTDFMT.rar

وهذا اكسس

وزيادة الخير خير

اظهار التاريخ الهجري

Dim i As Integer
Dim sc As Integer
Dim d As Date
Dim s As String
i = Date - t1
w1 = i \ 7
d1 = i Mod 7
m1 = t1 + 280
yom = Format(m1, "dddd")
sc = Calendar
Calendar = 0
m1.SetFocus
d = CDate(m1.Text)
Calendar = 1
s = CStr(d)
h1 = Format(s, "YYYY/MM/DD")
Calendar = sc

 

db4.rar

[Foksh]

جزااكم الله خيراً ، فعلاً تم تشغيل البرنامج بعد تسجيل الملف ، وللفائدة بطريقة التسجيل :-

افتح CMD موجه الأوامر كمسؤول ، تأكد من نسخ الملف المرفق "MSSTDFMT.DLL" في مشاركة معلمي أبو خليل الى المسار :-

C:\Windows\SysWOW64

اذا كان الويندوز 64 .

ثم اكتب الأمر التالي للتسجيل :-

regsvr32 "C:\Windows\SysWOW64\MSSTDFMT.DLL"

 

حتى تحصل على النتيجة التالية :

 

 

صورة البرنامج :-

 

أجدت فيما طرحت ، وأبدعت معلمي الفاضل  

[ناقل]

هذا برنامج اخر يقوم بنفس الوظيفة تقريبا ......................

 

في 13‏/2‏/2021 at 04:06, husamwahab said:

تفضل التعديل ارجو ان يكون طلبك

حساب تاريخ الحمل-11.rar 51.04 kB · 104 downloads

 

تم تعديل منذ 10 ساعات بواسطه ناقل

[ابو جودي]

ودى قاعدة كنت عملتها لطبيب صديقى  

 

ExpectedDeliveryDate.accdb

[ابوخليل]

20 دقائق مضت, ابو جودي said:

ودى قاعدة كنت عملتها لطبيب صديقى  

 

كلمة السر  280  

قرابة 9 أشهر  وكم يوم

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

[ابو جودي]

35 دقائق مضت, ابوخليل said:

كلمة السر  280  

قرابة 9 أشهر  وكم يوم

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

قمت بالتصميم بناء على ما شرحه لى الطبيب

[Foksh]

عمل جميل .. ويعطي معلومات مفيدة أيضاً ..

وعجبتني فكرة الشهر القمري تقريباً ، في الجملة :-

Months = GestationalAge / 30.42

 

[ابو جودي]

53 دقائق مضت, ابوخليل said:

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

وممكن تعديل المرفق ليرضى جميع الاطراف وليكون اكثر مرونة بالشكل التالى

استخدام txtCycleLength في حسابات الكود:

عند إدخال قيمة CycleLength في هذا الحقل سيأخذ الكود في اعتباره هذه القيمة لتعديل حساب تاريخ الولادة المتوقع بشكل أساسي:

• إذا كانت الدورة أطول من 28 يوم سيضيف الكود هذه الأيام الإضافية إلى الـ 280 يوم

• إذا كانت الدورة أقصر من 28 يوم سيخصم الكود الأيام المناسبة

مثال عملي:

• دورة 28 يوم: لا يتغير شيء يبقى تاريخ الولادة المتوقع كما هو (280 يوم)

• دورة 30 يوم: سيضاف يومان (280 + 2 = 282 يوم) إلى تاريخ الولادة المتوقع

• دورة 26 يوم: سيخصم يومان (280 - 2 = 278 يوم) من تاريخ الولادة المتوقع

 

 

 

ExpectedDeliveryDate(2).accdb

[ابو جودي]

واذا حد مهتم فى الموضوع ويريد حسابات ومعلومات أكثر 

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

ExpectedDeliveryDate(3).accdb

[ابوخليل]

منذ ساعه, ابو جودي said:

واذا حد مهتم فى الموضوع ويريد حسابات ومعلومات أكثر 

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

ما شاء الله .. 

كفيت ووفيت  .. ثقافة طبية جميلة شاملة

[Foksh]

من باب النكاش لا النقاش 

الى ماذا استندت في :-

        ' حساب وزن الجنين المتوقع (بناءً على معادلة تقريبية)
        Select Case Weeks
            Case 8 To 12
                EstimatedWeight = 1 + (Weeks - 8) * 6 ' نمو سريع في الثلث الأول (1-25 جم)
            Case 13 To 20
                EstimatedWeight = 25 + (Weeks - 13) * 40 ' نمو في الثلث الثاني (25-300 جم)
            Case 21 To 30
                EstimatedWeight = 300 + (Weeks - 21) * 80 ' زيادة مطردة (300-1100 جم)
            Case 31 To 40
                EstimatedWeight = 1100 + (Weeks - 31) * 200 ' نمو كبير في الثلث الثالث (1100-3500 جم)
            Case Else
                EstimatedWeight = 3500 ' الحد الأقصى التقريبي عند الولادة
        End Select
        Me.txtEstimatedWeight = Format(EstimatedWeight, "0") & " جرام"
        
        ' حساب طول الجنين المتوقع (بالسنتيمتر)
        Select Case Weeks
            Case 8 To 12
                EstimatedLength = 2 + (Weeks - 8) * 1.5 ' نمو سريع (2-8 سم)
            Case 13 To 20
                EstimatedLength = 8 + (Weeks - 13) * 2 ' نمو مطرد (8-22 سم)
            Case 21 To 30
                EstimatedLength = 22 + (Weeks - 21) * 2.5 ' زيادة في الطول (22-45 سم)
            Case 31 To 40
                EstimatedLength = 45 + (Weeks - 31) * 0.5 ' نمو بطيء (45-50 سم)
            Case Else
                EstimatedLength = 50 ' الحد الأقصى التقريبي عند الولادة
        End Select
        Me.txtEstimatedLength = Format(EstimatedLength, "0.0") & " سم"

 

حيث أن هذه المعادلات ليست دقيقة طبياً ، لأن وزن وطول الجنين يعتمدان على عوامل وراثية ، تغذوية ، وصحية للأم .

في التطبيقات الطبية الحقيقية ، يتم الاعتماد على جداول معتمدة (مثل منحنيات WHO) أو قياسات السونار .