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

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

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

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

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

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


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

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

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


الملفات المرفقة
.rar   date.rar (الحجم : 1.69 ك ب / التحميلات : 87)
الرد }}}}
تم الشكر بواسطة: ابو اياد@
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تفعيل اداة VSFlexGrid ياسر عبد الكريم 4 329 28-04-17, 03:14 AM
آخر رد: أبوسعود
  مساعدة فى إخفاء الملفات عبد الرحمن على 2 131 21-04-17, 04:30 PM
آخر رد: عبد الرحمن على
  [vb6.0] مساعدة في تعديل هاذا المثال Abdellah 5 176 20-04-17, 05:38 PM
آخر رد: Abdellah
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 6 227 12-04-17, 04:34 PM
آخر رد: الخير طهوري
  برنامج حساب ساعات إضافية فيصل علي 2 117 30-03-17, 02:17 AM
آخر رد: فيصل علي
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 166 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor
  محتاج برنامج ارشفه الكترونية مفتوح المصدر رجل الكهرباء 26 3,573 23-02-17, 04:59 PM
آخر رد: فهد الحياه
  [سؤال] برنامج شؤون الموظفين بصورة الموظف مروة سالم 5 284 11-02-17, 01:43 AM
آخر رد: Amir_alzubidy
  رابط تحميل برنامج 6.0 Microsoft Visual Basic ابو يسرية 2 186 08-02-17, 04:52 PM
آخر رد: ابو يسرية
Photo اريد مساعدة في جمع خليتين في عمود واحد يحملان نفس التاريخ عمر سالم 10 414 02-02-17, 01:58 AM
آخر رد: السيد الغالي

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


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