السلام عليكم ورحمة الله
يسعد الله اوقاتكم
عندي كود صغير هو عباره عن ارسال نغمات مورس morse code send
الكود شغال بس مشكله في صوت النغمه
هذا الصوت الطبيعي
https://www.youtube.com/watch?v=WJ2zsmJ3GFE
وهذا الصوت الموجود في برنامجي
https://www.youtube.com/watch?v=IPurt-osiTI
في فرق واضح خصوص ان البرنامجين شغالين بنفس السرعه
وخصوصا ان البرنامج الاولي معمول ب VB6
حاولت من يومين اغير وابحث عن حل وما نفع معاي ككوني مبتدء في البرمجه
وان شاءالله احصل الحل عندكم بارك الله فيكم
المشروع
WindowsApp2.zip (الحجم : 199.18 ك ب / التحميلات : 38)
والكود
يسعد الله اوقاتكم
عندي كود صغير هو عباره عن ارسال نغمات مورس morse code send
الكود شغال بس مشكله في صوت النغمه
هذا الصوت الطبيعي
https://www.youtube.com/watch?v=WJ2zsmJ3GFE
وهذا الصوت الموجود في برنامجي
https://www.youtube.com/watch?v=IPurt-osiTI
في فرق واضح خصوص ان البرنامجين شغالين بنفس السرعه
وخصوصا ان البرنامج الاولي معمول ب VB6
حاولت من يومين اغير وابحث عن حل وما نفع معاي ككوني مبتدء في البرمجه
وان شاءالله احصل الحل عندكم بارك الله فيكم
المشروع
WindowsApp2.zip (الحجم : 199.18 ك ب / التحميلات : 38)
والكود
كود :
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