Pin(16)=1:SetPin 16,dout  'for CS
valpot=&h1  'value to output

Do
 Pin(16)=0  'active cs
 SPI open 5000000,3,8
 junk=SPI(0)
 byte1=SPI(valpot)
 Pin(16)=1
 SPI close
 Pause 1000
 valpot=valpot+1
 if valpot=64 then valpot=1
Loop

' sets the digital potentiometer (0-255)
' derived from an example written by Peter Mather (matherp on the Back Shed forum)
' note that when running on 3.3V the maximum undistorted level is 211
Sub SetLevel
 Local Integer x = (Level/100) * 211
 SPI Open 1000000, 2, 16
 Pin(CS) = 0
 SPI write 1, x Or &H1100
 Pin(CS) = 1
 SPI Close
End Sub

const pincs=60  'chipselect mcp4131
const pinrel=16  'I have led on this pin
const pinvl=30   'pin for ana read value
dim i as integer
dim valpot as integer
dim valin as float

setpin pinrel,DOUT
SetPin pincs,dout
setpin pinvl, ain

Pin(pincs)=1
Pin(pinrel)=1
valpot=&h1  'value to output

SetTick 500, task1,1    ' tache de base a faire toutes les 10ms  utile pour eteindre led de signalisation
do
Pin(pincs)=0  'active cs
SPI open 10000000,0,16
junk=SPI(0)
spi write 1,valpot
Pin(pincs)=1
SPI close
valpot=valpot+1
if valpot=>256 then valpot=1
pause(50)
  valin=pin(pinvl)
 print "pot=";str$(valpot);"   lue:";str$(valin)
loop


sub task1()
pin(pinrel)=(pin(pinrel) xor 1)
end sub