'DY-SV17F Audio Module Mini MP3 Player.
'Fredrik Nissfolk 15 dec 2022
'
'DY_SV17F       PicoMite
'     1     1k     GP13
'     2     1k     GP12
'     9            GND
'     10    10k    GND
'     11    10k    GND
'     12    10k    3.3V (pin 14 on DY_SV17F)
'     13           VBUS (5V)
'     17 speaker-
'     18 speaker+

dim as integer a(11) 'command parts as hexadecimal
dim as string b$(11) 'coomand or message parts as string
dim as integer L 'nbr of bytes to send or received
DIM as string rcvd$ 'received string
SetPin GP13,GP12,COM1
Open "COM1:9600" As #1


dat$=Input$(10, #1) 'remove possible rubbish from RX-buffer
?""
?"Volume 10:"
a(1)=&HAA:a(2)=&H13:a(3)=&H01:a(4)=&H15: L=4 '4 bytes excluding the CRC-byte
Tx(L)
Pause 1000
'----------------------
?""
?"Equalizer:"
a(1)=&HAA:a(2)=&H1A:a(3)=&H01:a(4)=&H02: L=4
Tx(L)
Pause 1000
'----------------------
?""
Print "Current device:"
'Print #1,Chr$(&HAA);Chr$(&H09);Chr$(&H00);Chr$(&HB3) 'Query current online drive
a(1)=&HAA:a(2)=&H0A:a(3)=&H00: L=3
Tx(L)
Pause 1000 'wait for response
RX
if a(4)=2 then print "....flash"
if a(4)=0 then print "....usb"
IF a(4)=1 then print "....sd"
if a(4)=&HFF then print "....no device"
'----------------------
pause 1000
?""
?"Nbr of songs:"
'Print #1,chr$(&HAA);Chr$(&H0C);Chr$(&H00);Chr$(&HB6) 'Query number of songs
a(1)=&HAA:a(2)=&H0C:a(3)=&H00: L=3
Tx(L)
Pause 1000
'Print "LOC(#1) nbr of songs:";LOC(#1)
RX
Print"Number of stored songs:";a(5)
'----------------------
pause 1000


do
?"Specified song:"
a(1)=&HAA:a(2)=&H07:a(3)=&H02:a(4)=&H00:a(5)=&H0A: L=5 'a(5) is the song nbr
Tx(L)
Pause 3000
'----------------------
?""
Print "Play:"
'Print #1,Chr$(&HAA);Chr$(&H02);Chr$(&H00);Chr$(&HAC) 'Play
a(1)=&HAA:a(2)=&H02:a(3)=&H00: L=3
Tx(L)
Pause 1000
'----------------------
CheckPlayState
'----------------------

'----------------------
pause 1000
?""
?"Next song:"
'Print #1,Chr$(&HAA);Chr$(&H06);Chr$(&H00);Chr$(&HB0) 'Next
a(1)=&HAA:a(2)=&H06:a(3)=&H00: L=3
Tx(L)
'----------------------
CheckPlayState
'----------------------

'----------------------
Pause 1000

Loop
end

sub CheckPlayState 'stays in this loop until song is played
?""
Print "Check Play State:"
do
a(1)=&HAA:a(2)=&H01:a(3)=&H00: L=3
Tx(L)
Pause 1000
RX
loop until a(4)=0
end sub

SUB Tx L 'sends the command
sum=0
print "TX: ";
for i=1 to L
b$(i)=CHR$(a(i))
print #1,b$(i);
print " 0x";hex$(a(i),2);
sum=sum+a(i)
next i
CRC=sum and &HFF
print #1,CHR$(CRC);
print " 0x";hex$(CRC,2)
end sub

sub RX 'receives and decodes the received message
rcvd$=input$(LOC(#1),#1)
L=len(rcvd$):print "Len:";L
for i=1 to 10
a(i)=0
b$(i)=""
next i
print "RX: ";
for i=1 to L
b$(i)=MID$(rcvd$,i,1)
a(i)=str2bin(UINT8,b$(i))
print " 0x";HEX$(a(i),2);
next i
sum=0
for i=1 to L-1
sum=sum+a(i)
next i
crc=sum and &HFF
print "  CRC= 0x";hex$(crc)
end sub