Discussion :

[hawax]

Bonjour.
Mon probleme est assez compliqué a expliquer.Je vais essayer de faire simple.

je voudrais utiliser l'API set timer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SetTimer Me.hwnd, 0, 1, AddressOf MaFonction

Est il possible de parametrer 'MaFonction' de facon a ce que chaque timer que je crée ,execute 'MaFoction', mais avec differents parametres....comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
idt1 = SetTimer Me.hwnd, 0, 1, AddressOf MaFonction(param1)
idt2 = SetTimer Me.hwnd, 0, 1, AddressOf MaFonction(param2)

Je pourrais utiliser 'n' classique controle timer sur ma FORME avec chacun sa propre procedure , mais je ne connais pas le nombre de timer a l'avance



Merci d'avance.

[Delbeke]

l'operateur AdressOf ne prend en compte que un nom de procédure, impossible d'y ajouter un parametre.
Pour les controles timer. il est possible d'ajouter dynamiquement des timers à l'exécution.
Au momment de la conception, tu déposes un controle timer sur la feuille. Dans sa proprété index, tu lui mets la valeur 0
A l'exécution, tu ajoutes un timer en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Load Timer1(NumTimer)

NumTimer etant un integer different de zéro et chaque load doit avoir un numero différent. Pour ce faire tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumTimer=Timer1.Count

[hawax]

Merci delbeke pour ta reponse.

Mais mon principal probleme c'est la fonction 'MaFonction'.
Je vais essayer d'expliquer concrètement ce que je voudrais faire :

j'ai une appli de taxation qui se base sur winsock pour taxer des appels venant de cabines. ces cabine sont representées par des labels sur ma FORM. (cabine1 ,cabine2....cabine n)

pour facturer un appel ,je recoit une trame de debut_appel et une trame fin_appel.Chaque trame contient mon numero de cabine. La trame fin_appel contient aussi la dureé de l'appel avec laquelle je facture.

Ce que je voudrais faire, c'est déclancher un timer a la reception de la trame debut_appel afin d'afficher au fur et a mesure le cout de l'appel......et ce pour chaque cabine.

J'espere avoir été assez claire

Merci

[ProgElecT]

dans une variable date nomée Debut, tu releve l'heure system (Now ou Time) lors de la trame debut_appel , lors de la trame fin_appel tu utilise DateDiff
Pour + d'explication regarde le post ICI

[hawax]

Bonjour ProgElecT.

Je pense que je me suis mal exprimé.
Je voudrais pouvoir afficher en temps réel le cout de l'appel. c'est a dire dés la reception de la trame debut_appel. sachant que dans cette trame il ya le numero_appelé avec lequel je me base pour taxer( le pas de facturation).

Comme ca achaque pas de facturation, je vois a combien il en est...




Merci.

[OhMonBato]

Dans le principe tu pourrais avoir un timer unique qui a chaque fois qu'il est activé boucle de la cabine1 à la cabine N et fait le calcul entre heure presente et heure de début pour la cabine en cours ==> affichage de la durée/cout pour chaque cabine.

[Delbeke]

En mettant tout ce qui vient d'etre dit ensemble. Tu pourrais mettre un groupe de label Cabine, chaque cabine etant référencée par son index
Quand tu reçois la trame début de conversation, tu notes l'heure de départ dans la propriété tag du label

dans le data arrival
si on demarre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cabine(NumCabine).Tad = Now

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cabine(NumCabine).Tad = ""

Dans la procedure timer
tu parcours tous tes labels, tu verifies si le tag est differend de vide, tu calcules le montant de la com et le stockes dans le caption du label.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private sub Timer1_Timer
  Dim iPnt as integer
  for iPnt = 1 to Cabines.Count
     if Cabine(iPnt).Tag <>"" then
          Cabine(iPnt).Caption = DateDiff("s",Cabine(iPnt).Tag,Now) * CoutSeconde
     end if
   next
End Sub

[Vld44]

je suis d'accord, tu peux stocker le "debut appel" dans un dictionnaire et dès que tu reçois un "fin appel" tu fais la différence avec le "début appel" correspondant.

[hawax]

MERCI BEAUCOUP A TOUS pour l'idée.