PWMVar var byte
ADRes var byte
PWMVar=(ADRes*150)/255