المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
السلام عليكم
يا اخوان هل يوجد مثال او كود لطريقة بدأ الوقت من 00:00 الى ان يتم ضغط زر حتى اجعله يقف في الوت المحدد .. يعني كأنه حساب الوقت
المشاركات : 150
المواضيع 17
الإنتساب : Jan 2014
السمعة :
8
الشكر: 731
تم شكره 418 مرات في 48 مشاركات
اخي الكريم لعلك تجد في هذا ما يفيدك ......
http://www.youtube.com/watch?v=DdBRbsfEP...XQm4Q8UUCG
الدكتور عاطف العراقي في تعلم الفيجوال بيسك
.................. و فوق كل ذي علم عليم ................
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
(07-06-14, 04:39 AM)raoe-041 كتب : اخي الكريم لعلك تجد في هذا ما يفيدك ......
http://www.youtube.com/watch?v=DdBRbsfEP...XQm4Q8UUCG
الدكتور عاطف العراقي في تعلم الفيجوال بيسك
اخي يعطيك العافية لكن ثلاث اربعاء تعليمي فالفيجول ان من الامثلة. اتمنى مثال او كود لحل مشكلتي
المشاركات : 403
المواضيع 2
الإنتساب : Feb 2014
السمعة :
65
الشكر: 32
تم شكره 835 مرات في 278 مشاركات
.....
منقول مع تعديل بسيط ليناسب طلبك
أضف عدد 1 من الأداة Label
Label1.Text = 00-00:00:00.000
أضف عدد 3 من الأداة Button
إبدأ = Button1.Text
توقف = Button2.Text
إعادة = Button3.Text
أضف عدد 1 من الأداة Timer
Timer1.Interval = 1
كود :
Dim Stopwatch As Stopwatch
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Stopwatch = Stopwatch.StartNew()
Stopwatch.Reset()
Label1.Text = "00-00:00:00.000"
Button1.Text = "بدء"
Button2.Text = "توقف"
Button3.Text = "إعادة"
Timer1.Interval = 1
End Sub
' Start() البدء
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Stopwatch.Start()
End Sub
' Pause() التوقف المؤقت
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Stopwatch.Stop()
End Sub
' Reset() الإعادة
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Stopwatch.Reset()
Dim elapsedTime As String = String.Format("{0:00}-{1:00}:{2:00}:{3:00}.{4:000}", 0, 0, 0, 0, 0)
Me.Label1.Text = elapsedTime
End Sub
' Tick العملية
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Stopwatch IsNot Nothing AndAlso Stopwatch.IsRunning Then
Dim ts As TimeSpan = Stopwatch.Elapsed
Dim elapsedTime As String = String.Format("{0:00}-{1:00}:{2:00}:{3:00}.{4:000}", ts.Days, ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds)
Me.Label1.Text = elapsedTime
End If
End Sub
.....
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
(09-06-14, 06:33 AM)vbnet كتب : .....
منقول مع تعديل بسيط ليناسب طلبك
أضف عدد 1 من الأداة Label
Label1.Text = 00-00:00:00.000
أضف عدد 3 من الأداة Button
إبدأ = Button1.Text
توقف = Button2.Text
إعادة = Button3.Text
أضف عدد 1 من الأداة Timer
Timer1.Interval = 1
كود :
Dim Stopwatch As Stopwatch
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Stopwatch = Stopwatch.StartNew()
Stopwatch.Reset()
Label1.Text = "00-00:00:00.000"
Button1.Text = "بدء"
Button2.Text = "توقف"
Button3.Text = "إعادة"
Timer1.Interval = 1
End Sub
' Start() البدء
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Stopwatch.Start()
End Sub
' Pause() التوقف المؤقت
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Stopwatch.Stop()
End Sub
' Reset() الإعادة
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Stopwatch.Reset()
Dim elapsedTime As String = String.Format("{0:00}-{1:00}:{2:00}:{3:00}.{4:000}", 0, 0, 0, 0, 0)
Me.Label1.Text = elapsedTime
End Sub
' Tick العملية
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Stopwatch IsNot Nothing AndAlso Stopwatch.IsRunning Then
Dim ts As TimeSpan = Stopwatch.Elapsed
Dim elapsedTime As String = String.Format("{0:00}-{1:00}:{2:00}:{3:00}.{4:000}", ts.Days, ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds)
Me.Label1.Text = elapsedTime
End If
End Sub
.....
شكرا لك وبارك الله فيك وتم تقييمك
|