software PWM

{
*****************************************************************************
*  Name    : UNTITLED.BAS                                                   *
*  Author  : [select VIEW...EDITOR OPTIONS]                                 *
*  Notice  : Copyright (c) 2022 [select VIEW...EDITOR OPTIONS]              *
*          : All Rights Reserved                                            *
*  Date    : 6/1/2022                                                       *
*  Version : 1.0                                                            *
*  Notes   :                                                                *
*          :                                                                *
*****************************************************************************
}
Device = 18F43K22
Clock = 8

// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true       // automatically call setalldigital
Include "setdigitalio.bas"

// hardware
Dim INDEX  As LongWord  //4294967295
Dim Counter As Word
Dim Counter_up As Word
Dim Counter_down As Word
Dim m As Byte
Dim w As Byte
Dim x As Byte
Dim y As Byte
Dim z As Byte
Dim Bright_1 As LongWord        // a wider range of settings FOR A SMOOTHER TRANSITION
Dim Dimmer_1 As LongWord
Dim Bright_2 As LongWord        // a wider range of settings
Dim Dimmer_2 As LongWord
main:
// init hdw
     // bright is initial ON  time
// dimmer is initial OFF time
// stop is end value (loop until bright = stop)
// A, B, C, and D are port values
Sub Fade(bright As Word, dimmer As Word, stop As Word, A As Byte, B As Byte, C As Byte, D As Byte)
    Dim dir As Boolean
 
    // figure out direction and account for 'repeat-until' end
    If (bright < dimmer) Then
        dir = true                // increase ON time
        stop = stop + 1
    Else
        dir = false                // increase OFF time
        stop = stop - 1
    EndIf
 
    Repeat
        PORTA = A            // ON time
        PORTB = B
        PORTC = C
        PORTD = D
        DelayUS(bright)
      
        PORTA = 0            // OFF time
        PORTB = 0
        PORTC = 0
        PORTD = 0
        DelayUS(dimmer)
 
        If (dir) Then
            bright = bright + 1        // increase ON time
            dimmer = dimmer - 1        // decrease OFF time
        Else
            bright = bright - 1        // decrease ON time
            dimmer = dimmer + 1        // increase OFF time
        EndIf
    Until (bright = stop)
End Sub
// LED port - all outputs 2 LEDs per port in parallel 330 ohm resistor
TRISA = 0
TRISB = 0
TRISC = 0
TRISD = 0
TRISE = 0
   PORTE=%000
   PORTD=%00000000
   PORTC=%00000000
   PORTA=%00000000
   PORTB=%00000000   
     // bright is initial ON  time
// dimmer is initial OFF time
// stop is end value (loop until bright = stop)
// A, B, C, and D are port values

main:
While (true)
    // fade brightness up
    Fade(1, 5000, 3000, %11001111, %00000111, %00010001, %10001110)

    // fade brightness down
    Fade(5000, 1, 1, %11001111, %00000111, %00010001, %10001110)
End While

device = 18F43K22
clock = 8

// int osc and IO pin libraries
include "intosc.bas"
#option DIGITALIO_INIT = true       // automatically call setalldigital
include "setdigitalio.bas"


// bright is initial ON  time
// dimmer is initial OFF time
// stop is end value (loop until bright = stop)
// A, B, C, D and E are port values
sub Fade(bright as word, dimmer as word, stop as word, A as byte, B as byte, C as byte, D as byte, E as byte)
    dim dir as boolean
  
    // figure out direction and account for 'repeat-until' end
    if (bright < dimmer) then
        dir = true                // increase ON time
        stop = stop + 1
    else
        dir = false                // increase OFF time
        stop = stop - 1
    endif
  
    repeat
        PORTA = A            // ON time
        PORTB = B
        PORTC = C
        PORTD = D
        PORTE = E and %111  // only three bits (RE0-RE2)
        delayus(bright)
      
        PORTA = 0            // OFF time
        PORTB = 0
        PORTC = 0
        PORTD = 0
        PORTE = 0
        delayus(dimmer)
  
        if (dir) then
            bright = bright + 1        // increase ON time
            dimmer = dimmer - 1        // decrease OFF time
        else
            bright = bright - 1        // decrease ON time
            dimmer = dimmer + 1        // increase OFF time
        endif
    until (bright = stop)
end sub

main:
// init hdw
// LED port - all outputs 2 LEDs per port in parallel 330 ohm resistor
// 18 blue leds, 16 white leds = 34 total
TRISA = 0
TRISB = 0
TRISC = 0
TRISD = 0
TRISE = 0       // RE3 is input-only

PORTA = 0
PORTB = 0
PORTC = 0
PORTD = 0
PORTE = 0

while (true)
    // fade brightness up
    Fade(1, 5000, 3000, %11001111, %00000111, %00010001, %10001110, %101)

    // fade brightness down
    Fade(5000, 1, 1, %11001111, %00000111, %00010001, %10001110, %101)
end while