(452)  S'inscrire

Français
Forum

Variable pas declariert

 

Roberto
quoi bedeutet Variable pas deklariert.
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
 




E.T.
Na cela qui Variable pas declariert ist !!
Endweder avec Declare  ou bien 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  ▲
 



Variablen sommes beschreibbare grenier quelle _vor qui Nutzung angelegt volonté doit - cette Vorgang nennt on Variablendeklaration.
 
18.02.2009  ▲
 




Roberto
HMM car chez mir ist folgendes problem aufgetreten.
j'ai un Programme chez dem comme erster un kleines la fenêtre avec einer passwortfrage ist .
Dannw si on cela richtige passwort eingegeben hat sollte eigentlich un 2 la fenêtre venons sur dem verschiedene Funktionen zur la disposition stehen.
mais nachd il Passwortabfrage venez toujours qui Fehleranzeige Variable doppelt declariert.
pouvez mir wiedermal einer aider?
ici qui Code
PASSWORT:robin
KompilierenMarqueSéparation
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  ▲
 




E.T.
tu as dans la ligne 1qui Variable X% (et Y%) declariert:
declare e%,x%,y% 
dans la ligne 40 écris du:
var X% = ...
var Y% = ... 

c'est une Doppel-Declarierung de X% et Y% !!
dans la ligne 40 (et 41) cela Var  weg, et déjà 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  ▲
 



peut-être comme simple Übung, oui c'est ca cet doppelte Deklaration selbst herauszusehen et trop entfernen.
 
18.02.2009  ▲
 




E.T.
ah IF, je trop lente ou bien du trop vite .
mais quoi solls, était sûrement pas qui dernier Frage...
 
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  ▲
 



oui c'est ca, il joue aucun rôle.
 
18.02.2009  ▲
 




E.T.
je attends déjà sur cela prochain Doppelt declariert...
(Pour dem Voir le texte source-Test)

[offtopic]Sag je doch, 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  ▲
 




Thomas
Zielinski
Am anfang Deklarirst du avec [declare x%,y%] et direct pour qui Boucle zur Passwortabfrage Deklarirst du x% et y% nochmal avec Var. e% deklarirst du aussi doppelt et so plus. Du darfst Variablen seulement einmal déclarer. Brauchst du une variable pas plus, ou bien veux vous anderweitig nutzen, ensuite nutz simple, avant qui neubenutzung qui Variablen, Claire.
Am besten, avec cela du trop Begin pas durcheinanderkommst, deklarierst du ALLE Variablen am Anfang avec Déclarer. c'est égal quand vous Deklariert volonté. le principal avant qui ersten Nutzung. et si du alle am Anfang votre Codes avec Déclarer deklarierst, ensuite peux du dir aussi cela Var sparen et dopplungen volonté plus rapide sichtbar.

Salut Thomas

[offtopic]maintenant avez son une douzaine Posts gemacht wärend je à dem une gesesen hab [/offtopic]
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
18.02.2009  ▲
 




E.T.
@Thomas (offtopic): ,
mais 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  ▲
 




Roberto
So maintenant hab je cela gemacht et ensuite venez Variable doppelt declariert exit&

ici qui CODE
KompilierenMarqueSéparation
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
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
 



►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

2.990 Views

Untitledvor 0 min.
Member 554186217.05.2022

Themeninformationen

cet Thema hat 4 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie