Ви не увійшли.
Сторінки 1
есть исходный код под пик
А чем pic не устраивает?
@ DEVICE PIC12F675,INTOSC 'Set oscillator - internal  
DEFINE OSC 4           ' Internal Freq. 4 MHz
TACHO  var GPIO.0
LED    var GPIO.1
SETB   var GPIO.4
HPULSE VAR WORD
LPULSE VAR WORD
PERIOD VAR WORD
STORED VAR WORD
TRISIO = %010001                           
ANSEL  = 0                
CMCON  = %00000111         
main:
READ 0, STORED.Byte0
READ 1, STORED.Byte1
pulsin TACHO, 0, LPULSE
pulsin TACHO, 1, HPULSE
PERIOD = LPULSE+HPULSE
IF SETB = 0 THEN
WRITE 0, PERIOD.Byte0
WRITE 1, PERIOD.Byte1
ENDIF
IF PERIOD = 0 THEN
LED = 0
PAUSE 60 ' 
LED = 1
PAUSE 20 '
GOTO main
ENDIF
IF PERIOD < STORED THEN
' SOUND BIPPER,[120,10] - комментируем эту строку
LED = 0
PAUSE 17 ' - вставляем задежку между выключением
LED = 1
PAUSE 20 ' - и включением транзистора
ENDIF
goto main
END
Неактивний
Сторінки 1