اطلاعیه

Collapse
No announcement yet.

پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

    سلام به همه دوستان
    خوبین انشا ال.........
    من تونستم با وی اس 1011eو mmcو ای سی atmega23 فایل با فرمت mp3ایحاد کنم
    وارد پوشه های مختلف بشم و غیره
    فقط یه مشکلی نمی دوم چرا بعدد از یه روز کار کردن ای سی کدی رو که از سریال 485 میگره که به نسبت اون باید یه فایلی رو بخونه
    کد رو میگره و فایل مورد نظر رو از ام ام سی اجرا میکنه اما از وی اس هیچ صدایی خارج نمیشه
    فقط و فقط پای req رو فعال میکنه
    دوستان میتونن کمک کنند مشکل رو حل کنیم
    اگه توضیح بیشتر می خواین بپرسین مشکلی نیست
    من بعد از هر بار خوندن از ام ام سی اونو initمیکنم
    و قبل از هر ارسال یه بار وی اس رو ی init میکنم

    دیدگاه


      پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی



      حسام جان اگه داری از bascom استفاده میکنی دلیلش اینه که احتمالا پشته نرم افزاری و سخت افزاری رو توی برنامه مشخص نکردی از کد من که بالا گزاشتم استفاده کن


      نوشته اصلی توسط حامد رحیمی
      سلام
      بچه ها من تونستم از وی اس صدا دریافت کنم :wow: :wow: :wow: :wow:
      ولی این صدای دریافتی هست
      اهنگ 128 بیت ریته
      کریستال میکرو 12 و 8 رو تست کردم
      کریستال ای سی وی اس 12
      این صدارو دانلود کنید بگید چرا این طوری یه ترو خدا
      http://bargiri3.persiangig.com/vs1003/Untitled%20(2).mp3
      برنامه قبلی رو که اقای امین جان گذاشتن ریختم تو مگا 128
      مشکل شما از کریستال هست.حتما 12.288 بزارین تا صدا زیبا و رسا به گوشتون برسه حامد جان :agree:
      علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

      دیدگاه


        پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

        سلام
        اولا سال نو مبارک
        من می خواستم ببینم کسی در رابطه با این vs1003 چیزای بیشتری نمی دونه
        مثلا چه طوری می شه از اکو لایزر داخلیش استفاده کرد
        یا ولوم اونو کم و زیاد کنیم
        یا باهاش صدا ضبط کنیم
        و کلی امکانات دیگه که این ای سی داره
        با تشکر
        HB

        دیدگاه


          پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین 

          سال نو شمااااااا هم مبارکککککککککک

          اقای hb بد بختانه من نتونستم جوابی ا وی اس بگیرم ولی یه تعداد sram توی ایسی هست که با دستورات ساده میتونی او نارو تغیر بدی
          هر گونه تغیرات تو اسرم sram باید طبق جدول دیتا شیتش باشه همه کاری رو میتونی از اونجا انجام بدی
          ما که فلا گذاشتیم کنار البته اگه حرف من غلط باشه من قبول دارم
          ولی این استدلال من از این ایسی هست
          ومنتظر پاسخ بچه های با سوادم :cry2: :cry2:
          [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

          دیدگاه


            پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

            نوشته اصلی توسط hossienbarzegar
            سلام
            اولا سال نو مبارک
            من می خواستم ببینم کسی در رابطه با این vs1003 چیزای بیشتری نمی دونه
            مثلا چه طوری می شه از اکو لایزر داخلیش استفاده کرد
            یا ولوم اونو کم و زیاد کنیم
            یا باهاش صدا ضبط کنیم
            و کلی امکانات دیگه که این ای سی داره
            با تشکر
            HB
            سلام
            حرف اقا حامد کاملا درسته
            من هم صدا رو کنترل کردم و هم اکولایزر رو
            هر چند بیشتر کارا رو میشه با رجیسترهاش انجام داد ولی من خیلی از کنترل اکولایزرش خوشم نیومد
            علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

            دیدگاه


              پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

              اقا شما یه زحمتی بکش اینو به یه سیستم بزرگ صوتی نصب کن اون موقع میشه فهمید که اکو لایزرش چه طوره کاش منم میتونستم جواب بگیرم ولی هیشکی کمک نمیکنه :sad: :sad:
              بیخیال :bye
              [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

              دیدگاه


                پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                چرا حامد جان کسی کمک نمیکنه؟
                یه سر به چست های 2 یا 3 صفحه قبل بزن سورس و یرنامه و چی سی بی گزاشتم جیگر
                تازه تو وبلاگم هم هست

                عزیز فقط یه نکته داره.....چین ها رو نباید به هر جای میکرو وصل کنی.یه کم قلقی هست از این نظر
                اراده کم تو 1 روز راه میفته من پشتتم
                علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

                دیدگاه


                  پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                  دادش امید میدونی چیه 3 ماه روی این وی اس کار کردم البته نه به صورت خیلی محکم حالا حالم از اسمش به هم میخوره یه چند هفته دیگه شرو میکنم :applause: میزنمش زمین من تا حالا تو الکترونیک نمیتونم ندیدم :mrgreen:
                  [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

                  دیدگاه


                    پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین 

                    سلام بچها
                    من هم داره خوش خوش حالم از هرچی vs هست بهم میخوره
                    بار اول حدود 10 روز روی vs1003 معتل شدم حالا نوبت vs1011 شده که واقعا این یکی داره حال گیری میکنه!
                    خوب برم سر اصل مطلب

                    vs1011 من drec میده و همیشه یک هست چک کردم ببینم ایا دیتا میره به vs که با اسیلوسکوپ نگاه کردم دیدم بله دیتا میره اون هم با چه شتابی اخه drec که خاموش نمیشه پس میکرو همش میفرسته برنامه هم برنامه اقای کاخکی استفاده کردم که به گفته خوشون تست شده هست و توی چند صفحه قبل هستش با زبان بسکام

                    به نظر شما چکار کنم (drec همیشه روشنه)!
                    انجام پروژه های برنامه نویسی اندروید
                    [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                    http://cafebazaar.ir/app/?id=com.atxdroid

                    دیدگاه


                      پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                      سلام
                      عید همگی مبارک
                      آقای فاریابی شما فقط از برنامه من استفاده کردید یا مدارش هم همونه؟
                      من بدون هیچ مشکلی بارها از مدارش ساختم و ازش جواب گرفتم
                      یک نکته هست که اونم مقاومتی یه که با کریستال موازی شده ، خیلی مهمه حتما باید بگذارید
                      اگر این هم مشکلی نداشت صددرصد مشکل شما از لحیم کاریتون باید باشه
                      موفق باشید
                      پروردگارا: به من زیستنی عطا کن که در لحظه مرگ بر بی ثمری لحظه ای که برای زیستن گذشته است حسرت نخورم، و مردنی عطا کن که بر بیهودگیش سوگوار نباشم. بگذار تا آن را خود انتخاب کنم، اما آنچنان که تو دوست میداری

                      دیدگاه


                        پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                        سلام
                        محسن حان میتونی اینجوری تستش کنی xreset رو خودت بیار پایین بعدش اگر data request یا همون DREQ اومد پایین ای سی سالمه اگر نه.....


                        بچه ها حتی VS1003 هم خیلی رو ولتاژ ادا نداره من به همش 3.3ولت میدم به چز اون ولتاژ کوچیکه که 3.3 رو با یم دیود 1n4007 میدم
                        تنها ادای این ای سی اینه که کریستال دقیق---مفاومتش----2 تا خازن رو حتما بزارین و یه نکته خیلی خیلی مهم از برنامه هر کی استفاده میکنین واسه بار اول حتما پایه هایی رو که خودت برنامه نویس گزاشته تست کنید

                        من این VS1003 رو حتی روی میکرو کنترلر های ARM هم درایو کردم یه سادگی و بدون هیچ مشکل خاصی

                        روز های اول هم خیلی لنگش بودم دلیلش هم این بود که نباید روی هر پایه ای از میکرو بزارینش
                        علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

                        دیدگاه


                          پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین 

                          نوشته اصلی توسط امیر حسنی کاخکی
                          سلام
                          عید همگی مبارک
                          آقای فاریابی شما فقط از برنامه من استفاده کردید یا مدارش هم همونه؟
                          من بدون هیچ مشکلی بارها از مدارش ساختم و ازش جواب گرفتم
                          یک نکته هست که اونم مقاومتی یه که با کریستال موازی شده ، خیلی مهمه حتما باید بگذارید
                          اگر این هم مشکلی نداشت صددرصد مشکل شما از لحیم کاریتون باید باشه
                          موفق باشید
                          سلام من فقط برنامه پایه ها رو جا بجا کردم مگه جای پایه ها مهمه؟

                          نوشته اصلی توسط اٌمید حبیبی
                          سلام
                          محسن حان میتونی اینجوری تستش کنی xreset رو خودت بیار پایین بعدش اگر data request یا همون DREQ اومد پایین ای سی سالمه اگر نه.....


                          بچه ها حتی VS1003 هم خیلی رو ولتاژ ادا نداره من به همش 3.3ولت میدم به چز اون ولتاژ کوچیکه که 3.3 رو با یم دیود 1n4007 میدم
                          تنها ادای این ای سی اینه که کریستال دقیق---مفاومتش----2 تا خازن رو حتما بزارین و یه نکته خیلی خیلی مهم از برنامه هر کی استفاده میکنین واسه بار اول حتما پایه هایی رو که خودت برنامه نویس گزاشته تست کنید

                          من این VS1003 رو حتی روی میکرو کنترلر های ARM هم درایو کردم یه سادگی و بدون هیچ مشکل خاصی

                          روز های اول هم خیلی لنگش بودم دلیلش هم این بود که نباید روی هر پایه ای از میکرو بزارینش
                          سلام حق با شماست من هم به 1003vs ولتاژ های اشتباهی زیاد دادم ولی هیچ مرگش نزد !

                          از من هم احتمالا مشکل پایه هاش هست از کجا بدونم باید روی کدوم پایه ها بزارم؟



                          این هم برنامه اقای کاخکی البته با تغیراتی که من دادم روی پین های مرتبط با vs1011

                          کد:
                                                      [left]$regfile = "M64def.dat"                   'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
                          $crystal = 14745600                     'BUT this NOT TESTED
                          $baud = 128000
                          '-------------------------------------------------------------------------------
                          $swstack = 128
                          $hwstack = 128
                          $framesize = 1024
                          Config Date = Dmy , Separator = .
                          'Config Lcdpin = Pin , Db4 = Pinf.3 , Db5 = Pinf.2 , Db6 = Pinf.1 , Db7 = _
                          'Pinf.0 , Rs = Pinf.5 , E = Pinf.4
                          'Config Lcd = 16 * 2
                          'Cursor Off
                          'Cls
                          Config Portd = Input
                          Portd = 255
                          
                          '-------------------------------------------------------------------------------
                           Avanti Alias Pind.0
                          
                          Led Alias Porta.0
                          Led2 Alias Porta.1
                          Led3 Alias Porta.2
                          
                          
                           Vs_miso Alias Ping.1
                          Vs_mosi Alias Portc.0
                          Vs_clock Alias Portc.1
                             Xcs Alias Portc.2
                           Xreset Alias Portc.6
                            Dreq Alias Pinc.4
                            Bsync Alias Portc.5
                          '-------------------------------------------------------------------------------
                          Config Avanti = Input
                          Config Led = Output
                          Config Led2 = Output
                          Config Led3 = Output
                          
                          Config Vs_miso = Input
                          Config Vs_mosi = Output
                          Config Vs_clock = Output
                          Config Xcs = Output
                          Config Xreset = Output
                          Config Dreq = Input
                          Config Bsync = Output
                          '-------------------------------------------------------------------------------
                          Declare Sub Vs_init()
                          Declare Sub Soft_reset()
                          Declare Sub Vs_write(byval Vs_address As Byte , Byval Data1 As Byte , Byval Data2 As Byte)
                          Declare Function Vs_read(byval Vs_address As Byte) As Word
                          Declare Sub Send_mp3(byval Filename As String)
                          '-------------------------------------------------------------------------------
                          Const Vs_rd = &B0000_0011
                          Const Vs_wr = &B0000_0010
                          Const Vs_mode = 0
                          Const Vs_status = 1
                          Const Vs_clockf = 3
                          Const Vs_decode_time = 4
                          Const Vs_audata = 5
                          Const Vs_volume = 11
                          '-------------------------------------------------------------------------------
                          Dim B As Byte
                          Dim Test As Byte
                          Dim I As Integer
                          Dim J As Long
                          Dim Curbyte As Long
                          Dim S As String * 20
                          Dim Sample_rate As Word
                          Dim Bit_rate As Word
                          Dim Is_stereo As Word
                          Dim Audata As Word
                          Dim Filename As String * 11
                          Dim Mmc_data(512) As Byte
                          Dim Tempo_new As Word
                          Dim Tempo_old As Word
                          Dim Flag_read As Bit
                          Dim Flag_play As Bit
                          Dim Comando As String * 10
                          Dim Mode_low As Byte
                          Dim Mode_hig As Byte
                          Dim Volume As Word
                          Dim Volume_low As Byte
                          Dim Volume_hig As Byte
                          '-------------------------------------------------------------------------------
                          $include "Config_MMC.bas"
                          If Gbdriveerror <> 0 Then
                          Locate 2 , 1
                          Lcd "ERROR" ; Gbdriveerror
                           End
                           End If
                          $include "Config_AVR-DOS.BAS"
                          
                          B = Initfilesystem(1)
                          If B <> 0 Then Lcd "Errore MMC"
                          '-------------------------------------------------------------------------------
                          Bsync = 0
                          Xreset = 0
                          Xcs = 1
                          
                          Flag_play = 0
                          Flag_read = 1
                          '-------------------------------------------------------------------------------
                          '-------------------------- PROGRAM START -------------------------------------
                          '-------------------------------------------------------------------------------
                          Cls
                          '-------------------------------------------------------------------------------
                          '---------------------- crea una lista dei brani mp3 presenti sulla MMC --------
                          '-------------------------------------------------------------------------------
                          Open "List.txt" For Output As #9
                          S = Dir( "*.mp3")
                          While Len(s) > 0
                            Print S ; " " ; Filedate() ; " " ; Filetime() ; " " ; Filelen()
                            Print #9 , S
                            S = Dir()
                          Wend
                          Close #9
                          '-------------------------------------------------------------------------------
                          Locate 2 , 1
                          Lcd "VS1011 Init"
                          Vs_init
                          '-------------------------------------------------------------------------------
                          '--------------------------- MAIN PROGRAMM -------------------------------------
                          '-------------------------------------------------------------------------------
                          Do
                           Open "List.txt" For Input As #9
                              While Eof(#9) = 0
                                Line Input #9 , S
                                Call Send_mp3(s)
                              Wend
                           Close #9
                          Loop
                          End
                          '-------------------------------------------------------------------------------
                          '------------------------------ MP3 SUBROUTINES --------------------------------
                          '-------------------------------------------------------------------------------
                          Function Vs_read(byval Vs_address As Byte) As Word
                           Xcs = 0
                            B = Vs_rd
                            Shiftout Vs_mosi , Vs_clock , B , 1
                            Shiftout Vs_mosi , Vs_clock , Vs_address , 1
                            B = 0
                            Shiftin Vs_miso , Vs_clock , B , 1
                            Vs_read = B
                            Shift Vs_read , Left , 8
                            B = 0
                            Shiftin Vs_miso , Vs_clock , B , 1
                            Vs_read = Vs_read + B
                           Xcs = 1
                          End Function
                          '-------------------------------------------------------------------------------
                          '-------------------------------- WRITE ROUTINE --------------------------------
                          '-------------------------------------------------------------------------------
                          Sub Vs_write(byval Vs_address As Byte , Byval Data1 As Byte , Byval Data2 As Byte)
                           Xcs = 0
                            B = Vs_wr
                            Shiftout Vs_mosi , Vs_clock , B , 1
                            Shiftout Vs_mosi , Vs_clock , Vs_address , 1
                            Shiftout Vs_mosi , Vs_clock , Data1 , 1
                            Shiftout Vs_mosi , Vs_clock , Data2 , 1
                           Xcs = 1
                          End Sub
                          '-------------------------------------------------------------------------------
                          '------------------------------------- RESET -----------------------------------
                          '-------------------------------------------------------------------------------
                          Sub Vs_init()
                           Xreset = 0
                            Waitms 5
                           Xreset = 1
                            Waitms 10
                          
                           Do : Led = Dreq : Loop Until Dreq = 1
                           Vs_write Vs_mode , &H0 , &H4
                          
                           Do : Led = Dreq : Loop Until Dreq = 1
                           Mode_low.7 = 1
                           Vs_write Vs_mode , &H0 , Mode_low
                          
                           Do : Led = Dreq : Loop Until Dreq = 1
                           Vs_write Vs_clockf , &H0 , &H0
                          
                           Do : Led = Dreq : Loop Until Dreq = 1
                           Vs_write Vs_volume , &H0 , &H0
                          
                          End Sub
                          '-------------------------------------------------------------------------------
                          '--------------------------- SOFT RESET VS1001 ---------------------------------
                          '-------------------------------------------------------------------------------
                          Sub Soft_reset
                           Do : Led = Dreq : Loop Until Dreq = 1
                           Vs_write Vs_mode , &H0 , &H4
                          End Sub
                          '-------------------------------------------------------------------------------
                          '---------------------------- SEND FILE MP3 ------------------------------------
                          '-------------------------------------------------------------------------------
                          Sub Send_mp3(byval Filename As String)
                          Cls
                           Lcd "Play : " ; Filename
                           Soft_reset
                           Flag_read = 1
                           Flag_play = 0
                          
                           Open Filename For Binary As #10
                          
                           Do : Led = Dreq : Loop Until Dreq = 1
                          
                           While Eof(#10) = 0
                              Get #10 , Mmc_data(1) , , 512
                              Do : Led = Dreq : Loop Until Dreq = 1
                          
                              For I = 1 To 16
                                For J = 1 To 32
                                 Bsync = 1
                                  Shiftout Vs_mosi , Vs_clock , Mmc_data(curbyte) , 1
                                 Bsync = 0
                                Incr Curbyte
                                Next J
                              Do : Led = Dreq : Loop Until Dreq = 1
                              Next I
                            Curbyte = 1
                            Debounce Avanti , 0 , Esci , Sub
                            Flag_play = 1
                             If Pind.1 = 0 And Volume_low < 250 Then
                               Volume_hig = Volume_hig + 5
                               Volume_low = Volume_low + 5
                               Bsync = 0
                               Vs_write Vs_volume , Volume_hig , Volume_low
                             End If
                             If Pind.2 = 0 And Volume_low > 0 Then
                               Volume_hig = Volume_hig - 5
                               Volume_low = Volume_low - 5
                               Bsync = 0
                               Vs_write Vs_volume , Volume_hig , Volume_low
                             End If
                           Wend
                          
                          Esci:
                           Flag_play = 0
                           Close #10
                           For I = 1 To 2048
                            B = 0
                            Shiftout Vs_mosi , Vs_clock , B , 1
                           Next I
                           Locate 2 , 1
                           Lcd "MP3 End"
                          
                           Waitms 100
                          End Sub
                          '-------------------------------------------------------------------------------
                          [/left]
                          انجام پروژه های برنامه نویسی اندروید
                          [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                          http://cafebazaar.ir/app/?id=com.atxdroid

                          دیدگاه


                            پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                            نحوه شماره گزاری بر میگرده به spi نرک افزاری
                            پس مشکلتون همین بوده

                            برید برنامه من یا اقای کاخکی رو دانلود کنید دوباره

                            مهم نیست کدومش مهم اینه که دست به هیچ چی نزنید بار اول

                            جواب که گرفتب هی عوض کن ببین رو کدوم ها جواب میگیری
                            علم چندانکه بیشتر خوانی چون عمل در تو نیست نادانی

                            دیدگاه


                              پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                              نوشته اصلی توسط اٌمید حبیبی
                              سلام
                              محسن حان میتونی اینجوری تستش کنی xreset رو خودت بیار پایین بعدش اگر data request یا همون DREQ اومد پایین ای سی سالمه اگر نه.....
                              سلام امید جان
                              این کاری که شما گفتین من انجام دادم .
                              همین طور که شما گفتین اگه xreset رو صفر کنم drec هم صفر میشه و یه امتحان دیگه هم کردم Vs_init رو گزاشتم توی یه do...loop ال ای دی کم نور تر رو شن میشه (یعنی با سرعت بالا چشمک میزد) و صدای هدفون تند تند قطع وصل میشه!
                              انجام پروژه های برنامه نویسی اندروید
                              [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                              http://cafebazaar.ir/app/?id=com.atxdroid

                              دیدگاه


                                پاسخ : پخش فایل MP3 با VS1003 و ضبط صدا با فرمت WAV با همین آی سی

                                نوشته اصلی توسط اٌمید حبیبی
                                نحوه شماره گزاری بر میگرده به spi نرک افزاری
                                پس مشکلتون همین بوده

                                برید برنامه من یا اقای کاخکی رو دانلود کنید دوباره

                                مهم نیست کدومش مهم اینه که دست به هیچ چی نزنید بار اول

                                جواب که گرفتب هی عوض کن ببین رو کدوم ها جواب میگیری
                                من ترتیب پایه هام رو دقیقا مثل vs1003 گزاشتم و از vs1003 جواب هم گرفته ام حالا به دلیل محدودیت جا(ساخت ولتاژها) ناچارا رفتم دنبال vs1011 و فکر نکنم تفاوت خاصی بین ترتیب پایه های vs1003 , vs1011 باشه درسته؟

                                راستی من برای vs1011 پشت فیبر کامل زدم و برام مشکله جایه پایه ها رو عوض کنم!

                                ممنون میشم راهنمای کنید
                                انجام پروژه های برنامه نویسی اندروید
                                [glow=red,2,300]نرم افزار نقشه های پاور کامپیوتر اندورید[/glow]
                                http://cafebazaar.ir/app/?id=com.atxdroid

                                دیدگاه

                                لطفا صبر کنید...
                                X