تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مساعدة في كتابة كود برنامج
#1
السلام عليكم ورحمتة الله وبركاته

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

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

نريد ان نكتب تاريخ اخر ترقية في المربع الاول ومن ثم نحدد عدد السنوات من البوكس ومن يظهر لنا تاريخ الاستحقاق في المربع الثاني وعند تعدي التاريخ لعدد السنوات يظهر في المربع الثالث عدد السنوات التطويف

اتمنى وصلت الفكره يوجد المثال في المرفقات

ولكم جزيل الشكر مقدما


الملفات المرفقة
.rar   date.rar (الحجم : 1.42 ك ب / التحميلات : 97)
الرد }}}}
تم الشكر بواسطة:
#2
http://vb4arb.com/vb/showthread.php?tid=29
الرد }}}}
تم الشكر بواسطة: ابو اياد@
#3
اولا عدلت على المثال لكنه يضيف عددا معينا الى عدد السنوات فقط لا غير يعني ربما لن تكون النتيجة دقيقة

لذا عليك كتابة برنامج للعام الهجري حيث كم يوما فيه و هل توجد سنوات خاصة فيها عدد ايام اكثر (اذا لم يوجد ذلك اهمل هذه الخطوة)

و ما هي سنوات التطويف تلك


الملفات المرفقة
.rar   date.rar (الحجم : 1.69 ك ب / التحميلات : 104)
الرد }}}}
تم الشكر بواسطة: ابو اياد@
#4
بارك الله فيكم اخواني allayl و asto
التعديل رائع اخي asto لكن باقي سنوات التطويف وهي
اذا كان الشخص يستحق التترقية في 1\1\1433هـ والتاريخ الحالي هو 1\1\1435هـ يصبح سنوات التطويف 2 سنوات
ان شاءالله وصلت الفكره
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- أمسح كل الكود الموجود في مثال الأخ asto و إستبدله بهذا الكود :

كود :
Private Sub Command1_Click()

Text2.Text = Format$(DateAdd("YYYY", Val(Combo1.Text), Text1.Text), "YYYY/MM/DD")

Dim zYears As Integer, zMonths As Integer

Calendar = vbCalHijri

zYearsDiff = DateDiff("YYYY", Text2.Text, Date)
zMonthsDiff = DateDiff("M", Text2.Text, Date)
zMonthsDiff = zMonthsDiff - (zYearsDiff * 12)

If zMonthsDiff > 0 Then
   Text3.Text = zYearsDiff & "." & zMonthsDiff
Else
   Text3.Text = zYearsDiff
End If

End Sub

Private Sub Form_Load()

Dim I As Integer

Combo1.Clear

For I = 1 To 10
    Combo1.AddItem I
Next

End Sub

- ملاحظة :- إذا صار رقم سنوات التطويف فيه نقطه أو كسور فما بعد النقطه هو عدد الأشهر .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ابو اياد@ , ناجي إبراهيم
#6
مشكور استاذ VB_Coder
كود رائع وخفيف
طبعا انا اريد في خانة سنة التطويف اذا كان الناتج اكبر من السنة الحالية يظهر صفر واذا اصغر من السنة الخالية يظهر عدد موجب
ان شاءالله وصلت الفكره اخوي
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

- أضف هذا الجزء في آخر كود زر "احسب" :-

كود :
IF Val(Text3.Text) < 0 Then
    Text3.Text = "0"
End IF

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة:
#8
شكرا استاذ VB_Coder
بارك الله فيك واسف اتعبتك معي والله يكتب اجرك في كل ضغطه زر للبرنامج
والشكر لكل من رد على الموضوع
وتم شكر الجميع
الرد }}}}
تم الشكر بواسطة: VB_Coder


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج وارد ومصروفات abdohassan 7 184 12-09-17, 08:13 PM
آخر رد: abdohassan
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 164 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
  ممكن مساعدة في ايجاد حل لهذه المشكلة الغريبة مبرمج جديد 2 111 01-08-17, 04:18 AM
آخر رد: مبرمج جديد
  مساعدة VB6 مشكل تنصيب ومكافح الفيروسات bidai 3 106 29-07-17, 06:23 PM
آخر رد: bidai
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 85 27-07-17, 12:17 PM
آخر رد: shadi_alfares
  كيف كتابة نص عامودي في الاكتف ريبورت scsi7000 1 86 27-07-17, 11:15 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل يوجد برنامج تنصيب يبحث ويجمع ملفات برنامجي المصنوع من فجوال بيسك ؟؟ Microformt 3 145 11-07-17, 04:34 PM
آخر رد: Microformt
  تحزيم برنامج بالVB6 متصل بقاعدة بيانات أكسس اسلام الكبابى 13 389 08-07-17, 12:21 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] عمل برنامج شبكات ffmmffmm 0 115 29-06-17, 03:18 AM
آخر رد: ffmmffmm
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 185 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم