(275)  S'inscrire

Français
Stammtisch & le café

Erledigt: Externe Aller

 
- page 1 -



Roberto
je voudrais den corbeille à papier par klick sur une Button ouvrir habe aussi den Code pour mais si je sur den Button klicke passiert rien
KompilierenMarqueSéparation
var x% = 280
var y% = 75

PROC PRG_START

    var ergebnis& = WinExec(corbeille à papier.exe,1)
    var ergebnis& = WinExecWait(corbeille à papier.exe,1)

    si ergebnis& = 0

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

    endif

ENDPROC

Fenêtre Style 31
Titre de la fenêtre Externes Programme starten
Fenêtre (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Créer(Button,%HWnd,corbeille à papier öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Créer(Button,%HWnd,finissons,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0

whilenot e%

    waitinput

    si 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 citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Roberto
oui sorry je geb mir plus Mühe.
mais je raste juste aus. quoi veux cela dumme Programme???
toujours si je NOSTALE ouvre klappt alles parfait.
mais ensuite venez so ne dumme annonce.
ici qui Screenshot.
qui meinen ELSEIF ou bien ENDIF fehlt.
mais cela est gar pas dans qui la ligne ici nochmal qui Code
KompilierenMarqueSéparation
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Créer(Fenêtre,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, % X, y%)
Edit& = Créer(Éditer,passwindow&,,5,5,245,20)
weiter& = Créer(Button,passwindow&,Weiter,5,30,120,25)
exit& = Créer(Button,passwindow&,démolir,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    si Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText $(Edit&) = passwort$

            Messagebox(Falsches Mot de passe!
            ne...aucune Zugang!,I N F O,4160)
            e% = 1
            end

        d'autre

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

        endif

    endif

endwhile

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

PROC FENSTER

    Titre de la fenêtre Titel$
    Windowstyle 536
    Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Créer(Button,%HWnd,finissons,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Séparateur
    AppendMenu 302,&rouge
    Séparateur
    AppendMenu 303,&vert
    Séparateur
    AppendMenu 304,&bleu
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Séparateur
    AppendMenu 402,Annuler
    Séparateur
    Popup l'heure
    AppendMenu 501,Aktuelle l'heure
    Séparateur
    Popup Programme
    AppendMenu 601,Nostale
    Séparateur
    AppendMenu 602,Picasa 3
    Séparateur
    AppendMenu 603,Photoscape
    Séparateur
    AppendMenu 604,Inkscape
    Séparateur

ENDPROC

PROC HINTERGRUND

    Paramètres r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Paramètres _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)cela ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)cela ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir avons maintenant  + Time $(2) +  montre.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

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

        si ergebnis% = 0

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

        endif

    ElseIf Menuitem(602)

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

        si ergebnis% = 0

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

        ELSEIF Menuitem(603)

            ergebnis% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)

            si ergebnis% = 0

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

            endif

        EndIf

    Endwhile

    end

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



 
- page 3 -



Paul
Glatz
Salut,
ici est un koriegieter Code:
KompilierenMarqueSéparation
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Créer(Fenêtre,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, % X, y%)
Edit& = Créer(Éditer,passwindow&,,5,5,245,20)
weiter& = Créer(Button,passwindow&,Weiter,5,30,120,25)
exit& = Créer(Button,passwindow&,démolir,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    si Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText $(Edit&) = passwort$

            Messagebox(Falsches Mot de passe!
            ne...aucune Zugang!,I N F O,4160)
            e% = 1
            end

        d'autre

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

        endif

    endif

endwhile

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

PROC FENSTER

    Titre de la fenêtre Titel$
    Windowstyle 536
    Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Créer(Button,%HWnd,finissons,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Séparateur
    AppendMenu 302,&rouge
    Séparateur
    AppendMenu 303,&vert
    Séparateur
    AppendMenu 304,&bleu
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Séparateur
    AppendMenu 402,Annuler
    Séparateur
    Popup l'heure
    AppendMenu 501,Aktuelle l'heure
    Séparateur
    Popup Jeux
    AppendMenu 601,Nostale
    Séparateur
    AppendMenu 602,Wesnot
    Séparateur

ENDPROC

PROC HINTERGRUND

    Paramètres r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Paramètres _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) cela ist herunterfahren

        ExitWindows 0

    ElseIf Menuitem(402) cela ist abmelden

        ExitWindows 3

    elseIf Menuitem(501)

        Text$ = Wir avons maintenant  + Time $(2) +  montre.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    elseif Menuitem(601)

        ergebnis% = WinExec(C:\Nostale(DE)\Nostale.exe,1)
        cas ergebnis% = 0 : Messagebox(faute 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)
        cas ergebnis% = 0 : Messagebox(faute beim Starten des Programmes,F E H L E R,4112)

    EndIf

Endwhile

end
 
19.02.2009  ▲
 




Roberto

KompilierenMarqueSéparation
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Créer(Fenêtre,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, % X, y%)
Edit& = Créer(Éditer,passwindow&,,5,5,245,20)
weiter& = Créer(Button,passwindow&,Weiter,5,30,120,25)
exit& = Créer(Button,passwindow&,démolir,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    si Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText $(Edit&) = passwort$

            Messagebox(Falsches Mot de passe!
            ne...aucune Zugang!,I N F O,4160)
            e% = 1
            end

        d'autre

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

        endif

    endif

endwhile

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

PROC FENSTER

    Titre de la fenêtre Titel$
    Windowstyle 536
    Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Créer(Button,%HWnd,finissons,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Séparateur
    AppendMenu 302,&rouge
    Séparateur
    AppendMenu 303,&vert
    Séparateur
    AppendMenu 304,&bleu
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Séparateur
    AppendMenu 402,Annuler
    Séparateur
    Popup l'heure
    AppendMenu 501,Aktuelle l'heure
    Séparateur
    Popup Programme
    AppendMenu 601,Nostale
    Séparateur
    AppendMenu 602,Picasa 3
    Séparateur
    AppendMenu 603,Photoscape
    Séparateur
    AppendMenu 604,Inkscape
    Séparateur

ENDPROC

PROC HINTERGRUND

    Paramètres r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Paramètres _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)cela ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)cela ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir avons maintenant  + Time $(2) +  montre.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

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

        si ergebnis% = 0

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

        endif

    ElseIf Menuitem(602)

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

        si ergebnis% = 0

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

        ELSEIF Menuitem(603)

            ergebnis% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)

            si ergebnis% = 0

                Messagebox(faute 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? je trouve nix!
 
19.02.2009  ▲
 




Roberto
cela du hattest glaub une Älteren Code de mir
KompilierenMarqueSéparation
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
et welches Problem la hâte du eh bien??
 
19.02.2009  ▲
 




Roberto
mais je raste juste aus. quoi veux cela dumme Programme???
toujours si je NOSTALE ouvre klappt alles parfait.
mais ensuite venez so ne dumme annonce.
ici qui Screenshot.
qui meinen ELSEIF ou bien ENDIF fehlt.
mais cela est gar pas dans qui la ligne ici nochmal qui Code

et ensuite ahst du mir une code gegeben mais ensuite avons quelques append menus gefehlt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
19.02.2009  ▲
 




Paul
Glatz
Salut,

ici un neuer Code
KompilierenMarqueSéparation
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&,ergebnis%
x% = 265
y% = 100
passwort$ = robin
passwindow&=Créer(Fenêtre,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, % X, y%)
Edit& = Créer(Éditer,passwindow&,,5,5,245,20)
weiter& = Créer(Button,passwindow&,Weiter,5,30,120,25)
exit& = Créer(Button,passwindow&,démolir,132,30,120,25)
startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
SetFocus(Edit&)
SetFocus (weiter&)
SetFocus (exit&)

whilenot e%

    WaitInput

    si Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText $(Edit&) = passwort$

            Messagebox(Falsches Mot de passe!
            ne...aucune Zugang!,I N F O,4160)
            e% = 1
            end

        d'autre

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

        endif

    endif

endwhile

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

PROC FENSTER

    Titre de la fenêtre Titel$
    Windowstyle 536
    Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Créer(Button,%HWnd,finissons,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Séparateur
    AppendMenu 302,&rouge
    Séparateur
    AppendMenu 303,&vert
    Séparateur
    AppendMenu 304,&bleu
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Séparateur
    AppendMenu 402,Annuler
    Séparateur
    Popup l'heure
    AppendMenu 501,Aktuelle l'heure
    Séparateur
    Popup Programme
    AppendMenu 601,Nostale
    Séparateur
    AppendMenu 602,Picasa 3
    Séparateur
    AppendMenu 603,Photoscape
    Séparateur
    AppendMenu 604,Inkscape
    Séparateur

ENDPROC

PROC HINTERGRUND

    Paramètres r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Paramètres _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)cela ist herunterfahren

        ExitWindows 0

    ELSEIF Menuitem(402)cela ist abmelden

        ExitWindows 3

    ELSEIF Menuitem(501)

        Text$ = Wir avons maintenant  + Time $(2) +  montre.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)

    ELSEIF Menuitem(601)

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

    ElseIf Menuitem(602)

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

    ELSEIF Menuitem(603)

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

    EndIf

Endwhile

end
 
19.02.2009  ▲
 




KHR
Hey Plüschi

je finds super, qui Du toi so intensif avec neulingen abgibst.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
19.02.2009  ▲
 




Paul
Glatz
Salut,
je helfe doch seulement! et 2. hab je longtemps weile.
 
19.02.2009  ▲
 




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




Paul
Glatz
s'il te plaît et volontiers wieder!!
 
19.02.2009  ▲
 



◄

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Erledigt

23.930 Views

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

Themeninformationen

cet Thema hat 4 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie