XProfan

Français

Julian
Schmidt

Salut,
Wäre quelqu'un so lieb et serait mir un Script kompelieren avec XProfan11?
avec XProfan 8 funktioniert malheureusement pas alles comment je es mir vorstelle,bzw qui optique stimmt pas entier et qui qui Tonlage et Longueur de eingespielen Tönen passt net, bräucht es mais am besten convenable pour une Präsentation
Hoffe quelqu'un serait es mir kostenlos kompelieren

Kompilieren Marque Séparation

proc eingabe

    Fenêtre Style 24
    Fenêtre 0,0-230,120
    Windowtitle "Beeb"
    declare Éditer1&,start&,ELEMENT1&,ELEMENT3&,ELEMENT2&,ELEMENT4%,e%,hertz%,wait%,ende&,zurück&
    declare xx&,yy&,y&,counter%
    ELEMENT1&=Contrôle("Dialogue",»,$54001100,0,0,0,0,%hwnd,0,%HINSTANCE,$0)
    SetWindowPos ELEMENT1&=0,0-790,580;0
    Créer("GroupBox",ELEMENT1&,"Ton-Frequenz",5,5,110,55)
    start& = Créer("Button",ELEMENT1&,"Starten",125,22,90,25)
    Éditer1&= Créer("Edit",ELEMENT1&,»,20,25,80,20)
    UseFont "Times New Roman",15,5,1,0,0
    Couleur du texte RGB(10,12,22),-1
    Drawtext 60,65,"Copyright by Julian Schmidt"
    SetText Éditer1&, "1920"

    whilenot e%

        Si getfocus(start&)

            hertz% = Val(GetText $(Éditer1&))
            wait% = 1200
            ELEMENT4%=Créer("Window",%hwnd,"Hertz-Frequenz",0,0,300,200)
            Début de peinture ELEMENT4%
            cls rgb(0,0,0)
            xx&=width(ELEMENT4%)-1//écrit dans xx& qui Breite de den Hauptfensters et tut ihn Minus 1 le calcul
            yy&=height(ELEMENT4%)//écrit dans yy& qui Hauteur de den Hauptfensters
            y&=yy&*0.5//mets y&=Höhe de den Hauptfensters la fois 0,4
            EndPaint
            start

        ElseIF getfocus(ende&)

            Windowtitle "Auf Wiedersehen..."
            Sleep 900
            end

        Endif

    endwhile

ENDPROC

proc start

    destroywindow(ELEMENT1&)
    ELEMENT2&=Contrôle("Dialogue",»,$54001100,0,0,0,0,%hwnd,0,%HINSTANCE,$0)
    SetWindowPos ELEMENT2&=0,0-790,580;0
    Fenêtre Style 24
    Fenêtre 0,200-120,70
    zurück& = Créer("Button",ELEMENT2&,"<",5,5,20,25)
    ende& = Créer("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 sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
        setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
        add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet
        EndPaint

    Endwhile

    counter%=0
    startpaint ELEMENT4%

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
        setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
        add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=20

        counter%=counter%+1
        y&=y&+8
        setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
        setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
        add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
        setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
        add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

    Endwhile

    counter%=0

    Whilenot counter%=100

        counter%=counter%+1
        setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
        setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
        add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

    Endwhile

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

    si getfocus(zurück&)

        destroywindow(ELEMENT2&)
        destroywindow(ELEMENT4%)
        eingabe

    elseif getfocus(ende&)

        vite
        end

    EndIF

    start

endwhile

endproc

proc vite

destroywindow(ELEMENT2&)
ELEMENT3&=Contrôle("Dialogue",»,$54001100,0,0,0,0,%hwnd,0,%HINSTANCE,$0)
SetWindowPos ELEMENT3&=0,0-790,580;0
Fenêtre Style 24
Fenêtre 0,200-120,70
zurück& = Créer("Button",ELEMENT3&,"<",5,5,20,25)
ende& = Créer("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 sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
    setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
    add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet
    EndPaint

Endwhile

counter%=0
startpaint ELEMENT4%

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
    setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
    add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=20

    counter%=counter%+1
    y&=y&+8
    setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
    setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
    add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
    setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
    add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

Endwhile

counter%=0

Whilenot counter%=100

    counter%=counter%+1
    setpixel xx&,y&,$00FF00//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FF sur cela la fenêtre
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl cela qui Graph fonctionne
    setpixel xx&,y&,$00000//malt sur qui Position xx& et qui y Koordinate y& dans qui la couleur $FFFFFF sur cela la fenêtre
    add y&,1-rnd(3)//tut la somme aus y& et 1-rnd(3) tirer, wobei 1-rnd(3) une 1 minus une Zufallszahl rechnet

Endwhile

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

si getfocus(zurück&)

    destroywindow(ELEMENT3&)
    destroywindow(ELEMENT4%)
    eingabe

elseif getfocus(ende&)

    Windowtitle "Bye..."
    Sleep 900
    end

EndIF

vite

endwhile

ENDPROC

eingabe