Option COLOURCODE ON
'AD9833 SIGNAL generator 1OHz -12.5MHz|uMiteII chip=MX170, FW 4.7b23 Fsyn= pin 6,Clk=pin 25,Data= pin 3
Option Explicit
Option default Integer
CPU 40
Const RstOn= &H2100
Const RstOff=&H2000
Const CS=5
Const Fsync=6
'AD9833 Pins Defition
Pin(CS)=1
SetPin CS,dout
Pin(Fsync)=1
SetPin Fsync,dout
Dim PK!
Dim Phase = 0, Phase0 = &HC000, Phase1 = &HE000
Dim Freq , Freq0 = 1000000, Freq1 = 2000000
Dim Konst = 100000000
Dim Vak = 1073743824 '1073741824
Dim FreqH, Cislo1=&H575A, Cislo2=&H428F, Cislo3
Dim TunningWord$, TWL$,TWH$
'__________________________________________________________________________
AD9833_update 'First run
'**************************** Main *****************************************
'Starting frequency
Do
Input "Enter desired Frequence (10Hz - 12.5MHz): ",Freq
If Freq > 12500000 Then Freq=12500000
If Freq < 10 Then Freq=1000000
Cislo3 = (Freq * Vak)/Konst
TunningWord$=Hex$(Cislo3)
Cislo1=Cislo3 And &H3fff
FreqH=Cislo3 >> 14
Cislo2=FreqH And &H3fff

Do
PK!= Len(TunningWord$)
If PK! <7 Then TunningWord$= "0"+TunningWord$
'Print "PK!="; PK!
Loop Until PK!>6
Print"===================================================================="
Print Freq%;"Hz","Tword ";Cislo3%;" Dec ";,TunningWord$;" Hex"
Print"--------------------------------------------------------------------"
Print "Tuning Word High 14bit Dec ";" TWordH ";Cislo2%,"TWordL ";Cislo1%
Print "..................................................................."
TWH$=Hex$(Cislo2%)
Do
PK!= Len(TWH$)
If PK! <4 Then TWH$= "0"+TWH$
'Print "PK!="; PK!
Loop Until PK!>3
TWL$=Hex$(Cislo1%)
Do
PK!= Len(TWL$)
If PK! <4 Then TWL$= "0"+TWL$
'Print "PK!="; PK!
Loop Until PK!>3
Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
Print " AD9833 Signal Generator (SINE,TRIANGLE,SQUARE) 12.5MHz Clock (eBay) "
Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
Print "Tuning Word: High (14bits) Hex: " TWH$;" Low 14bits Hex :",TWL$
Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
' 2^28 / MCLK ( for 25MHz it is about 10.73741824)
'Add &H4000 to LSB And MSB
Cislo1=Cislo1+16384
Cislo2=Cislo2+16384
TWL$=Hex$(Cislo1)
TWH$=Hex$(Cislo2)
'----------------------------------
Print "RstOn= ",Hex$(RstOn),"Hex"
Print "LSB = ",TWL$,"Hex"
Print "MSB = ",TWH$,"Hex"
Print "Phase=",Hex$(Phase),"Hex"
Print "RstOff=",Hex$(RstOff),"Hex"

AD9833_F1


Loop


Sub AD9833_update
SPI Open 10000000,2,16
Poke word &HBF805830,1
Pin(6) = 0
Pause 0.1
SPI WRITE 5, RstOn,CISLO1,CISLO2,Phase,RstOff
Pause 0.1
Pin(6) = 1
SPI Close
End Sub

Sub AD9833_F1
SPI Open 10000000,2,16
Poke word &HBF805830,1
Pin(6) = 0
Pause 0.1
SPI WRITE 4, RstOn,CISLO1,CISLO2,RstOff
Pause 0.1
Pin(6) = 1
SPI Close
End Sub


End