Dfplayer ve WTV020-sd-mını sd kart modülünün pic ile kontrolü

[zerolax]

şuan uygun bir ortamım yok elimdeki hoporlorde çok buyuk ondan ses gelmez diye küçük bir anfi kullanayım dedim kaç watt a kadar ses çıkartabilirim çıkışını yakmazsam eğer direk hop takıyım

[F®T]

çıkış gücü 0.5 watt olmalı.dediğin şekli ile ses geliyorsa kalitesine bakma bence videodaki kalitede.çok uygulama için yeterli kalitede.

[zerolax]

haklısınız ya zaten başladım pic ile denemeye başarabilirsem paylaşacam burda kodları

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 14.02.2014                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@__config _XT_OSC & _WDT_ON & _LVP_OFF & _CP_OFF

DEFINE LOADER_USED 1

' ** Setup the Resonator Frequency, in Mhz **
Define OSC 4 

Baud con 84 ' 9600 baud rate

' ** Port configurations **
TX VAR PORTB.5
RX VAR PORTB.2
CLK VAR PORTA.4
DI Var PORTA.0
RESET VAR PORTB.6
PIEZO VAR PORTB.7

DAT VAR WORD
Idx VAR BYTE

counter var byte
volume var word

volume = 65527

'---------------------------------------------------------------------------

Init:
 'Configure all pins to digital operation since not using ADC
CMCON = 7 ' disable comparators

begin:
low piezo

dat = $FFF7 
serout2 tx,baud,["Voice Volume - 1st Data = ",bin16 dat,13,10]
GOSUB SendDat

dat = $4
' set counter to file no. 4
counter = 4
serout2 tx,baud,["Address 4 of voice file - 2nd Data = ",bin16 dat,13,10] 
GOSUB SendDat

playaddr:
dat = $fffe
serout2 tx,baud,["Play/Pause - 3rd Data = ",bin16 dat,13,10]
' GOSUB SendDat
GOSUB Playdata

' --------------------------------------------------------------------------
switch:

'if porta.2=0 then
' counter = counter - 1
' if counter<=1 then counter = 2
' dat = counter
' 
' serout2 tx,baud,["Address of voice file - 2nd Data = ",bin16 dat,13,10] 
' GOSUB SendDat
' goto playaddr
'endif

if porta.1=0 then
counter = counter + 1
if counter>=7 then counter = 6
dat = counter

serout2 tx,baud,["Address of voice file - 2nd Data = ",bin16 dat,13,10] 
GOSUB SendDat
goto playaddr
endif

' Reduce Volume
if porta.2=0 then
volume = volume - 1
if volume<=65520 then volume = 65527
dat = volume

serout2 tx,baud,["Address of voice volume = ",bin16 dat,13,10] 
GOSUB SendDat
'goto playaddr
endif

goto switch

STOP

'---------------------------------------------------------------------------

SendDAT:
LOW RESET ; 5ms reset pulse
PAUSE 5
INPUT RESET
PAUSE 300 ; 300ms before data

For Idx = 15 to 0 STEP -1 ; loop thru the bits
LOW CLK ; set CLK LOW
IF dat.0(Idx) THEN 
INPUT DI ; if bit = 1 then INPUT, not HIGH
ELSE
LOW DI ; if bit = 0 then LOW
ENDIF
PAUSE 1 ; data settle time
INPUT CLK ; clks data on rising edge
PAUSE 1 ; data read time
NEXT Idx ; do rest of the bits
INPUT DI ; leave data line tri-stated
RETURN


' --------------------------------------------------------------------------

Playdata:

LOW RESET ; 5ms reset pulse
PAUSE 5
INPUT RESET
PAUSE 1250 ; 300ms before data


For Idx = 15 to 0 STEP -1 ; loop thru the bits
LOW CLK ; set CLK LOW
IF dat.0(Idx) THEN 
INPUT DI ; if bit = 1 then INPUT, not HIGH
ELSE
LOW DI ; if bit = 0 then LOW
ENDIF
PAUSE 1 ; data settle time
INPUT CLK ; clks data on rising edge
PAUSE 1 ; data read time
NEXT Idx ; do rest of the bits
INPUT DI ; leave data line tri-stated
RETURN

bunu denedim ama başarılı olamadım yabancı bir forumda çalıştığını söylemişler acaba ben bağlantı hatası filan mı yapıyorum bide kafama takılan şey bu haberleşme spı ile değil mi shiftout kullanmıyacakmıyız neden serout2 ile yapmıs acaba

[zerolax]

yukardaki kodlarla seri iletişimde başarılı oldum ilgilenen herkese duyrulur
sonunda projelerimde sıkıntısız kullanıcam ya yardım eden herkese teşekkür ederim
modül pic ile sorunsuz haberleşiyor

[F®T]

tebrikler.ilk başta haberleşmeme sebebi neydi?hangi devreyi kullandın?videosunu çeksende görsek.

[zerolax]

Videoyu anca yarın koyabilirim telefon numaranı gonderebilirsen şimdi,anlatabilirim ama detaylı anlatımı yarın yapıcam bu başlık altında daha programı toparlıyorum birde misafirim var ilgilenemiyorum ama aklım hep orda

[F®T]

konuyu toparlarsan baştan sona kadar aşama aşama neler yaptın vs. en azından finalide sen yapmış olursun.güzel bir çalışma olur.tekrar tebrikler.

[zerolax]

Aynen aşama aşama anlatacam belki başka birilerinede yardımı dokunur

[zeus48]

Mrb arkadaşlar . Modul zaten işlemci ile haberleşiyor sorun yok . Fakat volum kontrolde sorunlar yaşayacaksınız . 8 kademem volum kontrol var   ama  ses keserken 4 den aşağıya  indiğinizde seste patlamalar olacak.  ad4 formatı kullanıyorsanız  örnekleme hızını 24000 yaparsanız sorununuz ortadan kalkacak..  Bu modul hakkında fazla deneyuimim v ar 3 projemde kullandım. Yardımcı olurum

[zerolax]

sen haberleşme kodlarını nasıl yazdın kardesim yukardaki kodları anlamak biraz zor benim için
shiftout bana bir örnek gönderebilirmisin yukardaki kodlar çalışıyor ama senddat kısmını bir türlü çözemedim

[F®T]

anladığım kadarı ile senddat kısmında modülün data alması için ön hazırlık yapılıyor.pdf deki haberleşme ile ilgili kombinasyona göre yazılmış.

[zerolax]

modül haberleşmeyi dı ile clk ayağından alıyor tx ayağı tamamen boşta

[Yasin]

Bu modüle Pic ile neler yaptırılabilir? Ses açma-kısma, istenilen ses dosyasını seçme vb. yaptırılabiliyor mu?

[zerolax]

Tabiki ama onerecegim bir urun degil stabil calısmıyor ses sentezleme isini kendiniz pwm veya dac ile yparsanız daha temiz bir sistem olur. Ornek olarak ise stm32f4 ile ses sentezleme yazarsanız karsınıza cıkar

[fofo]

Neden stabil çalışmıyor, biraz açabilirmisin?