---

Hallo zusammen,

gibt es eine Möglichkeit beim Ablauf eines Programmes einen Befehl mitlaufen zu lassen, der die Zeiten überprüft und sobald das Programm länger als z.B. 1sec auf einem Befehl stehen bleibt, eine Msgbox hoch bringt?

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

das könnte man über ein Timerevent regeln, welches den Lastprompt abfragt und dann eben die Message bringt oder nicht.
Aber was hast du vor? Ich habe keine Idoo wofür das gut sein soll?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe eine Datenbankanbindung unter AutoCAD programmiert. Alles unter VB6 mit einer SQL Datenbank im Hintergrund. Das läuft auch Alles super. Jetzt ist der Quellcode mittlerweile ca. 3,5MB groß, also eine ganze Menge. Unsere Konstruktion ist an verschiedenen Standorten, aber die Datenbank nur an einem. Jetzt sitze ich mittlerweile an einem anderen standort und muß mit entsetzen fest stellen, das die Anbindung hier total lahm ist. Die Datenverbindung zum Server ist top, das Tool selber liegt lokal auf einem Server, aber trotzdem irgendwo hängt es. Und um das raus zu finden, wollte ich eine "Überwachung" der Zeiten haben, die die einzelnen Befehle im Code brauchen. Danach kann ich dann gucken, wo er am meisten hängt und genau dort dann ändern.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

wie wäre es, wenn Du Dir mit 'Now' behilfst? Setze eine Variable für den Start, weise 'Now' zu und wenn er mit dem Befehl/Funktion oder was immer fertige ist ziehst von 'Now' deine Startvariable wieder ab. Dann hast Du die Zeit, welche für die Ausführung von dem Befehl benötigt wurde. Das packst in eine Messagebox und dann ist schön .. 

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

zur Arbeitserleichterung kannst du in VB mit bedingten Variablen
arbeiten.

Code:

---

#Const demoversion = True

#If demoversion = True Then
      If Format(Date, "yyyymmdd") > "20051231" Then
          On Error Resume Next
          Unload frmSplash
          frmAbout.Show
          MsgBox "Sorry .."     
          End
      End If
#End If

---

So kannst du deine Testroutinen im Programmcode lassen ohne
das diese nachher mit in die Exe kommen (Variable ändern).

Wir haben ein zentrale Log Datei am Anfang und Ende einer Funktion wird hier ein Eintrag wie von BloddyMess vorgeschlagen reingeschrieben. Diese Funktion kannt du auch so auslegen das eine MessageBox kommt.

z.B.

Code:

---

sub HolWas
  call bugLog ("START","Funktionsname")
  blabla
  call bugLog ("END","Funktionsname")
end sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stelli,

sagst du mir bitte was die # in deinem code für eine Bedeutung haben?

mfg didi

[Diese Nachricht wurde von Goofy007 am 16. Okt. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

bei VB6 werden mit # Compilerbedingte Variablen definiert.
Sie gehören also zum Code.

Im Beispiel wird der Code zwischen "#IF demoversion  .. #End if"
nur in die Exe übernommen wenn die Variable True ist.

So kann man auch verschiedene Programmversionen verwalten.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ah ja,
danke für die Erklärung. Schon wieder bin ich ein bisserl schlauer.

mfg Didi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP