pulsout InitSetupPin, 10
октября 22, 2009 by 
admin
pulsout InitSetupPin, 10 ‘Установка аппаратного обеспечения для считывания импульса high InitPin Обращение к выходу, чтобы вызвать импульс длительностью 150 мс pulsin FlightPin, 0, SoundFligh if (SounSFlight о 0) then debug “Time of Flight is dec ‘ “Время полета ” SoundFlight * 2-, I msl, cr Soundln = SoundFlight / 153 SoundFt = Soundln / 12: Soundln = Soundln //12 debug “Distance from Sensor to Object dec SoundFt, ” * ” , dec Soundln, rep 34\1, cr ‘ “Расстояние от датчика до объекта ” endif
Posted in Интересное | 