none
utilisation du controle Timer pour afficher plusieur message RRS feed

  • Question

  • comment faire pour aficher des messages differentes aubout de chaque 5 minutes avec un seule controle Timer? dans ce code je peut afficher un seul message"I dont like candy"

    mais si j'ai par exemple "I dont like candy"dans le premier message

    "I  like bandy" dans le deusieme message

    "je ne sais rien" dans le troisieme message

    et cmme ci de suite.

    Public

     

    Class Form1

     

     

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    TextBox1.Text =

    My.Computer.Clock.LocalTime.ToLongTimeString

     

    Dim aString As String = "I dont like candy"

    MsgBox(aString)

     

    End Sub

    End

     

    Class

    dimanche 28 mars 2010 20:04

Réponses

  • Bonsoir,

    Voici, ça marche, testé, y a plus qu'à copier/coller :

    Option Explicit On
    ' OBJETS = form1 + button1 + button2 + textBox1 + Timer1 = 6
    Public Class Form1
      Dim passe As Long
    
      Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 300000 ' = 5 minutes
        Timer1.Enabled = False
      End Sub
    
      Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True ' démarre le tomer
        passe = 1
      End Sub
    
      Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case passe
          Case 1 : TextBox1.Text = "Passage un / 5 = 5 minutes"
          Case 2 : TextBox1.Text = "Passage deux / 5 = 10 minutes"
          Case 3 : TextBox1.Text = "Passage trois / 5 = 15 minutes"
          Case 4 : TextBox1.Text = "Passage quatre / 5 = 20 minutes"
          Case 5 : TextBox1.Text = "Passage cinq / 5 = 25 minutes"
        End Select
        passe = passe + 1
        If passe > 5 Then passe = 1
      End Sub
    
      Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        TextBox1.Text = ""
      End Sub
    End Class

     

    Cordialement.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe dimanche 28 mars 2010 20:48
    • Marqué comme réponse Alex Petrescu mardi 30 mars 2010 14:37
    dimanche 28 mars 2010 20:37