(1.127)  S'inscrire

Français
Forum

cherche Code zur "analogen" Darstelleng de Meßwerte

 
- page 1 -



KHR
allô miteinander

.
encore je!

d'abord la fois merci pour qui schnelle et kompetente Aider im letzten thread.

je suis dabei un Programme trop bricoler, cela sur qui serielle Schnittstelle permanent données aus einer Meßeinrichtung einlist. Einigermaßen fertig ist qui partie, qui qui Logfiles ensuite auswertet et graphisch darstellt

cet données volonté comme Logfile gespeichert et sur dem Schirm toujours aktuelle angezeigt,

je voudrais eh bien versuchen, cet données analog darzustellen, cela est comment z.B. un Drehzahlmesser ou bien tachymètre, malheureusement viens je dabei pas so droite vorwärts et qui Ergebnisse sommes plutôt bescheiden.

Gibt es là peut-être un Codeschnipsel, chez dem je mir la fois regarder pourrait, comment on là tour aller peux?

si besoin besteht peux je aussi gern la fois den funktiontüchtigen partie des Programme reinstellen - mais pas zuviel en versprechen, c'est cela Erstlingswerk et sûrement pas joli et optimal programmiert. encore en supplément ist par sa devoir très zweckgebunden et sûrement pas übertragbar.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
16.03.2008  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -



KHR
allô IF

.
Ok, doit mich arrêt seulement la fois im Forum acclimater.

maintenant ist qui Beitrags umgestellt. et cela richtige Bild drinne

gibt es cela Xprofan 11 déjà?

pas, qui je es so richtig brauchen serait - sauf plan pour cela cotrol

Mir comme cela 10. wirklich bien et je suis zufrieden avec cela. si je mach mais tiefer reingearbeitet habe, volonté sûrement encore wünsche aufkommen.

Salut
Karl-heinz
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
16.03.2008  ▲
 



XProfan 11 peux Du ici réellement bereits conservé: [...]  , merci pour cela Umstellen!
 
16.03.2008  ▲
 




Frank
Abbing
pourquoi la hâte du den Programmnamen eigentlich ausgeblendet, Karl? Soll on den ici pas lesen dürfen? je dois malheureusement dire, dass mir solche Geheimniskrämereien pas so liegen et attends daher la fois sur deine Erklärung(en).
V0.9c Alpha... ist alors doch déjà droite large gediehen, dein Programme. et scheint mir vom ersten impression bereits sur den Anfängerstatus herauszugehen. Daher wundert es mich, dass du qui de dir angestrebte Commutateur pas alleine hinbekommst. Verstehe mich pas faux, chacun ici ist bereit dir trop aider. mais so une Frage wird doch erlaubt son.
 
16.03.2008  ▲
 




KHR
allô Frank,

.
je verwende cela Programme jusqu'à maintenant zum représenter de Log-Fichiers. comme Je l' Schnappschuß gemacht hatte, sah je, qui puis qui nom meines Arbeitgebers et qui nom eines Kunden - de dem qui Log-Dossier stammt - eingeblendet était.

cela konnte je so naturellement pas stehen laisser - alors hab je es verwischt.

cela Ding habe je selbst komplett geschrieben ou bien aus partager qui Aider zusammengeflickt. je verwende es seulement pour mich, mon Kollegen tirer une selbstgebastelte Excel-Anwendung ou bien une verzwickte DaisyLab-Geschichte avant. c'est rien offizielles et hat avec qui Firma rien trop 1faire, ausser qui je es pour mich chez qui travail verwende.

NaJa qui Versionsnummer - je hab arrêt simple chez 0.2 begonnen pour dessus trop zählen et suis avec qui numéro déjà plus comme es cela Programme ist. cela Programme geb je gelegentlich aussi déjà la fois à une Kunden plus et c'est pourquoi hab je aussi cela Alpha reingemacht. pas qui encore einer sur qui concept venez rumzumäkeln si quoi pas so droite allez.

Spätere Versionen - et daran bastele je im Moment - volonté ensuite aussi online avec dem Meßgeräten kommunizieren et cela Protokoll ist pas pour qui Öffentlichkeit bestimmt, daher doit je cet Teile chez qui Veröffentlichung rausnehmen

Nix Geheimniskrämerei, plutôt berechtigter protection des données et légèrement attention. Woher soll je car savons, si mon Boß avec cela d'accord ist, qui ici offen im Forum un Programme avec dem Firmennamen sichtbar ist ?

comment auparavant déjà la fois geschrieben, je stell es volontiers ici rein - si es überhaupt de intérêt ist. en supplément werde je es mais anonymisieren. Nix pour ungut.
.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
16.03.2008  ▲
 



So une Unkenntlichmachung mais est völlig IO.

@Frank: Wat hasst eh bien wieder - sonst suis je qui Mäkelkopp.
 
