NOTICE توجه: این یک موضوع قدیمی است که آخرین پست ارسالی آن مربوط به 2428 روز قبل است . لطفا فقط پاسخ ها ، سوالات و درخواست های 100 درصد مرتبط را به آن ارسال کنید و برای درخواست ها و سوالات جدید موضوع جدیدی را ایجاد کنید
نمایش نتایج: از 1 به 1 از 1

موضوع: رفع مشکل کیفیت صوتی در پخش فایل wav

  1. #1
    تازه وارد
    تاریخ عضویت
    Aug 2011
    نوشته ها
    4
    تشکر
    3
    تشکر شده 0 بار در 0 پست

    New رفع مشکل کیفیت صوتی در پخش فایل wav

    سلام بر دوستان عزیز
    من در برنامه نویسی پخش فایل WAVE با کیفت pcm-22.05khz-8bit-mono به مشکل کیفیت در پخش برخوردم و فایلم نویز داره .کد برنامه ام را میزارم.اگه کسی راهنماییم کنه ممنون میشم:

    $regfile = "m32def.dat"
    $crystal = 16000000
    $include "CONFIG_AVR-DOS.bas"
    $include "config_mmc.bas"

    '*****************************************dim***** *******************************************
    Dim I As Word
    Dim J As Word
    Dim Arr(512) As Byte
    Dim A(256) As Byte
    Dim Address As Long
    Address = 1
    '**************************************config***** *******************************************

    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , _
    Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5

    'PWM
    Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1

    Config Portd.7 = Input
    '*****************************************begin*** *******************************************
    Enable Interrupts
    Cls
    Cursor Off

    '************************************************* ********************************************

    While Drivecheck() <> 0
    Print "Card drive is not ready to use!"
    Cls
    Locate 1 , 1
    Lcd "CARD KHARAB !"
    Wait 1
    Wend

    Print "CARD SALEM !"
    Cls
    Locate 1 , 1
    Lcd "CARD SALEM !"
    Wait 1

    '************************************************* ********************************************
    While Driveinit() <> 0
    Print "INSERT CARD !"
    Cls
    Locate 1 , 1
    Lcd "INSERT CARD !"
    Wait 1
    Wend
    Print "CARD OK"
    Cls
    Locate 1 , 1
    Lcd "CARD OK"
    Wait 1

    '************************************************* ********************************************
    Print "Init File System ..."
    Cls
    Locate 1 , 1
    Lcd "Init File ..."
    Wait 1
    While Initfilesystem(1) <> 0
    Print "ERROR FAT"
    Cls
    Locate 1 , 1
    Lcd "ERROR FAT"
    Wait 1
    Wend
    Print "ok"
    Cls
    Locate 1 , 1
    Lcd "FAT OK "
    Wait 1


    'S = Dir( "1.wav")
    'Portd.7 = 1

    Do

    If Pind.7 = 0 Then
    Open "1.wav" For Binary As #1
    Do
    Get #1 , Arr(1) , Address , 512
    For I = 1 To 512
    Pwm1a = Arr(i)
    For J = 1 To 15
    Next
    'Waitus 17
    Next
    Address = Address + 512
    Loop Until Eof(#1) <> 0
    Close #1
    Cls
    Locate 1 , 1
    Lcd "END"
    End If

    Loop

    End

  2. # ADS
    Circuit advertisement
    تاریخ عضویت
    Always
    نوشته ها
    Many
     

موضوعات مشابه

  1. [آموزش] هشدار دهنده نشت گاز با الارم صوتی( انسانی)
    توسط Ma3ood در انجمن AVR
    پاسخ: 16
    آخرين نوشته: 08-06-2018, 17:59
  2. دانلود 37 پروژه صوتی از جمله آمپلی فایر
    توسط erfanva در انجمن طراحی و ساخت و آزمایش مدارت الکترونیک
    پاسخ: 12
    آخرين نوشته: 29-07-2014, 15:47
  3. mmc و خواندن زمان واقعی یک فایل صوتی
    توسط ry_mohammad در انجمن AVR
    پاسخ: 3
    آخرين نوشته: 01-05-2014, 06:33
  4. کیت تشخیص صدا(فرامین صوتی)
    توسط shahrivar88 در انجمن سایر موارد مرتبط با میکرو کنترلرها
    پاسخ: 3
    آخرين نوشته: 22-11-2012, 12:49

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •