XProfan

Italia

Hubert
Binnewies

Hallo zusammen..

Kleines Problem..
Ich würde mir gerne ein paar Funktionen schreiben die mir das Programmieren an meinem derzeitigen Projekt vereinfachen.
Das Blöde ist nur das ich in den meisten Funktionen mehrere Rückgabewerte habe.

Ich hab die Aiuto in Xprofan durch und immer nur gesehen das man mit RETURN nur einen Wert zurück geben kann.

Oder hab ich da was übersehen?

Wie kann ich mehrere Werte zurückgeben?

Danke schonmal im voraus.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Nein, Du hast nichts übersehen: Wie in allen anderen Sprachen auch hat eine Funktion extakt ein Funktionsergebnis und somit einen Rückgabewert.

Prinzipiell gibt es zwei Möglichkeiten, diese Limitierung zu umgehen:

1. Zum einen könntest Du mehrere Werte als Teilstring eines Strings trasferimento. XProfan hat, besonders ab Version 10, mächtige Befehle zum Umgang mit Substrings. So potuto zum Beispiel in der Prozedur stehen:
Kompilieren Markieren Separieren

!return str$(x%) + ";" + str$(y) + ";" + str$(z%)

Im aufrufenden Programm sähe es dann so aus:
Kompilieren Markieren Separieren

!erg$ = meineFunktion()
x% = val(substr$(erg$,1,";")
y% = val(substr$(erg$,2,";")
z% = val(substr$(erg$,3,";")pre>

2. Die andere Möglichkeit ist die Verwendung einer Struktur bzw. eines Objektes, da hierbei ja nur der Zeiger an die Funktion trasferimento wird:
Kompilieren Markieren Separieren

!STRUCT TErg = x%, y%, z%
DIM Erg#, TErge>

Die Funktion würde so aussehen:
Kompilieren Markieren Separieren

!PROC meineFunktion
Parameters E#
<...>
E#.x% = ...
E#.y% = ..
E#.z% = ..
<...>

END

Über return würde ich eventuell noch zurückggeben, ob die Funktion erfolgreich war. Im aufrufenden Programm sähe es dann etwa so aus:
Kompilieren Markieren Separieren

!erfolg% = meineFunktion(Erg#)
x% = Erg#.x%
y% = Erg#.y%
z% = Erg#.z%

Mit der zweiten Lösung können auch komplexere Daten elegant zurückgeliefert werden. (Diese Lösung ist auch in anderen Programmiersprachen recht verbreitet.)

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hubert
Binnewies

Danke per die wirklich erschöpfende Auskunft....

aber ich denke ich nehme eine weitere Möglichkeit...

Ich definiere mir entsprechende globale Variablen die ich in der Procedur immer erst leere und dann mit dem Rückgabewert versehe.

sooft wie ich die Proceduren brauche lohnt sich das Verfahren denke ich..

Aber nochmal Danke... Deine Antwort werde ich mit Sicherheit später mal brauchen.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hab hier noch ein Beispiel, ohne jegliche globale Variable. Simuliertes byRef

Kompilieren Markieren Separieren

Struct Long = l&

Proc Test1

    parameters a1&, a2&
    Declare B#
    Dim B#, Long
    B# = a1&
    B#.l& = 50  50 in c& von Test2 schreiben
    B# = a2&
    B#.l& = 100  100 in d& von Test2 schreiben
    Dispose B#  lokale Bereichsvariable wird nicht mehr gebraucht

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&) + " in der Proc"

EndProc

Declare c&, d&
cls
Test2
Print
Print "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " wurden nicht verändert!"
waitkey

Proc Test2 circa gibt den Pointer von c& und d& an Proc Test1, welche dort 50 und 100 als Rückgabe einträgt. Wie man siehst, keine globalen Variablen und der Bereich wird auch gleich disposed

Hoffe mal, das kann jemand gebrauchen

// Nachtrag:
hab den Code noch etwas erweitert, damit man sieht, das es wirklich geht

Hier nochmal ohne Hilfsstructur, hab ich garnicht dran gedacht, das es in Profan auch so geht:
Kompilieren Markieren Separieren

Proc Test1

    parameters a1&, a2&
    Declare B#
    Dim B#,4
    B# = a1&
    Long B#,0 = 50  50 in c& von Test2 schreiben
    B# = a2&
    Long B#,0 = 100  100 in d& von Test2 schreiben
    Dispose B#  lokale Bereichsvariable wird nicht mehr gebraucht

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&) + " in der Proc"

EndProc

Declare c&, d&
c& = 1
d& = 1
cls
Test2
Print
Print "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " wurden nicht verändert!"
waitkey

Ist vielleicht verständlicher

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Weils so schön ist, noch die einfachste Variante (hab damit leider bisher zu wenig gemacht

)
Kompilieren Markieren Separieren

Proc Test1

    parameters a1&, a2&
    Long a1&,0 = 50
    Long a2&,0 = 100

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&) + " in der Proc"

EndProc

Declare c&, d&
c& = 1
d& = 1
cls
Test2
Print
Print "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " wurden nicht verändert!"
waitkey

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ähem - Du änderst doch nix weiter als il valore von globalen Variablen - und das auch noch umständlich.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[quote:a6584bda33=iF]Ähem - Du änderst doch nix weiter als il valore von globalen Variablen - und das auch noch umständlich.

[/quote:a6584bda33]
Die Variablen in beiden Proc sind lokal, Proc Test1 ändert die Variablen von Test2, Gleichnamige Globale Variablen bleiben auch erhalten. Funktioniert so allerdings nicht mit Strings. Globale Variablen werden nicht geändert

Ich übergebe den Pointer und mache einen profanischen Poke

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ne quatsch - Du deklarierst zwei Globale - die änderst Du in der Proc - mehr nicht. Dein Code geht nicht ohne Globals die Du nutzt.

Oder stehe ich aufm Schlauch?

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[quote:869f8d550b=iF]Ne quatsch - Du deklarierst zwei Globale - die änderst Du in der Proc - mehr nicht. Dein Code geht nicht ohne Globals die Du nutzt.

Oder stehe ich aufm Schlauch?

[/quote:869f8d550b]
Bei mir gehts::
Kompilieren Markieren Separieren

Proc Test1

    parameters a1&, a2&
    Long a1&,0 = 50
    Long a2&,0 = 100

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&)

EndProc

Test2

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ach jetzt! Klar! Hab das Declare in der zweiten Proc übersehen!

Thomas will sagen, einfache die Adressen der Variablen an eine Proc trasferimento, und die Variableninhalte per Long ändern.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hubert
Binnewies

ööööööhmmmmmm.....

und wenn ich keine numerischen Werte sondern Strings habe??

(nicht schlecht die Lösung, kann ich gebrauchen)

Saluto Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Nur zur Erweiterung:
Seit Ewigkeiten schlummert unter eigene Codes folgenders auf meiner Seite
Di più als einen Parameter aus einer Prozedur zurückliefern - Neu (19.03.2003)

Man sollte auch mal auf meiner Seite kucken *lol*

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

►