Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wait-Funktion
Autor: diskus
Datum: 30.05.03 16:55
Kann vielleicht jemand überprüfen, ob hier alles stimmt!!! Habe leider das Gefühl das ich irgend etwas Falsch gemacht habe. Warte - Funktion wird einfach nicht ausgeführt Danke Private Declare Function WaitForSingleObject Lib _ "kernel32" ( _ ByVal hHandle As Long, _ ByVal dwMilliseconds As Long) As Long Public Function Wait(ByVal mSek As Long) WaitForSingleObject -1, mSek End Function Public Sub LongEntry() Dim OutFile As Integer OutFile = FreeFile If Sheet1.Range("L3") = 0 And Sheet1.Range("K3") And Sheet1.Range("I3") = 1 Then ' 15 Sekunden warten Wait 15000 ' Create an order file Open "c:\program files\tsimplus\auto.tsm" For Output As OutFile Print #OutFile, "place,buymkt," & Sheet1.Range("symbol") & ",1,,," Close OutFile ' 45 Sekunden warten Wait 45000 End If End Sub

Wait-Funktion	429	diskus	30.05.03 16:55
Re: Wait-Funktion	261	unbekannt	30.05.03 18:15
Re: Wait-Funktion	239	diskus	31.05.03 08:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen