English
Forum

Search code "analogen" Darstelleng of Meßwerte

 
- Page 1 -



KHR
Hello together

.
again I!

first time thanks for speedy and kompetente Help in the last thread.

i'm thereby one Program To basteln, the over The serial interface permanent Data from of/ one Meßeinrichtung einlist. to some extent is done the part, the The Logfiles then auswertet and graphical darstellt

These data go as Logfile stored and on the screen always actually displayed,

i want now try, this data analog darzustellen, that is How z.B. one Drehzahlmesser or tachometer, unfortunately come I thereby not so right along and the Results are sooner humble.

gives it there Perhaps one Codeschnipsel, with the I me time standing could, How one there dran weg can?

If want exists can I too happy times whom funktiontüchtigen part the Program reinstellen - but not too much of it promise, its the Erstlingswerk and sure not beautiful and optimal program. into the bargain is through its task very zweckgebunden and sure not negotiable.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/16/08  
 



 
- Page 1 -



KHR
Hello IF

.
OK, must me hold first time in the Forum accustomed to.

now is the Beitrags umgestellt. and the right Image drinne

there the XProfan 11 already?

not, that I it so correctly. need would - except even for the cotrol

me gefällt the 10. really well and I am pleased so. If I mach but deeper reingearbeitet have, go sure yet wish aufkommen.

Greeting
Karl-heinz
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/16/08  
 



XProfan 11 can You here objectively already receive: [...]  , thanks for the Umstellen!
 
03/16/08  
 




Frank
Abbing
Why have you got whom Programmnamen really ausgeblendet, Karl? should one whom not reading can? I must unfortunately say, that me such Geheimniskrämereien not so lying and were therefore time on your Statement(en).
V0.9c Alpha... is means but already right far gediehen, your Program. and shining me of first local already over the Anfängerstatus herauszugehen. therefore wundert it me, that You The of you angestrebte Umstellung not on my own hinbekommst. understand me not wrong, eachone here's ready to help you. but so a question becomes still allows his.
 
03/16/08  
 




KHR
Hello Frank,

.
I use the program yet to that present of log-Files. as i whom Schnappschuß made having, saw I, that hereon the name of my Arbeitgebers and the name one customers - from the The log-File stammt - eingeblendet was.

the could I so naturally not stand let - means Have I it verwischt.

The thing have myself complete written or from sharing Help zusammengeflickt. I use it only for me, my Kollegen wander a selbstgebastelte Excel-application or a verzwickte DaisyLab-story to. its nothing offizielles and has with the firm nothing To do, except that I it for me with the work use.

NaJa The version number - I Have hold simply with 0.2 began to supra To count and be with the number already moreover as it the program is. the Program geb I occasionally already at times a customers moreover and therefore Have so did i the Alpha reingemacht. not that another on The idea comes rumzumäkeln if what not so right goes.

later versions - and on it bastele I in momentum - then too online with the Meßgeräten communicate and the log isn't for Public certainly, therefore must I these pieces with the publication rausnehmen

Nix Geheimniskrämerei, sooner berechtigter Privacy Policy and a slightly caution. where should I because know, whether my Boß so all right is, that here open in the Forum one Program with the Firmennamen visible is ?

How before already time written, I stell it gladly here mere - if it at all of interest is. moreover I will But anonymisieren. Nix for ungut.
.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/16/08  
 



so a Unkenntlichmachung is still completely IO.

@Frank: Wat hasst now again - otherwise be I the Mäkelkopp.
 
03/16/08  
 




Frank
Abbing

Nix Geheimniskrämerei, sooner berechtigter Privacy Policy and a slightly caution. where should I because know, whether my Boß so all right is, that here open in the Forum one Program with the Firmennamen visible is ?

How before already time written, I stell it gladly here mere - if it at all of interest is. moreover I will But anonymisieren. Nix for ungut.



so a Unkenntlichmachung is still completely IO.

@Frank: Wat hasst now again - otherwise be I the Mäkelkopp.


this time i was it even.

@Karl: this is completely aale!
your Statement has me very pleased set. find I well: The Kollegen using Standardsachen, You make your own thing with Mucke, Spoiler and Formel 1- display.
 
03/17/08  
 



 
- Page 2 -



KHR
Hello miteinader!

.
the has me no silence let. I Have everything I over Kreisberechnung, Sinus and Cosinus in my dusty Oberstübchen yet scrape up could on a bunch thrown, moreover yet my Opportunities and a slightly Profan-code mixed.

after I me these night around the ears beaten have is folgendens herausgekommen.

OK - its from the formation since sure yet far away, from the I wants - its simply a Arbeitsunterlage on its Base I go on wants.

I give To, that I with Kommentaren very gespart have - but the Bezeichner go still something Klarheit into thing bring

I give too gladly To, that I me over Programmiertechnik and -Style yet little thoughts made have - therefore möge one largely over The crime in this Codestück hinwegsehen.

If someone ne Why stay has, How to the whole rather present and effizienter program can - then Please i'm integrally ear - ääähhh eye.
CompileMarkSeparation
 $I Math.inc
declare winkel%
declare Mitte_x%
declare Mitte_y%
declare radius%
declare x1%, y1%
declare x2%, y2%
declare x3%, y3%
declare z1%
declare z2%
declare faktor!
declare Skala!
declare Anzeigewert1!
declare Anzeigewert2!
declare Anzeigewert3!
declare Anzeigewert4!
declare Anzeigewert5!
declare wert_faktor1!
declare wert_faktor2!
declare wert_faktor3!
declare wert_faktor4!
declare wert_faktor5!
declare Zeiger_farbe1%
declare Zeiger_farbe2%
declare Skalen_farbe%
declare Schrift_farbe%
declare Wert_farbe%
declare Hintergrund_farbe%
declare Werthintergrund_farbe%
Zeiger_farbe1%         = @RGB(225, 20, 20)
Zeiger_farbe2%         = @RGB(185, 20, 20)
Skalen_farbe%          = @RGB( 10, 10,200)
Schrift_farbe%         = @RGB(215, 20, 20)
Wert_farbe%            = @RGB( 20,225, 20)
Werthintergrund_farbe% = @RGB( 20,225, 20)
Hintergrund_farbe%     = @RGB(255,255,255)
cls

proc zeichne_skala_1

    parameters mitte_x%, mitte_Y%, radius%, wert_anfang%, wert_ende%, teiler%
    z1%=0
    z2%=0

    whileloop 135,405,(270/teiler%)

        Skala! = (wert_ende% - wert_anfang%) / teiler%
        winkel% = &loop
        x1% = Mitte_x% + radius% *0.8 * @cos(@Deg2Rad(winkel%))
        y1% = Mitte_y% + radius% *0.8 * @sin(@Deg2Rad(winkel%))
        x2% = Mitte_x% + radius% *1.05 * @cos(@Deg2Rad(winkel%))
        y2% = Mitte_y% + radius% *1.05 * @sin(@Deg2Rad(winkel%))
        x3% = Mitte_x% + radius% * 1.4 * @cos(@Deg2Rad(winkel%-5))
        y3% = Mitte_y% + radius% * 1.4 * @sin(@Deg2Rad(winkel%-5))
        MoveTo x1%,y1%
        lineto x2%,y2%

        if z2% =0

            orientation  2700 - (winkel%*10)
            usefont arial, 22,8,1,0,0
            textcolor Schrift_farbe%,Hintergrund_farbe%
            drawtext x3%,y3%, @str$(wert_anfang%+skala!*z1%)
            z2% = 2
            case teiler% <12 : z2%=1
            case teiler% >20 : z2%=3

        endif

        inc z1%
        dec z2%

    endwhile

endproc

