[mamas1]

السلام عليكم
لقد إستطعت بعد عدة محاولات أن أصنع عداد زمني (أو لا أعلم إسمه ) Chronométre
الآن بعد الضغط على save تخرج التوقيت في text1
بعد الضغط مرة أخرى يخرج التوقيت مرة أخرى لكن كيف أجعل البرنامج يخرج بجانب التوقيت الفرق بين التوقيت الحالي و التوقيت الذي قبله
أعني بطريقة أخرى
كيف أحسب الفرق بين
29:22:33 و 30:40:10 حيث هو على شكل hh:mms
وشكرا رجاء أنا محتاج لهذا الكود

[قناص المدينة]

Dim duration As TimeSpan = CDate(t2.Text) - CDate(t1.Text)
Txt3.Text = (duration.ToString).ToString

---

Dim duration As TimeSpan = CDate(t2.Text) - CDate(t1.Text)
Txt_streaming.Text = (duration.ToString).ToString

---

Dim duration As TimeSpan = CDate(t2.Text) - CDate(t1.Text)
Txt3.Text = (duration.ToString).ToString

[asto]

اولا تضع اثنين ليبل و واحد كوماند (ان اردت) و واحد تكست او ليبل آخر

يضاف هذا الى زر الstop

Label1.Caption = Label(0).Caption

و هذا هو الكود ضمن كوماند1 او في كوماند الحفظ :

كود :

Private Sub Command1_Click()
Dim u, uu, uuu, v, vv, vvv As Integer
u = Split(Label(0), ":")(0)
uu = Split(Label(0), ":")(1)
uuu = Split(Label(0), ":")(2)
v = Split(Label1, ":")(0)
vv = Split(Label1, ":")(1)
vvv = Split(Label1, ":")(2)
ua = uuu + (uu * 60) + (u * 3600)
va = vvv + (vv * 60) + (v * 3600)
w = ua - va
Dim h, s, m As Integer
h = w \ 3600
m = (w Mod 3600) \ 60
s = (w Mod 3600) Mod 60
Text2.Text = h & ":" & m & ":" & s
End Sub

--------------------------------------------------------------------------------------
لكن اذا اردت الاستعمال مع كوماند الحفظ عليك عمل عداد الضغظات
بوضع تكست او ليبل مخفي و في الفورم لود جعله = الصفر
و ضمن كوماند ابدأ اكتب اذا اخترنا تكست 3 مثلا
i=text3.text
i=i+1
text3.text=i
و اعده في كوماند الحفظ او الاستمرار كما تريد او حتى كليهما
و اضافة شرط الى الكوماند1 ايضا
if text3.text>1 then
Label1.Caption = Label(0).Caption
في البداية
و لا ننسى استبدال Private Sub Command1_Click() ب Public Sub Command1_Click()
و اضافة الكود التالي الى كواند الحفظ و الاستمرار
command1_click

[أبو عمر]

ضع ثلاث مربعات نص وتيمر وكوماند بوتن

PHP كود :

Private Sub Command1_Click()
Dim dtime1 As Date
Dim dTime2 As Date
Dim dTimeDiff As Date
dtime1 = CDate(Text1.Text)
dTime2 = CDate(Text2.Text)
dTimeDiff = dTime2 - dtime1
Text3.Text = Format$(dTimeDiff, "hh:nn:ss") 'nn is forminutes... if you use MM you'll get months...
End Sub
Private Sub Form_Load()
Text1 = Time
End Sub
Private Sub Timer1_Timer()
Text2.Text = Time
End Sub 


[mamas1]

شكرا لكم ردودكم شافية ووافية

[mamas1]

لا زالت لدي مشكلة
أنظر المرفق
عندما أضغط على أحد Label(index)
النتيجة لا تظهر صحيحة

[أبو عمر]

السلام عليكم

في المرفق مثال بسيط قد يفيدك في عملية الفرق بين وقتين
سواء دقائق ثواني او ساعات

ربما يساعدك لاني لم افهم اساس فكرتك فاعذرني على التقصير.

[mamas1]

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

00:00:01
00:00:03 00:00:02
00:00:05 00:00:02
00:00:09 00:00:04
عنما أضغط SAVE تخرج النتيجة صحيحة
لكن و نظرا لإستعمالي TEXT واحد لظهور النتائج فمثلا أنا سجلت بع النتائج لعداد معين
المشكلة أنني عندما أحاول إخراج النتائج لعداد آخر وذلك بالضغط على LABEL الخاصة بالعداد
لا يخرج لي النص صحيح

[asto]

يمكنك استعمال

كود :

u = Split(Label(0), ":")(0)
uu = Split(Label(0), ":")(1)
uuu = Split(Label(0), ":")(2)
text3.text=uuu & ":" & uu & ":" & u
حيث هنا فمنا بتقسيم ليبل و وضعناه بنفس الشكل في تكست

[VB_Coder]

السلام عليكم

- شاهد هذا المثال , ممكن يكون ماتريد .

- تحياتي .