مساعدة في ارسال الصوت Beep

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة في ارسال الصوت Beep
#1
السلام عليكم ورحمة الله

يسعد الله اوقاتكم

عندي كود صغير هو عباره عن ارسال نغمات مورس  morse code send

الكود شغال بس مشكله في صوت النغمه

هذا الصوت الطبيعي
https://www.youtube.com/watch?v=WJ2zsmJ3GFE


وهذا الصوت الموجود في برنامجي
https://www.youtube.com/watch?v=IPurt-osiTI


في فرق واضح  خصوص ان البرنامجين شغالين بنفس السرعه
   
   



وخصوصا ان البرنامج الاولي معمول ب VB6 

حاولت من يومين اغير وابحث عن حل وما نفع معاي ككوني مبتدء في البرمجه 

وان شاءالله احصل الحل عندكم بارك الله فيكم


المشروع


.zip   WindowsApp2.zip (الحجم : 199.18 ك ب / التحميلات : 33)


والكود
كود :
Imports System.Threading
Public Class Form1
   Dim translation As New Dictionary(Of String, String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'Heathkit version
       translation.Add("A", "*-")
       translation.Add("B", "-***")
       translation.Add("C", "-*-*")
       translation.Add("D", "-**")
       translation.Add("E", "*")
       translation.Add("F", "**-*")
       translation.Add("G", "--*")
       translation.Add("H", "****")
       translation.Add("I", "**")
       translation.Add("J", "*---")
       translation.Add("K", "-*-")
       translation.Add("L", "*-**")
       translation.Add("M", "--")
       translation.Add("N", "-*")
       translation.Add("O", "---")
       translation.Add("P", "*--*")
       translation.Add("Q", "--*-")
       translation.Add("R", "*-*")
       translation.Add("S", "***")
       translation.Add("T", "-")
       translation.Add("U", "**-")
       translation.Add("V", "***-")
       translation.Add("W", "*--")
       translation.Add("X", "-**-")
       translation.Add("Y", "-*--")
       translation.Add("Z", "--**")
       translation.Add("1", "*----")
       translation.Add("2", "**---")
       translation.Add("3", "***--")
       translation.Add("4", "****-")
       translation.Add("5", "*****")
       translation.Add("6", "-****")
       translation.Add("7", "--***")
       translation.Add("8", "---**")
       translation.Add("9", "----*")
       translation.Add("0", "-----")
       translation.Add(".", "*-*-*-")
       translation.Add(",", "--**--")
       translation.Add("?", "**--**")
       translation.Add("'", "*----*")
       translation.Add("!", "-*-*--")
       translation.Add("/", "-**-*")
       translation.Add("(", "-*--*")
       translation.Add(")", "-*--*-")
       translation.Add("&", "*-***")
       translation.Add(":", "---***")
       translation.Add(";", "-*-*-*")
       translation.Add("=", "-***-")
       translation.Add("+", "*-*-*")
       translation.Add("-", "-****-")
       translation.Add("_", "**--*-")
       translation.Add("""", "*-**-*")
       translation.Add("$", "***-**-")
       translation.Add("@", "*--*-*")
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       tex2.Text = String.Join("/", Array.ConvertAll(tex1.Text.ToArray, Function(c) If(translation.Keys.Contains(c.ToString.ToUpper), translation(c.ToString.ToUpper), c.ToString)))
       tex2.Refresh()

       Dim dit As Integer = 500

       Dim dah As Integer = 500
       Dim freq As Int32
       freq = 700

       dit = 60000 / (NumericUpDown1.Value * 50)
       dah = dit * 3


       For Each c As Char In tex2.Text
           If c = "*"c Then
               Thread.Sleep(dit)

               System.Console.Beep(freq, dit)
               Thread.Sleep(dit)
           ElseIf c = "-"c Then
               Thread.Sleep(dit)
               System.Console.Beep(freq, dah)
               Thread.Sleep(dit)
           ElseIf c <> "/" Then
               Thread.Sleep(6000)
           End If
       Next
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       tex1.Text = String.Concat(Array.ConvertAll(tex2.Text.Split("/"c), Function(s) If(translation.Values.Contains(s), translation.First(Function(kvp) kvp.Value = s).Key, s)))

   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
كود :
consle.beep
جرب هذا الكود ..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود جعل مسح الصفر من على السليل الموجودة على الداتا قريد فيو annaba2015 1 25 منذ 3 ساعة مضت
آخر رد: عابر سبيل 2
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 11 75 منذ 9 ساعة مضت
آخر رد: elgokr
  [سؤال] طلب مساعدة vb.net: إرسال بيانات من داتاقريدفيو الى نمودج وورد hamzatalbi 2 34 19-08-18, 11:11 PM
آخر رد: aljzazy
  اريد سورس كود لبرنامج ارسال رسائل sms عبر كمبيوتر بالاتصال بهاتف عبر البلوتوث khalilfox 1 58 18-08-18, 07:51 PM
آخر رد: YousefOkasha
  ممكن مساعدة في ارسال رسالة بي لغة العربية الزوي 22 318 12-08-18, 04:56 AM
آخر رد: الزوي
Star ارسال رسائل SMS إلي جميع انحاء العالم مجانا YousefOkasha 8 255 12-08-18, 02:38 AM
آخر رد: YousefOkasha
  [VB.NET] استفسار :- بخصوص قراءة الصوت من الجهاز dubai.eig 0 53 11-08-18, 06:17 PM
آخر رد: dubai.eig
  مساعدة في تطبيق هذا الدرس لتحديث اداة WebBrowser ahmedhhh2 5 72 10-08-18, 05:20 PM
آخر رد: ahmedhhh2
  مساعدة في جملة إستعلام نور الهدى الهدى 20 403 09-08-18, 12:09 PM
آخر رد: نور الهدى الهدى
  [سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql essawq 3 98 04-08-18, 04:01 PM
آخر رد: aljzazy

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


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