(448)  Login

English
Forum

Variable not declariert

 

Roberto
what means Variable not declared.
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/18/09  ▲
 




E.T.
well the The Variable not declariert is !!
Endweder with Declare  or Var ...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
02/18/09  ▲
 



variables are beschreibbare memory which _vor the Use laid out go must - this process called Variablendeklaration.
 
02/18/09  ▲
 




Roberto
HMM because by me is the following trouble aufgetreten.
I have one Program with the first thing one small Window with of/ one passwortfrage is .
Dannw if to the right Password association has ought to really one 2 window come on the different functions available stand.
but nachd it Passwortabfrage comes always The Fehleranzeige Variable twice declariert.
can me wiedermal of/ one help?
here the code
PASSWORT:robin
CompileMarkSeparation
declare 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%)
Hier kein Hauptfenster erstellen.
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)
SetFocus(Edit&)
clear e%

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

var x% = 500
var y% = 400
var Titel$ = RH PROGRAMS 1.1
declare exit&,e%
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%
    UseIcon GESICHT
    LoadBMP RHProgramming 400x500.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)
    herunter& = Create(Button,%hwnd,Herunterfahren,375,10,110,25)verändert
    abmeld& = Create(Button,%hwnd,Abmelden,380,40,100,25)verändert
    uhrzeit& = Create(Button,%hwnd,Uhrzeit,380,70,100,25)verändert

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RH PROGRAMMING
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau

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 RHProgramming 400x500.BMP,0,0;0
        RePaint

    ELSEIf Clicked(herunter&)

        ExitWindows 0

    ElseIf Clicked(abmeld&)

        ExitWindows 3

    elseIf Clicked (uhrzeit&) geändert  KHR

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)
        SETFOCUS(exit&)

    href='./../../Function-References/XProfan/endif/'>ENDIF

EndWhile
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/18/09  ▲
 




E.T.
you have in line 1The Variable X% (and Y%) declariert:
declare e%,x%,y% 
In row 40 write You:
var X% = ...
var Y% = ... 

this is a semidetached-Declarierung of X% and Y% !!
In row 40 (and 41) the Var  lane, and already GEHTS...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
02/18/09  ▲
 



Perhaps as simple Übung, very these double Deklaration self herauszusehen and To Remove.
 
02/18/09  ▲
 




E.T.
alas IF, I too slow or You To quick .
but what reserves, was sure not The latest question...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
02/18/09  ▲
 



very, it game no role.
 
02/18/09  ▲
 




E.T.
I were already the next twice declariert...
(After the View source-Test)

[offtopic]Sag I still, zusammenkopieren bring nothing[/offtopic]
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
02/18/09  ▲
 




Thomas
Zielinski
in the beginning Deklarirst You with [declare x%,y%] and directly to the Loop to Passwortabfrage Deklarirst You x% and y% again with Var. e% deklarirst You too twice an so on. You must variables only once deklarieren. do you need a variable not any more, or want tappt im dunkeln anderweitig benefit, then nutz simply, to the neubenutzung the variables, Clear.
best, so You To Begin not durcheinanderkommst, deklarierst You ALLE variables at the beginning with Declare. its alike when tappt im dunkeln Deklariert go. Hauptsache to the first Use. And if You any at the beginning your Codes with Declare deklarierst, then can you you too the Var save and dopplungen go faster visible.

Greeting Thomas

[offtopic]now have your one dozen Posts made During low I the a gesesen Have [/offtopic]
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
02/18/09  ▲
 




E.T.
@Thomas (offtopic): ,
but really:
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
02/18/09  ▲
 




Roberto
so now Have I the made and then comes Variable twice declariert exit&

here the CODE
CompileMarkSeparation
declare 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%)
Hier kein Hauptfenster erstellen.
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)
SetFocus(Edit&)
clear e%

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

x% = 500
y% = 400
var Titel$ = RH PROGRAMS 1.1
declare exit&,e%
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%
    UseIcon GESICHT
    LoadBMP RHProgramming 400x500.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)
    herunter& = Create(Button,%hwnd,Herunterfahren,375,10,110,25)verändert
    abmeld& = Create(Button,%hwnd,Abmelden,380,40,100,25)verändert
    uhrzeit& = Create(Button,%hwnd,Uhrzeit,380,70,100,25)verändert

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RH PROGRAMMING
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau

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 RHProgramming 400x500.BMP,0,0;0
        RePaint

    ELSEIf Clicked(herunter&)

        ExitWindows 0

    ElseIf Clicked(abmeld&)

        ExitWindows 3

    elseIf Clicked (uhrzeit&) geändert  KHR

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)
        SETFOCUS(exit&)

    href='./../../Function-References/XProfan/endif/'>ENDIF

EndWhile
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
02/18/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

3.073 Views

Untitledvor 0 min.
Member 554186205/17/22

Themeninformationen

this Topic has 4 subscriber:

E.T. (14x)
Roberto (12x)
iF (8x)
Thomas Zielinski (3x)


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