(268)  Registro

Español
Stammtisch & Café

Hecho: Externe Ir

 
- Página 1 -



Roberto
Yo möchte el Papierkorb por klick en una Button abierto habe auch el código dafür pero si I el Button klicke passiert nichts
KompilierenMarcaSeparación
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

Ventana de Estilo 31
Título de la ventana Externes Programa starten
Ventana (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Crear(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Crear(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 CitaZeilenweise Cita
 



 
- Página 2 -



Roberto
Sí sorry Yo geb me mehr Mühe.
Aber Yo raste igual de. Was voluntad el dumme Programa???
Immer si yo NOSTALE öffne klappt alles Perfekt.
Aber entonces kommt así ne dumme meldung.
Hier el Screenshot.
El media ELSEIF oder ENDIF fehlt.
Aber el gehört nada en el Línea hier otra vez el Code
KompilierenMarcaSeparación
declarar e%,x%,y%,Edit&,weiter&,exit&,Contraseña$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Crear(Ventana,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%%)
Edit& = Crear(Editar,passwindow&,,5,5,245,20)
weiter& = Crear(Button,passwindow&,Weiter,5,30,120,25)
exit& = Crear(Button,passwindow&,Alto,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&) = Contraseña$

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

        más

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

        endif

    endif

endwhile

Claro e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declarar herunter&, abmeld&eingefügt
declarar uhrzeit& eingefügt KHR
declarar Texto$,Titeltext$

PROC FENSTER

    Título de la ventana Titel$
    Windowstyle 536
    Ventana (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

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

ENDPROC

PROC MENU

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

ENDPROC

PROC HINTERGRUND

    Parámetros r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parámetros _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

Sinestar encargado 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)el es herunterfahren

        ExitWindows 0

    ELSEIF MenuItem(402)el es abmelden

        ExitWindows 3

    ELSEIF MenuItem(501)

        Texto$ = Wir haben ahora  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Texto$,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:\Programas\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
Descargar
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 



 
- Página 3 -



Paul
Glatz
¡Hola,
Hier es una koriegieter Code:
KompilierenMarcaSeparación
declarar e%,x%,y%,Edit&,weiter&,exit&,Contraseña$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Crear(Ventana,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%%)
Edit& = Crear(Editar,passwindow&,,5,5,245,20)
weiter& = Crear(Button,passwindow&,Weiter,5,30,120,25)
exit& = Crear(Button,passwindow&,Alto,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&) = Contraseña$

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

        más

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

        endif

    endif

endwhile

Claro e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declarar herunter&, abmeld&eingefügt
declarar uhrzeit& eingefügt KHR
declarar Texto$,Titeltext$

PROC FENSTER

    Título de la ventana Titel$
    Windowstyle 536
    Ventana (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

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

ENDPROC

PROC MENU

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

ENDPROC

PROC HINTERGRUND

    Parámetros r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parámetros _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

Sinestar encargado 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) el es herunterfahren

        ExitWindows 0

    ElseIf MenuItem(402) el es abmelden

        ExitWindows 3

    elseIf MenuItem(501)

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

    elseif MenuItem(601)

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

    elseif MenuItem(602)

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

    EndIf

EndWhile

end
 
19.02.2009  ▲
 




Roberto

KompilierenMarcaSeparación
declarar e%,x%,y%,Edit&,weiter&,exit&,Contraseña$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Crear(Ventana,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%%)
Edit& = Crear(Editar,passwindow&,,5,5,245,20)
weiter& = Crear(Button,passwindow&,Weiter,5,30,120,25)
exit& = Crear(Button,passwindow&,Alto,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&) = Contraseña$

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

        más

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

        endif

    endif

endwhile

Claro e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declarar herunter&, abmeld&eingefügt
declarar uhrzeit& eingefügt KHR
declarar Texto$,Titeltext$

PROC FENSTER

    Título de la ventana Titel$
    Windowstyle 536
    Ventana (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

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

ENDPROC

PROC MENU

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

ENDPROC

PROC HINTERGRUND

    Parámetros r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parámetros _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

Sinestar encargado 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)el es herunterfahren

        ExitWindows 0

    ELSEIF MenuItem(402)el es abmelden

        ExitWindows 3

    ELSEIF MenuItem(501)

        Texto$ = Wir haben ahora  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Texto$,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:\Programas\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? Yo finde nix!
 
19.02.2009  ▲
 




Roberto
Das du había glaub una Älteren Code de me
KompilierenMarcaSeparación
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




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




Roberto
Aber Yo raste igual de. Was voluntad el dumme Programa???
Immer si yo NOSTALE öffne klappt alles Perfekt.
Aber entonces kommt así ne dumme meldung.
Hier el Screenshot.
El media ELSEIF oder ENDIF fehlt.
Aber el gehört nada en el Línea hier otra vez el Code

Und entonces ahst du me una code gegeben aber entonces haben algunos append menus gefehlt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
¡Hola,

hier una neuer Code
KompilierenMarcaSeparación
declarar e%,x%,y%,Edit&,weiter&,exit&,Contraseña$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Crear(Ventana,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%%)
Edit& = Crear(Editar,passwindow&,,5,5,245,20)
weiter& = Crear(Button,passwindow&,Weiter,5,30,120,25)
exit& = Crear(Button,passwindow&,Alto,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&) = Contraseña$

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

        más

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

        endif

    endif

endwhile

Claro e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declarar herunter&, abmeld&eingefügt
declarar uhrzeit& eingefügt KHR
declarar Texto$,Titeltext$

PROC FENSTER

    Título de la ventana Titel$
    Windowstyle 536
    Ventana (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

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

ENDPROC

PROC MENU

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

ENDPROC

PROC HINTERGRUND

    Parámetros r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parámetros _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

Sinestar encargado 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)el es herunterfahren

        ExitWindows 0

    ELSEIF MenuItem(402)el es abmelden

        ExitWindows 3

    ELSEIF MenuItem(501)

        Texto$ = Wir haben ahora  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Texto$,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:\Programas\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:\Programas\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

Yo finds klasse, daß Usted dich así intensiv con neulingen abgibst.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
19.02.2009  ▲
 




Paul
Glatz
¡Hola,
Yo helfe doch sólo! Und 2. tener Yo largo weile.
 
19.02.2009  ▲
 




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




Paul
Glatz
Bitte y gerne otra vez!!
 
19.02.2009  ▲
 



◄

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

23.874 Views

Untitledvor 0 min.
Jürgen Strahl08.06.2022
Uwe Lang03.09.2014
Setharial14.02.2013
liveFamilie11.05.2012
Más...

Themeninformationen

Dieses Thema ha 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie