(1.176)  S'inscrire

Français
Assembler Forum

BoolFunc

 
- page 1 -



Michael
Wodrich
Irgendwas klemmt là, je bekomme cela partie malheureusement pas compilé.

faute dans la ligne 120 à cause de fehlendem ENDIF.

ici qui BoolFunc.prf
(versucht avec XPSE v0.1.52 et XPIA v2.1 aus XPrfEdit)

editiert: 
...plus unten findet sich une funktionierende Version.
aussi im Downloadbereich sous BoolFunc.zip pour trouver.

KompilierenMarqueSéparation
Bool
by Michael Wodrich
Von der Schaltalgebra inspiriert habe ich für XProfan
(in Zusammenarbeit mit XPIA/XPSE) eine Funktion gebastelt
die alle Schaltzustände beherrscht.
Ich hoffe, daß die überall zusammengesuchten Bezeichnungen
der Zustände einigermaßen zutreffend sind.
Ich habe keine Ahnung warum es zwei IMP gibt und welches
davon in BASIC benutzt wird. Vielleicht schafft da mal ein
Wissender etwas Klarheit.
 {$cle}

Proc Bool

    Parameters A&, B&, Modus%
    Declare Ergebnis&
    Modus% = Modus% Mod 16  reduziert den Modus auf 0..15

    If Modus% = 0

        0  #  FALSE  #  Kontradiktion
        Ergebnis& = 0

    ElseIf Modus% = 1

        A & B  #  Konjunktion  #  AND  #  binäre Multiplikation

        AsmStart Bool1(A&,B&)

            mov eax,para1
            mov ebx,para2
            and eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 2

        A & !B  #  Inhibition  #  Funktion des indirekten Durchschnitts

        AsmStart Bool2(A&,B&)

            mov eax,para1
            mov ebx,para2
            not ebx
            and eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 3

        A  #  Transfer  #  quasi-gewöhnliche Form
        Ergebnis& = A&

    ElseIf Modus% = 4

        !A & B  #  Inhibition  #  Funktion des indirekten Durchschnitts

        AsmStart Bool4(A&,B&)

            mov eax,para1
            mov ebx,para2
            not eax
            and eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 5

        B  #  Transfer  #  quasi-gewöhnliche Form
        Ergebnis& = B&

    ElseIf Modus% = 6

        (!A & B) | (A & !B)  #  Antivalenz  #  XOR  #  binäre Addition  #  (Zeichen: Plus im Kreis)

        AsmStart Bool6(A&,B&)

            mov  edx,para1
            mov  ebx,para2
            push edx
            push ebx
            not  ebx
            and  edx,ebx
            pop  ebx
            pop  eax
            not  eax
            and  eax,ebx
            or   eax,edx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 7

        A | B  #  Disjunktion  #  OR

        AsmStart Bool7(A&,B&)

            mov eax,para1
            mov ebx,para2
            or  eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 8

        !(A | B)  #  Funktion von Peirce  #  NOR  #  inklusive inverse Funktion

        AsmStart Bool8(A&,B&)

            mov eax,para1
            mov ebx,para2
            or  eax,ebx
            not eax

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 9

        (!A | B) & (A | !B)  #  Äquivalenz  #  EQV; (A <-> B)  #  (Zeichen= 3 waagerechte Striche)

        AsmStart Bool9(A&,B&)

            mov  edx,para1
            mov  ebx,para2
            push edx
            push ebx
            not  ebx
            or   edx,ebx
            pop  ebx
            pop  eax
            not  eax
            or   eax,ebx
            and  eax,edx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 10

        !B  #  Negation oder Komplement (quasi-gewöhnliche Form)

        AsmStart BoolA(B&)

            mov eax,para1
            not eax

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 11

        A | !B  #  IMP  #  Implikation  #  (A -> B)

        AsmStart BoolB(A&,B&)

            mov eax,para1
            mov ebx,para2
            not ebx
            or  eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 12

        !A  #  Negation oder Komplement (quasi-gewöhnliche Form)

        AsmStart BoolC(A&)

            mov eax,para1
            not eax

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 13

        !A | B  #  IMP  #  Implikation  #  (A <- B)

        AsmStart BoolD(A&,B&)

            mov eax,para1
            mov ebx,para2
            not eax
            or  eax,ebx

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 14

        !(A & B)  #  Funktion von Sheffer  #  NAND  #  inverse Durchschnittbildung

        AsmStart BoolE(A&,B&)

            mov eax,para1
            mov ebx,para2
            and eax,ebx
            not eax

        AsmEnd(Ergebnis&)

    ElseIf Modus% = 15

        1  #  TRUE  #  Tautologie
        Ergebnis& = 1

    EndIf

