Probleme timer

Probleme timer - C#/.NET managed - Programmation

Marsh Posté le 25-05-2005 à 16:33:41    

Bjr, j'ai un probleme avec un timer :
 
J'envoie le code 199 pour donner l'ordre d'activer le timer mais ce dernier s'active pas  
 
Code :
 

Code :
  1. Case "199"
  2.               Timer1.Enabled = True
  3.               Timer1.Start()


 

Code :
  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  3.         Dim ret As String = "200" & ControlChars.VerticalTab
  4.         Call NListen.Send(ret)
  5.         Timer1.Stop()
  6.     End Sub


 
Le case 199 passe ( point d'arret ) mais pas le "private sub timer1_tick(...)..."
 
Pourquoi ??
J'ai bien demarer la minuterie ??
 
PS: j'ai mis un espion et il dise ke l'argument pour "sender" n'est pas déclarer...
 
Merci bcp

Reply

Marsh Posté le 25-05-2005 à 16:33:41   

Reply

Marsh Posté le 25-05-2005 à 16:42:03    

au bout de combien de temps ?
si tu attends 10 secondes et que ton timer est réglé sur 10 mn , tu vera pas ton appli passer dans Timer1Tick , c sur

Reply

Marsh Posté le 25-05-2005 à 16:43:48    

de une minute ( 1000ms ) mais ca marche pas...

Reply

Marsh Posté le 25-05-2005 à 16:46:30    

Et apres ton "case 199" elle fait quoi ton appli  
Isole le pb et poste ton code on y vera plus clair

Reply

Marsh Posté le 25-05-2005 à 17:06:14    

Code :
  1. Imports System.Net
  3. Public Class F_Svr
  4.     Inherits System.Windows.Forms.Form
  6.     Private Sub NListen_MessageReceive(ByVal Data As String, ByVal Sck As System.Net.Sockets.Socket) Handles NListen.MessageReceive
  8.         Dim Ret() As String = Split(Data, ControlChars.CrLf)
  9.         Dim IP As String = IPAddress.Parse(CType(Sck.RemoteEndPoint, IPEndPoint).Address.ToString()).ToString()
  10.         Dim Ch As String = ControlChars.VerticalTab
  11.         Select Case Data.Length
  12.             Case Is = 0 '# Gere un déco du socket
  13.                 Dim ret0 As List_Info_Client = CType(Listing.Item(IP), List_Info_Client)
  14.                 With ret0
  15.                     NListen.Send("616" & Ch & .Pseudo_Principal & ControlChars.CrLf)
  16.                 End With
  18.                 Call Deco_Clt(Sck, IP)
  19.             Case Is > 0
  20.                 Dim i As Integer = 0
  21.                 For i = LBound(Ret) To UBound(Ret)
  22.                     If Ret(i) <> "" Then
  23.                         Dim Ret0() As String = Split(Ret(i), ControlChars.VerticalTab)
  24.                         Select Case Ret0(0)
  25.                             Case "1"
  26.                                 Call Deco_Clt(Sck, IP)
  27.                                 NListen.Send(Data)
  28.                             Case "10"
  29.                                 NListen.Send(Data)
  30.                             Case "199"
  31.                                 Timer1.Enabled = True
  32.                                 Timer1.Start()
  33.                         End Select
  34.                     End If
  35.                 Next
  36.         End Select
  37.     End Sub
  39.     Private Sub NListen_ConnectStatut(ByVal State As Boolean) Handles NListen.ConnectStatut
  40.         Select Case State
  41.             Case False : B_Connect.Text = "Connection"
  42.             Case True : B_Connect.Text = "Déconnection"
  43.         End Select
  44.     End Sub
  46.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  48.         Dim ret As String = "200" & ControlChars.VerticalTab
  49.         Call NListen.Send(ret)
  50.         Timer1.Stop()
  51.     End Sub
  52. End Class


 
Voila g virer tt ce qui n'etait pas en rapport ( sinon le code serais trop long )
 
Merci

Reply

Marsh Posté le 26-05-2005 à 12:01:35    

Ok mais ca ne compilera pas car il manque plein de chose, un main  entre autre, des declaration etc
Donc isole ton PB dans une petit prog et poste ton code car va pas pouvoir (vouloir) avancer sinon

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed