تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل يوجد صوت تنبيه غير صوت beebالموجود في فيجول بيسك
#1
السلام عليكم ورحمت الله وبركتوه سؤلي هو
هل يوجد صوت تنبيه غير صوت beebالموجود في فيجول بيسك ولو يوجد غيره كيف استخدمهه
وشكران مقدمان
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        lst
.Clear()
 
       ListBox1.Items.Clear()
 
       Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media"
        For Each fl As FileInfo In dir.GetFiles()
            lst.Add(fl.FullName)
            ListBox1.Items.Add(fl.Name)
        Next
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim fn As String = lst(ListBox1.SelectedIndex)
        My.Computer.Audio.Play(fn, AudioPlayMode.Background)
    End Sub
End Class 
يقوم بسرد الملفات الصوتية في مجلد الميديا  وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.



الملفات المرفقة
.zip   AudioPlay.zip (الحجم : 18.13 ك ب / التحميلات : 8)

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
#3
وعليك السلام ورحمة الله وبركاته

اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم

لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav  ايضا:

كود :
My.Computer.Audio.Play("file path")

الرد
تم الشكر بواسطة: محمد ايمن , سعود , ابراهيم ايبو
#4
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        lst
.Clear()
 
       ListBox1.Items.Clear()
 
       Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media"
        For Each fl As FileInfo In dir.GetFiles()
            lst.Add(fl.FullName)
            ListBox1.Items.Add(fl.Name)
        Next
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim fn As String = lst(ListBox1.SelectedIndex)
        My.Computer.Audio.Play(fn, AudioPlayMode.Background)
    End Sub
End Class 
يقوم بسرد الملفات الصوتية في مجلد الميديا  وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.

ولله معرف كيف اشكرك

