Du kannst die PWM einfach mit einer For-Next-Schleiße hochfahren.

Hier ist ein Beispiel:

Enable Interrupts
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1

'ich hab eine 10-Bit-PWM genommen, du kannst aber auch 8 bit nehmen

Dim I As Word ' Laufvariable

For I = 0 To 1023 ' bei 8 Bit PWM entsprechend ...to 255
Pwm1a = I

waitus 10
' <--- Hier kannst du einen Wert für eine Wartezeit in µs eintragen.
' So kannst die die Geschwindigkeit der Rampe einstellen

Next I
Do

' PWM auf maximum lassen und Warteschleiße, bis der Saft abgedreht wird..
Loop

Gruß sigo