[ MILANAN @ 08.12.2022. 19:26 ] @
| Pozdrav svima.Zatrebala mi je nabrzinu neka PWM regulacija za neki grejac i da negubim vreme nabrzinu sam nesto skinuo sa interneta,sve to lepo radi ali malo me je zainteresovao taj program sto sam skinuo jer neke stvari nekapiram pa da zamolim za neko krace objasnjenje Postavicu ceo program pa ovaj deo izmedju linija define osc 4 PORTA=0:portb=0 TRISB=%00111111 TRISA=%00000000 ON INTERRUPT GoTo KESME 'kesme oluþursa KESME adlý etikete git. OPTION_REG=%00001000 'Pull up dirençleri ÝPTAL- Bölme oraný 1/1 INTCON=%10100000 'Kesmeler aktif ve TMR0 kesmesi aktif CMCON=7 '16F628 de komparatör pinleri iptal hepsi giriþ çýkýþ R var byte RH VAR BYTE RL VAR BYTE I VAR BYTE CLEAR 'PAUSE 200 TMR0=243 R=50 RH=r:RL=100-rH PORTA=%00000111 BASLA: IF PORTB.0=0 THEN R=R+1:IF R=100 THEN R=99 GOSUB DELAY ENDIF IF PORTB.1=0 THEN R=R-1:IF R=0 THEN R=1 GOSUB DELAY ENDIF GOTO BASLA DELAY: FOR I=0 TO 255:NEXT FOR I=0 TO 255:NEXT FOR I=0 TO 255:NEXT FOR I=0 TO 255:NEXT FOR I=0 TO 255:NEXT RETURN DISABLE KESME: ------------- ovaj deo ovde-------------------- IF PORTA.0=1 THEN RH=RH-1 IF RH=0 then PORTA.0=1-PORTA.0 >>>>>>-------------------- OVO OVDE RH=R endif ELSE RL=RL-1 IF RL=0 THEN PORTA.0=1-PORTA.0 >>>>>>-------------------- OVO OVDE RL=100-Rh ENDIF ENDIF -------------------------------------------- TMR0=243 INTCON.2=0 RESUME ENABLE END |