EndProc

Cls
Set(Decimals,0)
Declare Wert1&,Wert2&,Erg&
Wert1& = 3
Wert2& = 5
Print A=,Bin$(Wert1&), und B=,Bin$(Wert2&);

WhileLoop 0,15

    Erg& = Bool( Wert1&, Wert2&, &loop)
    Print &loop;:,Bin$(Erg&)

<
s=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>Endwhile WaitKey Fin

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
12.12.2005  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -



Frank
Abbing
Hi,

je habs getestet. qui faute venez de XPSE, déjà bevor XPIA gestartet wird. cela fehlende ENDIF bezieht sich oui sur den Profancode.
XPIA jedenfalls erstellt den Assemblercode et qui Dll richtig. là peux je keinen faute entdecken.

@iF: je vois aucun vider Klammern...
 
12.12.2005  ▲
 




Frank
Abbing
Nochmal je.

ici qui erstellte neue Profancode. Funzt komischerweise, aussi avec XPSE bearbeitet...
KompilierenMarqueSéparation
________________________________________________________________________________________________________________
Generiert mit XPIA © Frank Abbing (http://fabbing.de)
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Übersetzte Datei: D:PROGRAMMEXPIAexamples	est.enh
Declare xpia_#,xpia$,expia&
Dim xpia_#,2048
Clear xpia_#
Long xpia_#,0=9460301,3,4,65535,184,0,64,0,0,0,0,0,0,0,0,176,247078670,-855002112,1275181089,1750344141,1881174889,1919381362,1663069537,1869508193,1700929652,1853190688,544106784,542330692,1701080941,168627502,36,0,-564840227
Long xpia_#,132=-1925490279,-1925490279,-1925490279,-1926661787,-1925490280,-1926740457,-1925490273,1751345490,-1925490279,0,0,17744,131404,1134402074,0,0,554565856,201654539,1024,512,0,4164,4096,8192,268435456,4096,512,4,0,4
Long xpia_#,252=0,12288,512,0,2,1048576,4096,1048576,4096,0,16,4848,246,4772,40,0,0,0,0,0,0,8192,84,0,0,0,0,0,0,0,0,0,0,0,0,4096,8,0,0,0,0,0,0,1297301837,12851,998,4096,1024,512,0,0,0,-536870880,1818587694,25455,88,8192,512,1536
Long xpia_#,488=0,0,0,1107296320,0,0,4820,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1192457387,1,836297,1206390634,-16777214,93259893,268439560,-1895008769,1051653,276168464,269485455,1979650048,335908628,-15728624,93263989,268439576
Long xpia_#,644=-1893960193,1055749,544603920,270534031,1979650048,604344100,-15728624,93268085,268439592,-1892911617,1059845,813039376,271582607,1979650048,872779572,-15728624,93272181,268439608,-1891863041,1063941,1081474832
Long xpia_#,728=272631183,1438846976,-997987189,-62535684,2,-40984,269001215,495652864,268439564,-1026964701,-1957363704,-54230036,50087367,-402653184,-196,1050785,203262736,-149946352,-909958189,1426065602,-997987189,-62535684
Long xpia_#,816=2,-59416,269001215,495652864,268439564,-1021062921,574153,-2081649835,1170734276,764,-17635328,361496575,268439560,269229451,1397886976,-752626697,-789096357,-1039416541,574153,-2081649835,1170734276,764,-20781056
Long xpia_#,908=144834559,-1961885680,1051677,-909964528,1426065602,-997987189,-62535684,2,-90136,269001215,495652864,268439564,-789069045,574153,-2081649835,1170734276,764,-25499648,361496575,268439560,269229451,1397886976,-754199561
Long xpia_#,1000=-789096357,-1037843701,574153,-2081649835,1170734276,508,-28645376,144834559,-149946352,79874512,-326413056,-939735933,195653,770179072,-1577058306,268439560,269229451,-738783232,-1026964725,-1957363704,-54230036
Long xpia_#,1084=33310151,-402653184,-504,1050785,-909052144,1426064578,-997987189,-62535684,2,-136216,269001215,495652864,268439564,-1022635785,574153,-2081649835,1170734276,764,-37296128,144834559,-1961885680,1051677,-138206448
Long xpia_#,1176=146983376,637520896,268439552,4812,0,0,4834,4096,0,0,0,0,0,4820,0,1699152177,1937331060,1869377347,1937047666,842232421,1819042862,0,0,1134402074,0,5008,1,12,12,4888,4936,4984,4319,4354,4391,4428,4476,4511,4548
Long xpia_#,1332=4596,4625,4662,4691,4728,5022,5028,5034,5040,5046,5052,5058,5064,5070,5076,5082,5088,65536,196610,327684,458758,589832,720906,1936028767,1852137332,1818504808,1866596460,3239023,1819242306,1866596402,3435631
Long xpia_#,1456=1819242306,1866596406,3632239,1819242306,1866596408,3763311,1819242306,1866596449,6450287,1819242306,1866596451,6581359,1819242306,101,0,0,0,0,0,0,4096,84,811937884,813117550,814297216,815476882,816656548,817836214
Long xpia_#,1568=819015880,821178586,823472376,825897243,828387648,831467878,833761685,836252088,839332318,841626148,845558345,847983212,849359505,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Long xpia_#,1776=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
xpia$=$TempDir+/_test_enh.dll
FileMode 1
Assign #1,xpia$
OpenRW #1
BlockWrite #1,xpia_#,0,2048
CloseRW #1
Dispose xpia_#
~~~~~~~~~~

PROC BOOL

    PARAMETERS A&, B&, MODUS%
    DECLARE ERGEBNIS&
    MODUS%=MODUS% MOD 16

    IF MODUS%=0

        ERGEBNIS&=0

    ELSEIF MODUS%=1

        ERGEBNIS&=External(xpia$,Bool1,A&,B&)

    Elseif Modus% = 2

        ERGEBNIS&=External(xpia$,Bool2,A&,B&)

    Elseif Modus% = 3

        Ergebnis& = A&

    Elseif Modus% = 4

        ERGEBNIS&=External(xpia$,Bool4,A&,B&)

    Elseif Modus% = 5

        Ergebnis& = B&

    Elseif Modus% = 6

        ERGEBNIS&=External(xpia$,Bool6,A&,B&)

    Elseif Modus% = 7

        ERGEBNIS&=External(xpia$,Bool7,A&,B&)

    Elseif Modus% = 8

        ERGEBNIS&=External(xpia$,Bool8,A&,B&)

    Elseif Modus% = 9

        ERGEBNIS&=External(xpia$,Bool9,A&,B&)

    Elseif Modus% = 10

        ERGEBNIS&=External(xpia$,Boola,B&)

    Elseif Modus% = 11

        ERGEBNIS&=External(xpia$,Boolb,A&,B&)

    Elseif Modus% = 12

        ERGEBNIS&=External(xpia$,Boolc,A&)

    Elseif Modus% = 13

        ERGEBNIS&=External(xpia$,Boold,A&,B&)

    Elseif Modus% = 14

        ERGEBNIS&=External(xpia$,Boole,A&,B&)

    Elseif Modus% = 15

        Ergebnis& = 1

    Endif

Endproc

Cls
Set(Decimals,0)
Declare Wert1&,Wert2&,Erg&
Wert1& = 3
Wert2& = 5
Print A=,Bin$(Wert1&), und B=,Bin$(Wert2&);

Whileloop 0,15

    Erg& = Bool( Wert1&, Wert2&, &Loop)
    Print &Loop;:,Bin$(Erg&)

Endwhile

Waitkey
Fin
 
12.12.2005  ▲
 



...asmend sans Klammerung...

pas le vide Klammer, sans...
 
12.12.2005  ▲
 




Frank
Abbing
Hi,

vois je aussi pas, ASMEND sans Klammerung...
peux du déjà dire, quoi de travers fonctionne?
 
12.12.2005  ▲
 



asmend sans Klammerung... funzt - avec Klammerung cependant pas.

Du hattest qui AsmEnd-Klammerung zwar erfunden (quelle je aussi très begrüße) - mais cela est malheureusement pas juste cela qui XPSE aussi avec bien sûr venez. malheureusement!

je werde ici wohl debuggen doit.
 
12.12.2005  ▲
 




Michael
Wodrich
Selbst si je avec Paramètres et Retour arbeite et un fertiges Programme zusammenbekomme:
qui Ergebnisse sommes malheureusement pas qui erwarteten...
 
Programmieren, das spannendste Detektivspiel der Welt.
13.12.2005  ▲
 




Frank
Abbing
Michael Wodrich
Selbst si je avec Paramètres et Retour arbeite et un fertiges Programme zusammenbekomme:
qui Ergebnisse sommes malheureusement pas qui erwarteten...


vois je ähnlich. chez meinen Tests funktioniereten qui neuen Klammern überall. XPSE kam avec cela tout de suite zurecht, sonst hätte je qui neue XPIA-Version oui encore gar pas posté.
qui faute muss doch encore woanders passer.
 
13.12.2005  ▲
 




Michael
Wodrich
je suis zwar avec den Ergebnissen toujours noh pas zufrieden, mais si on aussi qui PROC un Retour gönnt bekommt on immerhin quelque chose trop voyons.
KompilierenMarqueSéparation
xpse v0.1.5.2, xpia v2.1
Bool
by Michael Wodrich
Von der Schaltalgebra inspiriert habe ich für XProfan
(in Zusammenarbeit mit XPIA/XPSE) eine Funktion gebastelt
die alle Schaltzustände beherrscht.
Ich hoffe, daß die überall zusammengesuchten Bezeichnungen
der Zustände einigermaßen zutreffend sind.
Ich habe keine Ahnung warum es zwei IMP gibt und welches
davon in BASIC benutzt wird. Vielleicht schafft da mal ein
Wissender etwas Klarheit.
 {$cle}

Proc Bool

    Parameters A&, B&, Modus%
    Declare Ergebnis&
    Modus% = Modus% Mod 16  reduziert den Modus auf 0..15

    If Modus% = 0

        0  #  FALSE  #  Kontradiktion
        Ergebnis& = 0

    ElseIf Modus% = 1

        A & B  #  Konjunktion  #  AND  #  binäre Multiplikation

        AsmStart Bool1

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            and eax,ebx

        AsmEnd

    ElseIf Modus% = 2

        A & !B  #  Inhibition  #  Funktion des indirekten Durchschnitts

        AsmStart Bool2

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            not ebx
            and eax,ebx

        AsmEnd

    ElseIf Modus% = 3

        A  #  Transfer  #  quasi-gewöhnliche Form
        Ergebnis& = A&

    ElseIf Modus% = 4

        !A & B  #  Inhibition  #  Funktion des indirekten Durchschnitts

        AsmStart Bool4

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            not eax
            and eax,ebx

        AsmEnd

    ElseIf Modus% = 5

        B  #  Transfer  #  quasi-gewöhnliche Form
        Ergebnis& = B&

    ElseIf Modus% = 6

        (!A & B) | (A & !B)  #  Antivalenz  #  XOR  #  binäre Addition  #  (Zeichen: Plus im Kreis)

        AsmStart Bool6

            Parameters A&,B&
            Return Ergebnis&
            mov  edx,para1
            mov  ebx,para2
            push edx
            push ebx
            not  ebx
            and  edx,ebx
            pop  ebx
            pop  eax
            not  eax
            and  eax,ebx
            or   eax,edx

        AsmEnd

    ElseIf Modus% = 7

        A | B  #  Disjunktion  #  OR

        AsmStart Bool7

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            or  eax,ebx

        AsmEnd

    ElseIf Modus% = 8

        !(A | B)  #  Funktion von Peirce  #  NOR  #  inklusive inverse Funktion

        AsmStart Bool8

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            or  eax,ebx
            not eax

        AsmEnd

    ElseIf Modus% = 9

        (!A | B) & (A | !B)  #  Äquivalenz  #  EQV; (A <-> B)  #  (Zeichen= 3 waagerechte Striche)

        AsmStart Bool9

            Parameters A&,B&
            Return Ergebnis&
            mov  edx,para1
            mov  ebx,para2
            push edx
            push ebx
            not  ebx
            or   edx,ebx
            pop  ebx
            pop  eax
            not  eax
            or   eax,ebx
            and  eax,edx

        AsmEnd

    ElseIf Modus% = 10

        !B  #  Negation oder Komplement (quasi-gewöhnliche Form)

        AsmStart BoolA

            Parameters B&
            Return Ergebnis&
            mov eax,para1
            not eax

        AsmEnd

    ElseIf Modus% = 11

        A | !B  #  IMP  #  Implikation  #  (A -> B)

        AsmStart BoolB

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            not ebx
            or  eax,ebx

        AsmEnd

    ElseIf Modus% = 12

        !A  #  Negation oder Komplement (quasi-gewöhnliche Form)

        AsmStart BoolC

            Parameters A&
            Return Ergebnis&
            mov eax,para1
            not eax

        AsmEnd

    ElseIf Modus% = 13

        !A | B  #  IMP  #  Implikation  #  (A <- B)

        AsmStart BoolD

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            not eax
            or  eax,ebx

        AsmEnd

    ElseIf Modus% = 14

        !(A & B)  #  Funktion von Sheffer  #  NAND  #  inverse Durchschnittbildung

        AsmStart BoolE

            Parameters A&,B&
            Return Ergebnis&
            mov eax,para1
            mov ebx,para2
            and eax,ebx
            not eax

        AsmEnd

    ElseIf Modus% = 15

        1  #  TRUE  #  Tautologie
        Ergebnis& = 1

    EndIf

    Return Ergebnis&

EndProc

Cls
Set(Decimals,0)
Declare Wert1&,Wert2&,Erg&
Wert1& = %00001111
Wert2& = %01010101
Print A=,Bin$(Wert1&), und B=,Bin$(Wert2&);

WhileLoop 0,15

    Erg& = Bool( Wert1&, Wert2&, &loop)
    Print &loop;:,Bin$(Erg
class=s2>) Endwhile WaitKey Fin
 
Programmieren, das spannendste Detektivspiel der Welt.
13.12.2005  ▲
 




Michael
Wodrich
Correction: chez Modus 15 doit naturellement -1 stehen.

si on ensuite encore unten dans qui Testschleife folgendes einsetzt:
KompilierenMarqueSéparation
Print &loop;:,Bin$(Erg&);tab(15);MyBin$(Erg&,16,4)
>

et qui folgende Funktion avec aufnimmt:
KompilierenMarqueSéparation
Proc MyBin$

    If %PCount > 2

        Parameters Wert&,Laenge%,Grp%

    Else

        Parameters Wert&,Laenge%
        Declare Grp%
        Grp% = 64

    EndIf

    Declare Ergebnis$,Maske&,GrpCnt%
    Clear Ergebnis$
    Maske& = 1
    GrpCnt% = Grp%

    While Laenge%

        Dec Laenge%
        Dec GrpCnt%
        Ergebnis$ = @If(Wert& & Maske&,1,0) + Ergebnis$

        If (GrpCnt% = 0) and (Laenge% > 0)

            Ergebnis$ = Chr$(32) + Ergebnis$
            GrpCnt% = Grp%

        EndIf

        Maske& = Maske& << 1

    EndWhile

    Return Ergebnis$

ENDPROC

...ensuite wird cela Ganze aussi quelque chose klarer.

on sollte arrêt pas direct pour einer Nachtschicht versuchen Programme trop écrivons.

belle Grüße
Michael Wodrich

P.S.: pour unseren Télécharger-Bereich habe je cela partie comme ZIP angehängt.

261 kB
Kurzbeschreibung: Bool comme Source + EXE
Hochgeladen:13.12.2005
Downloadcounter: 42
Download
 
Programmieren, das spannendste Detektivspiel der Welt.
13.12.2005  ▲
 



la fois pour den stumpfen iF - hat sich qui Problematik dans air aufgelöst?
 
13.12.2005  ▲
 



 
- page 2 -



Michael
Wodrich
non pas entier.

je hatte pour qui Ergebnisrückgabe lediglich un Retour oublier qc.

cela Problem ist seulement behoben, si sich aussi cela erste Codebeispiel correct compilieren läßt. si ensuite encore händisch cela Retour nachgetragen wird, ensuite devrait aussi qui Ergebnisse korrekt rüberkommen (chez Modus 15 doit encore qui 1 dans Minus 1 geändert volonté).

si cela fonctionne ist wieder alles im Lot.

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
13.12.2005  ▲
 



hmkey
 
14.12.2005  ▲
 



◄
12

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

2.788 Views

Untitledvor 0 min.
GDL23.07.2015
Michael Borowiak07.12.2011

Themeninformationen

cet Thema hat 3 participant:

Michael Wodrich (5x)
iF (5x)
Frank Abbing (4x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie