problem Timer avec FillPie

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

par exemple : je choisie 15 minute mais j'arrive pas à réduire avec les secondes avec FillPie (voir image en dessous).

Pièce jointe 646207

mon code timer_Tick :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 If (_seconds = 0) AndAlso (_minutes = 0) Then
            timer.Enabled = False
            Console.Beep()
            _minutes = 0
            _seconds = 0
        Else
            If _seconds < 1 Then
                _seconds = 59
                If _minutes = 0 Then
                    _minutes = 59
                Else
                    _minutes -= 1
                End If
            Else
                _seconds -= 1
            End If
            Me.Refresh()
        End If

Mon code FillPie :

Code:

1
2
Dim EndAngle As Integer = (_minutes * 6 - _seconds / 60)
        g.FillPie(New SolidBrush(_ColorCercle), New Rectangle(Rect.X + Rect.Width / 14, Rect.Y + Rect.Height / 7, Rect.Width / 1.2, Rect.Height / 1.2), -90, EndAngle)

Pouvez-vous m'aider à avec FillPie avec les minutes et les secondes? merci d'avance

06/11/2023, 19h51
umfred

Ton code FillPie est appelé à chaque tick ?

1 pièce(s) jointe(s)

Bonjour, j'ai trouvé la solution à mon problème.

voici en image :
Pièce jointe 646449
mon problème, une fois qui arrive à zéro compte à rebours, je voudrais envoyer une action au bouton1 par rapport à une class dans timer_Tick.

dans ma class :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub timer_Tick(sender As Object, e As EventArgs)
        If (_seconds = 0) AndAlso (_minutes = 0) Then
            timer.Enabled = False
            Console.Beep()
            _minutes = 0
            _seconds = 0
           'Renvoyer un action au button1
        Else
            If _seconds < 1 Then
                _seconds = 59
                If _minutes = 0 Then
                    _minutes = 59
                Else
                    _minutes -= 1
                End If
            Else
                _seconds -= 1
            End If
            Me.Refresh()
        End If
    End Sub

avez_vous une idée pour renvoyer une action au button1 quand le compte à rebours arrive à zéro?

13/11/2023, 18h57
umfred

qu'est-ce que tu entends par "renvoyer une action au button1" ? si c'est lui faire faire un clic, appelle juste la fonction gérant son clic (button1_click (Me, Nothing) en principe, ou button1.PerformCleick(), en mettant bien sûr le nom de ton bouton)

Bonjour umfred,

Citation:

qu'est-ce que tu entends par "renvoyer une action au button1" ? si c'est lui faire faire un clic, appelle juste la fonction gérant son clic (button1_click (Me, Nothing) en principe, ou button1.PerformCleick(), en mettant bien sûr le nom de ton bouton)

voici l'action pour renvoyer dans button1 :
Code:

1 2 3 4 5 6 7 8 9 10 Public Event OnClickEventHandler(ByVal sender As Object, ByVal e As EventArgs) If (_seconds = 0) AndAlso (_minutes = 0) Then timer.Enabled = False RaiseEvent OnClickEventHandler(Me, e) <= l'action renvoyer dans form1 Console.Beep() _minutes = 0 _seconds = 0 Else ...etc
dans form1 :
Code:

1 2 3 4 5 6 Private Sub OnClickEventHandler(sender As Object, e As EventArgs) Handles MyAlarme21.OnClickEventHandler Button1.PerformClick() NumericUpDown1.Value = 0 End Sub
voilà comment j'ai fait pour renvoyer une action avec le button1.