Regulars table & Café | | | | | | - Page 1 - |
| 
Roberto | i want whom wastebasket through klick on a Button open have too whom code for but if I on the Button click happens nothing
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(wastebasket.exe,1)
var ergebnis& = WinExecWait(wastebasket.exe,1)
if ergebnis& = 0
Messagebox(Error at started the Program,F E H L E R,4112)
end
endif
ENDPROC
Window Style 31
Window Title Externes Program started
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,wastebasket öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,terminate,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.^^ | 02/18/09 ▲ |
| | |
| | | | | | - Page 2 - |
| | 
Paul
Glatz | Hi,
for Games must You whom Speicherort and the names the Ausfürbaren EXE know. |
| | | | | | |
| |
Roberto | if I EIGENSCHAFTEN click and then ZIEL comes the
C:Nostale(DE)Nostale.exe
and the game means Nostale(DE) |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | it works  god it Klappt
Vielen Thanks Paul. |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | so now would I gladly with a Menu 2 programs open can
have too code and target indicated but it opens always only the first Program NOSTALE
here the speicherziel
C rogrammeWesnoth 1.4.7wesnoth.exe
and here the code
CompileMarkSeparationdeclare 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.^^ | 02/19/09 ▲ |
| | |
| |
Paul
Glatz | Hi,
here's the korigirte code:
CompileMarkSeparationdeclare 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 | | could you me Please yet say I wrong made Have, I the next time knows |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
| | |
| |
Paul
Glatz | Hi,
you have simply always The same Proc called arber where should The Proc know which Program You started want. I have whom code for a Program to open diekekt into request made. |
| | | | | | |
| | 
Jac
de
Lad | I häng me only ungern mere, because Krümel you here really helpful Tipps gives, but attempt you Please something accurate auszudrücken. me personally falls it anyway quite heavy from the Kauderwelsch rauszufinden, what very You vorhast.
@Paul: with Backslashes rather whom double Backslash \ take circa Problemen with 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 | 02/19/09 ▲ |
| | |
| |
Paul
Glatz | Hello Jac,
with the double Backslash forget I over ands over again. |
| | | | | | |
| |
Roberto | Yes sorry I geb me More trouble.
but I raging same from. what wants to stupid Program???
always if I NOSTALE open works everything perfect.
but then comes so ne stupid Message.
here the Screenshot.
The my ELSEIF or ENDIF missing.
but the heard none into row here again the code
declare e%,x%,y%,Edit&,weiter&,exit&,Password$,passwindow&,Result%
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&,moreover,5,30,120,25)
exit& = Create(Button,passwindow&,Cancel,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&) = Password$
Messagebox(Wrong Password!
no access!,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 cover$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$
PROC FENSTER
Window Title cover$
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,terminate,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)
ENDPROC
PROC MENU
Pop background
AppendMenu 301,&RHP MULTIPROGRAMS LOGO
Separator
AppendMenu 302,&ruddy
Separator
AppendMenu 303,&green
Separator
AppendMenu 304,&blue
Pop windows Options
AppendMenu 401,&Shutdown
Separator
AppendMenu 402,Log off
Separator
Pop Uhrzeit
AppendMenu 501,actually Uhrzeit
Separator
Pop programs
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& Lock
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)the is Shutdown
ExitWindows 0
ELSEIF Menuitem(402)the is Log off
ExitWindows 3
ELSEIF Menuitem(501)
Text$ = we having now + time$(2) + watch.
Titeltext$ = I n F O
Messagebox(Text$,Titeltext$,4160)
ELSEIF Menuitem(601)
Result% = WinExec(C:\Nostale(DE)\Nostale.exe,1)
if Result% = 0
Messagebox(Error at started the Program,F E H L E R,4112)
endif
ElseIf Menuitem(602)
Result% = WinExec(C:\programs\Date\Picasa3\Picasa3.exe,1)
if Result% = 0
Messagebox(Error at started the Program,F E H L E R,4112)
ELSEIF Menuitem(603)
Result% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)
if Result% = 0
Messagebox(Error at started the Program,F E H L E R,4112)
endif
EndIf
EndWhile
end
|
 | | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
| | |
|
AnswerTopic-Options | 23.888 Views |
Themeninformationenthis Topic has 4 subscriber: |
|
(266)
Deutsch
English
Français
Español
Italia