Stammtisch & Café | | | | | | - 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
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 ▲ |
| | |
| | | | | | - Página 2 - |
| | 
Paul
Glatz | ¡Hola,
Für Juegos muss du el Speicherort y el Namen el Ausfürbaren EXE wissen. |
| | | | | | |
| |
Roberto | si yo EIGENSCHAFTEN klicke y luego ZIEL kommt el
C:Nostale(DE)Nostale.exe
y el spiel heisst Nostale(DE) |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | Lo klappt  Gott lo Klappt
Vielen Dank Paul. |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | | | | | | | |
| |
Roberto | So ahora sería Yo gern con un Menü 2 Programas abierto puede
habe auch code y ziel angegeben pero öffnet siempre sólo el erste Programa NOSTALE
hier el speicherziel
C rogrammeWesnoth 1.4.7wesnoth.exe
y aquí el code
KompilierenMarcaSeparacióndeclare 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 | ¡Hola,
hier es el korigirte Code:
KompilierenMarcaSeparacióndeclare 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 me Bitte todavía sagen Yo falso gemacht tener, dass Yo el el nächste veces blanco |
| | | | Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
| | |
| |
Paul
Glatz | ¡Hola,
du hast simplemente siempre el gleiche Proc aufgerufen arber woher se el Proc wissen welches Programa du starten willst. Yo habe el código en una Programa a abierto diekekt en el Abfrage gemacht. |
| | | | | | |
| | 
Jac
de
Lad | Yo häng mich sólo ungern rein, porque Krümel dir hier wirklich hilfreiche Tipps son, aber versuch dich Por favor, algo genauer auszudrücken. Mir persönlich fällt lo jedenfalls bastante schwer de el Kauderwelsch rauszufinden, ¿qué es exactamente du vorhast.
@Paul: En Backslashes más bien el doppelten Backslash \ nehmen en Problemen con 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 | ¡Hola Jac,
Mit el doppelten Backslash vergesse Yo siempre otra vez. |
| | | | | | |
| |
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
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 ▲ |
| | |
|
RespuestaTema opciones | 23.795 Views |
ThemeninformationenDieses Thema ha 4 subscriber: |
|
(268)
Deutsch
English
Français
Español
Italia