timer i dll fil

og den skal selvfølgelig også kunne stoppes igen :)

håber på et svar når jeg står op i morgen
zZZzzZZZZzzZZZzzzZZZ :)

Du kan da lige få et udgangspunkt her :

Public Class TimerSample
timer As Timer

Public Sub New()
  timer = New Timer (500)
  AddHandler timer.Elapsed, AddressOf timer_Elapsed
  timer.Start()
End Sub

Public Sub StartTimer()
  timer.Start()
End Sub

Public Sub StopTimer()
  timer.Stop()
End Sub

Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)
  // her kan du så gøre et eller andet :o)
End Sub
End Class

ohh undskyld jeg først svarer nu - jeg kan ikke få koden til at virke :S

bare iorden... hvad er det der ikke virker ?

vi skal måske lige understrege jeg ikke er pro :P

den siger, reference to a non-shared member req an object reference

alle steder hvor der står timer

jeg ved ikke om du kan bruge dette til noget:S

http://www.t0b1a5.person.dk/SS.JPG

Timer ligger i namespace System.Timers, så du skal sørge for at skrive det her :
imports System.Timers øverst i din fil.

Og så skal du nok lige skrive Dim i første linie i klassen, så det hele bliver sådan her :

Imports System.Timers

Public Class TimerSample
    Dim timer As Timer

    Public Sub New()
        timer = New Timer(500)
        AddHandler timer.Elapsed, AddressOf timer_Elapsed
        timer.Start()
    End Sub

    Public Sub StartTimer()
        timer.Start()
    End Sub

    Public Sub StopTimer()
        timer.Stop()
    End Sub

    Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)

    End Sub
End Class

det eneste der sker, er at der ikke længere er fejl ved:
AddressOf timer_Elapsed
men stadig ved resten

Nu er jeg ikke ligefrem VB'er men det kompilerer uden problemer her.
Prøv at kopier hele din fil herud så jeg kan se den.

Mvh

du har husket den der Imports System.Timers ikke ?

jeg har prøvet at få din kode til, at virke for sig selv - men det virker ikke:S

Imports System, System.timers

Public Class Form1
    Inherits System.Windows.Forms.Form

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

public Class TimerSample
timer As Timer

        Public Sub New()
            Timer = New Timer(500)
            AddHandler Timer.Elapsed, AddressOf timer_Elapsed
            Timer.Start()
        End Sub
Public Sub StartTimer()
            Timer.Start()
        End Sub

        Public Sub StopTimer()
            Timer.Stop()
        End Sub

        Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)

        End Sub
    End Class
End Class

how - så ikke dit indlæg ovenover

Lille indskudt bemærkning:

en variabel ved navn timer af en type Timer i en case insensitivt sprog
øger ikke ligefrem forståeligheden af koden

Du har stadig ikke en Dim her :

Dim timer As Timer 

Denne klasse bygger fint, hvis du har angivet dine imports :
(det var den samme som jeg postede sidst)

Public Class TimerSample
    Dim timer As Timer

    Public Sub New()
        timer = New Timer(500)
        AddHandler timer.Elapsed, AddressOf timer_Elapsed
        timer.Start()
    End Sub

    Public Sub StartTimer()
        timer.Start()
    End Sub

    Public Sub StopTimer()
        timer.Stop()
    End Sub

    Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)

    End Sub
End Class

'hvorfor kalder jeg ikke console.writeline ?

Imports System, System.Timers
Module Module1
    Dim Tobias As New TimerSample
    Sub Main()
        Tobias.StartTimer()
    End Sub
    Public Class TimerSample
        Dim timer As timer
        Public Sub New()
            timer = New Timer(500)
            AddHandler timer.Elapsed, AddressOf timer_Elapsed
            timer.Start()
        End Sub

        Public Sub StartTimer()
            timer.Start()
        End Sub

        Public Sub StopTimer()
            timer.Stop()
        End Sub

        Private Sub timer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)
            Console.WriteLine("test")
        End Sub
    End Class
End Module

Næh - det kan du have ret i arne. Det tænkte jeg ikke lige over (skriver aldrig VB, og hvis jeg endelig skulle skrive en linie fikser VS det jo med fin casing ;o)

Det må du undskylde optical - det var ikke så velovervejet, såhh.... vi tager lige en tur til :o)

Public Class TimerSample
    Dim someTimer As Timer

    Public Sub New()
        someTimer = New Timer(500)
        AddHandler someTimer.Elapsed, AddressOf someTimer_Elapsed
        someTimer.Start()
    End Sub

    Public Sub StartTimer()
        someTimer.Start()
    End Sub

    Public Sub StopTimer()
        someTimer.Stop()
    End Sub

    Private Sub someTimer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)

    End Sub
End Class

jeg kan stadig ikke få den til, at kalde den kode jeg skriver i someTimer_Elapsed

Imports System, System.Timers
Module module1
    Dim x As New TimerSample
    Sub main()
        x.StartTimer()
    End Sub
    Public Class TimerSample
        Dim someTimer As Timer

        Public Sub New()
            someTimer = New Timer(500)
            AddHandler someTimer.Elapsed, AddressOf someTimer_Elapsed
            someTimer.Start()
        End Sub

        Public Sub StartTimer()
            someTimer.Start()
        End Sub

        Public Sub StopTimer()
            someTimer.Stop()
        End Sub

        Private Sub someTimer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)
            Console.WriteLine("hej")
        End Sub
    End Class
End Module

Altså... det krydser jo helt vildt - jeg så ikke dit sidste spørgsmål (det med konsollen).

Programmet afslutter inden den når at skrive ud... Skriv en
Console.Read()
Efter du har startet timeren - altså denne linie :
x.StartTimer()

Mvh

Så venter prompten på input fra dig inden programmet afslutter.

muhauhauhauuha!!!!!! :D:D:D:D:D:D:D:D:D:D:D:D:D
mange tak Snepnet :D:D:D smidder du lige et svar?

Et svar skal du få - fedt at du fik det til at spille :o)
Mvh

mange tak igen Snepnet :)