(1.112)  Registro

Español
Foro

Búsqueda Code a "analogen" Darstelleng de Meßwerte

 
- Página 1 -



KHR
¡Hola miteinander

.
ya otra vez Yo!

zuerst veces danke para rápido y kompetente Ayuda en el letzten thread.

Yo bin esta una Programa a remendar, el en serielle Schnittstelle permanent Daten de uno Meßeinrichtung einlist. Einigermaßen fertig es el Teil, el el Logfiles entonces auswertet y graphisch darstellt

Diese Daten voluntad como Logfile gespeichert y en el Schirm siempre aktuelle adecuado,

Yo möchte nun versuchen, dieses Daten analog darzustellen, el heißt como z.B. una Drehzahlmesser oder Tachometer, Leider komme Yo esta no así bastante vorwärts y el Ergebnisse son más bescheiden.

Gibt lo como tal vez una Codeschnipsel, en el Yo veces ansehen podría, cómo como dran ir kann?

Wenn Bedarf besteht kann Yo auch gern veces el funktiontüchtigen Teil des Programa reinstellen - pero no zuviel su versprechen, es el Erstlingswerk y sicher no schön y optimal programmiert. Noch dazu es por seine Tarea muy zweckgebunden y sicher no übertragbar.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
16.03.2008  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 1 -



KHR
¡Hola IF

.
Ok, muß mich sólo sólo veces en el Foro eingewöhnen.

Jetzt es el Beitrags umgestellt. y el richtige Bild drinne

hay el Xprofan 11 ya?

No, Yo lo así correcto brauchen sería - außer eben para el cotrol

Mir gefällt el 10. wirklich bien y yo bin zufrieden así. Wenn Que hago aber tiefer reingearbeitet habe, voluntad sicher todavía wünsche aufkommen.

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



XProfan 11 kannst Usted hier tatsächlich ya obtener: [...]  , danke para el Umstellen!
 
16.03.2008  ▲
 




Frank
Abbing
¿Por qué hast du el Programmnamen eigentlich ausgeblendet, Karl? Soll uno el hier no lesen dürfen? Yo muß desafortunadamente sagen, dass me solche Geheimniskrämereien no así mentira y warte por lo tanto veces en deine Erklärung(en).
V0.9c Alpha... es also doch ya bastante weit gediehen, dein Programa. Und scheint me vom ersten Eindruck ya encima el Anfängerstatus herauszugehen. Daher wundert lo mich, dass du el de dir angestrebte Interruptor no alleine hinbekommst. Verstehe mich no falso, cada hier es bereit dir a helfen. Aber así una Cuestión se doch erlaubt ser.
 
16.03.2008  ▲
 




KHR
¡Hola Franco,

.
Yo verwende el Programa a ahora para darstellen de Log-Archivos. Als Yo, el Schnappschuß gemacht hatte, sah Yo, daß darauf el Name meines Arbeitgebers y Name uno Kunden - de el el Log-Expediente stammt - eingeblendet war.

Das podría Yo así natürlich no posición dejar - also tener Yo verwischt.

Lo Yo incluso komplett geschrieben oder de Teilen el Ayuda zusammengeflickt. Yo verwende lo sólo para mich, mi Kollegen ziehen una selbstgebastelte Excel-Anwendung oder una verzwickte DaisyLab-Geschichte antes. Es nichts offizielles y ha con el Firma nichts a tun, salvo Yo lo para mich en Arbeit verwende.

NaJa el Versionsnummer - Yo tener sólo simplemente en 0.2 comenzó después de oben a zählen y bin con el Nummer ya más como lo el Programa es. Das Programa geb Yo gelegentlich auch ya veces a una Kunden más y deshalb tener Yo auch el Alpha reingemacht. No daß todavía uno en el Concepto kommt rumzumäkeln si qué no así bastante va.

Spätere Versionen - y daran bastele Yo en el Moment - voluntad entonces auch online con el Meßgeräten kommunizieren y el Protokoll es no para el Öffentlichkeit determinado, por lo tanto muß Yo esta Teile en Veröffentlichung rausnehmen

Nix Geheimniskrämerei, más berechtigter Política de Privacidad y una bißchen Vorsicht. Woher se Yo porque wissen, si mein Boß así einverstanden es, daß hier offen en el Foro una Programa con el Firmennamen sichtbar es ?

Como vorher ya veces geschrieben, Yo stell lo gerne hier rein - si überhaupt de Interesse es. Dazu voluntad Yo aber anonymisieren. Nix para ungut.
.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
16.03.2008  ▲
 



