Wie kommt denn sowas zustande:
[code]
Error : 222 Line : 209 Illegal character [expected (, got ''
[_XMEGA]] , in File : C:\temp\test\test.bas
Error : 222 Line : 209 Illegal character [expected (, got '='
[_XMEGA=0]] , in File : C:\temp\test\test.bas
Error : 222 Line : 209 Illegal character [expected (, got ''
[_XMEGA]] , in File : C:\temp\test\test.bas
Error : 222 Line : 209 Illegal character [expected (, got '='
[_XMEGA=0]] , in File : C:\temp\test\test.bas
Error : 238 Line : 209 Variable is not dimensioned as an array
[_XMEGAREG(1)] , in File : C:\temp\test\test.bas
Error : 263 Line : 209 Array index out of range [1] , in File :
C:\temp\test\test.bas
Error : 104 Line : 209 LoadReg error [_XMEGAREG(1)] , in File :
C:\temp\test\test.bas
Error : 5 Line : 209 No more space for BIT [_XMEGAREG(1)] , in
File : C:\temp\test\test.bas
Error : 5 Line : 209 No more space for BIT [_XMEGAREG(1)+1] ,
in File : C:\temp\test\test.bas
Error : 5 Line : 209 No more space for BIT [_XMEGAREG(1)+2] ,
in File : C:\temp\test\test.bas
Error : 320 Line : 209 [syntax error, token = '{'] , in File :
C:\temp\test\test.bas
Error : 320 Line : 209 [syntax error, token = '{'] , in File :
C:\temp\test\test.bas
Error : 320 Line : 209 [syntax error, token = '{'] , in File :
C:\temp\test\test.bas
[\code]
Die Zeile 209 gibts gar nicht mehr in meinem Programm. Das Programm geht
nur bis 208.
Das ist mein Programm
[code]
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Porta = Output
Config Sda = Portc.1 ' I2C Bus
konfigurieren
Config Scl = Portc.0
Const Ds1307w = &HD0 ' Addresse
der Ds1307 Uhr
Const Ds1307r = &HD1
Config Clock = User ' Interne
Time/Date Routinen für Bascom konfigurieren
Config Date = Dmy , Separator = .
Time$ = "09:00:00"
Date$ = "24.02.11"
Dim _ta As Integer
_ta = 1
If _ta = 1 Then
Porta = 0
Waitus 250
Porta = 0
Waitus 250
Porta = 0
Waitus 250
Porta = 255
Waitus 250
Porta = 0
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 2 Then
Porta = 159
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 241
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 3 Then
Porta = 255
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 129
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 4 Then
Porta = 240
Waitus 250
Porta = 16
Waitus 250
Porta = 16
Waitus 250
Porta = 63
Waitus 250
Porta = 16
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 5 Then
Porta = 241
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 159
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 6 Then
Porta = 255
Waitus 250
Porta = 137
Waitus 250
Porta = 137
Waitus 250
Porta = 137
Waitus 250
Porta = 143
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 7 Then
Porta = 128
Waitus 250
Porta = 128
Waitus 250
Porta = 128
Waitus 250
Porta = 128
Waitus 250
Porta = 255
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 8 Then
Porta = 255
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 145
Waitus 250
Porta = 255
Waitus 250
Porta = 0
Waitus 250
Elseif _ta = 9 Then
Porta = 241
Waitus 250
Porta = 241
Waitus 250
Porta = 241
Waitus 250
Porta = 241
Waitus 250
Porta = 241
Waitus 250
Porta = 255
Waitus 250
Porta = 0
Waitus 250
End If
' Punkt:
' Porta = 0
' Waitus 250
' Porta = 1
' Waitus 250
' Porta = 0
' Waitus 250
' Doppelpunkt:
' Porta = 0
' Waitus 250
' Porta = 36
' Waitus 250
' Porta = 0
' Waitus 250
Dim Weekday As Byte
Getdatetime:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Ack
I2crbyte Weekday , Ack
I2crbyte _day , Ack
I2crbyte _month , Ack
I2crbyte _year , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year =
Makedec(_year)
Return
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year =
Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte _day
I2cwbyte _month
I2cwbyte _year
I2cstop
Return
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte _sec
I2cwbyte _min
I2cwbyte _hour
I2cstop
Return
End
[\code]