(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم

لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav  ايضا:

كود :
My.Computer.Audio.Play("file path")

ولله شرحمميز من حضرتك
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو , asemshahen5
#5
(26-05-20, 06:25 AM)محمد ايمن كتب :
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        lst
.Clear()
 
       ListBox1.Items.Clear()
 
       Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media"
        For Each fl As FileInfo In dir.GetFiles()
            lst.Add(fl.FullName)
            ListBox1.Items.Add(fl.Name)
        Next
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim fn As String = lst(ListBox1.SelectedIndex)
        My.Computer.Audio.Play(fn, AudioPlayMode.Background)
    End Sub
End Class 
يقوم بسرد الملفات الصوتية في مجلد الميديا  وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.

ولله معرف كيف اشكرك

(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم

لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav  ايضا:

كود :
My.Computer.Audio.Play("file path")

ولله شرحمميز من حضرتك

فيه امتدادت ماتشتغل  .
المهم انك عرفت الكود اختر اي صوت تريد ولو تريد تضع صوتك تستطيع.
ولا شكر على واجب

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة: محمد ايمن , ابراهيم ايبو , asemshahen5
#6
(26-05-20, 06:33 AM)سعود كتب :
(26-05-20, 06:25 AM)محمد ايمن كتب :
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        lst
.Clear()
 
       ListBox1.Items.Clear()
 
       Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media"
        For Each fl As FileInfo In dir.GetFiles()
            lst.Add(fl.FullName)
            ListBox1.Items.Add(fl.Name)
        Next
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim fn As String = lst(ListBox1.SelectedIndex)
        My.Computer.Audio.Play(fn, AudioPlayMode.Background)
    End Sub
End Class 
يقوم بسرد الملفات الصوتية في مجلد الميديا  وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.

ولله معرف كيف اشكرك

(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم

لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav  ايضا:

كود :
My.Computer.Audio.Play("file path")

ولله شرحمميز من حضرتك

فيه امتدادت ماتشتغل  .
المهم انك عرفت الكود اختر اي صوت تريد ولو تريد تضع صوتك تستطيع.
ولا شكر على واجب
كيف اضع صوتي
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو , asemshahen5
#7
إقتباس :كيف اضع صوتي
ههههههههههه
ياخوفي انك تحسب اني امزح!
يعني سجل اي كلام مثلا قول مرحبا (بالمايك الخاص بالجهاز) واحفظه باي مكان  وشغله بنفس الطريقة.



لحظة فيه اختصار للوصول لمجلد الاصوات الخاص بويندوز
كود :
My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
هذا صوت اللي اسمه  Exclamation

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
#8
(26-05-20, 06:43 AM)سعود كتب :
إقتباس :كيف اضع صوتي
ههههههههههه
ياخوفي انك تحسب اني امزح!
يعني سجل اي كلام مثلا قول مرحبا (بالمايك الخاص بالجهاز) واحفظه باي مكان  وشغله بنفس الطريقة.



لحظة فيه اختصار للوصول لمجلد الاصوات الخاص بويندوز
كود :
My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
هذا صوت اللي اسمه  Exclamation
هههههههه
شراننننننننننننن
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
#9
طبعا الامتداد اللي يعمل هو wav  وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد

اما اضافة صوت وتشغيله فكما في المثال

فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav
الان استبدل  النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي:

كود :
My.Computer.Audio.Play("C:\sound1.wav")

الرد
تم الشكر بواسطة: سعود , محمد ايمن , ابراهيم ايبو , asemshahen5
#10
(26-05-20, 06:46 AM)معاند الحظ كتب : طبعا الامتداد اللي يعمل هو wav  وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد

اما اضافة صوت وتشغيله فكما في المثال

فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav
الان استبدل  النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي:

كود :
My.Computer.Audio.Play("C:\sound1.wav")
شرح مبسط من الي فهمتو 
الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد

الكود
My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
غير في الكود اسم الصوت مثل 
Exclamationخليه اي اسم تاني من مجلد مديه الموجود في الوندوز
لو عيز تحط انت صوت من عندك سجل صوت بس لزم يكون ب صيغت wavلكي يعمل
وحطو في مجلد الويندوز زي ال اصوات ال تنيه وحط اسمو في الكد او غير المسار في الكود مثل
System.Media.SystemSounds خليه المسار الي فيه الصوت
طبعا الامتداد اللي يعمل هو wav  وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد
-------------------------
اما اضافة صوت وتشغيله فكما في المثال

فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav
الان استبدل  النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي:

كود :
My.Computer.Audio.Play("C:\sound1.wav")
--------------
يارب اكون فهمت صح
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود تنبيه بقرب حلول قسط شهري الحسين احمد 1 67 20-06-20, 01:51 AM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف يمكن عرض معلومات JSON في Combobox فيجوال بيسك Sorax 1 127 14-06-20, 10:20 PM
آخر رد: kiki
  اريد تحميل فيجوال بيسك 2017 اللورد محمود 4 165 14-06-20, 10:15 PM
آخر رد: kiki
  هل يمكن تحويل تطبيق من لغة الفيجوال بيسك إلى الأندرويد Hazem1 5 232 06-06-20, 11:57 PM
آخر رد: WaeLx
  كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك adnan gharbi 9 272 04-06-20, 02:59 PM
آخر رد: adnan gharbi
  [سؤال] عرض الصور من قاعدة البيانات الي picture فيجوال بيسك منه 10 339 01-06-20, 11:26 AM
آخر رد: سعود
  مساعدة في خل مشكلة فيجوال بيسك mennad sofiane 4 138 28-05-20, 03:10 AM
آخر رد: mennad sofiane
  [سؤال] اداه فيجوال بيسك منه 2 112 27-05-20, 07:35 PM
آخر رد: منه
  [كود] اريد كود رسالة تنبيه datagridview فارغة sidi bibi 3 178 26-05-20, 05:45 AM
آخر رد: sidi bibi
  [VB.NET] كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج mazentq 5 184 25-05-20, 10:16 PM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم