|
| |
Fortgeschrittene Programmierung| Re: Einen Button nach 30 Sekunden EINMAL klicken | |  | | Autor: Novalis | | Datum: 26.01.03 14:26 |
| Hallo !
Vielen vielen Dank Dieter =) Das war genau das Problem, und jetzt funktioniert es... wenn man sowas nicht weiss kann man daran schier verzweifeln, und ich hab mal ne ganze Nacht an dem Problem gesessen und nachher aufgegeben...
Mein Chef wird sich freuen 
Aber nun weiter in der Liste *g* - ich habe noch das Problem, daß der Export-Timer zwar runterzählt, aber nach ca. 3 Stunden eine Ungenauigkeit von 2-4 Minuten auftritt, die dann im weiteren Verlauf immer größer wird, und das darf eigentlich nicht passieren. Gibt es eine Möglichkeit einen sehr genauen Timer zu realisieren ?
Der momentane Code sieht so aus :
Private Sub Timer2_Timer()
Static Minuten, Anzahl As Long
Dim ende As Label
Dim arr() As String
'Wenn Abbrechen gedrückt wurde den export-timer
'zurücksetzen.
If flag_export_abbr = True Then
Minuten = -1
flag_export_abbr = False
GoTo ende
End If
If expint.Text > "" And zahlenok(expint.Text, "0123456789") Then
Anzahl = expint.Text ' Neues Intervall
Timer2.interval = 60000 ' 60 Sekunden
Minuten = (Minuten + 1) Mod Anzahl
txt_exp.Text = Anzahl - Minuten
If Minuten > 0 Then Exit Sub
' Hier folgt der eigentliche Code
' für das Timer-Ereignis:
poken
Timer1_Timer
If (Replace(lbl_error.Caption, vbCrLf, "") = "None") Then
GoTo ende
Else
Timer1_Timer
Timer3.Enabled = True
Timer3_Timer
'arr = Split(filename.Text, "\") 'aufteilen eines Strings
'filename.Text = ""
'For i = 0 To UBound(arr) - 1 'zählen der Zuordungen
' filename.Text = filename.Text & arr(i) & "\" 'Info über alle _
Zuordnungen
'Next i
End If
End If
ende:
End SubTimer1 aktualisiert den Export-Dateinamen und prüft auf Fehler von der per DDE angesteuerten Anwendungen (ist übrigens der HistData-Manager von InTouch)
Timer3 versucht bei auftretendem Fehler noch 3 x die Dateien ins Export-Verzeichnis zu verschieben, ansonten bleiben sie im Applikationsverzeichnis liegen und es wird eine E-Mail generiert, die dann per SMTP verschickt wird.
____________________________________________________________________
Das Problem ist halt die Ungenauigkeit - das geht 2 - 3 mal gut, also zB genau 30 Minuten zwischen 2 Exporten, doch dann kommen eben diese paar Minuten Ungenauigkeit rein, und das ist unakzeptabel bei einer Prozessdatenarchivierung.
Ich hoffe auch hier weiss jemand Rat =)
Schönen Gruß,
Novalis | |
 | 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 |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
