XProfan

Deutsch

KHR

Hallo miteinander

.
schon wieder ich!

zuerst mal danke für die schnelle und kompetente Hilfe im letzten thread.

ich bin dabei ein Programm zu basteln, das über die serielle Schnittstelle permanent Daten aus einer Meßeinrichtung einlist. Einigermaßen fertig ist der Teil, der die Logfiles dann auswertet und graphisch darstellt

Diese Daten werden als Logfile gespeichert und auf dem Schirm immer aktuelle angezeigt,

Ich möchte nun versuchen, dieses Daten analog darzustellen, das heißt wie z.B. ein Drehzahlmesser oder Tachometer, Leider komme ich dabei nicht so recht vorwärts und die Ergebnisse sind eher bescheiden.

Gibt es da vielleicht ein Codeschnipsel, bei dem ich mir mal ansehen könnte, wie man da dran gehen kann?

Wenn Bedarf besteht kann ich auch gern mal den funktiontüchtigen Teil des Programm reinstellen - aber nicht zuviel davon versprechen, es ist das Erstlingswerk und sicher nicht schön und optimal programmiert. Noch dazu ist durch seine Aufgabe sehr zweckgebunden und sicher nicht übertragbar.

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

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 1 -

KHR

Hallo IF

.
Ok, muß mich halt erst mal im Forum eingewöhnen.

Jetzt ist der Beitrags umgestellt. und das richtige Bild drinne

gibt es das Xprofan 11 schon?

Nicht, daß ich es so richtig brauchen würde - außer eben für das cotrol

Mir gefällt das 10. wirklich gut und ich bin zufrieden damit. Wenn ich mach aber tiefer reingearbeitet habe, werden sicher noch wünsche aufkommen.

Gruß
Karl-heinz

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

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

XProfan 11 kannst Du hier tatsächlich bereits erhalten: [...]

, danke für das Umstellen!

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Warum hast du den Programmnamen eigentlich ausgeblendet, Karl? Soll man den hier nicht lesen dürfen? Ich muß leider sagen, dass mir solche Geheimniskrämereien nicht so liegen und warte daher mal auf deine Erklärung(en).
V0.9c Alpha... ist also doch schon recht weit gediehen, dein Programm. Und scheint mir vom ersten Eindruck bereits über den Anfängerstatus herauszugehen. Daher wundert es mich, dass du die von dir angestrebte Umstellung nicht alleine hinbekommst. Verstehe mich nicht falsch, jeder hier ist bereit dir zu helfen. Aber so eine Frage wird doch erlaubt sein.

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Hallo Frank,

.
ich verwende das Programm bis jetzt zum darstellen von Log-Dateien. Als ich den Schnappschuß gemacht hatte, sah ich, daß darauf der Name meines Arbeitgebers und der Name eines Kunden - von dem die Log-Datei stammt - eingeblendet war.

Das konnte ich so natürlich nicht stehen lassen - also hab ich es verwischt.

Das Ding habe ich selbst komplett geschrieben oder aus Teilen der Hilfe zusammengeflickt. Ich verwende es nur für mich, meine Kollegen ziehen eine selbstgebastelte Excel-Anwendung oder eine verzwickte DaisyLab-Geschichte vor. Es ist nichts offizielles und hat mit der Firma nichts zu tun, ausser daß ich es für mich bei der Arbeit verwende.

NaJa die Versionsnummer - ich hab halt einfach bei 0.2 begonnen nach oben zu zählen und bin mit der Nummer schon weiter als es das Programm ist. Das Programm geb ich gelegentlich auch schon mal an einen Kunden weiter und deshalb hab ich auch das Alpha reingemacht. Nicht daß noch einer auf die Idee kommt rumzumäkeln wenn was nicht so recht geht.

Spätere Versionen - und daran bastele ich im Moment - werden dann auch online mit dem Meßgeräten kommunizieren und das Protokoll ist nicht für die Öffentlichkeit bestimmt, daher muß ich diese Teile bei der Veröffentlichung rausnehmen

Nix Geheimniskrämerei, eher berechtigter Datenschutz und ein bißchen Vorsicht. Woher soll ich denn wissen, ob mein Boß damit einverstanden ist, daß hier offen im Forum ein Programm mit dem Firmennamen sichtbar ist ?

Wie vorher schon mal geschrieben, ich stell es gerne hier rein - wenn es überhaupt von Interesse ist. Dazu werde ich es aber anonymisieren. Nix für ungut.
.

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

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

So eine Unkenntlichmachung ist doch völlig IO.

@Frank: Wat hasst nun wieder - sonst bin ich der Mäkelkopp.

16.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Nix Geheimniskrämerei, eher berechtigter Datenschutz und ein bißchen Vorsicht. Woher soll ich denn wissen, ob mein Boß damit einverstanden ist, daß hier offen im Forum ein Programm mit dem Firmennamen sichtbar ist ?

Wie vorher schon mal geschrieben, ich stell es gerne hier rein - wenn es überhaupt von Interesse ist. Dazu werde ich es aber anonymisieren. Nix für ungut.

So eine Unkenntlichmachung ist doch völlig IO.

@Frank: Wat hasst nun wieder - sonst bin ich der Mäkelkopp.

Dieses Mal war ich es eben.

@Karl: Das ist völlig in Ordnung!

Deine Erklärung hat mich sehr zufrieden gestellt. Finde ich gut: Die Kollegen benutzen Standardsachen, du machst dein eigenes Ding mit Mucke, Spoiler und Formel 1- Anzeige.

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 2 -

KHR

Hallo miteinader!

.
Das hat mir keine Ruhe gelassen. Ich hab alles was ich über Kreisberechnung, Sinus und Cosinus in meinem staubigen Oberstübchen noch zusammenkratzen konnte auf einen Haufen geworfen, dazu noch meine Wünsche und ein bißchen Profan-code gemischt.

Nachdem ich mir diese Nacht um die Ohren geschlagen habe ist folgendens herausgekommen.

Ok - es ist von der Gestaltung her sicher noch weit weg, von dem was ich will - es ist einfach eine Arbeitsunterlage auf deren Basis ich weitermachen will.

Ich gebe zu, daß ich mit Kommentaren sehr gespart habe - aber die Bezeichner werden doch etwas Klarheit in die Angelegenheit bringen

Ich gebe auch gern zu, daß ich mir über Programmiertechnik und -stil bisher wenig Gedanken gemacht habe - daher möge man großzügig über die Verbrechen in diesem Codestück hinwegsehen.

Wenn jemand ne Anregung hat, wie man das ganze besser darstellen und effizienter programmieren kann - dann bitte ich bin ganz Ohr - ääähhh Auge.
Kompilieren Markieren Separieren

 $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!)

endwhile

waitinput

So jetzt mache ich das Licht aus, den Rolladen runter und geh ins Bett.

Bis später

screenshot-analoginstrumente.jpg	103 kB

Kurzbeschreibung:	5 analoge Meßwertanzeigen als Demo

Hochgeladen:	17.03.2008

Ladeanzahl:
		Herunterladen

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hehe nett!

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Klasse! Kleine Änderung hätte ich noch vorzuschlagen:
Kompilieren Markieren Separieren

@Set(NumWidth,3)
@Set(decimals,0)
UseBrush 1, 5, Zeiger_farbe2%
SetTimer 1

whileloop 1,20000

    WaitInput
    ...hier der Code

Wend

KillTimer

Dadurch wird der Prozessor nicht die ganze Zeit auf 100% gehalten und die Set-Funktionen bauchst Du ja nur einmal und nicht 20000; und UseBrush wird ja auch nicht in jedem Schleifendurchgang benötigt.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Hallo miteinander, Hallo Jörg

.
Die Sache hat mir dich keine Ruhe gelassen und meine Frau hat noch Vorstellungen zu farblichen Gestaltung geäußert.

Den Vorschlag von Jörg - Danke - hab ich genauso reingemacht, wie noch zwei Feher beseitigt.

Nun sieht es so aus:
Kompilieren Markieren Separieren

 $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!)

endwhile

KillTimer

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Du hast das WaitInput nach WhileLoop vergessen - so ist der Timer nutzlos...
Das UseBrush solltest Du auch vor das WhileLoop setzen. So wird es unnötigerweise bei jedem Schleifendurchlauf aufgerufen.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Hallo Jörg,

.
Das Waitinput ist zwischen die beiden Sektionen zeichne_zeiger und Lösche_Zeiger gewandert. Dor brauche ich ja die Verzögerung, damit die Zeiger überhaupt zu sehen sind. vorher war da ein sleep 200 gestanden.

Das usebrush muß leider in der schleife stehen bleiben, da ich es im gleichen Durchgang nochmals in der Routine zum malen der Zeiger verwenden muß.

.

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

◄