تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب اداة حساب زمن رقمي مثل الساعة
#1
[COLOR="#000000"]سلام عليكم ورحمة الله وبركاته

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

الاداة المطلوب حساب زمن رقمي مثل الساعة

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

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



طبعا هذه رسم وليست باداة

ارجوا ان لا اكون اثقلت عليكم وجزاكم الله خيرا
في انتظار ارائكم [/COLOR]
الرد }}}
تم الشكر بواسطة:
#2
هاهو طلبك بلغة الvb6


الملفات المرفقة
.zip   ساعة حساب الزمن.zip (الحجم : 1.97 ك ب / التحميلات : 60)
الرد }}}
تم الشكر بواسطة:
#3
[COLOR="#000000"]بارك الله فيك اخي اسلام والله متشكرك جدا
نزلت المشروع وما شاء الله انت عامل زي ما بدي لكن فيها خلل بس لو تصصحلي الخلل الي فيه بتكون فضلت على راس
شوفي اخي الخلل وين صورتلك صور

هي الصورة الاولة لما افتح البرنامك بيطلعلي في مربع العداد مكتوب فيها تكست مش اصفار
مثل الصورة


والصورة الثانية اخي لما اكبس على ابداء عم يظهرلي اصفار بدون ان يتحركوا ابداً


والصورة الثالثة لما اكبس على الايقاف
بيكتبلي العدد صح يعني الزمن المار لكن اثناء العد مش باين الزمن


والخلل الرابع اخي في زر الايقاف المفروض لما اكبس عليه يكتبي استمرار يعني يكون ايقاف مؤقت
حتى لو مافيها استمرار مافي مشكلة لكن لما اكبس مرى ثانية على ايقاف بيعطيني زمن جديد يعني وكانه ما توقف العدد
ارجوا اني وضحت الفكرة اكثر وجزاك ربي الفردوس الاعلى اخي الغالي

اتمنى تكمل معروفك معي لو عندك شوية وقت او اي احد من الاخوى يعدل على المشروع لاني والله ما بفهم بي الامور كتير
ملاحظة مش ضروري اخي العداد يكون في محل تكست حتى لو على الواجهة مش مشكلة المهم يعمل بكفائة ان شاء الله
وجزاكم الله عني خيرا
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#4
بالنسبة للمشكلة الأولى والرابعة فحلهم بتعديل الكود هكذا

كود :
Dim EKAFF As Integer
Dim uuuS1 As Integer, uuuS2 As Integer, uuuS As Integer
Dim uuuM1 As Integer, uuuM2 As Integer, uuuM As Integer
Dim uuuH1 As Integer, uuuH2 As Integer, uuuH As Integer


Private Sub Command1_Click()
EKAFF = 1
Label1.Visible = False
Text1.Text = "00:00:00"
uuuS1 = DateTime.Second(Now)
uuuM1 = DateTime.Minute(Now)
uuuH1 = DateTime.Hour(Now)
End Sub


Private Sub Command2_Click()
If EKAFF = 0 Then GoTo 100
Label1.Visible = True
uuuS2 = DateTime.Second(Now)
uuuM2 = DateTime.Minute(Now)
uuuH2 = DateTime.Hour(Now)
If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1
If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1
uuuS = uuuS2 - uuuS1
uuuM = uuuM2 - uuuM1
uuuH = uuuH2 - uuuH1
Text1.Text = uuuH & ":" & uuuM & ":" & uuuS
EKAFF = 0
100 End Sub


Private Sub Command3_Click()
Text1.Text = "00:00:00"
End Sub


Private Sub Form_Activate()
Text1.Text = "00:00:00"
End Sub

أما بالنسبة للمشكلة الثانية أو الثالثة)الزمن لايظهر الا بعد الضغط على الايقاف(
فسأقوم لك أيضآ بتعديلها باذن الله
الرد }}}
تم الشكر بواسطة:
#5
بعد إذن الأخ اسلام الكبابي.

المثال بالمرفقات.


