أبحث عن أداة تعطيك تردد الصوت

يبدو أن الحصول على الأداة صعب؟؟

طيب أي أداة لإظهار تردد الصوت؟؟

ممكن باستخدام DirectSound8 وان اردت استطيع ان اشرح لك كيفية الربط

ولو يا محمد ؟ معقول ....

تقدر تعرف ذلك من الميديا بلير نفسها. ... .. .. .. عموماً إنت مر لعندي عالبيت و انا بشرح لك الموضوع

و لماذا في البيت ... نرجو افادة الجميع

السلام عليكم

هل تقصد oscilloscope ام ماذا؟

بالنسبة للأخ nardien28 طبعا أتمنا أن تشرح لنا الطريقة

بالنسبة لك يامختار أنا أوافق hishamnasr وأتمنا أن تشرح لنا الطريقة

بالنسبة Siner ماهو oscilloscope

النظرية النسبية(..........)

هاههههههههههههههههه العفو يا شباب

يبدو انكم فهمتموني غلط

أنا اريد اكسب أبو جمال لا أكثر و لا أقل

Dim dx As New DirectX8
Dim ds As DirectSound8
Public ds_buff As DirectSoundSecondaryBuffer8

Private Sub Form_Load()
Set dx = New DirectX8
Set ds = dx.DirectSoundCreate("")
ds.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL

Dim buff_desc As DSBUFFERDESC
 buff_desc.lFlags = DSBCAPS_CTRLFREQUENCY
 fileName = ".........................."
 Set ds_buff = ds.CreateSoundBufferFromFile(fileName, buff_desc)

Text1.Text =ds_buff.GetFrequency
End Sub

ولا تنسى اضافة مكتبة directX8 من قائمة ADD Components

السلام عليكم

الأخ mjxp7...So Funny

ال Oscilloscope هو ببساطة جهاز ممكن ان تراه على الطبيعه لو كنت دخلت معمل الكليه مره بدون قصد .... :lol:

واعتقد ان ماتريد ستجده فى الملفات المرفقه ان شاء الله

ولو بحثت قليلا فى اى مواقع تعليم او حتى جوجل لو جدته

DWL Oscilis From Sound Card.rar

لاحجة لك يا مختار بيتي مفتوح في أي وقت وللجميع وأعتقد أنك تدرك ذالك

أهلا وسهلا بك

اقتباس

لاحجة لك يا مختار بيتي مفتوح في أي وقت وللجميع وأعتقد أنك تدرك ذالك

أهلا وسهلا بك

:unsure: و من قال غير ذلك ؟

عموماً جهز حالك اليوم أجيب رفعت و الشلّة كلها .... :lol:

و على أبوجمال :)

أشكر ردودكم الجميلة لكن لم تفهمو قصدي

عند تشغيل ملف صوتي ببرنامج وندوز ميديا بلير يظهر تردده في وسط البرنامج ويأخذ عدة بيئات وأشكال كالزهرة والبركان وغيرها

مممممممممممممممممممم

معلش أبوجمال الحق عليك طريقة كتبابتك للسؤال كانت غلط من الأول المعروف لدينا عن التردد أنه قيمة التردد بالميغاهرتز يعني أحياناً لما تفتح ملف على مسجل الصوت بتلاقي خصائصة

44.000 ميغاهرتز مثلاً .....

أما أنت الشيء الذي تسأل عنه هو

شي كالذي في الصورة ... و هو الذي سمته انت تردد على حد تعبيرك

على فكرة تقدر تستفيد من الميديا بلاير نفسها لهذا الأمر .... يعني لا تعتمد على الأداة فقط (Msxdm.ocx)

بل استفد منا مكتبة الـ dll أيضاً

dll???

wmp.dll

ربما يفيدك هذا الكود

Private Sub cmdExit_Click()
    End
End Sub
Private Sub cmdReadSamp_Click()
    Dim SamplingRate As Integer
    Dim FileNum As Integer
    Dim PathName, FileName
    ' Get a free file number.
    FileNum = FreeFile
    PathName = App.Path
    If Right(PathName, 1) <> "\" Then
       PathName = PathName + "\"
    End If
    FileName = PathName + "TEST.WAV"
    ' Open the WAV file for binary access.
    Open FileName For Binary As FileNum
    ' Read the sampling rate into the integer variable
    ' SamplingRate, starting at byte location 25.
    Get #FileNum, 25, SamplingRate
    ' Close the file.
    Close FileNum
    ' Display the sampling rate.
    lblReadSamp.Caption = "قيمة تردد الصوت هي: " + _
                       Str(SamplingRate) + "  هيرتز"
End Sub

في فكرة مش عارف ممكن تتنفذ والا لأ

المهم تستطيع ان تدرج اداتي صوت الميديا بلاير ثم اذا اشتغلت واحدة تشتغل الأخرى بعد ثانية واحدة اوكي؟