تقييم الموضوع :
  • 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 ك ب / التحميلات : 5)


والكود
كود :
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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 0 35 أمس, 02:10 PM
آخر رد: hichem1
Information مساعدة لتونسي مبتدأ عن برنامج صلاة hichem1 0 51 أمس, 02:17 AM
آخر رد: hichem1
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 65 20-04-18, 09:20 PM
آخر رد: elmezo
  مساعدة جزاكم الله خيرا fouadhdfouad 1 44 20-04-18, 09:11 PM
آخر رد: elmezo
  مساعدة في ربط قاعدة البيانات عزف الرياح 0 59 13-04-18, 12:41 AM
آخر رد: عزف الرياح
  طريقة ارسال sms Marwan9990 1 79 11-04-18, 05:41 PM
آخر رد: prj
  [كود] ممكن مساعدة لسه مبتدئ 2 69 11-04-18, 09:32 AM
آخر رد: لسه مبتدئ
  [VB.NET] طلب مساعدة فراس الغزي 12 247 10-04-18, 10:28 PM
آخر رد: محمود بكرى
Photo احتاج مساعدة جزاكم الله خيرا عادل ادعبدالله 0 57 08-04-18, 11:42 PM
آخر رد: عادل ادعبدالله
  مساعدة في عرض رسول555 6 163 07-04-18, 01:23 PM
آخر رد: رسول555

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


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