Stammtisch & le café | | | | | | - 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
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 ▲ |
| | |
| | | | | | - page 2 - |
| | 
Paul
Glatz | Salut,
Pour Jeux muss du den Speicherort et den Namen qui Ausfürbaren EXE savons. |
| | | | | | |
| |
Roberto | si je EIGENSCHAFTEN klicke et ensuite ZIEL venez cela
C:Nostale(DE)Nostale.exe
et cela spiel heisst Nostale(DE) |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | Es klappt  Gott es Klappt
Vielen Dank Paul. |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | So maintenant serait je gern avec einem menu 2 Programme ouvrir peut
habe aussi code et but angegeben mais es ouvrez toujours seulement cela erste Programme NOSTALE
ici cela speicherziel
C rogrammeWesnoth 1.4.7wesnoth.exe
et ici qui code
KompilierenMarqueSéparationdeclare 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)
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 PRG_START
declare ergebnis%,wesnot%
ergebnis% = WinExec(C:Nostale(DE)Nostale.exe,1) Papierkorb öffnen!
ergebnis% = WinExec(C:ProgrammeWesnoth 1.4.7wesnoth.exe,2)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
end
endif
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)
PRG_START
elseif Menuitem(602)
PRG_START
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
=s4 href='./../../funzione-riferimenti/XProfan/endif/'>endif
endwhile
end
|
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | Salut,
ici ist qui korigirte Code:
KompilierenMarqueSéparationdeclare 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)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
endif
elseif Menuitem(602)
ergebnis% = WinExec(C:ProgrammeWesnoth 1.4.7wesnoth.exe,2)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
endif
EndIf
Endwhile
end
|
| | | | | | |
| |
Roberto | | Könntest du mir s'il te plaît encore dire quoi je faux gemacht hab, dass je cela cela prochain la fois weiss |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | Salut,
tu as simple toujours qui gleiche Proc aufgerufen arber woher soll qui Proc savons welches Programme du starten veux. j'ai den Code um un Programme trop ouvrir diekekt dans qui Abfrage gemacht. |
| | | | | | |
| | 
Jac
de
Lad | je häng mich seulement ungern rein, weil Krümel dir ici wirklich hilfreiche Tipps gibt, mais versuch toi s'il te plaît quelque chose genauer auszudrücken. Mir personnelle fällt es jedenfalls assez schwer aus dem Kauderwelsch rauszufinden, quoi oui c'est ca du vorhast.
@Paul: chez Backslashes lieber den doppelten Backslash \ prendre um Problemen avec Escapesequenzen vorzubeugen.
Jac  |
| | | | Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | allô Jac,
avec dem doppelten Backslash vergesse je toujours wieder. |
| | | | | | |
| |
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
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 ▲ |
| | |
|
répondreOptions du sujet | 23.836 Views |
Themeninformationencet Thema hat 4 participant: |
|
(269)
Deutsch
English
Français
Español
Italia