bit index out of range for supplied data type

[Sam (Gast)]

Hi,

ich hab folgendes Problem mein Code lässt sich nicht compilieren.

Der code hat bisher nur Hilfsroutinen und soll ein Byte in 8 bit 
splitten und diese ausgeben. Da der MAX7219 bis zu 10 Mhz Frequenz 
verkraftet, müsste ich mit einem 8Mhz Takt keine Wartezeiten 
einprogrammieren.

Ich glaube für solche Sachen wäre C besser geeignet, allerdings glaube 
ich, dass ich zu Testzwecken schneller mit bascom bedient bin. In C käme 
der Fehler glaub ich nicht.

Hier noch das wichtigste der Code:

$regfile = "m8def.dat"
$crystal = 8000000

Declare Sub Writebit(byval State As Bit)
Declare Sub Writebyte(byval State As Byte)
Declare Sub Opmode(byval State As Bit)

Config Portd = Output

'Max initalization



'Functions
Sub Writebit(byval State As Bit):
Portd.0 = State
Portd.1 = 1
Portd.1 = 0
End Sub

Sub Writebyte(byval State As Byte):
Dim Iquad As Byte
Dim I As Byte
Dim Sol As Bit
For I = 0 To 7
Iquad = 2 ^ I
Sol = state And Iquad
Call Writebit(sol)      'Hier ist der Fehler.
Next
End Sub

Sub Opmode(byval State As Bit):
End Sub

[Karl H. (kbuchegg)]

> Call Writebit(sol)      'Hier ist der Fehler.

Sicher?

Nicht eher hier?
> Sol = state And Iquad

Wenn du 2 Bytes verundest, kriegst du wieder 1 Byte heraus, bei dem (in 
deinem Fall) das I-te Bit enteder 0 oder 1 ist, je nachdem welchen 
Zustand das Bit in state hatte. Aber du kriegst nicht ein einzelnes Bit!

[Sam (Gast)]

danke, das ist der Fehler.

Aber wie kann ich wie in c das schreiben:

Byte b;
Bit b2;
//[...]
b2 = b == 1;

So geht es nicht

Dim b as Byte
Dim b2 as Bit
'[...]
b2 = (b = 1)

Muss man in Bascom dafür wirklich IF nutzen???

[Sam (Gast)]

irgedwie funzt nicht mal das: Call Writebit(1)