XProfan

Español

Julian
Schmidt

¡Hola,
Wäre alguien así lieb y sería me una Script kompelieren con XProfan11?
Mit XProfan 8 funktioniert por desgracia, no alles Yo lo me vorstelle,o el Optik stimmt no bastante y el el Tonlage y Longitud de eingespielen Tönen passt net, bräucht lo aber al besten passend para una Präsentation
Hoffe alguien sería lo me libre kompelieren

Kompilieren Marca Separación

proc eingabe

    Ventana de Estilo 24
    Ventana 0,0-230,120
    Windowtitle "Beeb"
    declarar Editar1&,start&,ELEMENT1&,ELEMENT3&,ELEMENT2&,ELEMENT4%,e%,hertz%,wait%,ende&,zurück&
    declarar xx&,yy&,y&,counter%
    ELEMENT1&=Control("DIÁLOGO","",$54001100,0,0,0,0,%hwnd,0,%hInstance,$0)
    SetWindowPos ELEMENT1&=0,0-790,580;0
    Crear("GroupBox",ELEMENT1&,"Ton-Frequenz",5,5,110,55)
    start& = Crear("Button",ELEMENT1&,"Starten",125,22,90,25)
    Editar1&= Crear("Edit",ELEMENT1&,"",20,25,80,20)
    UseFont "Times New Roman",15,5,1,0,0
    Color del texto RGB(10,12,22),-1
    Drawtext 60,65,"Copyright by Julian Schmidt"
    SetText Editar1&, "1920"

    whilenot e%

        If getfocus(start&)

            hertz% = Val(GetText $(Editar1&))
            wait% = 1200
            ELEMENT4%=Crear("Window",%hwnd,"Hertz-Frequenz",0,0,300,200)
            StartPaint ELEMENT4%
            cls rgb(0,0,0)
            xx&=width(ELEMENT4%)-1//schreibt en xx& el Breite de los Hauptfensters y tut ihn Minus 1 rechnen
            yy&=height(ELEMENT4%)//schreibt en yy& el Höhe de los Hauptfensters
            y&=yy&*0.5//setzt y&=Höhe de los Hauptfensters veces 0,4
            EndPaint
            start

        ElseIF getfocus(ende&)

            Windowtitle "Auf Wiedersehen..."
            Sleep 900
            end

        Endif

    endwhile

ENDPROC

proc start

    destroywindow(ELEMENT1&)
    ELEMENT2&=Control("DIÁLOGO","",$54001100,0,0,0,0,%hwnd,0,%hInstance,$0)
    SetWindowPos ELEMENT2&=0,0-790,580;0
    Ventana de Estilo 24
    Ventana 0,200-120,70
    zurück& = Crear("Button",ELEMENT2&,"<",5,5,20,25)
    ende& = Crear("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 en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
        setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
        add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet
        Endpaint

    Endwhile

    counter%=0
    startpaint ELEMENT4%

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
        setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
        add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=20

        counter%=counter%+1
        y&=y&+8
        setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
        setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
        add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

    Endwhile

    counter%=0

    whilenot counter%=10

        counter%=counter%+1
        y&=y&-8
        setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
        setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
        add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

    Endwhile

    counter%=0

    Sinestar encargado counter%=100

        counter%=counter%+1
        setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
        copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
        setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
        add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

    Endwhile

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

    if getfocus(zurück&)

        destroywindow(ELEMENT2&)
        destroywindow(ELEMENT4%)
        eingabe

    elseif getfocus(ende&)

        rápidamente
        end

    EndIF

    start

endwhile

ENDPROC

proc rápidamente

destroywindow(ELEMENT2&)
ELEMENT3&=Control("DIÁLOGO","",$54001100,0,0,0,0,%hwnd,0,%hInstance,$0)
SetWindowPos ELEMENT3&=0,0-790,580;0
Ventana de Estilo 24
Ventana 0,200-120,70
zurück& = Crear("Button",ELEMENT3&,"<",5,5,20,25)
ende& = Crear("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 en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
    setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
    add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet
    Endpaint

Endwhile

counter%=0
startpaint ELEMENT4%

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
    setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
    add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=20

    counter%=counter%+1
    y&=y&+8
    setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
    setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
    add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

Endwhile

counter%=0

whilenot counter%=10

    counter%=counter%+1
    y&=y&-8
    setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
    setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
    add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una Zufallszahl rechnet

Endwhile

counter%=0

Sinestar encargado counter%=100

    counter%=counter%+1
    setpixel xx&,y&,$00FF00//malt en el Position xx& y y Koordinate y& en el Farbe $FF el fenster
    copybmp 1,0 - xx&,yy& > 0,0 ;0//kopiert Bildschirmausschnitt  >>Bewirkt wohl el el Graph se ejecuta
    setpixel xx&,y&,$00000//malt en el Position xx& y y Koordinate y& en el Farbe $FFFFFF el fenster
    add y&,1-rnd(3)//tut el summe de y& y 1-rnd(3) ziehen, wobei 1-rnd(3) una 1 minus una 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

rápidamente

endwhile

ENDPROC

eingabe