Paulschen97
26.03.2012, 20:16
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
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