חיפוש

עזרה

הרשמה

התחברות

עדכונים

תיכנות
UnderWarrior Forums : תיכנות

נושא: בעייה || מנסה לכתוב טיימר ב- VB 2008...

כותב

הודעה

<< נושא קודם | נושא הבא >>

Itzik14
משתמש מתחיל

הצטרף / הצטרפה: 17 June 2007
משתמש: מנותק/ת
הודעות: 14

נשלח בתאריך: 06 May 2008 בשעה 16:30

| IP רשוּם

אני ממש לא מבין מה אני לא עושה בסדר...

אני אודה מאד לכל מי שיוכל לעזור לי.

הפקדים:

Timer -טיימר רגיל

TBSecond -תיבת טקסט פשוטה

TBMinute -תיבת טקסט פשוטה

TBHour -תיבת טקסט פשוטה

BStart -כפתור רגיל

הקוד:

קוד:

Public Class Main
    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
        If TBHour.Text = "0" And TBMinute.Text = "0" And TBSecond.Text = "0" Then
            Me.Text = "נגמר הזמן!"
            Timer.Enabled = False
        End If

        Dim Second As Integer = TBSecond.Text
        TBSecond.Text = Second - 1

        If TBSecond.Text = "-1" Then

            If TBMinute.Text <> "0" Then
                TBMinute.Text = TBMinute.Text - 1
                TBSecond.Text = "59"
            End If

            If TBMinute.Text = "0" Then

                If TBHour.Text <> "0" Then
                    TBHour.Text = TBHour.Text - 1
                    TBMinute.Text = 59
                End If
            End If

            If TBHour.Text = "0" Then

                If TBMinute.Text <> "0" Then
                    TBSecond.Text = "59"
                End If
            End If
        End If
    End Sub

    Private Sub BStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BStart.Click
        Timer.Enabled = True
    End Sub
End Class

בבקשה תעזרו לי...

תודה מראש.

חזרה לתחילת העמוד

אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם

גרסת הדפסה

אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה