BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Textfeld auslesen

Alles zur Programmierung im OpenOffice.org
Antworten
korbi90
Beiträge: 2
Registriert: Sa 26. Jun 2010, 20:52

Textfeld auslesen

Beitrag von korbi90 » Sa 26. Jun 2010, 21:12

Ich muss ein Formular erstellen mit einem Textfeld in das eine Zahl eingetragen wird und ein zweites Textfeld in dem ein berechnetes Ergebniss ausgegeben wird.
Wie ich das Formular erstelle ist ganz einfach

Mein Problem ist:
Wie kann ich das Textfeld im Code auslesen und mit dieser Zahl sofort weiterrechnen und das ERgebniss ausgeben?

Bsp.:
eingegebene Zahl (in das Textfeld): 35
Rechnung: 35/5 Diese berechnung wird im Code des Makros vorgenommen
Ausgabe des Ergebnisses (im zweiten Textfeld): 7

Könntet ihr mir bitte dazu Tipps geben wie der Basic-Code dazu aussieht.
Danke

Gino
Beiträge: 179
Registriert: Sa 7. Feb 2009, 10:53

Re: Textfeld auslesen

Beitrag von Gino » Sa 26. Jun 2010, 21:54

Hi,
korbi90 hat geschrieben:Ich muss ein Formular erstellen
In welcher Anwendung: Writer, Calc, Draw, Impress oder Base?
korbi90 hat geschrieben:mit einem Textfeld in das eine Zahl eingetragen wird und ein zweites Textfeld in dem ein berechnetes Ergebniss ausgegeben wird.
Für dieses Vorhaben empfehle ich Dir die Verwendung von "Numerischen Feldern", die Du auch bei den Formular-Steuerelementen findest.

Für den Writer könnte das so aussehen:

Code: Alles auswählen

Option Explicit
Sub NF_Berechnung
Dim oDoc, oform, oController, oView, oNumField1, oNumField2  as Object
Dim nValue as Integer
	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	oform = odoc.drawpage.forms.getbyindex(0)
	oNumField1 = oForm.getByName("NumericField1")
	oView = oController.getControl(oNumField1)
	nValue = oView.Model.value
	oNumField2 = oForm.getByName("NumericField2")
	oView = oController.getControl(oNumField2)
	oView.Model.value = nValue/5	
End Sub
Gino

korbi90
Beiträge: 2
Registriert: Sa 26. Jun 2010, 20:52

Re: Textfeld auslesen

Beitrag von korbi90 » So 27. Jun 2010, 15:28

Hey Dankeschön

Muss man im Code eigentlich viel ändern wenn man den Code in Calc verwenden will?

Gino
Beiträge: 179
Registriert: Sa 7. Feb 2009, 10:53

Re: Textfeld auslesen

Beitrag von Gino » So 27. Jun 2010, 15:38

korbi90 hat geschrieben:Muss man im Code eigentlich viel ändern wenn man den Code in Calc verwenden will?
Nein, nur etwas im oberen Bereich:

Code: Alles auswählen

Sub NF_Berechnung
Dim oDoc, oform, oController, oView, oNumField1, oNumField2  as Object
Dim nValue as Integer
	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	mySheet = oDoc.Sheets().getByName("Tabelle1")
	oform = mySheet.drawpage.forms.getbyindex(0)
	oNumField1 = oForm.getByName("NumericField1")
	oView = oController.getControl(oNumField1)
	nValue = oView.Model.value
	oNumField2 = oForm.getByName("NumericField2")
	oView = oController.getControl(oNumField2)
	oView.Model.value = nValue/5   
End Sub
Gino

Antworten