Bascom AVR Random Befehl Problem
Moin alle zusammen,
habe hier ein kleines Problem und zwar möchte ich mit Hilfe eines AT Tiny 13 einen kleinen elektronischen Würfel per Zufallsgenerator, sprich "var = Rnd()"
programmen. Das Problem ist nun, dass Bascom in der Zeile der Dimensionierung der Variable und an der Zeile der Wertdefinierung (X = Rnd(6)) etwas zu meckern hat.
Hier mal der Quelltext:
$regfile = "attiny13.dat"
$crystal = 4000000
Config Pinb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Start:
Dim X As Byte
Do
If Pinb.0 = 1 Then
X = Rnd(6)
End If
If X = 0 Then
Portb.1 = 0
Portb.2 = 0
Portb.3 = 1
Portb.4 = 0
End If
If X = 1 Then
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Portb.4 = 1
End If
If X = 2 Then
Portb.1 = 0
Portb.2 = 0
Portb.3 = 1
Portb.4 = 1
End If
If X = 3 Then
Portb.1 = 0
Portb.2 = 1
Portb.3 = 0
Portb.4 = 1
End If
If X = 4 Then
Portb.1 = 0
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
End If
If X = 5 Then
Portb.1 = 1
Portb.2 = 1
Portb.3 = 0
Portb.4 = 1
End If
Loop
End
----------------------------------------------
Wäre nett wenn mir jemand sagen könnte was daran genau falsch ist.
Als Fehler werden Error 22 (Dim X As Byte)
und Error 46 (X = Rnd(6))
angegeben.
mfg
Paulschen97