(276)  Login

English
Regulars table & Café

Done: Externe Open File

 
- 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
CompileMarkSeparation
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  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 2 -



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
CompileMarkSeparation
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

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



 
- Page 3 -



Paul
Glatz
Hi,
here's one koriegieter code:
CompileMarkSeparation
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 Games
    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& 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)
        case Result% = 0 : Messagebox(Error at started the Program,F E H L E R,4112)

    elseif Menuitem(602)

        Result% = WinExec(C:\programs\Wesnoth 1.4.7\wesnoth.exe,2)
        case Result% = 0 : Messagebox(Error at started the Program,F E H L E R,4112)

    EndIf

EndWhile

end
 
02/19/09  ▲
 




Roberto

CompileMarkSeparation
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  ▲
 




Paul
Glatz
woooooooooooo? I find nothing!
 
02/19/09  ▲
 




Roberto
that you had mean a Älteren Code me
CompileMarkSeparation
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/19/09  ▲
 




Paul
Glatz
and which trouble have you got now??
 
02/19/09  ▲
 




Roberto
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

And then ahst You me a code given but then having some append menus gefehlt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/19/09  ▲
 




Paul
Glatz
Hi,

here new code
CompileMarkSeparation
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)
        Case Result% = 0 : Messagebox(Error at started the Program,F E H L E R,4112)

    ElseIf Menuitem(602)

        Result% = WinExec(C:\programs\Date\Picasa3\Picasa3.exe,1)
        Case Result% = 0 : Messagebox(Error at started the Program,F E H L E R,4112)

    ELSEIF Menuitem(603)

        Result% = WinExec(C:\programs\PhotoScape\PhotoScape.exe,1)
        Case Result% = 0 : Messagebox(Error at started the Program,F E H L E R,4112)

    EndIf

EndWhile

end
 
02/19/09  ▲
 




KHR
Hey Plüschi

I finds class, that You you so intense with neulingen abgibst.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
02/19/09  ▲
 




Paul
Glatz
Hi,
I help still only! and 2. Have I long while.
 
02/19/09  ▲
 




Roberto
so did i .
thanks has worked
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/19/09  ▲
 




Paul
Glatz
Please and gladly again!!
 
02/19/09  ▲
 



◄

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

23.966 Views

Untitledvor 0 min.
Jürgen Strahl06/08/22
Uwe Lang09/03/14
Setharial02/14/13
liveFamilie05/11/12
More...

Themeninformationen

this Topic has 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie