XProfan

Español

Roberto

Yo habe una Messagebox gemacht y como va el Hintergrund no rein

como es entonces siempre Mapa de bits no ladbar.
Und Yo garantiert el richtigen Pfad angegeben

hier Screenshot

y aquí el Code
Kompilieren Marca Separación

declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
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)
LoadBMP PWGB.BMP,0,0;0
repaint
SetFocus(Edit&)
clear e%

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

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)
        SETFOCUS(exit&)

    EndIf

EndWhile

end

PROC PRG_START

    var ergebnis& = WinExec(C:Nostale(DE)Nostale.exe,1)
    var ergebnis& = WinExecWait(Notepad.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 notepad& = Create(Button,%HWnd,Nostale starten,5,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(notepad&)

        PRG_START

    endif

endwhile

end

Screen SHOT.png	106 kB

Hochgeladen:	18.02.2009

Ladeanzahl:
		Descargar

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

Yo n bissel Umgeschrieben y luego ging irgendwann el Fehlermeldung weg pero se en el Ventana simplemente kein Bild adecuado
Kompilieren Marca Separación

declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
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)
LoadBMP PWBG.BMP,0,0;0
SetFocus(Edit&)

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

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)
        SETFOCUS(exit&)

    EndIf

EndWhile

end

PROC PRG_START

    var ergebnis& = WinExec(C:Nostale(DE)Nostale.exe,1)
    var ergebnis& = WinExecWait(Notepad.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 notepad& = Create(Button,%HWnd,Nostale starten,5,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(notepad&)

        PRG_START

    endif

endwhile

end

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

Kann villeicht alguien Helfen?

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@Robin
Usted necesidad no siempre nachzufragen, si alguien helfen kann, lo se ya uno.
Aber normalerweise mentira wir Nachts en ca. 04:00 Uhr en el Bett y yo z.b. muss
ahora igual en el Arbeit.
Also später ^ ^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

kurz:
Ein Mapa de bits kannst Usted así sólo el Ventana principal invitar.
Hier kannst Usted z.b.:
Kompilieren Marca Separación

startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
... und dann erst am besten die Buttons und so.<

pre>

oder mostrar en el Ayuda después de create(Mapa de bits... después de

Ausserdem musst Usted Usted angwöhnen Kommentare auch como solche a kennzeichnen
no
Kompilieren Marca Separación

ELSEIf Menuitem(401) das ist herunterfahrenre>

pero
Kompilieren Marca Separación

ELSEIf Menuitem(401)    das ist herunterfahrenre>

Das Hochkomma leitet una einzeiligen Kommentar una.

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tim
Hannemann

Rolf Koch

@Robin
Aber normalerweise mentira wir Nachts en ca. 04:00 Uhr en el Bett

also Yo para media teil no xD

MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

Sí sorry pero yo tener el Tage no Schule y no viel a tun.
Gracias el hochladen ha geklappt

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Respuesta

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

2.088 Views

Untitled	vor 0 min.
Axel Berse	20.02.2013
Andreas Koch	14.11.2012

Themeninformationen

Dieses Thema ha 3 subscriber:

Roberto (4x)

Rolf Koch (2x)

Tim Hannemann (1x)

XProfan

Mapa de bits no Ladbar

Respuesta

Tema opciones

2.088 Views

Themeninformationen

Política de Privacidad