16.03.2008  ▲
 




Frank
Abbing

Nix Geheimniskrämerei, plutôt berechtigter protection des données et légèrement attention. Woher soll je car savons, si mon Boß avec cela d'accord ist, qui ici offen im Forum un Programme avec dem Firmennamen sichtbar ist ?

comment auparavant déjà la fois geschrieben, je stell es volontiers ici rein - si es überhaupt de intérêt ist. en supplément werde je es mais anonymisieren. Nix pour ungut.



So une Unkenntlichmachung mais est völlig IO.

@Frank: Wat hasst eh bien wieder - sonst suis je qui Mäkelkopp.


cet la fois était je es plan.

@Karl: c'est völlig dans Ordre!
Votre Erklärung hat mich très zufrieden gestellt. Finde je bien: qui Kollegen benutzen Standardsachen, tu fais dein eigenes Ding avec Mucke, Spoiler et Formel 1- Anzeige.
 
17.03.2008  ▲
 



 
- page 2 -



KHR
allô miteinader!

.
cela hat mir aucun Ruhe gelassen. je hab alles quoi je sur Kreisberechnung, Sinus et Cosinus dans mon staubigen Oberstübchen encore zusammenkratzen konnte sur une Haufen geworfen, en supplément encore mon Wünsche et légèrement Profan-code gemischt.

après que je mir cet nuit à Ohren geschlagen habe ist folgendens herausgekommen.

Ok - c'est de qui Gestaltung her sûrement encore large weg, de dem quoi je veux - c'est simple une Arbeitsunterlage sur en la base je weitermachen veux.

je gebe trop, qui je avec Kommentaren très gespart habe - mais qui Bezeichner volonté doch quelque chose Klarheit dans qui Angelegenheit apporter

je gebe aussi gern trop, qui je mir sur Programmiertechnik et -stil bisher wenig Gedanken gemacht habe - daher möge on großzügig sur qui crime dans diesem Codestück hinwegsehen.

si quelqu'un ne Anregung hat, comment on cela ganze besser représenter et effizienter programmieren peux - ensuite s'il te plaît je suis entier oreille - ääähhh Auge.
KompilierenMarqueSéparation
 $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 maintenant fais je cela Licht aus, den Rolladen runter et va ins Bett.

jusqu'à später

103 kB
Kurzbeschreibung: 5 analoge Meßwertanzeigen comme Demo
Hochgeladen:17.03.2008
Downloadcounter: 134
Download
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
17.03.2008  ▲
 



Hehe gentil!
 
17.03.2008  ▲
 




Jörg
Sellmeyer
super! Kleine Changement hätte je encore vorzuschlagen:
KompilierenMarqueSéparation
@Set(NumWidth,3)
@Set(decimals,0)
UseBrush 1, 5, Zeiger_farbe2%
SetTimer 1

whileloop 1,20000

    WaitInput
    ...hier der Code

Wend

K
il

Dadurch wird qui Prozessor pas qui ganze Zeit sur 100% gehalten et qui Set-Funktionen bauchst Du oui seulement einmal et pas 20000; et UseBrush wird oui aussi pas dans chaque Schleifendurchgang nécessaire.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
17.03.2008  ▲
 




KHR
allô miteinander, allô Jörg

.
qui l'affaire hat mir toi aucun Ruhe gelassen et mon madame hat encore Vorstellungen trop farblichen Gestaltung geäußert.

Den Vorschlag de Jörg - merci - hab je genauso reingemacht, comment encore deux Feher beseitigt.

eh bien sieht es so aus:
KompilierenMarqueSéparation
 $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
17.03.2008  ▲
 




Jörg
Sellmeyer
tu as cela WaitInput pour WhileLoop oublier qc - so ist qui Minuteur nutzlos...
cela UseBrush devrait Du aussi avant cela WhileLoop mettons. So wird es unnötigerweise chez chaque Schleifendurchlauf aufgerufen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
17.03.2008  ▲
 




KHR
allô Jörg,

.
cela Waitinput ist entre qui beiden Sektionen zeichne_zeiger et Lösche_Zeiger gewandert. Dor brauche je oui qui Verzögerung, avec cela qui aiguille überhaupt trop voyons sommes. auparavant était là un sleep 200 gestanden.

cela usebrush doit malheureusement dans qui schleife stehen rester, là je es im gleichen Durchgang nochmals dans qui Routine zum malen qui aiguille verwenden doit.

.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
17.03.2008  ▲
 



◄
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.111 Views

Untitledvor 0 min.
Normann Strübli05.09.2020
iF04.05.2013
Peter Max Müller11.12.2011

Themeninformationen

cet Thema hat 4 participant:

KHR (8x)
iF (5x)
Frank Abbing (3x)
Jörg Sellmeyer (2x)


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