Moin allerseits. Ich bin am Ende meiner Möglichkeiten. Der nachfolgende Code funktioniert nicht . Die Fehlermeldung:
Error : 25 Line : 19 Variable already dimensioned [Variable already dimensioned] , in File : C:\Users\Wolfi\Desktop\Bascom\noname1.bas
Error : 93 Line : 24 Variable not dimensioned [EEPROM(0)] , in File : C:\Users\Wolfi\Desktop\Bascom\noname1.bas
Hier ist das Listing:
Display All
Vielleicht hat von Euch Experten eine Lösung nach dem Motto: Finde den Fehler. Grüße Wolleausmallo
Error : 25 Line : 19 Variable already dimensioned [Variable already dimensioned] , in File : C:\Users\Wolfi\Desktop\Bascom\noname1.bas
Error : 93 Line : 24 Variable not dimensioned [EEPROM(0)] , in File : C:\Users\Wolfi\Desktop\Bascom\noname1.bas
Hier ist das Listing:
Source Code
- $regfile = "m8def.dat"
- $crystal = 8000000 ' Noch intern. Auf 16MHz extern umprogrammieren
- ' Definition der Pins und Variablen
- Config Portb = Output
- Config Portd = Output
- Config Portc.1 = Output
- Config Pinb.0 = Input
- Config Pinb.1 = Input
- Config Portc.2 = Output
- Config Portc.3 = Output
- Dim Anzeige1 As Byte
- Dim Anzeige2 As Byte
- Dim Eeprom(0) As Eram Single
- Dim Eeprom(1) As Eram Single
- Dim LastButtonTime As Word
- ' Initialisierung
- Anzeige1 = Eeprom(0) ' Lies den Wert von Adresse 0 im EEPROM
- Anzeige2 = Eeprom(1) ' Lies den Wert von Adresse 1 im EEPROM
- Portb.0 = 1 ' Taster 1
- Portb.1 = 1 ' Taster 2
- Portc.1 = 0 ' Relais
- Portc.2 = 1 ' Anode 1
- Portc.3 = 1 ' Anode 2
- Ein Alias Pinb.0
- Aus Alias Pinb.1
- Relais Alias Portc.1
- Do
- ' Überprüfe Taster für Anzeige 1
- If Ein = 0 Then
- LastButtonTime = Time
- Incr Anzeige1
- If Anzeige1 > 9 Then
- Anzeige1 = 0
- End If
- Waitms 200 ' Entprellzeit
- End If
- ' Überprüfe Taster für Anzeige 2
- If Aus = 0 Then
- LastButtonTime = Time
- Incr Anzeige2
- If Anzeige2 > 9 Then
- Anzeige2 = 0
- End If
- Waitms 200 ' Entprellzeit
- End If
- ' Überprüfe Inaktivität der Tasten für 10 Sekunden
- If (Time - LastButtonTime) > 10000 Then
- ' Anzeige 1 aktualisieren
- Portc.2 = 0 ' Anode 1 aktivieren
- Portc.3 = 1 ' Anode 2 deaktivieren
- ' (Rest des Anzeige 1 Codes bleibt unverändert)
- ' Anzeige 2 aktualisieren
- Portc.2 = 1 ' Anode 1 deaktivieren
- Portc.3 = 0 ' Anode 2 aktivieren
- ' (Rest des Anzeige 2 Codes bleibt unverändert)
- ' Speichern der Werte im EEPROM
- Eeeprom(0) = Anzeige1 ' Speichere den Wert von Anzeige1 in Adresse 0 im EEPROM
- Eeeprom(1) = Anzeige2 ' Speichere den Wert von Anzeige2 in Adresse 1 im EEPROM
- End If
- Loop
Vielleicht hat von Euch Experten eine Lösung nach dem Motto: Finde den Fehler. Grüße Wolleausmallo