Hallo Leute!
Der "lästige" hat wieder eine Grundsatzfrage.
Dass man so weit wie möglich Klassen zur strukturierten Auslagerung von Funktionen benutzen sollte ist mir klar. Was Klassen sind und wie die vom Grundsatz her funktionieren ist mir auch klar.
Anhand eines kleines Beispiels möchte ich Euch fragen, ob dafür ein Modul nicht doch besser geeignet ist:
In Modul:
In Klasse:
Aufruf von Modul und Klasse. Das Ergebnis ist das selbe, nur der Aufruf über das Modul ist weniger Code und dadurch überschaubar
Dabei geht es bitte jetzt nur um die Grundsatzfrage Klasse oder Modul, nicht um die Wartefunktion selbst - die wurde schon in einem anderen Thread behandelt.
LG Roland
Der "lästige" hat wieder eine Grundsatzfrage.
Dass man so weit wie möglich Klassen zur strukturierten Auslagerung von Funktionen benutzen sollte ist mir klar. Was Klassen sind und wie die vom Grundsatz her funktionieren ist mir auch klar.
Anhand eines kleines Beispiels möchte ich Euch fragen, ob dafür ein Modul nicht doch besser geeignet ist:
In Modul:
VB.NET-Quellcode
- Public Module Hauptmodul
- Private Sub warten(Sekunden As Double)
- Dim ZeitSpanne As Double
- Dim Start As Double
- ZeitSpanne = Sekunden / 100000
- Start = DateTime.Now.ToOADate() ' Anfangszeit setzen.
- Do While DateTime.Now.ToOADate() < Start + ZeitSpanne
- Application.DoEvents() ' Steuerung an andere Prozesse abgeben
- Loop
- End Sub
- End Module
In Klasse:
VB.NET-Quellcode
- Public Class Class_AllgemeineFunktionen
- Function warte(Sekunden As Double) As Boolean
- Dim ZeitSpanne As Double
- Dim Start As Double
- ZeitSpanne = Sekunden / 100000
- Start = DateTime.Now.ToOADate() ' Anfangszeit setzen.
- Do While DateTime.Now.ToOADate() < Start + ZeitSpanne
- Application.DoEvents() ' Steuerung an andere Prozesse abgeben
- Loop
- Return True
- End Function
- End Class
Aufruf von Modul und Klasse. Das Ergebnis ist das selbe, nur der Aufruf über das Modul ist weniger Code und dadurch überschaubar
Dabei geht es bitte jetzt nur um die Grundsatzfrage Klasse oder Modul, nicht um die Wartefunktion selbst - die wurde schon in einem anderen Thread behandelt.
LG Roland
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at