XProfan

Deutsch

Julian
Schmidt

Hallo,
Wäre jemand so lieb und würde mir ein Script kompelieren mit XProfan11?
Mit XProfan 8 funktioniert leider nicht alles wie ich es mir vorstelle,bzw die Optik stimmt nicht ganz und die die Tonlage und Länge von eingespielen Tönen passt net, bräucht es aber am besten passend für eine Präsentation
Hoffe jemand würde es mir kostenlos kompelieren

Kompilieren Markieren Separieren

proc eingabe

    WindowStyle 24
    Window 0,0-230,120
    Windowtitle "Beeb"
    declare Edit1&,start&,ELEMENT1&,ELEMENT3&,ELEMENT2&,ELEMENT4%,e%,hertz%,wait%,ende&,zurück&
    declare xx&,yy&,y&,counter%
    ELEMENT1&=Control("DIALOG","",$54001100,0,0,0,0,%hwnd,0,%hinstance,$0)
    SetWindowPos ELEMENT1&=0,0-790,580;0
    Create("GroupBox",ELEMENT1&,"Ton-Frequenz",5,5,110,55)
    start& = Create("Button",ELEMENT1&,"Starten",125,22,90,25)
    Edit1&= Create("Edit",ELEMENT1&,"",20,25,80,20)
    UseFont "Times New Roman",15,5,1,0,0
    TextColor RGB(10,12,22),-1
    Drawtext 60,65,"Copyright by Julian Schmidt"
    SetText Edit1&, "1920"

    whilenot e%

        If getfocus(start&)

            hertz% = Val(GetText$(Edit1&))
            wait% = 1200
            ELEMENT4%=Create("Window",%hwnd,"Hertz-Frequenz",0,0,300,200)
            StartPaint ELEMENT4%
            cls rgb(0,0,0)
            xx&=width(ELEMENT4%)-1//schreibt in xx& die Breite von den Hauptfensters und tut ihn Minus 1 rechnen
            yy&=height(ELEMENT4%)//schreibt in yy& die Höhe von den Hauptfensters
            y&=yy&*0.5//setzt y&=Höhe von den Hauptfensters mal 0,4
            EndPaint
            start

        ElseIF getfocus(ende&)

            Windowtitle "Auf Wiedersehen..."
            Sleep 900
            end

        Endif

    endwhile

Endproc

proc start

    destroywindow(ELEMENT1&)
    ELEMENT2&=Control("DIALOG","",$54001100,0,0,0,0,%hwnd,0,%hinstance,$0)
    SetWindowPos ELEMENT2&=0,0-790,580;0
    WindowStyle 24
    Window 0,200-120,70
    zurück& = Create("Button",ELEMENT2&,"<",5,5,20,25)
    ende& = Create("Button",ELEMENT2&,">",90,5,20,25)

    whilenot counter%=wait%

        counter%=counter%+1
        startpaint ELEMENT4%

        IF y&>80

            y&=y&-10

        ElseIF y&<55

            y&=y&+10

        Endif

        setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
        setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
        add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet
        Endpaint

    Endwhile

    counter%=0
    startpaint ELEMENT4%

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
        setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
        add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=20

        counter%=counter%+1
        y&=y&+8
        setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
        setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
        add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
        setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
        add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

    Endwhile

    counter%=0

    Whilenot counter%=100

        counter%=counter%+1
        setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
        setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
        add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

    Endwhile

    Endpaint
    counter%=0
    sound hertz%,100
    Sleep wait%

    if getfocus(zurück&)

        destroywindow(ELEMENT2&)
        destroywindow(ELEMENT4%)
        eingabe

    elseif getfocus(ende&)

        schnell
        end

    EndIF

    start

endwhile

endproc

proc schnell

destroywindow(ELEMENT2&)
ELEMENT3&=Control("DIALOG","",$54001100,0,0,0,0,%hwnd,0,%hinstance,$0)
SetWindowPos ELEMENT3&=0,0-790,580;0
WindowStyle 24
Window 0,200-120,70
zurück& = Create("Button",ELEMENT3&,"<",5,5,20,25)
ende& = Create("Button",ELEMENT3&,"X",90,5,20,25)
wait%=500
counter%=0

whilenot counter%=wait%

    counter%=counter%+1

    IF y&>80

        y&=y&-10

    ElseIF y&<55

        y&=y&+10

    Endif

    startpaint ELEMENT4%
    setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
    setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
    add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet
    Endpaint

Endwhile

counter%=0
startpaint ELEMENT4%

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
    setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
    add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=20

    counter%=counter%+1
    y&=y&+8
    setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
    setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
    add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
    setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
    add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

Endwhile

counter%=0

Whilenot counter%=100

    counter%=counter%+1
    setpixel xx&,y&,$00FF00//malt auf die Position xx& und der y Koordinate y& in der Farbe $FF auf das fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl das der Graph läuft
    setpixel xx&,y&,$00000//malt auf die Position xx& und der y Koordinate y& in der Farbe $FFFFFF auf das fenster
    add y&,1-rnd(3)//tut die summe aus y& und 1-rnd(3) ziehen, wobei 1-rnd(3) eine 1 minus eine Zufallszahl rechnet

Endwhile

Endpaint
counter%=0
sound hertz%,100
Sleep wait%

if getfocus(zurück&)

    destroywindow(ELEMENT3&)
    destroywindow(ELEMENT4%)
    eingabe

elseif getfocus(ende&)

    Windowtitle "Bye..."
    Sleep 900
    end

EndIF

schnell

endwhile

Endproc

eingabe