proc zeichne_zeiger_1

    parameters mitte_x%, mitte_Y%,radius%, winkel%, wert!
    Ellipse (mitte_x%-(radius%*0.3)), (mitte_Y%-(radius%*0.3)) - (mitte_x%+(radius%*0.3)), (mitte_Y%+(radius%*0.3))
    winkel% = winkel%+135
    x1% = Mitte_x% + radius%*0.2 * @cos(@Deg2Rad(winkel%))
    y1% = Mitte_y% + radius%*0.2 * @sin(@Deg2Rad(winkel%))
    x2% = Mitte_x% + radius% * @cos(@Deg2Rad(winkel%))
    y2% = Mitte_y% + radius% * @sin(@Deg2Rad(winkel%))
    MoveTo x1%,y1%
    lineto x2%,y2%
    textcolor  Werthintergrund_farbe%, Hintergrund_farbe%
    drawtext (mitte_x%-25), (mitte_Y%+(radius%*0.9)) ,  + @str$(wert!)+

endproc

proc lösche_zeiger_1

    parameters mitte_x%, mitte_Y%,radius%, winkel%
    winkel% = winkel%+135
    x1% = Mitte_x% + radius%*0.2 * @cos(@Deg2Rad(winkel%))
    y1% = Mitte_y% + radius%*0.2 * @sin(@Deg2Rad(winkel%))
    x2% = Mitte_x% + radius% * @cos(@Deg2Rad(winkel%))
    y2% = Mitte_y% + radius% * @sin(@Deg2Rad(winkel%))
    MoveTo x1%,y1%
    lineto x2%,y2%

endproc

System einstellen
@Set(TrueColor, 1)
Generelle Werte festlegen
wert_faktor1! = 500/270
wert_faktor2! = 200/270
wert_faktor3! =  90/270
wert_faktor4! =  50/270
wert_faktor5! =  30/270
Start. und Anzeigewerte für Demo-Darstellung
faktor!= 1.3
Anzeigewert1! = 100
Anzeigewert2! =   1
Anzeigewert3! =  22
Anzeigewert4! =  10
Anzeigewert5! =   4
Begin Hauptprogramm
@Set(NumWidth,3)
@Set(decimals,0)
usepen 1,4, Skalen_farbe%
zeichne_skala_1  150 , 150, 100, 0,500,20
zeichne_skala_1  480 , 150, 100, 0,200,15
zeichne_skala_1  100 , 330, 60,  0,90 ,10
zeichne_skala_1  310 , 330, 60,  0,50 ,10
zeichne_skala_1  510 , 330, 60,  0,30 ,10
orientation  0
usefont arial, 24,8,1,0,0

whileloop 1,20000

    usebrush 1, 5, Zeiger_farbe2%
    usepen   1, 5, Zeiger_farbe1%
    @Set(NumWidth,3)
    @Set(decimals,0)
    zeichne_zeiger_1 150 , 150,  80, (anzeigewert1!/wert_faktor1!),anzeigewert1!
    @Set(decimals,1)
    zeichne_zeiger_1 480 , 150,  80, (anzeigewert2!/wert_faktor2!),anzeigewert2!
    @Set(decimals,2)
    zeichne_zeiger_1 100 , 330,  40, (anzeigewert3!/wert_faktor3!),anzeigewert3!
    zeichne_zeiger_1 310 , 330,  40, (anzeigewert4!/wert_faktor4!),anzeigewert4!
    zeichne_zeiger_1 510 , 330,  40, (anzeigewert5!/wert_faktor5!),anzeigewert5!
    sleep 200
    usepen 1,8, Hintergrund_farbe%
    Lösche_zeiger_1 150 , 150,  80, (anzeigewert1!/wert_faktor1!),anzeigewert1!
    Lösche_zeiger_1 480 , 150,  80, (anzeigewert2!/wert_faktor2!),anzeigewert2!
    Lösche_zeiger_1 100 , 330,  40, (anzeigewert3!/wert_faktor3!),anzeigewert3!
    Lösche_zeiger_1 310 , 330,  40, (anzeigewert4!/wert_faktor4!),anzeigewert4!
    Lösche_zeiger_1 510 , 330,  40, (anzeigewert5!/wert_faktor5!),anzeigewert5!
    zufällige Anzeigewerte für Demo-Darstellung ausrechnen
    case anzeigewert1! <  10 : faktor! = 1.8
    case anzeigewert1! > 240 : faktor! = 2.4
    case anzeigewert1! > 480 : faktor! = 4.6
    anzeigewert1! = anzeigewert1! + (@rnd(7)-faktor!)
    case anzeigewert2! <  10 : faktor! = 1.8
    case anzeigewert2! >  80 : faktor! = 3.2
    case anzeigewert2! > 190 : faktor! = 4.4
    anzeigewert2! = anzeigewert2! + (@rnd(7)-faktor!)
    case anzeigewert3! <  15 : faktor! = 1.1
    case anzeigewert3! >  40 : faktor! = 2.1
    case anzeigewert3! >  80 : faktor! = 2.9
    anzeigewert3! = anzeigewert3! + (@rnd(5)-faktor!)
    case anzeigewert4! <   6 : faktor! = 1.1
    case anzeigewert4! >  19 : faktor! = 1.7
    case anzeigewert4! >  47 : faktor! = 2.9
    anzeigewert4! = anzeigewert4! + (@rnd(5)-faktor!)
    case anzeigewert5! <   4 : faktor! = 1.1
    case anzeigewert5! >  12 : faktor! = 2.1
    case anzeigewert5! >  26 : faktor! = 2.9
    anzeigewert5! = anzeigewert5! + (@rnd(5)-faktor!2>)

endwhile

waitinput

so now make I the light from, whom Rolladen down and go in that bed.

see you later

103 kB
Kurzbeschreibung: 5 Analog Meßwertanzeigen as demonstration
Hochgeladen:03/17/08
Downloadcounter134
Download
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/17/08  
 



Hehe nice!
 
03/17/08  
 




Jörg
Sellmeyer
class! small Änderung had I yet vorzuschlagen:
CompileMarkSeparation
@Set(NumWidth,3)
@Set(decimals,0)
UseBrush 1, 5, Zeiger_farbe2%
SetTimer 1

whileloop 1,20000

    WaitInput
    ...hier der Code

Wend

K
it

therefore becomes the processor not The whole Time on 100% held and the Set-functions bauchst You Yes only once and not 20000; and UseBrush becomes indeed not each Schleifendurchgang needed.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
03/17/08  
 




KHR
Hello together, Hello Jörg

.
The thing has me you no silence let and my woman has yet imaginations To farblichen formation geäußert.

whom suggestion of Jörg - thanks - Have I just as reingemacht, How two Feher eliminating.

now see it so from:
CompileMarkSeparation
 $I Math.inc
declare winkel%
declare Mitte_x%
declare Mitte_y%
declare radius%
declare x1%, y1%
declare x2%, y2%
declare x3%, y3%
declare z1%
declare z2%
declare faktor!
declare Skala!
declare Anzeigewert1!
declare Anzeigewert2!
declare Anzeigewert3!
declare Anzeigewert4!
declare Anzeigewert5!
declare wert_faktor1!
declare wert_faktor2!
declare wert_faktor3!
declare wert_faktor4!
declare wert_faktor5!
declare Zeiger_farbe1%
declare Zeiger_farbe2%
declare Skalen_farbe%
declare Schrift_farbe%
declare Wert_farbe%
declare Hintergrund_farbe%
declare Werthintergrund_farbe%
Zeiger_farbe1%         = @RGB(225, 20, 20)
Zeiger_farbe2%         = @RGB(185, 20, 20)
Skalen_farbe%          = @RGB( 10, 10,200)
Schrift_farbe%         = @RGB(215, 20, 20)
Wert_farbe%            = @RGB( 20,225, 20)
Werthintergrund_farbe% = @RGB( 20, 20, 20)
Hintergrund_farbe%     = @RGB(255,255,235)
cls

