basic dilinde spwm için sinus dalgası elde etmede sorun yaşıyorum yardım!

[cemilcemil]

'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 03.03.2010 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
INCLUDE "modedefs.bas"
TRISB = 0
TRISA = 255
PORTB=0
PORTA=0
B var byte
K VAR BYTE
toplam var word
v var byte
;_______________________________________--
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 2
DEFINE ADC_SAMPLEUS 60
ADC1 VAR WORD
GEN VAR BYTE
ADCON1=%10000010

basla:
toplam=0
K=0
For V=1 To 10
ADCIN 0,adc1
TOPLAM=TOPLAM+adc1
NEXT V
adc1=TOPLAM/10
FOR B=0 TO 255 step 2
K=sin B +127
pauseus 300
pauseus 3*adc1

PORTB=0
IF K.BIT0=1 THEN PORTB.0=1
IF K.BIT1=1 THEN PORTB.1=1
IF K.BIT2=2 THEN PORTB.2=1
IF K.BIT3=1 THEN PORTB.3=1
IF K.BIT4=1 THEN PORTB.4=1
IF K.BIT5=1 THEN PORTB.5=1
IF K.BIT6=1 THEN PORTB.6=1
IF K.BIT7=1 THEN PORTB.7=1
next B
;__________________________________________________
GOTO basla

arkadaşlar yukardaki programda 0-60 hz arasında frekansı ve genliği değişen sinus dalga elde etmeye çalışıyom..yalnız 2 pot bağlayıp genlik ve freknası ayrı ayrı oynayıp sınuç almak istiyorum .bir türlü genlik ile frekansı birbirinden bağımsız bırakamıyorum?
yardımcı olun lütfen....