XProfan

Georg
Teles

Spontan fällt mir quelque chose comme un

CLS
Déclarer ret$
ret$ = plus()
imprimer Val($ Substr(ret$,1,»))
imprimer Val($ Substr(ret$,2,»))
imprimer $ Substr(ret$,3,»)
imprimer Val($ Substr(ret$,4,»))
imprimer $ Substr(ret$,5,»)

Proc plus

    Retour "1,2,trois,4,fünf"

ENDPROC

Waitinput

du gibst alle Werte comme String avec Trennzeichen zurück et beim Lecture avec SubSTR$() wandelst cet Werte dans entsprechende Typen um

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.12.2015 ▲

Jörg
Sellmeyer

Mir fällt là encore quelque chose comme un:

Proc MultiRueck

    Déclarer Rueck$[4]

    Si %pcount

        WhileLoop 0,%pcount-1

            Imprimer $(&Boucle+1)
            Rueck$[&Boucle] = $(&Boucle+1)

        Wend

    EndIf

    Retour Rueck$[]

ENDPROC

Déclarer Werte$[4]
Imprimer "Eingabe"
Werte$[] = MultiRueck("A","B","C","D")
Imprimer "\nAusgabe"

WhileLoop 0,3

    Imprimer Werte$[&Boucle]

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 une Possibilité, plus que une paramètre zurück trop donner?

une Funktion liefert toujours 1 Rückgabe, qui pour plusieurs Werte durchaus vom Typ Array, Stringliste, Speicherhandle son peux et somit beliebig viele Werte transportieren peux.

dans XProfan et Basic peux on mais aus einer Funktion aussi globale Variablen décrire et es sich avec cela très simple faire.

15.12.2015 ▲

H.Brill

prends doch simple une Bereich avec
einer Struktur drinnen. Entweder global
définir ou bien quelque chose comme allez aussi :

Déclarer Memory Bereich
Faible Bereich, 20
Bereich = Rueckgabe()
Imprimer String$(Bereich, 0)
Imprimer Long(Bereich, 11)
Imprimer Long(Bereich, 15)
WaitKey
Dispose Bereich
Fin

Proc Rueckgabe

    Déclarer Memory b
    Struct Werte = $ S(10), z1&, z2&
    Faible b, Werte
    b.s$ = "Hallo du"
    b.z1& = 100
    b.z2& = 200
    Retour b
    Dispose b

ENDPROC

quoique meines plutôt 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

merci pour qui schnellen Tips.
je werde la fois essayer,
quoi pour mon Programme am besten approprié ist.

15.12.2015 ▲

ByteAttack

peux aussi simple une Stringliste benutzen.
Beispiel:

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

Proc Plus15

    Paramètres Text$
    Déclarer i%

    WhileLoop GetCount(tempList&)

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

    Endwhile

    Retour Text$

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>"
Imprimer $(0)
WaitInput

XProfan X3
Website: [...]

Facebook: [...]

16.12.2015 ▲

Michael
W.

cela "inc i%" wäre aussi unnötig, si

WhileLoop 0, GetCount(tempList&) - 1

et ensuite qui I% vers &loop getauscht volonté.

[OFFTOPIC]je benutze pour mon Templates incidemment {{x}} et cela Gradzeichen. qui einfachen geschweiften Klammern venons nämlich dans meinen Texten avant.[/OFFTOPIC]

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

20.12.2015 ▲