20
« por SYLA0285 en 15 de Febrero de 2008, 17:05:08 »
...... código es para que no batallen mas con el sensor SRF02 y puedan medir perfectamente utilizo 9600 ............ ************************************ '* Name : SRF02 CON COMUNICACION I2C.BAS * '* ............ * '* Notes : Este programa utiliza un SRF02 (sensor de * '* : distancia ............ .4 ' I2CClockPIN VAR PortC.3 ' medida VAR WORD srfdevice VAR byte ' PARA SRF02 preprogramó los ............ $E0 srfdevice = $E0 B0 = %00000000 srfregister0 VAR byte ............ ' es el COMMANDregister del SRF02 srfregister0 = $00 srfreadregister2 VAR byte ' ............ de lectura srfreadregister2 = $02 srfreadregister3 VAR byte ' ............ de lectura srfreadregister3 = $03 srfreadregister4 VAR byte ' ............ de lectura srfreadregister4 = $04 srfreadregister5 VAR byte ' ............ de lectura srfreadregister5 = $05 reset VAR byte 'registro que ............ el modulo SRF02 cmcommand VAR byte cmcommand = 0 'Valor ............ ciclo EndIf i2cwrite I2CDatapin, I2CClockpin, srfdevice,srfregister0, [cmcommand]' MANDA AL SENSOR $ ............ pause 100 i2cread I2CDatapin, I2CClockpin,srfdevice,$02,[PB]' REGISTRO 2 ULTIMA MEDIDA ............ pause 1000 i2cread I2CDatapin, I2CClockpin,srfdevice,$03,[B1]' REGISTRO 3 ULTIMA MEDIDA ......