[Gelöst] Im Makro Stunden berechnen und ausgeben

[mikele]

Hallo,
ich will dir den Spaß auf keine Fall verderben ...
Anbei mal eine Variante, um fehlende oder falsche Eingaben abzufangen.
Die Schaltfläche ist zunächst erstmal deaktiviert. Bei jeder Eingabe (jedes Control) wir die Sub dauer aufgerufen, die nun zusätzlich alle Felder durchmustert, ob sie leer sind bzw. die Dauer Null oder negativ ist.

[Roland1]

Danke, Mikele
du bist einfach klasse,

ich habs so umgeändert
for i=1 to 6
fehler=fehler+(odialog.getcontrol("ListBox1","Listbox2","Listbox3","Listbox5","Listbox6").selectedItem="")
next

Falls man die Bemerkung nicht braucht.

Kannst du mir eine Buch oder eine Seite für begriffsstutzige Makro Basic Programiereranfänger empfehlen.?

[mikele]

Hallo,
der Teil

Code: Alles auswählen

(odialog.getcontrol("ListBox1","Listbox2","Listbox3","Listbox5","Listbox6").selectedItem

funktioniert nicht so, wie du es wünschst.
Ich hätte vermutet, dass es einen Fehlermeldung produziert, denn mit der Methode .getControl kann man nur auf ein einzelnes Kontrollelement zugreifen. Offesichtlich wir aber alles hinter "ListBox1" gepflegt ignoriert, es wird also nur geprüft, ob in ListBox1 etwas gewählt wurde. Die Schleife ist in dem Syntax komplett überflüssig.
Wenn du nur einzelne Listboxen prüfen willst, dann eher so:

Code: Alles auswählen

fehler=fehler+(odialog.getcontrol("ListBox1").selectedItem="")
fehler=fehler+(odialog.getcontrol("ListBox2").selectedItem="")
fehler=fehler+(odialog.getcontrol("ListBox3").selectedItem="")
fehler=fehler+(odialog.getcontrol("ListBox5").selectedItem="")
fehler=fehler+(odialog.getcontrol("ListBox6").selectedItem="")

Ich war nur zu faul, diese Zeilen einzeln zu schreiben daher die Schleife (man könnte in ihr auch den Index 4 überspringen).
Oder man schreibt die gewünschten Indizes in ein Array und macht ein Schleife darüber:

Code: Alles auswählen

	box=Array(1,2,3,5,6)
	for i=0 to uBound(box) 
		fehler=fehler+(odialog.getcontrol("ListBox" & box(i)).selectedItem="")
	next

Angefangen habe ich mit den Codeschnipseln bei Michael Dannenhöfer https://www.dannenhoefer.de/faqstarbasic/index.html
Das Buch schlechthin zur Makroprogrammierung ist für mich "OpenOffice.org Macros explained" von Andrew Pitonyak in der deutschen Übersetung von Volker Lenhardt, gepflegt mittlerweile von Andreas Heier
https://makromador.wordpress.com/oome-o ... explained/
Diese und weiter Infos findest du hier https://de.openoffice.info/viewtopic.php?t=1553

[Roland1]

Hallo Mikele

Mit dem einzeln prüfen ist hast du mir wieder ein super codeschnipsel geschenkt.

Du zu Faul... niemals, nur schlau.

Das überspringen ist cool.
box=Array(1,2,3,5,6)
for i=0 to uBound(box)
fehler=fehler+(odialog.getcontrol("ListBox" & box(i)).selectedItem="")
next

Danke für die Webhilfe, da schau ich auf jedefall rein, ich hab ganz früher mim C64 einiges gemacht, aber das ist fast bisschen gleich nur aber fast

[minbari]

Mir kommt die Tabelle irgendwie bekannt vor....

[Roland1]

ja,

die habe ich mit deiner Hilfe aus dem Forum umgebastelt und ergänzt.

Quelle : viewtopic.php?f=6&t=40052

[minbari]

ja,

die habe ich mit deiner Hilfe aus dem Forum umgebastelt und ergänzt.

Das ist der Grund, warum ich so ungern Dateien hochlade, auch wenn dies oft für eine effektive Hilfe unumgänglich ist.

[Roland1]

Hallo minbari,

ich benutze die Datei nicht, ich basteln nur dran rum.
Ich möchte dein geistiges Eigentum nicht vervielfältigen.
Aber ein Forum lebt vom geben und nehmen
Ich danke dir für so einen interessanten Ansatz, es tut mir leid wenn dir daran gelegen ist es nur für dich zu behalten. Das war nicht meine Absicht

[minbari]

Alles gut. Mach was draus...

[Roland1]

Danke minbar,

ich kann nur verändern, das Programieren verstehe ich irgendwie nicht.
Ich versuche noch ein freien Text einzubauen, schaff das leider nicht.