Can not redeclare a constant. ???

- [ gelöst ]
Newb
13. Oktober 2011 um 23:32
Geschlossen
Erledigt

Newb

Gast
13. Oktober 2011 um 23:32
- #1
Hallo liebe Community,
ich hoffe ihr könnt mir helfen.
Ich möchte ein kleines Programm zur Selbstkontrolle in den Grundrechenarten schreiben.
Wenn ich allerdings einer der Methoden Addieren() , Subtrahieren() [Z. 198 ; 200 ; etc] etc. erneut aufrufen will erhalte ich folgenden Fehler:
C:\Program Files (x86)\AutoIt3\Include\EditConstants.au3 (13) : ==> Can not redeclare a constant.:
Was muss ich tun und was mache ich falsch?

Spoiler anzeigen

[autoit]
; Mathe-Video Übungsprogramm
#include <Misc.au3>
$dll = DllOpen("user32.dll")
Global $Msg = 0
Global $Mathe_Addieren = 0
Global $Mathe_Dividieren = 0
Global $Mathe_Multiplizieren = 0
Global $Mathe_Subtrahieren = 0
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=D:\Daten\Desktop\AutoIt\Laptop\Project Mathe-Video\Forms\Start.kxf
$Form1 = GUICreate("Start", 280, 181, 199, 124)
$Label1 = GUICtrlCreateLabel("Kann ich das?", 40, 32, 183, 37)
GUICtrlSetFont(-1, 22, 800, 4, "Myriad Web Pro")
GUICtrlSetColor(-1, 0xFF0000)
$Dividieren = GUICtrlCreateButton("Dividieren", 144, 120, 105, 25)
$Subtrahieren = GUICtrlCreateButton("Subtrahieren", 144, 88, 105, 25)
$Multiplizieren = GUICtrlCreateButton("Multiplizieren", 8, 120, 105, 25)
$Addieren = GUICtrlCreateButton("Addieren", 8, 88, 105, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Addieren
Global $Mathe_Addieren = 1
Addieren()
Case $Multiplizieren
Global $Mathe_Multiplizieren = 1
Multiplizieren()
Case $Subtrahieren
Global $Mathe_Subtrahieren = 1
Subtrahieren()
Case $Dividieren
Global $Mathe_Dividieren = 1
Dividieren()
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]
Func Addieren() ; Übungen zu Addieren
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=d:\daten\desktop\autoit\laptop\project mathe-video\forms\addieren.kxf
$Addieren = GUICreate("Mathe - Addieren", 641, 86, 192, 124)
Global $Loesung = GUICtrlCreateInput("Loesung", 352, 24, 185, 45)
$x = Random(0, 500, 1)
$y = Random(0, 500, 1)
Global $ergebnis = $x + $y
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Aufgabe: " & $x & " + " & $y & " =", 16, 24, 319, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Check = GUICtrlCreateButton("Überprüfen", 552, 16, 73, 57)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
If _IsPressed("0D", $dll) And $Msg = 0 And WinActive("Mathe -") Then
Check()
EndIf
Sleep(2)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]
Case $Check
Check()
EndSwitch
WEnd
EndFunc ;==>Addieren
[/autoit] [autoit][/autoit] [autoit]
Func Subtrahieren() ; Übungen zu Subtrahieren
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=d:\daten\desktop\autoit\laptop\project mathe-video\forms\addieren.kxf
$Subtrahieren = GUICreate("Mathe - Subtrahieren", 641, 86, 192, 124)
Global $Loesung = GUICtrlCreateInput("Loesung", 352, 24, 185, 45)
$x = Random(0, 500, 1)
$y = Random(0, 500, 1)
While $x < $y
$x = Random(0, 500, 1)
$y = Random(0, 500, 1)
WEnd
Global $ergebnis = $x - $y
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Aufgabe: " & $x & " - " & $y & " =", 16, 24, 319, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Check = GUICtrlCreateButton("Überprüfen", 552, 16, 73, 57)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
If _IsPressed("0D", $dll) And $Msg = 0 And WinActive("Mathe -") Then
Check()
EndIf
Sleep(2)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]
Case $Check
Check()
EndSwitch
WEnd
EndFunc ;==>Subtrahieren
[/autoit] [autoit][/autoit] [autoit]
Func Dividieren() ; Übungen zu Dividieren
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=d:\daten\desktop\autoit\laptop\project mathe-video\forms\addieren.kxf
$Dividieren = GUICreate("Mathe - Dividieren", 641, 86, 192, 124)
Global $Loesung = GUICtrlCreateInput("Loesung", 352, 24, 185, 45)
$x = Random(0, 200, 1)
$y = Random(0, 150, 1)
While IsFloat($x / $y)
$x = Random(0, 200, 1)
$y = Random(0, 150, 1)
WEnd
Global $ergebnis = $x / $y
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Aufgabe: " & $x & " : " & $y & " =", 16, 24, 319, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Check = GUICtrlCreateButton("Überprüfen", 552, 16, 73, 57)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
If _IsPressed("0D", $dll) And $Msg = 0 And WinActive("Mathe -") Then
Check()
EndIf
Sleep(2)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]
Case $Check
Check()
EndSwitch
WEnd
EndFunc ;==>Dividieren
[/autoit] [autoit][/autoit] [autoit]
Func Multiplizieren() ; Übungen zu Multiplizieren
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=d:\daten\desktop\autoit\laptop\project mathe-video\forms\addieren.kxf
$Multiplizieren = GUICreate("Mathe - Multiplizieren", 641, 86, 192, 124)
Global $Loesung = GUICtrlCreateInput("Loesung", 352, 24, 185, 45)
$x = Random(0, 50, 1)
$y = Random(0, 50, 1)
Global $ergebnis = $x * $y
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Aufgabe: " & $x & " * " & $y & " =", 16, 24, 319, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Check = GUICtrlCreateButton("Überprüfen", 552, 16, 73, 57)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
If _IsPressed("0D", $dll) And $Msg = 0 And WinActive("Mathe -") Then
Check()
EndIf
Sleep(2)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]
Case $Check
Check()
EndSwitch
WEnd
EndFunc ;==>Multiplizieren
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func Check()
$ergebnis2 = GUICtrlRead($Loesung)
If $ergebnis2 = $ergebnis Then
Global $Msg = 1
If MsgBox(1, "Toll", "Richtig. Noch eine Aufgabe?") = 1 Then
If $Mathe_Addieren = 1 Then
Addieren()
ElseIf $Mathe_Dividieren = 1 Then
Dividieren()
ElseIf $Mathe_Multiplizieren = 1 Then
Multiplizieren()
ElseIf $Mathe_Subtrahieren = 1 Then
Subtrahieren()
EndIf
Else
Exit
EndIf
Sleep(200)
Global $Msg = 0
Else
Global $Msg = 1
MsgBox(0, "Leider nicht...", "Bitte versuche es noch einmal")
Sleep(200)
Global $Msg = 0
EndIf
EndFunc ;==>Check
[/autoit] [autoit][/autoit] [autoit][/autoit]

