السلام عليكم
لقد إستطعت بعد عدة محاولات أن أصنع عداد زمني (أو لا أعلم إسمه
) Chronométre
الآن بعد الضغط على save تخرج التوقيت في text1
بعد الضغط مرة أخرى يخرج التوقيت مرة أخرى لكن كيف أجعل البرنامج يخرج بجانب التوقيت الفرق بين التوقيت الحالي و التوقيت الذي قبله
أعني بطريقة أخرى
كيف أحسب الفرق بين
29:22:33 و 30:40:10 حيث هو على شكل hh:mm
s
وشكرا
رجاء أنا محتاج لهذا الكود
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
اولا تضع اثنين ليبل و واحد كوماند (ان اردت) و واحد تكست او ليبل آخر
يضاف هذا الى زر ال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
شكرا لكم ردودكم شافية ووافية
لا زالت لدي مشكلة
أنظر المرفق
عندما أضغط على أحد Label(index)
النتيجة لا تظهر صحيحة
السلام عليكم
في المرفق مثال بسيط قد يفيدك في عملية الفرق بين وقتين
سواء دقائق ثواني او ساعات
ربما يساعدك لاني لم افهم اساس فكرتك فاعذرني على التقصير.
المشكلة ليست لدي في الفرق بين توقيتين
إنما كيفية إستخدامها في برنامج
أحاول أن أحصل على شيء كهذا
00:00:01
00:00:03 00:00:02
00:00:05 00:00:02
00:00:09 00:00:04
عنما أضغط SAVE تخرج النتيجة صحيحة
لكن و نظرا لإستعمالي TEXT واحد لظهور النتائج فمثلا أنا سجلت بع النتائج لعداد معين
المشكلة أنني عندما أحاول إخراج النتائج لعداد آخر وذلك بالضغط على LABEL الخاصة بالعداد
لا يخرج لي النص صحيح
السلام عليكم
- شاهد هذا المثال , ممكن يكون ماتريد .
- تحياتي .