Unterprogramme mit übergabeparameter

Versuch mal:

Zu 1. Beispiel
--------------------------------------------------------------------------------
GLOBAL DEF sepp1(Zahl1 :in,Zahl2 :in,Summe :out,Summe1 :out)
REAL Zahl1, Zahl2, Summe, Summe1

Summe=Zahl1+Zahl2
Summe1=Zahl1-Zahl2

END
--------------------------------------------------------------------------------

Zu 2. Beispiel
--------------------------------------------------------------------------------
GLOBAL DEFFCT REAL Sepp1(Zahl1:in,Zahl2:in)

REAL Zahl1, Zahl2, Summe

Summe=Zahl1+Zahl2

RETURN(Summe)

ENDFCT
--------------------------------------------------------------------------------

Benutze das "Global" nur wenn es ein Unterprogramm in einem SRC ist.

mal ne simple vermutung in den raum geworfen:

statt

RETURN(Summe)
RETURN(Summe1)

mal
RETURN(Summe, Summe1)

geht das?

Nein, denke nicht. 100% bestätigen kann ich das jedoch nicht... KRL hat immer mal wieder eine Überraschung parat...

Aber wie im Beispiel 1 sollte es auf jeden Fall funktionieren...

ok, das war jetz quatsch (hab es grad offline probiert)

@Sebbi

Du kannst selbstverständlich ein eignes SRC für das Programm verwenden, dann aber ohne "Global" meinte ich.
das "Global" wird dann nötig wenn du z.B. eine SRC verwendest mit unterschiedlichsten Funktion und Unterprogrammen drin (eine Art "Library" an Funktionen)

z.B. "Library.src"
-------------------------------------------------------------------------------------
DEF Library( )

END

GLOBAL DEF sepp1(Zahl1 :in,Zahl2 :in,Summe :out,Summe1 :out)
REAL Zahl1, Zahl2, Summe, Summe1

Summe=Zahl1+Zahl2
Summe1=Zahl1-Zahl2

END
-------------------------------------------------------------------------------------

Andere Möglichkeit:

$config.dat:

STRUC zweiReal real zahl1, real zahl2

und dann das Programm:
Global DEFFCT zweireal (sepp1: IN, sepp2: IN)
real sepp1,sepp2
zweireal seppi

seppi.zahl1 = sepp1+sepp2
seppi.zahl2 = sepp1-sepp2
return seppi
endfct

klappt todsicher. Wenn Du das mit mehreren Ergebnissen machen willst, dann kannst du ja locker dein STRUC aufblasen und dann dir Ergebnisse auf einen Schlag einsammeln.

Ich hoffe, das war verständlich. Didaktik ist nicht grad meine Stärke.

Gruß

robodoc

also ich habs zumindest verstanden
elegante lösung!!! gefällt mir

@ Speedfreak: Freut mich

Das dient dazu, genau das zu machen, was Du laut Deinem ersten Post
vorhattest. Da stimmt nur eine Kleinigkeit nicht:

falsch:
DEFFCT sepp1(Zahl1:in,Zahl2:in,Summe:out,Summe1:out)
richtig:
DEF sepp1(Zahl1:in,Zahl2:in,Summe:out,Summe1:out)

Ersatzlos streichen:
RETURN(Summe)
RETURN(Summe1)

noch kurz:

RETURN

Bricht das aktuelle Unterprogramm ab. Wenn es sich dabei um eine Funktion handelt, wird noch der Wert nach RETURN als Rückgabewert übergeben.

myVar:IN

Definiert den Parameter als 'by Value'. Das heisst, dem Unterprogramm wird nur der effektive (Zahlen)wert übergeben.

myVar:OUT

Definiert den Parameter als'by Reference'. Das heisst, dem Unterprogramm wird die (Speicher)Adresse der angegebenen Variablen übergeben. Was dem Unterprogramm den direkten Zugriff auf diese Variable ermöglicht.

Hallo,

ich denke das meine Frage hier her passt:

habe in einem Programmablauf einen Aufruf mit:
Bearb_Rech (5)

Ist das ein Unterprogramm-Auruf und was bedeutet die Zahl in der Klammer?

Grüße

ist ein wert der übergeben wird. dein unterprogramm wird verschiedene funktionen haben. was die 5 genau macht, musst du aus deinem unterprogramm entnehmen.

schau mal in der definitionszeile des unterprogramms, in welche variable der wert geschrieben wird, dann kannst du das besser nachverfolgen.

Sehr wahrscheinlich wird diese Zahl im Unterprogramm in eine Integervariable eingelesen und anschliessend in einer Switch/Case - Anweisung ausgewertet.