proc zeichne_skala_1

    parameters mitte_x%, mitte_Y%, radius%, wert_anfang%, wert_ende%, teiler%
    z1%=0
    z2%=0
    usebrush 1, Hintergrund_farbe%
    usepen   1, 2, Skalen_farbe%
    Ellipse (mitte_x%-(radius%*1.44)), (mitte_Y%-(radius%*1.44)) - (mitte_x%+(radius%*1.44)), (mitte_Y%+(radius%*1.44))

    whileloop 135,405,(270/teiler%)

        Skala! = (wert_ende% - wert_anfang%) / teiler%
        winkel% = &loop
        usepen 1,4, Skalen_farbe%
        x1% = Mitte_x% + radius% *0.8 * @cos(@Deg2Rad(winkel%))
        y1% = Mitte_y% + radius% *0.8 * @sin(@Deg2Rad(winkel%))
        x2% = Mitte_x% + radius% *1.05 * @cos(@Deg2Rad(winkel%))
        y2% = Mitte_y% + radius% *1.05 * @sin(@Deg2Rad(winkel%))
        x3% = Mitte_x% + radius% * 1.4 * @cos(@Deg2Rad(winkel%-5))
        y3% = Mitte_y% + radius% * 1.4 * @sin(@Deg2Rad(winkel%-5))
        MoveTo x1%,y1%
        lineto x2%,y2%

        if z2% =0

            orientation  2700 - (winkel%*10)
            usefont arial, 22,8,1,0,0
            textcolor Schrift_farbe%,Hintergrund_farbe%
            drawtext x3%,y3%, @str$(wert_anfang%+skala!*z1%)
            z2% = 2
            case teiler% <12 : z2%=1
            case teiler% >20 : z2%=3

        endif

        inc z1%
        dec z2%

    endwhile

endproc

proc zeichne_zeiger_1

    parameters mitte_x%, mitte_Y%,radius%, winkel%, wert!
    Ellipse (mitte_x%-(radius%*0.3)), (mitte_Y%-(radius%*0.3)) - (mitte_x%+(radius%*0.3)), (mitte_Y%+(radius%*0.3))
    winkel% = winkel%+135
    x1% = Mitte_x% + radius%*0.2 * @cos(@Deg2Rad(winkel%))
    y1% = Mitte_y% + radius%*0.2 * @sin(@Deg2Rad(winkel%))
    x2% = Mitte_x% + radius% * @cos(@Deg2Rad(winkel%))
    y2% = Mitte_y% + radius% * @sin(@Deg2Rad(winkel%))
    MoveTo x1%,y1%
    lineto x2%,y2%
    textcolor  Wert_farbe% , Werthintergrund_farbe%
    drawtext (mitte_x%-25), (mitte_Y%+(radius%*0.9)) ,  + @str$(wert!)+

endproc

proc lösche_zeiger_1

    parameters mitte_x%, mitte_Y%,radius%, winkel%
    winkel% = winkel%+135
    x1% = Mitte_x% + radius%*0.2 * @cos(@Deg2Rad(winkel%))
    y1% = Mitte_y% + radius%*0.2 * @sin(@Deg2Rad(winkel%))
    x2% = Mitte_x% + radius% * @cos(@Deg2Rad(winkel%))
    y2% = Mitte_y% + radius% * @sin(@Deg2Rad(winkel%))
    MoveTo x1%,y1%
    lineto x2%,y2%

endproc

System einstellen
@Set(TrueColor, 1)
Generelle Werte festlegen
wert_faktor1! = 500/270
wert_faktor2! = 200/270
wert_faktor3! =  90/270
wert_faktor4! =  50/270
wert_faktor5! =  30/270
Start. und Anzeigewerte für Demo-Darstellung
faktor!= 1.3
Anzeigewert1! = 100
Anzeigewert2! =   1
Anzeigewert3! =  22
Anzeigewert4! =  10
Anzeigewert5! =   4
Begin Hauptprogramm
@Set(NumWidth,3)
@Set(decimals,0)
usepen 1,4, Skalen_farbe%
zeichne_skala_1  150 , 150, 100, 0,500,20
zeichne_skala_1  480 , 150, 100, 0,200,15
zeichne_skala_1  100 , 330, 60,  0,90 ,10
zeichne_skala_1  315 , 330, 60,  0,50 ,10
zeichne_skala_1  530 , 330, 60,  0,30 ,10
orientation  0
usefont arial, 24,8,1,0,0
SetTimer 200

