Makro-Berechnung in Dialog?

[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

[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

[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.

[turtle47]

Hi,

bei mir kommt da 7,866666666667E-03 raus und das ist richtig.

[mr_weeds]

ja geht doch
danke noch mal