Seite 1 von 1
Makro-Berechnung in Dialog?
Verfasst: Sa, 19.05.2007 15:09
von mr_weeds
in einem Dialogfenster soll eine einfache Division zweier Zahlen (zwei numerische Eingabefelder in selbigen Dialog) stattfinden. Das Ergebnis soll in dem Dialog in ein drittes per Schalter erscheinen.
Ich stoße dabei als Anfänger aber an meine Grenzen, kann mir jemand bei der Makroerstellung helfen?
Danke
Verfasst: Sa, 19.05.2007 17:12
von turtle47
Hi Mr Weeds,
hilft das:
Code: Alles auswählen
Dim oDialog1 as Object
Sub TextBoxLesen
DialogLibraries.loadLibrary("Standard")
oForm = DialogLibraries.Standard.Dialog1
oDialog1 = CreateUnoDialog(oForm)
oDialog1.execute
end sub
Sub ZahlenDividieren
myDoc = stardesktop.currentcomponent
oForm = DialogLibraries.Standard.Dialog1
Zahl1=oDialog1.GetControl("NumericField1").value
Zahl2=oDialog1.GetControl("NumericField2").value
Ergebnis = Zahl1 / Zahl2
oDialog1.GetControl("Label3").Text=Ergebnis
End Sub
Viel Erfolg
Jürgen
Verfasst: Sa, 19.05.2007 20:08
von mr_weeds
funktioniert, aber z.B. 5,90/750=7,866 ? merkwürdig dabei ist, daß bei 5,90/0,75=7,866 das richtige rauskommt.
Verfasst: Sa, 19.05.2007 22:04
von turtle47
Hi,
bei mir kommt da 7,866666666667E-03 raus und das ist richtig.
Verfasst: So, 20.05.2007 13:14
von mr_weeds
ja geht doch
danke noch mal