Création d'un outil timerRésolu

Question

Bonjour!

Je suis présentement étudiante pour un cours de programmation en Visual Basic.Net et je dois avouer que j'éprouver certains problèmes, bref, ça me rend folle!

Je dois créer un jeu avec un chronomètre.  Lorsque je fais "nouvelle partie", le chonomètre doit défiler chaque seconde pendant trois minutes et apparaître ainsi: 3:00

Je ne sais pas trop comment faire cette espèce de timer.

Merci beaucoup!

Anne-Marie

Twinuts · Accepted Answer

Salut,

heuuuuuu tu es sur un forum java ici, donc limite tu n'auras pas vraiment de réponse pour Visual Basic.Net ... donc précise si tu veux faire en java ou en VB si c'est du vb je redirige vers vb

------------------------------------
"On n'est pas au resto : ici on ne fait pas dans les plats tout cuits ..."

WORA

amlev11 · Answer

désolé, je ne connais pas trop les languages informatiques 

Merci beaucoup!

Anne-Marie

Twinuts · Answer

Salut,

je déplace sur vbfrance

------------------------------------
"On n'est pas au resto : ici on ne fait pas dans les plats tout cuits ..."

WORA

cs_casy · Answer

Tiens cadeau, un exemple de création entièrement par le code :

Public Class Form1

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles 
MyBase.Load

                'Creation de 
l'afficheur
                Dim lbl As New Label
                lbl.Location = New Point(30, 30)
                lbl.AutoSize = True
                lbl.Font = New Font(lbl.Font.FontFamily, 14.0!, 
FontStyle.Bold)
                lbl.Name = "Horloge"
                lbl.Text = ""
                Me.Controls.Add(lbl)

                'Création du timer
                Dim tmr1 As New System.Timers.Timer(1000)
                tmr1.SynchronizingObject = Me
                AddHandler tmr1.Elapsed, AddressOf 
OnTimedEvent

                'Lancement du 
timer
                tmr1.Enabled = True

        End Sub

        Private Sub OnTimedEvent(ByVal source As Object, ByVal e As 
System.Timers.ElapsedEventArgs)
                Static cmpt As Integer = 0
                Dim minu, seco As Integer

                'Incremente et affiche le compteur        de 
temps
                cmpt += 1
                minu = cmpt \ 60
                seco = cmpt Mod 60
                Me.Controls("Horloge").Text = String.Format("Valeur du temps 
: {0}:{1}", minu.ToString("00"), seco.ToString("00"))

                If cmpt = 180 Then
                        Using toto As System.Timers.Timer = CType(source, 
System.Timers.Timer)
                                Me.Controls("Horloge").ForeColor = Color.Red
                                toto.Enabled = False
                        End Using
                End If

        End Sub

End Class

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

amlev11 · Answer

Merci!  il y a juste la fin du code qui me pose probleme.  ce que j'ai mis en souligné apparait comme une erreur sur mon ordinateur.

If cmpt = 180 
ThenUsing toto 

As System.Timers.Timer = 
CType(source, System.Timers.Timer)
Me.Controls("Horloge").ForeColor Color.Redtoto.Enabled 

False

EndUsing

End
If
Merci beaucoup!

Anne-Marie

Création d'un outil timer

5 réponses

Votre réponse

Discussions similaires