ich habe jetzt mal mein glück versucht...
code master:
code slave:Code:$regfile = "M8def.dat" ' the chip we use $crystal = 8000000 Config Sda = Portc.4 Config Scl = Portc.5 i2cinit Dim X As Byte X = 59 Do I2csend 10 , X , 1 Waitms 100 Loop
Code:$regfile = "ATtiny2313.DAT" $crystal = 8000000 $baud = 9600 $framesize = 128 $swstack = 128 $hwstack = 128 Usicr = &B11111000 'Config Portb.5 = Input 'Config Portb.7 = Input Dim X As Byte On Uci_start Usis On Uci_ovflw Usio Enable Interrupts Config Portd.6 = Output Print "test" Print Usidr Do Waitms 100 Print X Loop Usis: 'Usidr = 0 Usisr.0 = 0 Usisr.1 = 0 Usisr.2 = 0 Usisr.3 = 0 Usisr.7 = 1 Return Usio: X = Usidr Usisr.6 = 1 Usisr.0 = 0 Usisr.1 = 0 Usisr.2 = 0 Usisr.3 = 0 Return
aber ich erhalte bei der ausgabe von x immer nur 59... eigentlich sollte ja zuerst die adresse mit read/write kommen..... kann mir da jemand helfen???






Zitieren


Lesezeichen