XProfan

Georg
Teles

Spontan fällt me algo como una

CLS
Declarar ret$
ret$ = mehr()
imprimir Val(Substr$(ret$,1,","))
imprimir Val(Substr$(ret$,2,","))
imprimir Substr$(ret$,3,",")
imprimir Val(Substr$(ret$,4,","))
imprimir Substr$(ret$,5,",")

Proc mehr

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

ENDPROC

Waitinput

du gibst todos Werte como String con Trennzeichen zurück y beim Auslesen con SubSTR$() wandelst esta Werte en entsprechende Typen en

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.12.2015 ▲

Jörg
Sellmeyer

Mir fällt como todavía algo como una:

Proc MultiRueck

    Declarar Rueck$[4]

    If %pcount

        WhileLoop 0,%pcount-1

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

        Wend

    EndIf

    Volver Rueck$[]

ENDPROC

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

WhileLoop 0,3

    Imprimir 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 lo una Möglichkeit, más que una Parámetro zurück a geben?

Un Función liefert siempre 1 Rückgabe, el para mehrere Werte durchaus vom Typ Array, Stringliste, Speicherhandle ser kann y somit cualquier viele Werte transportieren kann.

In XProfan y Basic puede ser aber de uno Función auch globale Variables beschreiben y lo así muy simplemente hacer.

15.12.2015 ▲

H.Brill

Tomar doch simplemente una Zona con
uno Struktur drinnen. Entweder global
definieren oder algo como va auch :

Declarar Memory Zona
Dim Zona, 20
Zona = Rueckgabe()
Imprimir String$(Zona, 0)
Imprimir Largo(Zona, 11)
Imprimir Largo(Zona, 15)
WaitKey
Disponer Zona
End

Proc Rueckgabe

    Declarar Memory b
    Struct Werte = s$(10), z1&, z2&
    Dim b, Werte
    b.s$ = "Hallo du"
    b.z1& = 100
    b.z2& = 200
    Volver b
    Disponer b

ENDPROC

Obwohl meines más doppelt gemoppelt es.

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

Gracias para el schnellen Tips.
Yo voluntad veces probieren,
qué para mein Programa al besten geeignet es.

15.12.2015 ▲

ByteAttack

¿Puede auch simplemente una Stringliste benutzen.
Ejemplo:

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

Proc Plus15

    Parámetros Texto$
    Declarar i%

    WhileLoop GetCount(tempList&)

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

    EndWhile

    Volver Texto$

ENDPROC

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

XProfan X3
Website: [...]

Facebook: [...]

16.12.2015 ▲

Michael
W.

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

WhileLoop 0, GetCount(tempList&) - 1

y luego el I% gegen &loop getauscht voluntad.

[OFFTOPIC]Yo benutze para mi Templates de paso {{x}} y el Gradzeichen. El einfachen geschweiften Klammern kommen nämlich en media Texten antes.[/OFFTOPIC]

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

20.12.2015 ▲