So una Unkenntlichmachung es doch völlig IO.

@Franco: Wat hasst nun otra vez - sonst bin Yo el Mäkelkopp.
 
16.03.2008  ▲
 




Frank
Abbing

Nix Geheimniskrämerei, más berechtigter Política de Privacidad y una bißchen Vorsicht. Woher se Yo porque wissen, si mein Boß así einverstanden es, daß hier offen en el Foro una Programa con el Firmennamen sichtbar es ?

Como vorher ya veces geschrieben, Yo stell lo gerne hier rein - si überhaupt de Interesse es. Dazu voluntad Yo aber anonymisieren. Nix para ungut.



So una Unkenntlichmachung es doch völlig IO.

@Franco: Wat hasst nun otra vez - sonst bin Yo el Mäkelkopp.


Dieses Tiempo war Yo eben.

@Karl: Es völlig Haga clic en Aceptar!
Su Erklärung ha mich muy zufrieden gestellt. Finde Yo bien: El Kollegen benutzen Standardsachen, du machst dein propio Ding con Mucke, Spoiler y Formel 1- Anzeige.
 
17.03.2008  ▲
 



 
- Página 2 -



KHR
¡Hola miteinader!

.
Das ha me no Ruhe gelassen. Yo alles Yo encima Kreisberechnung, Sinus y Cosinus en mi staubigen Oberstübchen todavía zusammenkratzen podría en una Haufen geworfen, dazu todavía mi Wünsche y una bißchen Profano-code gemischt.

Nachdem Yo esta Nacht a Ohren geschlagen habe es folgendens herausgekommen.

Ok - es de el Gestaltung her sicher todavía weit weg, de el Yo voluntad - es simplemente una Arbeitsunterlage en deren Base Yo weitermachen voluntad.

Yo dar a, Yo con Kommentaren muy gespart habe - aber el Bezeichner voluntad doch algo Klarheit en el Angelegenheit bringen

Yo dar auch gern a, Yo me encima Programmiertechnik y -stil bisher wenig Gedanken gemacht habe - por lo tanto möge uno großzügig en Verbrechen en diesem Codestück hinwegsehen.

Wenn alguien ne Anregung ha, cómo hacerlo todo mejor darstellen y effizienter programa kann - entonces Por favor, Yo bin bastante Ohr - ääähhh Auge.
KompilierenMarcaSeparación
 $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 ahora mache Yo el Licht de, el Rolladen runter y geh en el Bett.

Bis später

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



Hehe nett!
 
17.03.2008  ▲
 




Jörg
Sellmeyer
Klasse! Kleine Änderung hätte Todavía vorzuschlagen:
KompilierenMarcaSeparación
@Set(NumWidth,3)
@Set(decimals,0)
UseBrush 1, 5, Zeiger_farbe2%
SetTimer 1

whileloop 1,20000

    WaitInput
    ...hier der Code

Wend

K
él

Dadurch se el Prozessor no el todo Tiempo en 100% y celebró el Conjunto-Características bauchst Usted sí sólo una vez y no 20000; y UseBrush se en efecto no en cada Schleifendurchgang benötigt.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
17.03.2008  ▲
 




KHR
¡Hola miteinander, ¡Hola Jörg

.
El Sache ha me dich no Ruhe gelassen y mi Frau ha todavía Vorstellungen a farblichen Gestaltung geäußert.

Den Vorschlag de Jörg - Gracias - tener Yo genauso reingemacht, como todavía zwei Feher beseitigt.

Nun sieht lo así de:
KompilierenMarcaSeparación
 $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
Usted hast el WaitInput después de WhileLoop vergessen - así es el Temporizador nutzlos...
Das UseBrush solltest Usted auch antes el WhileLoop conjunto. So se lo unnötigerweise cada Schleifendurchlauf aufgerufen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
17.03.2008  ▲
 




KHR
¡Hola Jörg,

.
Das Waitinput es zwischen el beiden Sektionen zeichne_zeiger y Lösche_Zeiger gewandert. Dor brauche Yo sí el Verzögerung, así el Zeiger überhaupt a sehen son. vorher war como una sleep 200 gestanden.

Das usebrush muß desafortunadamente en el schleife posición bleiben, como Yo en el gleichen Durchgang nochmals en el Rutina para malen el Zeiger uso muß.

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



◄
12

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

2.112 Views

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

Themeninformationen

Dieses Thema ha 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie