XProfan

Français

Roberto
Neu

allez cela??
Bmp dans einer Boucle magasin
Gestern habe je de 0-2montre Morgends Versucht cela hinzubekommen.
mais es venez immmer qui Fehlermeldung BMP pas ladbar

Photoviewer.zip	210 kB

Kurzbeschreibung:	Photoviewer

Hochgeladen:	02.08.2009

Downloadcounter:
		Download

02.08.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Du mußßt den Backslash doubler.
Kompilieren Marque Séparation

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

Kompilieren Marque Séparation

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

Nochwas: Du devrait un WaitInput pour "Whilenot e%" einbauen, sonst wirst Du à Deinem Programme pas viel Freude avons.

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

02.08.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hi Roberto
Machs beste draus, vieles la hâte Du encore pas verstanden.
Zum Beispiel:
on sollte \ entre Pfaden et Fichiers écrivons.
Tandis que sans Endwhile peux pas marcher
Whilenot e% ist ok mais pourquoi la hâte Du cet Condition comme Ende pas genutzt
Si/Elseif la hâte Du pas verstanden, Du utilise seulement IF ENDIF
et toujours cet sinnlose GOTO
Vorallem dans einer Boucle musst Du pas cela Waitinput unten hin écrivons et pour un GOTO nutzen, je hab Dir maintenant aufgezeigt, qui sans Goto, richtiges Waitinput (Stelle) et richtiges Endwhile (Stelle) une Boucle toujours durchlaufen wird.
alors nocheinmal: Lass cela Goto weg et nutze: Schleifen, Si/Elseif et Prozeduren.
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Roberto
Neu

@ Rolf Vielen Dank
je hatte es am anfang aussi avec Elseif geschrieben.
mais ensuite hat es égal sur welchen Button je geklickt habe toujours seulement cela Bild geladen^^
et cela Bild ladet es chez mir toujours pas??

02.08.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Achso, Du meinst cet ENTF?
OK ist logisch, car après que Du Votre Bilder gewählt la hâte et ensuite sur ENTF klickst, musst Du auparavant ins aktuelle Verzeichnis zurückwechseln.

02.08.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Roberto
Neu

alors muss je cela ENTF avec IF écrivons ou bien ??
ou bien une neue Boucle faire ??

02.08.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

OK - gibt viele Opportunités qui Pfadermittlung ici une entier PROFANE:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Roberto
Neu

Juhuuuu maintenant hab ego Kapiert.
cela Programme bleibt dans dem Dossier Files
et si je dan loadbmp "filesild.bmp",0,0;0 eingeb
cherchez es dans dem Dossier Files pour dem Dossier Files et dan gibt es oui pas ^ ^
nie gemacht maintenant so gemacht
Kompilieren Marque Séparation

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