Setting Up A Timer In VB

Question

0.00/5 (No votes)

See more:

I am battling with VB again I have used a timer in C# as follows

C#

NoDataAtPort = new System.Timers.Timer(100);
 NoDataAtPort.Elapsed += new ElapsedEventHandler(OnTimeOut)

In VB this is :

VB

Public NoDataAtPort = New System.Timers.Timer(100)
Public NoDataAtPort.Elapsed += New ElapsedEventHandler(OnTimeOut)

so why do I get the wiggly blue line of Doom? with the following error messages

Error	1	Option Strict On requires all variable declarations to have an 'As' clause.	C:\Users\glennp\Dropbox\RG3 VB TestRig Start\RG3 VB TestRig Start\VB Comms Tester\VB Comms Test\VB Comms Test\Form1.vb	37	12	VB Comms Test

That error appears twice a Second error, the third error is

Error	3	End of statement expected.	C:\Users\glennp\Dropbox\RG3 VB TestRig Start\RG3 VB TestRig Start\VB Comms Tester\VB Comms Test\VB Comms Test\Form1.vb	38	24	VB Comms Test

Do I need to a different declare...

Posted 9-Feb-14 23:20pm

glennPattonWork3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2014-02-09T23:23:00

Solution 1

Try:

VB

Public NoDataAtPort As System.Timers.Timer = New System.Timers.Timer(100)

Posted 9-Feb-14 23:23pm

OriginalGriff

Comments

glennPattonWork3 10-Feb-14 5:26am

Thanks I have just tried to find the answer on MSDN what happened to it?

glennPattonWork3 10-Feb-14 5:38am

Umm how is the TimeOut Handler added, like AddHandler NoDataAtPort.TimedOut,Object as Delegate ?

OriginalGriff 10-Feb-14 5:49am

Yes - there is an example on the MSDN page which adds the Elapsed event:
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
http://msdn.microsoft.com/en-us/library/system.timers.timer(v=vs.110).aspx

glennPattonWork3 10-Feb-14 6:01am

Great thanks for that, what have 'they' done to MSDN I can't see to search it like I used to?

OriginalGriff 10-Feb-14 6:04am

Dunno - how are you searching it?

glennPattonWork3 10-Feb-14 6:37am

Umm Griff how do I set up the Elapsed event? I tried to add the below:

Private Shared Sub NoDataAtPort_Elapsed(ByVal source As Object, ByVal e As ElapsedEventArgs)
MessageBox.Show("Timed Out")
'NoDataAtPort.Enabled = False
Reply_Status = REPLY.TIMEOUT_REPLY
'Data_Back = "TIMEOUT"

End Sub
Seems to be the Shared causing problems....

OriginalGriff 10-Feb-14 6:49am

Shared means that there is only one per app - rather than one per class instance (Same as static in C#). So no class instance members at all! Take off the shared, and it should work...

Imports System.Timers

Public Class Form1
Public NoDataAtPort As System.Timers.Timer = New System.Timers.Timer(100)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim filepath As String = My.Application.Info.DirectoryPath
AddHandler NoDataAtPort.Elapsed, AddressOf NoDataAtPort_Elapsed
NoDataAtPort.Start()

End Sub
Private Sub NoDataAtPort_Elapsed(ByVal source As Object, ByVal e As ElapsedEventArgs)
MessageBox.Show("Timed Out")
NoDataAtPort.Enabled = False
' Reply_Status = REPLY.TIMEOUT_REPLY
'Data_Back = "TIMEOUT"

End Sub
End Class

glennPattonWork3 10-Feb-14 7:01am

Thanks A lot!

OriginalGriff 10-Feb-14 7:05am

You're welcome!