Wenn wir das Selbe meinen den RS232 I²C adapter dann brauch man nicht basic zu ver stehen es geht einfach darum die Status Leitungen der RS232 so zu Takten das I²C dabei raus kommt.
Programiers du unter windows ?Code:Sub set_sda(zustand As Boolean) DTR setezen MSComm1.DTREnable = zustand End Sub Sub set_scl(zustand As Boolean) RTS Setzen MSComm1.RTSEnable = zustand End Sub Function get_scl() As Boolean // CTSSetzen get_scl = MSComm1.CTSHolding End Function Function get_sda() As Boolean // DTR Leitung setzen get_sda = MSComm1.DSRHolding End Function






Zitieren

Lesezeichen