Lg
Einmal editiert, zuletzt von Newb (14. Oktober 2011 um 19:59) aus folgendem Grund: Zeilenangaben ergänzt
Kleiner

ehemals kleiner27

Beiträge

743
13. Oktober 2011 um 23:39
- #2
Hi,

setz alle include die du brauchst am anfang vom Script.

Lg Kleiner
Xorianator

Kontextfrei

Beiträge

1.935
14. Oktober 2011 um 01:29
- #3
Du kannst in einer Funktion keine globalen Variablen deklarieren.
Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
- Blaise Pascal
DaX

Gast
14. Oktober 2011 um 07:22
- #4
Natürlich kannst Du in einer Funktion auch globale Variablen deklarieren. Aber Du kannst nicht im selben Gültigkeitsbereich die Variable mehrfach deklarieren. Deshalb bekommst Du Fehlermeldung. Beim ersten Funktionsaufruf werden die Variablen deklariert. Beim zweiten Funktionsaufruf versucht das Skript, die Variablen zu deklarieren. Da sie bereits vorhanden sind, bricht das Skript mit der Fehlermeldung ab. Am Besten änderst Du in Deinen Funktionen das Schlüsselwort
[autoit]
Global
[/autoit]
in
[autoit]
Local
[/autoit]
.
AspirinJunkie

.

Reaktionen

1

Beiträge

3.258
14. Oktober 2011 um 07:29
- #5
das hier hat nichts mit global/local zu tun sondern nur mit const.
kleiner hat es schon gesagt: includes haben in funktionen nichts zu suchen.
meistertogo

Beiträge

198
14. Oktober 2011 um 16:12
- #6
Allerdings solltest Du dann sicherheitshalber auch daran denken
[autoit]
#include-once
[/autoit]
darüber zu schreiben.
MfG
meistertogo
"Suum cuique!"
[Blockierte Grafik: http://www.speedmeter.de/speedtest/result/43393153]
Newb

Gast
14. Oktober 2011 um 20:00
- #7
Das mit den Includes wars

Vielen, vielen Dank
Und euch allen noch einen schönen Abend

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.