"SwitchPWM" - ?

[Jörn Arne]

Hallo zusammen

Irgendwann hatte ich mal den Einfall, zu versuchen, ob man den PWM Port eines µC via Multiplexing auf 'beliebig' viele Kanäle erweitern kann, das habe ich mir ähnlich wie das Multiplexing eines Dotmatrix oder 7-Segment -Feldes vorgestellt. Eine LED soll für eine bestimmte Zeit mit dem PWM Port verbunden werden und dann wieder getrennt. Der PWM Wert wird verändert und auf eine andere LED für die gleiche Zeit ausgegeben.

Ich weiß nicht ob das geht oder ob das schon realisiert wurde, deswegen der Thread. Weiter unten habe ich einen kleinen Schaltplan von meiner Testschaltung und das Assembler Listing des PIC

Das Multiplexing wird durch einen 4017 realsiert, der nach jedem Takt eine LED weiter schaltet

Hier mal das Listing:





include "p16f627.inc"

ERRORLEVEL -205
ERRORLEVEL -203

pwmPort equ d'3'
switchClock equ d'7'
switchReset equ d'6'

channelSelect equ 0x20
maxVal equ d'9' ;number of LEDs + 1
actualValue equ 0x22

pwmParamPort1 equ 0x30
pwmParamPort2 equ 0x31
pwmParamPort3 equ 0x32
pwmParamPort4 equ 0x33
pwmParamPort5 equ 0x34
pwmParamPort6 equ 0x35
pwmParamPort7 equ 0x36
pwmParamPort8 equ 0x37
pwmParamPort9 equ 0x38
pwmParamPort10 equ 0x39

org 0x00
goto init
org 0x04
;interrupt
retfie
init

MOVLW B'00000111' ;Disable Comparator module's
MOVWF CMCON

bcf T2CON, T2CKPS1 ;preScaler PWM
bcf T2CON, T2CKPS0
bsf T2CON, TMR2ON

BSF STATUS,RP0 ;bank 1
MOVLW B'11010111'
MOVWF OPTION_REG ;Write the OPTION register.
CLRF INTCON ;Disable interrupts
MOVLW B'00000000'
MOVWF TRISB ;RB7..RB0 are outputs.

movlw d'255' ;PWM freq
movwf PR2
BCF STATUS,RP0 ;Bank 1
CLRF PORTB ;clear portB

clrf CCP1CON
BSF CCP1CON, CCP1M3
BSF CCP1CON, CCP1M2

movlw d'0' ;PWM channelValues
movwf pwmParamPort1
movlw d'20'
movwf pwmParamPort2
movlw d'40'
movwf pwmParamPort3
movlw d'60'
movwf pwmParamPort4
movlw d'80'
movwf pwmParamPort5
movlw d'100'
movwf pwmParamPort6
movlw d'120'
movwf pwmParamPort7
movlw d'140'
movwf pwmParamPort8
movlw d'160'
movwf pwmParamPort9
movlw d'180'
movwf pwmParamPort10

movlw maxVal ;connected LEDS
movwf channelSelect ;selected channel
bcf PORTB, switchReset ;RESET PIN of 4017 low

goto main
;-----------------------------------
loadChannel
movlw 0x30 ;pointer offset
addwf channelSelect, w ;add selected channel
movwf FSR ;adress
movf INDF, w ;load Value
movwf actualValue ;pwmParamPort n -> actualValue
return
;-----------------------------------
writePWM
movf actualValue, W ;write pwmParamPort n to CCPR1L
movwf CCPR1L
return
;-----------------------------------
counter
decfsz channelSelect, F ;channelSelect--
return
movlw maxVal ;maxVal -> channelSelect
movwf channelSelect

bsf PORTB, switchReset ;resets the 4017
bcf PORTB, switchReset
return
;-----------------------------------
clock ;clocks the 4017
bcf PORTB, switchClock
bsf PORTB, switchClock
return
;-----------------------------------
delay_loop ;~2ms on 4MHZ
MOVLW D'25'
MOVWF 0x50
DEL_LOOP1 MOVLW D'25'
MOVWF 0x51
DEL_LOOP2 DECFSZ 0x51,F
GOTO DEL_LOOP2
DECFSZ 0x50,F
GOTO DEL_LOOP1
return
;--------------------------------------------------------------------
main
call loadChannel ;channel -> actualValue by channelselect
call writePWM ;actualValue to CCPTR1L
bsf PORTB, 2 ;enableSig (see schematic)
call delay_loop ;pause
bcf PORTB, 2 ;enableSig

call counter ;counter + 1 or reset
call clock ;next LED
;-------------------------
goto main
end


leider haut das nicht ganz mit den tabs hin

Das klappt soweit auch, aber der Effekt ist nicht ganz der gewünschte. Die LEDs flackern ein bischen, zwar unterschiedlich hell, aber man kann es nicht den eingestellten Werten zuordnen (Auch die LED mit dem Wert 0 leuchtet)


Wenn man den Code langsamer ausführt (längere pause) dann kann man schon verschiedene Helligkeiten erkennen, aber es soll schließlich ausehen als würde jede LED permanent leuchten

Vielleicht liegt es ja an der PWM Frequenz, dass diese weit über der 4017 Taktfrequenz liegen muss.


Nun ja, jetzt wollte ich euch mal fragen, was ihr davon haltet, ob das so funktionieren kann ob es Software oder Hardware Änderungen geben muss

Bin also dankbar für Beiträge und Kommentare

Gruß
Jörn Arne