Programmation en visual basique 2010(timers)

[Yvescompaore]

Salut tout le monde !!! grand merci aux createurs du site qui nous aide enormement
je veux savoir comment utiliser un Timer sur vb 2010 et pour cela je veux faire allumer 2 LED( radiobuttons) successivement avec un intervalle de 5s et temps d'allumage LED1 5s et LED2 2s , j'ai lu un cours sur les timers mais je ne comprend toujours pas. merci pour vos apports
-----

[adipie]

Bonjour, ta description manque de clarté, fait un chronogramme pour expliquer le fonctionnement que tu souhaites.
Un exemple codé en Delphi facilement convertible en VB, qui alterne l'état de 2 Leds.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AntLed, ExtCtrls;

type
  TForm1 = class(TForm)
    Led1: TAntLed;
    Led2: TAntLed;
    T1: TTimer;
    T2: TTimer;
    procedure T1Timer(Sender: TObject);
    procedure T2Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Led1.LedState:= LsOff;   
Led2.LedState:= LsOff;   
T1.Enabled:=false;
T2.Enabled:=true;
end;

procedure TForm1.T1Timer(Sender: TObject);
begin
T1.Enabled:= false;      //Timer 1
T2.Enabled:= true;       //Timer 2
Led1.LedState:= LsOff;   //Led 1
Led2.LedState:= LsOn;    //Led 2
end;

procedure TForm1.T2Timer(Sender: TObject);
begin
T2.Enabled:= false;
T1.Enabled:= true;
Led2.LedState:= LsOff;
Led1.LedState:= LsOn;
end;

end.

[invitef86a6203]

un exemple en VB6

avec 5 phases
0) On met 2 labels afficher en rouge 5 secondes
1) le premier devient vert pendant 5 sec
2) puis les 2 en rouges pendant 1 sec
3) puis on met le label 2 en vert 2 sec
4) puis les 2 en rouge 1 sec
et on reboucle phase 0


Le frm ;

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2340
   ClientLeft      =   108
   ClientTop       =   432
   ClientWidth     =   3624
   LinkTopic       =   "Form1"
   ScaleHeight     =   2340
   ScaleWidth      =   3624
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Left            =   2640
      Top             =   1800
   End
   Begin VB.Label Label2 
      BackColor       =   &H000000FF&
      Caption         =   "Label2"
      Height          =   492
      Left            =   1200
      TabIndex        =   1
      Top             =   360
      Width           =   492
   End
   Begin VB.Label Label1 
      BackColor       =   &H000000FF&
      Caption         =   "Label1"
      Height          =   492
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   492
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim phase As Integer
Private Sub Form_Load()
phase = 0
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If phase = 0 Then
 Label1.BackColor = &HFF00&
 Label2.BackColor = &HFF&
 Timer1.Interval = 5000
End If
If phase = 1 Then
 Label1.BackColor = &HFF&
 Label2.BackColor = &HFF&
 Timer1.Interval = 1000
End If
If phase = 2 Then
 Label1.BackColor = &HFF&
 Label2.BackColor = &HFF00&
 Timer1.Interval = 2000
End If
If phase = 3 Then
 Label1.BackColor = &HFF&
 Label2.BackColor = &HFF&
 Timer1.Interval = 1000
End If
phase = phase + 1
If phase = 4 Then phase = 0
End Sub