Stammtisch & Caffè | | | | | | - Page 1 - |
| 
Roberto | Ich möchte den Papierkorb durch klick auf einen Button öffnen habe auch den Code dafür aber wenn ich auf den Button klicke passiert nichts
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 Programmi,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 Papierkorb& = Create(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 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(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 | Ciao,
Für Giochi muss du den Speicherort und den Namen der Ausfürbaren EXE wissen. |
| | | | | | |
| |
Roberto | wenn ich EIGENSCHAFTEN klicke und dann ZIEL kommt das
C:Nostale(DE)Nostale.exe
und das 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 jetzt würde ich gern mit einem Menü 2 Programme öffnen können
habe auch code und ziel angegeben aber es öffnet immer nur das erste Programm NOSTALE
hier das speicherziel
C rogrammeWesnoth 1.4.7wesnoth.exe
und hier der code
KompilierenMarkierenSeparierendeclare 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 | Ciao,
hier ist der korigirte Code:
KompilierenMarkierenSeparierendeclare 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 Bitte noch sagen was ich falsch gemacht hab, dass ich das das nächste mal weiss |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | Ciao,
du hast einfach immer die gleiche Proc aufgerufen arber woher soll die Proc wissen welches Programm du starten willst. Ich habe den Code um ein Programm zu öffnen diekekt in die Abfrage gemacht. |
| | | | | | |
| | 
Jac
de
Lad | Ich häng mich nur ungern rein, weil Krümel dir hier wirklich hilfreiche Tipps gibt, aber versuch dich bitte etwas genauer auszudrücken. Mir persönlich fällt es jedenfalls ziemlich schwer aus dem Kauderwelsch rauszufinden, was genau du vorhast.
@Paul: Bei Backslashes lieber den doppelten Backslash \ nehmen um Problemen mit 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 | Hallo Jac,
Mit dem doppelten Backslash vergesse ich immer wieder. |
| | | | | | |
| |
Roberto | Ja sorry ich geb mir mehr Mühe.
Aber ich raste gleich aus. Was will das dumme Programm???
Immer wenn ich NOSTALE öffne klappt alles Perfekt.
Aber dann kommt so ne dumme meldung.
Hier der Screenshot.
Die meinen ELSEIF oder ENDIF fehlt.
Aber das gehört gar nicht in die Zeile hier nochmal der Code
declare 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 Password!
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,Annullare
Separator
Popup Uhrzeit
AppendMenu 501,Aktuelle Uhrzeit
Separator
Popup Programme
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& 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 Programmi,F E H L E R,4112)
endif
ElseIf Menuitem(602)
ergebnis% = WinExec(C:\Programme\Google\Picasa3\Picasa3.exe,1)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmi,F E H L E R,4112)
ELSEIF Menuitem(603)
ergebnis% = WinExec(C:ProgrammePhotoScapePhotoScape.exe)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmi,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 ▲ |
| | |
|
AnswerTopic-Options | 23.781 Views |
ThemeninformationenDieses Thema hat 4 subscriber: |
(270)
Deutsch
English
Français
Español
Italia