wenn ich in einer Schleife alle Register durchgehe
bekomme ich als Antwort abwechselnd 0 und 255:Code:Dim Vers As String * 50 Vers = "opt Maus 0001" Ddr_sck Alias Ddrb.5 Ddr_sdio Alias Ddrb.4 Port_sck Alias Portb.5 Port_sdio Alias Portb.4 Pin_sdio Alias Pinb.4 Dim Data_byte As Byte Dim Write_byte As Byte 'Print "Hallo" Print Vers Print Ddr_sck = 1 Ddr_sdio = 1 Port_sck = 1 Port_sdio = 1 'Call Adns2610_write_operation(&H00 , &H80) Waitus 250 Write_byte = &H00 Do Wait 2 ' write byte 1 #1000 0000 ... ' read byte ... Print "Register: " ; Write_byte ; " read: " ; Data_byte Write_byte = Write_byte + 1 Write_byte = Write_byte Mod 30 Loop End
Code:opt Maus 0001 Register: 0 read: 0 Register: 1 read: 255 Register: 2 read: 0 Register: 3 read: 255 Register: 4 read: 0 Register: 5 read: 255
???
Stimmt das Timing nicht?






Zitieren
Lesezeichen