whileloop 1,20000

    usebrush 1, Zeiger_farbe2%
    usepen   1, 5, Zeiger_farbe1%
    @Set(NumWidth,3)
    @Set(decimals,0)
    zeichne_zeiger_1 150 , 150,  80, (anzeigewert1!/wert_faktor1!),anzeigewert1!
    @Set(decimals,1)
    zeichne_zeiger_1 480 , 150,  80, (anzeigewert2!/wert_faktor2!),anzeigewert2!
    @Set(decimals,2)
    zeichne_zeiger_1 100 , 330,  40, (anzeigewert3!/wert_faktor3!),anzeigewert3!
    zeichne_zeiger_1 315 , 330,  40, (anzeigewert4!/wert_faktor4!),anzeigewert4!
    zeichne_zeiger_1 530 , 330,  40, (anzeigewert5!/wert_faktor5!),anzeigewert5!
    waitinput
    usepen 1,8, Hintergrund_farbe%
    Lösche_zeiger_1 150 , 150,  80, (anzeigewert1!/wert_faktor1!),anzeigewert1!
    Lösche_zeiger_1 480 , 150,  80, (anzeigewert2!/wert_faktor2!),anzeigewert2!
    Lösche_zeiger_1 100 , 330,  40, (anzeigewert3!/wert_faktor3!),anzeigewert3!
    Lösche_zeiger_1 315 , 330,  40, (anzeigewert4!/wert_faktor4!),anzeigewert4!
    Lösche_zeiger_1 530 , 330,  40, (anzeigewert5!/wert_faktor5!),anzeigewert5!
    zufällige Anzeigewerte für Demo-Darstellung ausrechnen
    case anzeigewert1! <  10 : faktor! = 1.8
    case anzeigewert1! > 240 : faktor! = 2.4
    case anzeigewert1! > 480 : faktor! = 4.6
    anzeigewert1! = anzeigewert1! + (@rnd(7)-faktor!)
    case anzeigewert2! <  10 : faktor! = 1.8
    case anzeigewert2! >  80 : faktor! = 3.2
    case anzeigewert2! > 190 : faktor! = 4.4
    anzeigewert2! = anzeigewert2! + (@rnd(7)-faktor!)
    case anzeigewert3! <  15 : faktor! = 1.1
    case anzeigewert3! >  40 : faktor! = 2.1
    case anzeigewert3! >  80 : faktor! = 2.9
    anzeigewert3! = anzeigewert3! + (@rnd(5)-faktor!)
    case anzeigewert4! <   6 : faktor! = 1.1
    case anzeigewert4! >  19 : faktor! = 1.7
    case anzeigewert4! >  47 : faktor! = 2.9
    anzeigewert4! = anzeigewert4! + (@rnd(5)-faktor!)
    case anzeigewert5! <   4 : faktor! = 1.1
    case anzeigewert5! >  12 : faktor! = 2.1
    case anzeigewert5! >  26 : faktor! = 2.9
    anzeigewert5! = anzeigewert5! + (@rnd(5)-faktor!ass=s2>)

endwhile

KillTimer
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/17/08  
 




Jörg
Sellmeyer
you have the WaitInput to WhileLoop forget - so is the Timer useless...
the UseBrush should You too to the WhileLoop settle. so becomes it unnötigerweise each Schleifendurchlauf called.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
03/17/08  
 




KHR
Hello Jörg,

.
the Waitinput is between the two Sektionen zeichne_zeiger and Lösche_Zeiger wandered. Dor need I Yes The Verzögerung, so The Zeiger at all To see are. before was there one sleep 200 stood.

the usebrush must unfortunately in the schleife stand stay, I it in the equal Passage over again in the routine to that malen the Zeiger use must.

.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
03/17/08  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

2.197 Views

Untitledvor 0 min.
Normann Strübli09/05/20
iF05/04/13
Peter Max Müller12/11/11

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie