XProfan

Español

Roberto

Was bedeutet Variable no deklariert.

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Na el el Variable no declariert es !!
Endweder con Declare

oder 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...

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Variables son beschreibbare Speicher welche _vor el Nutzung creado voluntad necesario - esta Vorgang llamado Variablendeklaration.

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

HMM porque en me es folgendes problem aufgetreten.
Yo habe una Programa en el como erster una kleines Ventana con uno passwortfrage es .
Dannw si al richtige Contraseña eingegeben ha debería eigentlich una 2 fenster kommen en el verschiedene Características a verfügung posición.
Aber nachd él Passwortabfrage kommt siempre el Fehleranzeige Variable doppelt declariert.
Könnt me wiedermal uno helfen?
hier el Code
PASSWORT:robin
Kompilieren Marca Separación

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='./../../funktionsreferenzen/XProfan/endif/'>ENDIF

EndWhile

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Usted hast en Línea 1el Variable X% (y Y%) declariert:
declarar e%,x%,y%
In Línea 40 schreibst du:
var X% = ...
var Y% = ...

Es una Doppel-Declarierung de X% y Y% !!
In Línea 40 (y 41) el Var weg, y ya 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...

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tal vez como einfache Übung, genau esta doppelte Deklaration incluso herauszusehen y a entfernen.

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ach IF, Yo a langsam oder du a rápidamente

.
Aber qué solls, war sicher no el letzte Cuestión...

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

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Exactamente, lo juega ningún papel.

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Yo warte ya el nächste Doppelt declariert...

(Nach el Ver código fuente-Test)

[offtopic]Sag Todavía, zusammenkopieren bringt nix[/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...

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Zielinski

Am anfang Deklarirst du con [declarar x%,y%] y direkt después de el Bucle a Passwortabfrage Deklarirst du x% y y% otra vez con Var. e% deklarirst du auch doppelt y así más. Usted darfst Variables sólo una vez deklarieren. Brauchst du una variable no mehr, oder willst ellos anderweitig nutzen, entonces nutz simplemente, antes neubenutzung el Variables, Claro.
Am besten, así du a Begin no durcheinanderkommst, deklarierst du ALLE Variables al Anfang con Declarar. Es egal wann ellos Deklariert voluntad. Hauptsache antes ersten Nutzung. Und si du todos al Anfang su Codes con Declarar deklarierst, entonces kannst du dir auch el Var sparen y dopplungen voluntad más rápido sichtbar.

Saludo Thomas

[offtopic]Jetzt habt ihr una dutzend Beiträge gemacht wärend Yo a el una gesesen tener

[/offtopic]

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

@Thomas (offtopic):

,
aber eigentlich:

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

18.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Roberto

So ahora tener Yo el gemacht y luego kommt Variable doppelt declariert exit&

hier el CODE
Kompilieren Marca Separación

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='./../../funktionsreferenzen/XProfan/endif/'>ENDIF

EndWhile