(272)  Anmelden

Deutsch
Stammtisch & Café

Erledigt: Externe Datei öffnen

 
- Seite 1 -



Roberto
Ich möchte den Papierkorb durch klick auf einen Button öffnen habe auch den Code dafür aber wenn ich auf den Button klicke passiert nichts
KompilierenMarkierenSeparieren
var x% = 280
var y% = 75

PROC PRG_START

    var ergebnis& = WinExec(Papierkorb.exe,1)
    var ergebnis& = WinExecWait(Papierkorb.exe,1)

    if ergebnis& = 0

        Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
        end

    endif

ENDPROC

WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0

whilenot e%

    waitinput

    if Clicked(exit&)

        e% = 1

    elseif Clicked(Papierkorb&)

        PRG_START

    endif

endwhile

end
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
Vollständiges Zitat
Absatzweise zitierenZeilenweise zitieren
 



 
- Seite 2 -



Roberto
Ja sorry ich geb mir mehr Mühe.
Aber ich raste gleich aus. Was will das dumme Programm???
Immer wenn ich NOSTALE öffne klappt alles Perfekt.
Aber dann kommt so ne dumme meldung.
Hier der Screenshot.
Die meinen ELSEIF oder ENDIF fehlt.
Aber das gehört gar nicht in die Zeile hier nochmal der Code
KompilierenMarkierenSeparieren
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator
    Popup Programme
    AppendMenu 601,Nostale
    Separator
    AppendMenu 602,Picasa 3
    Separator
    AppendMenu 603,Photoscape
    Separator
    AppendMenu 604,Inkscape
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIF Menuitem(401)das ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)das ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

        ergebnis% = WinExec(C:\Nostale(DE)\Nostale.exe,1)

        if ergebnis% = 0

            Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

        endif

    ElseIf Menuitem(602)

        ergebnis% = WinExec(C:\Programme\Google\Picasa3\Picasa3.exe,1)

        if ergebnis% = 0

            Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

        ELSEIF Menuitem(603)

            ergebnis% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)

            if ergebnis% = 0

                Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

            endif

        EndIf

    EndWhile

    end

15 kB
Hochgeladen:19.02.2009
Ladeanzahl: 189
Herunterladen
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 



 
- Seite 3 -



Paul
Glatz
Hallo,
Hier ist ein koriegieter Code:
KompilierenMarkierenSeparieren
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator
    Popup Spiele
    AppendMenu 601,Nostale
    Separator
    AppendMenu 602,Wesnot
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIf Menuitem(401) das ist herunterfahren

        ExitWindows 0

    ElseIf Menuitem(402) das ist abmelden

        ExitWindows 3

    elseIf Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    elseif Menuitem(601)

        ergebnis% = WinExec(C:\Nostale(DE)\Nostale.exe,1)
        case ergebnis% = 0 : Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

    elseif Menuitem(602)

        ergebnis% = WinExec(C:\Programme\Wesnoth 1.4.7\wesnoth.exe,2)
        case ergebnis% = 0 : Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

    EndIf

EndWhile

end
 
19.02.2009  ▲
 




Roberto

KompilierenMarkierenSeparieren
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator
    Popup Programme
    AppendMenu 601,Nostale
    Separator
    AppendMenu 602,Picasa 3
    Separator
    AppendMenu 603,Photoscape
    Separator
    AppendMenu 604,Inkscape
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIF Menuitem(401)das ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)das ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

        ergebnis% = WinExec(C:\Nostale(DE)\Nostale.exe,1)

        if ergebnis% = 0

            Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

        endif

    ElseIf Menuitem(602)

        ergebnis% = WinExec(C:\Programme\Google\Picasa3\Picasa3.exe,1)

        if ergebnis% = 0

            Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

        ELSEIF Menuitem(603)

            ergebnis% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)

            if ergebnis% = 0

                Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

            endif

        EndIf

    EndWhile

    end
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
woooooooooooo? Ich finde nix!
 
19.02.2009  ▲
 




Roberto
Das du hattest glaub einen Älteren Code von mir
KompilierenMarkierenSeparieren
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
Und welches Problem hast du nun??
 
19.02.2009  ▲
 




Roberto
Aber ich raste gleich aus. Was will das dumme Programm???
Immer wenn ich NOSTALE öffne klappt alles Perfekt.
Aber dann kommt so ne dumme meldung.
Hier der Screenshot.
Die meinen ELSEIF oder ENDIF fehlt.
Aber das gehört gar nicht in die Zeile hier nochmal der Code

Und dann ahst du mir einen code gegeben aber dann haben einige append menus gefehlt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
Hallo,

hier ein neuer Code
KompilierenMarkierenSeparieren
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator
    Popup Programme
    AppendMenu 601,Nostale
    Separator
    AppendMenu 602,Picasa 3
    Separator
    AppendMenu 603,Photoscape
    Separator
    AppendMenu 604,Inkscape
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIF Menuitem(401)das ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)das ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

        ergebnis% = WinExec(C:\Nostale(DE)\Nostale.exe,1)
        Case ergebnis% = 0 : Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

    ElseIf Menuitem(602)

        ergebnis% = WinExec(C:\Programme\Google\Picasa3\Picasa3.exe,1)
        Case ergebnis% = 0 : Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

    ELSEIF Menuitem(603)

        ergebnis% = WinExec(C:\Programme\PhotoScape\PhotoScape.exe,1)
        Case ergebnis% = 0 : Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)

    EndIf

EndWhile

end
 
19.02.2009  ▲
 




KHR
Hey Plüschi

ich finds klasse, daß Du dich so intensiv mit neulingen abgibst.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
19.02.2009  ▲
 




Paul
Glatz
Hallo,
Ich helfe doch nur! Und 2. hab ich lange weile.
 
19.02.2009  ▲
 




Roberto
Ich auch .
Danke hat geklappt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
Bitte und gerne wieder!!
 
19.02.2009  ▲
 



◄

Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

23.776 Betrachtungen

Unbenanntvor 0 min.
Jürgen Strahl08.06.2022
Uwe Lang03.09.2014
Setharial14.02.2013
liveFamilie11.05.2012
Mehr...

Themeninformationen

Dieses Thema hat 4 Teilnehmer:

Paul Glatz (17x)
Roberto (16x)
KHR (1x)
Jac de Lad (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie