XProfan

Georg
Teles

Spontan fällt mir sowas ein

CLS
Declare ret$
ret$ = mehr()
print Val(SubStr$(ret$,1,","))
print Val(SubStr$(ret$,2,","))
print SubStr$(ret$,3,",")
print Val(SubStr$(ret$,4,","))
print SubStr$(ret$,5,",")

Proc mehr

    Return "1,2,drei,4,fünf"

EndProc

Waitinput

du gibst alle Werte als String mit Trennzeichen zurück und beim Auslesen mit SubSTR$() wandelst diese Werte in entsprechende Typen um

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.12.2015 ▲

Jörg
Sellmeyer

Mir fällt da noch sowas ein:

Proc MultiRueck

    Declare Rueck$[4]

    If %pcount

        WhileLoop 0,%pcount-1

            Print $(&Loop+1)
            Rueck$[&Loop] = $(&Loop+1)

        Wend

    EndIf

    Return Rueck$[]

EndProc

Declare Werte$[4]
Print "Eingabe"
Werte$[] = MultiRueck("A","B","C","D")
Print "\nAusgabe"

WhileLoop 0,3

    Print Werte$[&Loop]

Wend

WaitInput

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

14.12.2015 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

rquindt (14.12.15)

Gibt es eine Möglichkeit, mehr als einen Parameter zurück zu geben?

Eine Funktion liefert immer 1 Rückgabe, die per mehrere Werte durchaus vom Typ Array, Stringliste, Speicherhandle sein kann und somit beliebig viele Werte transportieren kann.

In XProfan und Basic kann man aber aus einer Funktion auch globale Variablen beschreiben und es sich damit sehr einfach machen.

15.12.2015 ▲

H.Brill

Nimm doch einfach einen Bereich mit
einer Struktur drinnen. Entweder global
definieren oder sowas geht auch :

Declare Memory Bereich
Dim Bereich, 20
Bereich = Rueckgabe()
Print String$(Bereich, 0)
Print Long(Bereich, 11)
Print Long(Bereich, 15)
WaitKey
Dispose Bereich
End

Proc Rueckgabe

    Declare Memory b
    Struct Werte = s$(10), z1&, z2&
    Dim b, Werte
    b.s$ = "Hallo du"
    b.z1& = 100
    b.z2& = 200
    Return b
    Dispose b

EndProc

Obwohl meines eher doppelt gemoppelt ist.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

15.12.2015 ▲

rquindt

Danke per die schnellen Tips.
Ich werde mal probieren,
was per mein Programm am besten geeignet ist.

15.12.2015 ▲

ByteAttack

Kannst auch einfach eine Stringliste benutzen.
Beispiel:

cls
var tempList&=Create("List",0)
var HexColor$="#FFFF00"
var FontColor$="#FF0000"
var PGZWeb$="Eintrag"

Proc Plus15

    Parameters Text$
    Declare i%

    WhileLoop GetCount(tempList&)

        Text$=Translate$(Text$,"{"+Str$(i%)+"}",GetString$(tempList&,i%))
        Text$=Translate$(Text$,"°",Chr$(34))
        inc i%

    EndWhile

    Return Text$

EndProc

ClearList tempList&
AddString(tempList&,HexColor$)'0
AddString(tempList&,FontColor$)'1
AddString(tempList&,PGZWeb$)'2
Plus15 "<td align=°center° valign=°middle° bgcolor=°{0}° class=°Smaller°><font color=°{1}°>{2}</font></td>"
Print $(0)
WaitInput

XProfan X3
Website: [...]

Facebook: [...]

16.12.2015 ▲

Michael
W.

Das "inc i%" wäre auch unnötig, wenn

WhileLoop 0, GetCount(tempList&) - 1

und dann die I% gegen &loop getauscht werden.

[OFFTOPIC]Ich benutze per meine Templates übrigens {{x}} und auch das Gradzeichen. Die einfachen geschweiften Klammern kommen nämlich in meinen Texten vor.[/OFFTOPIC]

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

20.12.2015 ▲