Probleme timer

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme timer

fdiedler

http://www.tutoworld.com

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 :

Case "199"
Timer1.Enabled = True
Timer1.Start()

Code :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ret As String = "200" & ControlChars.VerticalTab
Call NListen.Send(ret)
Timer1.Stop()
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

Publicité

gedeon

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

fdiedler

http://www.tutoworld.com

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

gedeon

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

fdiedler

http://www.tutoworld.com

Code :

Imports System.Net
Public Class F_Svr
Inherits System.Windows.Forms.Form
Private Sub NListen_MessageReceive(ByVal Data As String, ByVal Sck As System.Net.Sockets.Socket) Handles NListen.MessageReceive
Dim Ret() As String = Split(Data, ControlChars.CrLf)
Dim IP As String = IPAddress.Parse(CType(Sck.RemoteEndPoint, IPEndPoint).Address.ToString()).ToString()
Dim Ch As String = ControlChars.VerticalTab
Select Case Data.Length
Case Is = 0 '# Gere un déco du socket
Dim ret0 As List_Info_Client = CType(Listing.Item(IP), List_Info_Client)
With ret0
NListen.Send("616" & Ch & .Pseudo_Principal & ControlChars.CrLf)
End With
Call Deco_Clt(Sck, IP)
Case Is > 0
Dim i As Integer = 0
For i = LBound(Ret) To UBound(Ret)
If Ret(i) <> "" Then
Dim Ret0() As String = Split(Ret(i), ControlChars.VerticalTab)
Select Case Ret0(0)
Case "1"
Call Deco_Clt(Sck, IP)
NListen.Send(Data)
Case "10"
NListen.Send(Data)
Case "199"
Timer1.Enabled = True
Timer1.Start()
End Select
End If
Next
End Select
End Sub
Private Sub NListen_ConnectStatut(ByVal State As Boolean) Handles NListen.ConnectStatut
Select Case State
Case False : B_Connect.Text = "Connection"
Case True : B_Connect.Text = "Déconnection"
End Select
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ret As String = "200" & ControlChars.VerticalTab
Call NListen.Send(ret)
Timer1.Stop()
End Sub
End Class

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

Merci

gedeon

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

FORUM HardWare.fr

Programmation

C#/.NET managed

Probleme timer

Sujets relatifs
probleme affichage japplet sous ie dans du html	Probleme affichage Japplet sous ie
probleme de validation avec include	bug en vc++...probleme de delete [ ]??
Problème connexion Access->MySQL	Probleme Iframe et Textarea [Résolu]
[MFC] Problème avec OnPaint et un Timer	[JavaScript] Probleme avec un timer sous IE
[programmation robot] problème avec un timer...	Probleme de timer
Plus de sujets relatifs à : Probleme timer

Page générée en 0.086 secondes