Прошу помощи с прошивкой PIC 12f675

Поклонники продукции Microchip Technology Inc тусуются тут.
Ответить
ALEXX_FOXX
Родился
Сообщения: 1
Зарегистрирован: Ср окт 26, 2022 17:41:17

Прошу помощи с прошивкой PIC 12f675

Сообщение ALEXX_FOXX »

Прошу сразу прощения, я не силен в программировании, прошу помочь ну или натолкнуть на правильные мысли - примеры. В общем суть проблемы, есть такой код, но мне нужно на выходе "led" получать импульсы как на входе "tacho" но имея возможность сдвигать их "поздже" сейчас единственное чего я добился это команда "pulsout" но конечно это совсем не то, прошу не закидывать камнями, я честно перекопал весь интернет в поисках хотя бы чего то похожего, но увы, сдаюсь. Забыл написать, частоты до 400 герц

Код: Выделить всё

@ DEVICE PIC12F675,intrc_osc_noclkout '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 = %010101
ANSEL = 0                      
CMCON  = %00000111        


CLEAR
         
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
        
          ENDIF
     IF PERIOD < STORED then
     pulsout led, period 
      
   
     ENDIF
goto main
END
Реклама
Ответить

Вернуться в «PIC»