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