الملفات المرفقة
.zip   count TIME.zip (الحجم : 5.18 ك ب / التحميلات : 49)
الرد }}}
تم الشكر بواسطة:
#6
وهذا هو الكود النهائى لحل جميع المشاكل بما فيهم المشكلة الثانية أو الثالثة
كود :
[align=left]Dim I As Integer
Dim J As Integer
Dim EKAFF As Integer
Dim uuuS1 As Integer, uuuS2 As Integer, uuuS As Integer
Dim uuuM1 As Integer, uuuM2 As Integer, uuuM As Integer
Dim uuuH1 As Integer, uuuH2 As Integer, uuuH As Integer
Private COK As Boolean


Private Sub Command1_Click()
EKAFF = 1
Label1.Visible = False
Text1.Text = "00:00:00"
uuuS1 = DateTime.Second(Now)
uuuM1 = DateTime.Minute(Now)
uuuH1 = DateTime.Hour(Now)
COK = True
Do While COK
10 uuuS2 = DateTime.Second(Now)
uuuM2 = DateTime.Minute(Now)
uuuH2 = DateTime.Hour(Now)
If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1
If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1
uuuS = uuuS2 - uuuS1
uuuM = uuuM2 - uuuM1
uuuH = uuuH2 - uuuH1
If uuuS < J Then GoTo 10
Text1.Text = uuuH & ":" & uuuM & ":" & uuuS
    DoEvents
Loop
End Sub


Private Sub Command2_Click()
COK = False
If EKAFF = 0 Then GoTo 100
Label1.Visible = True
uuuS2 = DateTime.Second(Now)
uuuM2 = DateTime.Minute(Now)
uuuH2 = DateTime.Hour(Now)
If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1
If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1
uuuS = uuuS2 - uuuS1
uuuM = uuuM2 - uuuM1
uuuH = uuuH2 - uuuH1
Text1.Text = uuuH & ":" & uuuM & ":" & uuuS
EKAFF = 0
100 End Sub


Private Sub Command3_Click()
Text1.Text = "00:00:00"
End Sub


Private Sub Form_Activate()
Text1.Text = "00:00:00"
End Sub

[/align]
الرد }}}
تم الشكر بواسطة:
#7
لم يرد علينا عمر
هل انتهت جميع المشاكل أم لا؟

الرد }}}
تم الشكر بواسطة:
#8
اخي اسلام جزاك الله خيرا وبارك الله فيك
تم تقيمك ياغالي . والحمد لله تم حل المشاكل
لكن للاسف في الايام الماضية كنت مشغول جدا
اعتزر منك على التاخير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15
  [سؤال] مثال على حساب المجموع حسن ايت حدو 1 1,783 27-03-18, 04:13 PM
آخر رد: Omar Abd
  اذا نسخت نص من ملف نصي والصقته في اداة List تظهر علماتا استفهام مهما غير من ترميز الم سعود 3 2,273 18-11-17, 11:14 AM
آخر رد: sendbad100
  وجدت مشروع على اداة Treeview algroob 5 3,922 31-05-16, 04:45 PM
آخر رد: طه القدسي
  [vb6.0] مشكلة مع اداة ocx chaabane 3 2,672 08-12-15, 05:24 PM
آخر رد: chaabane
  [vb6.0] مشكلة مع اداة ocx chaabane 1 2,045 08-12-15, 03:32 PM
آخر رد: Rahf Azezi
  [سؤال] مشكله فى اداة Calendar aboezzat84 4 3,287 22-08-15, 10:06 AM
آخر رد: aboezzat84
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 4,781 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  اداة يتم الكتابة عليها مثل الدتا للجريد magic200100 4 3,054 02-04-15, 11:18 PM
آخر رد: ahmedabdelaliem
  من فضلكم اريد اداة XP COMMAND BUTTON.OCX الخاصة بي WIN7 64BIT chaabane 3 3,605 28-02-15, 04:19 PM
آخر رد: InJuries

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


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