
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo - tja, mist.. daraus: define blink port[16] define light byteport[1] define SDA port[9] define SCL port[10] '-------------------------- '---- SYSTEM MEMORY ------- '-------------------------- LCD.INIT LCD.OFF blink =on light =on import "....\LIB\IIC_ERROR.BAS" '------------------------------------------------------ FUNCTION SHOW_DEVICE(ADDR as byte) PRINT "FOUND AT: " & ADDR END FUNCTION '----------------------------------------------------- #MAIN '----------- EINSCHALT MELDUNG------------------------ blink=off PRINT "IIC-DEVICE SEEK" pause 50 '----------------------------------------------------- '-- SUCHE NACH IIC-EINHEITEN MIT ADRESSE xxxxxxx0 ---- '----------------------------------------------------- #LOOP define COUNTER as byte '-------- ADRESSEN DURCHZÄHLEN ---------------------- for COUNTER=0 to 254 step 2 '-------- IIC DEVICE ANSPRECHEN ---------------------- if (IIC_RESPONSE(COUNTER)= off) then SHOW_DEVICE(COUNTER) END IF NEXT COUNTER '------- wird das hier..: IC-DEVICE SEEK FOUND AT: 0 FOUND AT: 2 FOUND AT: 4 FOUND AT: 6 FOUND AT: 8 FOUND AT: 10 FOUND AT: 12 FOUND AT: 14 FOUND AT: 16 FOUND AT: 18 FOUND AT: 20 FOUND AT: 22 FOUND AT: 24 FOUND AT: 26 FOUND AT: 28 FOUND AT: 30 FOUND AT: 32 FOUND AT: 34 FOUND AT: 36 FOUND AT: 38 FOUND AT: 40 FOUND AT: 42 FOUND AT: 44 usw.. bis 254 Programm nicht in ordnung?? Bin gerade zu müde um mich da jetzt noch weiter drin zu vertiefen.. Die 74 hab ich genommen, weil da die A-Reihe anfängt - wenn ich mich nicht versehe.. Hätt ja sein können.. Donke! Grüße *gähn*, Martin |
| Antwort schreiben |