XProfan

Español

Roberto
Neu

Geht el??
Bmp en uno Bucle invitar
Gestern Yo de 0-2uhr Morgends Versucht el hinzubekommen.
Aber lo kommt immmer el Fehlermeldung BMP no ladbar

Photoviewer.zip	210 kB

Kurzbeschreibung:	Photoviewer

Hochgeladen:	02.08.2009

Ladeanzahl:
		Descargar

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted mußßt el Backslash verdoppeln.
Kompilieren Marca Separación

loadbmp "files	o.bmp",0,0;0 falsch

Kompilieren Marca Separación

loadbmp "files\to.bmp",0,0;0 richtig!

Nochwas: Usted debe una WaitInput después de "Whilenot e%" einbauen, sonst wirst Usted a Deinem Programa no viel Freude haben.

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

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi Roberto
Machs beste draus, vieles hast Usted todavía no verstanden.
Zum Ejemplo:
Man debería \ zwischen Pfaden y Archivos escribir.
Mientras que sin Endwhile kann no trabajo
Sinestar encargado e% es ok aber por qué hast Usted esta Condición como Ende no genutzt
If/Elseif hast No verstanden, Usted nutzt sólo IF ENDIF
Und siempre todavía dieses sinnlose GOTO
Vorallem en uno Bucle musst No el Waitinput unten hin escribir y dafür una GOTO nutzen, Yo que has ahora aufgezeigt, daß sin Goto, richtiges Waitinput (Punto) y richtiges Endwhile (Punto) una Bucle siempre durchlaufen se.
Also nocheinmal: Lass el Goto weg y nutze: Schleifen, If/Elseif y Prozeduren.
Kompilieren Marca Separación

declare load&, e%, button&, back&, Name$, text&, A%
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Declare DragFile#,lade&,lade1&,beenden&,beenden1&,neu&,neu1&
Dim DragFile#, 261 In diesem Bereich finden die gedroppten Dateinamen Platz
WINDOW Optionen
WindowTitle "Photoviewer Pro"
Window 50,20 - 800,600
DESKTOP
usepen -0,-0,@RGB(31,31,31)
loadbmp "files\pp.bmp",100,0;0
loadbmp "files\to.bmp",0,0;0
POPUP MENÜ
Popup "Bildgröße 600x500"

PROC BUTTONS

    lade& = Create("hpic",-1,"files\lade.BMP")
    lade1& = Create("PicButton",%HWnd,lade&,0,0,100,20)
    Create("Tooltip",%HWnd,lade1&,"Suchen sie sich ein Bild aus!")
    beenden& = Create("hpic",-1,"files\be.bmp")
    beenden1& = Create("PicButton",%HWnd,beenden&,0,526,100,20)
    Create("Tooltip",%HWnd,beenden1&,"Das Programm wird beendet!")
    neu& = Create("hpic",-1,"files\entf.bmp")
    neu1& = Create("PicButton",%HWnd,neu&,0,20,100,20)
    Create("Tooltip",%HWnd,neu1&,"Bild wird Entfernt!")

ENDPROC

buttons

Whilenot e%

    waitinput

    If Clicked(lade1&)

        Name$ = @LoadFile$("Bilddateien","*.BMP")

        While Name$ <> ""

            If Name$ <> ""

                LoadBMP Name$,101,1-0,0;0
                WindowTitle "Photoviewer Pro - [" + Name$ + "]"

            Endif

        elseif Clicked(neu1&)

            loadbmp "files\pp.bmp",100,0;0

        elseif Clicked(beenden1&)

            e%=1 ist ja Schleifenende also Ende

        endif

    endwhile

    href='./../../funcion-referencias/XProfan/end/'>end

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto
Neu

@ Rolf Vielen Dank
Tuve lo al anfang auch con Elseif geschrieben.
Aber entonces ha lo egal en welchen Button Yo geklickt habe siempre sólo el Bild geladen^^
Und el Bild ladet lo en me siempre todavía no??

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Achso, ¿Quieres decir que esta ENTF?
OK es logisch, porque después de Usted Su Bilder gewählt hast y luego en ENTF klickst, musst Usted vorher en el aktuelle Directorio zurückwechseln.

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto
Neu

Also muss Yo el ENTF con IF escribir oder ??
Oder una neue Bucle hacer ??

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

OK - son viele Möglichkeiten el Pfadermittlung hier una bastante PROFANE:
Kompilieren Marca Separación

declare load&, e%, button&, back&, Name$, text&, A%
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Declare DragFile#,lade&,lade1&,beenden&,beenden1&,neu&,neu1&,pfad$
Dim DragFile#, 261 In diesem Bereich finden die gedroppten Dateinamen Platz
Pfad sichern - Heimverzeichnis
Ausklammern wenn zur Exe compiliert wird:
pfad$=getdir$("@") Aber Vorsicht - wenn Exe erstellt wird sollte hier $progdir stehen
Wenn Exe erstellt wird diese:
pfad$=$Progdir
WINDOW Optionen
WindowTitle "Photoviewer Pro"
Window 50,20 - 800,600
DESKTOP
usepen -0,-0,@RGB(31,31,31)
loadbmp "files\pp.bmp",100,0;0
loadbmp "files\to.bmp",0,0;0
POPUP MENÜ
Popup "Bildgröße 600x500"

PROC BUTTONS

    lade& = Create("hpic",-1,"files\lade.BMP")
    lade1& = Create("PicButton",%HWnd,lade&,0,0,100,20)
    Create("Tooltip",%HWnd,lade1&,"Suchen sie sich ein Bild aus!")
    beenden& = Create("hpic",-1,"files\be.bmp")
    beenden1& = Create("PicButton",%HWnd,beenden&,0,526,100,20)
    Create("Tooltip",%HWnd,beenden1&,"Das Programm wird beendet!")
    neu& = Create("hpic",-1,"files\entf.bmp")
    neu1& = Create("PicButton",%HWnd,neu&,0,20,100,20)
    Create("Tooltip",%HWnd,neu1&,"Bild wird Entfernt!")

ENDPROC

buttons

Whilenot e%

    waitinput

    If Clicked(lade1&)

        Name$ = @LoadFile$("Bilddateien","*.BMP")

        While Name$ <> ""

            If Name$ <> ""

                LoadBMP Name$,101,1-0,0;0
                WindowTitle "Photoviewer Pro - [" + Name$ + "]"

            Endif

        elseif Clicked(neu1&)

            chdir pfad$
            loadbmp "files\pp.bmp",100,0;0

        elseif Clicked(beenden1&)

            e%=1 ist ja Schleifenende also Ende

        endif

    endwhile

ss=s4 href='./../../funcion-referencias/XProfan/end/'>end

02.08.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto
Neu

Juhuuuu ahora tener ego Kapiert.
Das Programa restos en el Ordner Files
Und si yo dan loadbmp "filesild.bmp",0,0;0 eingeb
Sucht lo en el Ordner Files después de el Ordner Files y dan hay sí no ^ ^
Yo el ahora así gemacht
Kompilieren Marca Separación

declare load&, e%, button&, back&, Name$, text&, A%
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Declare DragFile#,lade&,lade1&,beenden&,beenden1&,neu&,neu1&,pfad$
Dim DragFile#, 261In diesem Bereich finden die gedroppten Dateinamen Platz
Pfad sichern - Heimverzeichnis
Ausklammern wenn zur Exe compiliert wird:
pfad$=getdir$("@")Aber Vorsicht - wenn Exe erstellt wird sollte hier $progdir stehen
Wenn Exe erstellt wird diese:
pfad$=$Progdir
WINDOW Optionen
WindowTitle "Photoviewer Pro"
Window 50,20 - 800,600
DESKTOP
usepen -0,-0,@RGB(31,31,31)
loadbmp "files\pp.bmp",100,0;0
loadbmp "files\to.bmp",0,0;0
POPUP MENÜ
Popup "Bildgröße 600x500"

PROC BUTTONS

    lade& = Create("hpic",-1,"files\lade.BMP")
    lade1& = Create("PicButton",%HWnd,lade&,0,0,100,20)
    Create("Tooltip",%HWnd,lade1&,"Suchen sie sich ein Bild aus!")
    beenden& = Create("hpic",-1,"files\be.bmp")
    beenden1& = Create("PicButton",%HWnd,beenden&,0,526,100,20)
    Create("Tooltip",%HWnd,beenden1&,"Das Programm wird beendet!")
    neu& = Create("hpic",-1,"files\entf.bmp")
    neu1& = Create("PicButton",%HWnd,neu&,0,20,100,20)
    Create("Tooltip",%HWnd,neu1&,"Bild wird Entfernt!")

ENDPROC

buttons

Whilenot e%

    waitinput

    If Clicked(lade1&)

        Name$ = @LoadFile$("Bilddateien","*.BMP")

        While Name$ <> ""

            If Name$ <> ""

                LoadBMP Name$,101,1-0,0;0
                WindowTitle "Photoviewer Pro - [" + Name$ + "]"

            Endif

        elseif Clicked(neu1&)

            loadbmp "pp.bmp",100,0;0

        elseif Clicked(beenden1&)

            e%=1ist ja Schleifenende also Ende

        endif

    endwhile

    <

s=s4 href='./../../funcion-referencias/XProfan/end/'>end