Stoppuhr Leertaste

Auf die richtige Art und Weise: Access 2013 VBA-Programmierung: Von den Anfängen bis zur.... - Hølnschen Lorenz Hölscher

Bei der Entwicklung erweiterter Datenbestände ist oft mehr Funktionen erforderlich, als Access bereitstellt. Das Problem wird durch die Entwicklung mit VBA gelöst. Wie Sie mit VBA Ihre Datenbestände deutlich optimieren können, zeigen Ihnen Lorenz Hölscher hier. Dabei vernachlässigt er neben der rein datenbankgestützten Programmgestaltung nicht das attraktive Design der Programmschnittstelle, denn der externe Auftritt gilt auch für die Datenbank.

Wenn Sie mit VBA professionell arbeiten und die Programmierkenntnisse vertiefen wollen, ist dieses Handbuch das Richtige für Sie!

Tastaturkürzel

In der Stoppuhranzeige können Sie die Stoppuhr mit der Taste aktivieren oder deaktivieren. Um die Stoppuhr zurückzustellen und die Rundenresultate zu leeren, betätigen Sie "Stoppuhr" auf dem Display. In der Anzeige "Timer" können Sie den Zähler mit der Taste aktivieren oder deaktivieren. Auf der Stoppuhranzeige können Sie den Zeitmesser zurücksetzen.

Danke für Ihr Interesse.

Verbesserung der Stoppuhr-Klasse

Die Meßgenauigkeit der Now-Funktion ist nicht besonders hoch, so daß die Stoppuhrklasse im Inneren des Gerätes besser ist. Möglicherweise haben Sie bereits bemerkt, dass die Ganggenauigkeit dieser Stoppuhr mäßig ist. Wenn die Statusleiste fehlt, ist das Gerät so zügig, dass es für diese Uhr nicht meßbar ist. Besser ist es, die Stoppuhr zu optimieren.

Diesen Kode werde ich hier komplett unberührt lassen, ich werde die Stoppuhr aufwerten. Mit einer in Windows eingebauten Funktionalität, die ich nur hier benutze und dafür muss ich sie bekannt machen, also muss ich erst über Excel-VBA wissen, es gibt eine Funktionalität, schauen Sie sich diese hier an, wie sie arbeitet und welche Möglichkeiten sie bietet.

Dies funktioniert mit einem "private declare" und dann "function" und dann rufe ich den Funktionsnamen "GetTickCount" auf, der gewissermaßen den Counter holt, der sich in einer Bibliothek namens "kernel32" befindet und den Returntyp "Long" hat, so dass man kein Datum-Zeit-Objekt zurück bekommt, sondern eine lange Zahl, also muss man dort einige Berechnungen durchführen.

Ich erinnere mich an diesen Parameter, so dass ich hier kein Datums-Zeit-Objekt zurückbekomme, also muss ich den Daten-Typ hier dementsprechend verändern, so dass nichts falsch ist, ich werde jetzt mit control+H, also "Edit""Replace", ein "m_long" aus "m_dat" machen und alles in diesem Baustein auswechseln und dann kann ich hier auch gleich mitschreiben.

Dies wird mit Control+Leertaste wie jede andere in diesem Modul bekannte Funktionalität geboten. Auch hier erinnert sich "GetTickCount" an eine lange Nummer. Es gibt hier noch ein wenig mehr zu berechnen, ich muss diese ganze lange Zahl noch einmal um ein Uhr und in wenigen Augenblicken konvertieren und so etwas, es gibt viel zu schreiben, deshalb habe ich sie schon aus der Ablage, aber hier habe ich nicht genug zurückgegeben, das heisst, ich habe hier eine Variable, ich kann sie noch ein wenig zusammendrücken,

welche sich die ms, die ms, die sekunden, aber auch die minute und die stunde usw. einprägen und dann wird in diesem Falle zum Beispiel die ms als ganzzahliger teil errechnet, also ist der module der übrige Teil von etwas und dann wird module 1000 genannt, alles, was hier um 1000 ist und liegt.

Am Ende ist es dann wieder schön aufbereitet, also ist es immer noch ein Zeichenkette und das ist auch einer der essentiellen Bestandteile einer Klassen. Jetzt habe ich die ganze Anlage umgebaut und hoffe, dass sie nicht kaputt geht, nein, alles ist noch compilierbar, niemand muss sich darum kümmern. Dies könnte von einem anderen Entwickler gemacht werden, die Kamera hat immer noch diese 3 Vorgangsweisen.

Hier kann ich gleich wieder anfangen, also habe ich nichts verändert, siehst du, es ist null und eine Sek., ich nehm' es wieder weg und kann jetzt hier mit F5 beginnen, ich gehe nicht wieder auf den Vollbildmodus, so dass du siehst, dass es da drunter steht, einmal mit F5, das ging so rasant, dass man nichts davon sieht, aber du siehst jetzt hier ohne Statusleiste ist es auch unermesslich für ihn, mit Statusleiste ist es nicht eine, sondern nur 0.797s.

Mit dieser Präzision können jetzt noch mehr Messungen durchgeführt werden, das ist die Optimierung innerhalb der Gruppe, was den großen Nutzen hat, dass die Person, die die Gruppe anruft, nichts darüber wissen muss. Er weiss, dass es eine Vorgehensweise "Start" und "Stop" und "Duration" gibt, die immer noch die selben Datenarten hat und für ihn wird die Stunde nachgebessert.