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

اخواني اريد طريقة او كود او مثال لعمل ساعة مؤقت تنازلي بحيث اذا وضعت 00:30
يقوم بالعد التنازلي من 00:30 الى ان يتم 00:00 يقوم باصدار صوت انذار ..

وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
.....

منقول مع تعديل بسيط ليناسب طلبك

أضف عدد 4 من الأداة NumericUpDown (اليوم، الساعة، الدقيقة، الثانية)
اليوم: NumericUpDown1.Maximum = 100
الساعة: NumericUpDown2.Maximum = 24
الدقيقة: NumericUpDown3.Maximum = 60
الثانية: NumericUpDown4.Maximum = 60

أضف عدد 1 من الأداة Label
Label1.Text = 00-00:00:00.000

أضف عدد 3 من الأداة Button
إبدأ = Button1.Text
توقف = Button2.Text
إعادة = Button3.Text

أضف عدد 1 من الأداة Timer
Timer1.Interval = 1

في الإجراء Finished ضع ما تريد من تنبيه
كود :
Dim Stopwatch As Stopwatch
Dim day = 0, hour = 0, minute = 0, second = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Stopwatch = Stopwatch.StartNew()
    Stopwatch.Reset()
    NumericUpDown1.Maximum = 100
    NumericUpDown2.Maximum = 24
    NumericUpDown3.Maximum = 60
    NumericUpDown4.Maximum = 60
    Label1.Text = "00-00:00:00.000"
    Button1.Text = "إبدأ"
    Button2.Text = "توقف"
    Button3.Text = "إعادة"
    Timer1.Interval = 1
End Sub


' Finish() الإنتهاء
Private Sub Finish()
    Beep ''<<<<<<<<<<<<<<<<<<<<< صوت تنبيه بالنهاية
    MsgBox("إنتهى") ''<<<<<<<<<<<<<<<<<<<<<
End Sub


' Start() البدء
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If New TimeSpan(day, hour, minute, second, 0) <> New TimeSpan(0, 0, 0, 0, 0) Then
        Stopwatch.Start()
        Timer1.Start()
    End If
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}", day, hour, minute, second, 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 ts1 As TimeSpan = Stopwatch.Elapsed
        Dim ts2 As New TimeSpan(day, hour, minute, second, 0)

        Dim ts As TimeSpan = ts2 - ts1

        If ts1.Duration >= New TimeSpan(day, hour, minute, second, 0) Then
            Timer1.Stop()
            ts = New TimeSpan(0, 0, 0, 0, 0)
            Me.Label1.Text = String.Format("{0:00}-{1:00}:{2:00}:{3:00}.{4:000}", 0, 0, 0, 0, 0)
            Finish()
        End If

        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

' NumericUpDown value changed تغير قيم الضبط
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles NumericUpDown1.ValueChanged, NumericUpDown2.ValueChanged, NumericUpDown3.ValueChanged, NumericUpDown4.ValueChanged
    day = NumericUpDown1.Value
    hour = NumericUpDown2.Value
    minute = NumericUpDown3.Value
    second = NumericUpDown4.Value
End Sub

.....
الرد }}}}
تم الشكر بواسطة: الشاكي لله , shado1796
#3
(02-06-14, 07:14 AM)vbnet كتب : .....

منقول مع تعديل بسيط ليناسب طلبك

أضف عدد 4 من الأداة NumericUpDown (اليوم، الساعة، الدقيقة، الثانية)
اليوم: NumericUpDown1.Maximum = 100
الساعة: NumericUpDown2.Maximum = 24
الدقيقة: NumericUpDown3.Maximum = 60
الثانية: NumericUpDown4.Maximum = 60

أضف عدد 1 من الأداة Label
عرض الزمن المتبقي: Label1

أضف عدد 3 من الأداة Button
إبدأ: Button1
توقف: Button2
إعادة: Button3

أضف عدد 1 من الأداة Timer


في الإجراء Finished ضع ما تريد من تنبيه
كود :
Dim Stopwatch As Stopwatch
Dim day = 0, hour = 0, minute = 0, second = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Stopwatch = Stopwatch.StartNew()
    Stopwatch.Reset()
    NumericUpDown1.Maximum = 100
    NumericUpDown2.Maximum = 24
    NumericUpDown3.Maximum = 60
    NumericUpDown4.Maximum = 60
    Timer1.Interval = 1
End Sub


' Finish() الإنتهاء
Private Sub Finish()
    Beep ''<<<<<<<<<<<<<<<<<<<<< صوت تنبيه بالنهاية
    MsgBox("إنتهى") ''<<<<<<<<<<<<<<<<<<<<<
End Sub


' Start() البدء
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If New TimeSpan(day, hour, minute, second, 0) <> New TimeSpan(0, 0, 0, 0, 0) Then
        Stopwatch.Start()
        Timer1.Start()
    End If
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}", day, hour, minute, second, 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 ts1 As TimeSpan = Stopwatch.Elapsed
        Dim ts2 As New TimeSpan(day, hour, minute, second, 0)

        Dim ts As TimeSpan = ts2 - ts1

        If ts1.Duration >= New TimeSpan(day, hour, minute, second, 0) Then
            Timer1.Stop()
            ts = New TimeSpan(0, 0, 0, 0, 0)
            Me.Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}.{4:000}", 0, 0, 0, 0, 0)
            Finish()
        End If

        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

' NumericUpDown value changed تغير قيم الضبط
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles NumericUpDown1.ValueChanged, NumericUpDown2.ValueChanged, NumericUpDown3.ValueChanged, NumericUpDown4.ValueChanged
    day = NumericUpDown1.Value
    hour = NumericUpDown2.Value
    minute = NumericUpDown3.Value
    second = NumericUpDown4.Value
End Sub

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] طلب برمجة برنامج يحول صفحات الويب الي فيديو elokely 0 16 16-10-17, 11:22 PM
آخر رد: elokely
  [VB.NET] سؤال عن برمجة برنامج Badi054 6 86 15-10-17, 04:43 PM
آخر رد: سعود
  برنامج محاسبة على الاندرويد محمود صالح 3 81 14-10-17, 02:00 AM
آخر رد: Amir_alzubidy
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 52 04-10-17, 11:34 PM
آخر رد: ahmed kamal
Wink [سؤال] كيفية تحريك اداة TrackBar عند تصميم برنامج ميديا بلاير malzwy2003 0 60 01-10-17, 11:04 PM
آخر رد: malzwy2003
  [سؤال] عمل برنامج بالفجوال بيسك و تشغيلة على الجوال مهندس_خالد 2 131 20-09-17, 09:29 PM
آخر رد: محمود بكرى
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 124 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  [سؤال] كيف اجعل برنامج التحميل يحتفظ بقيمة التحميل لو النور انقطع ابو روضة 2 114 16-09-17, 05:44 AM
آخر رد: ابو روضة
  برنامج وارد ومصروفات abdohassan 0 89 09-09-17, 08:48 PM
آخر رد: abdohassan
  [مشروع] برنامج قران كريم عبدالرحمن المكاوي 7 172 09-09-17, 02:51 PM
آخر رد: عبدالرحمن المكاوي

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


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