[dubai.eig]

(26-07-18, 07:10 PM)Done كتب :

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim s As String = "dubai.eig"
    For Each c As Char In s.ToCharArray
        cmorse(c)
    Next
End Sub


Function cmorse(c As Char) As String
    c = c.ToString.ToLower
    Dim fr As Integer = 1800 REM الموجة الصوتية
    Dim sd As Integer = 240 REM الاشارة القصيرة
    Dim ld As Integer = sd * 3  REM الاشارة الطويلة
    Dim ret As String = String.Empty
    Dim codes(,) As String = {
        {" ", " "}, {"a", ".-"}, {"b", "-..."}, {"c", "-.-."}, {"d", "-.."},
        {"e", "."}, {"f", "..-."}, {"g", "--."}, {"h", "...."}, {"i", ".."},
        {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."}, {"m", "--"}, {"n", "-."},
        {"o", "---"}, {"p", ".--."}, {"q", "--.-"}, {"r", ".-."}, {"s", "..."},
        {"t", "-"}, {"u", "..-"}, {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
        {"y", "-.--"}, {"z", "--.."}, {"1", ".----"}, {"2", "..---"},
        {"3", "...--"}, {"4", "....-"}, {"5", "....."}, {"6", "-...."},
        {"7", "--..."}, {"8", "---.."}, {"9", "----."}, {"0", "-----"},
        {".", ".-.-.-"}, {"?", "..--.."}, {",", "--..--"}, {"'", ".----."},
        {".", ".-.-.-"}, {",", "--..--"}, {"?", "..--.."}, {"/", "-..-."},
        {"=", "-...-"}, {"+", ".-.-."}, {"*", "...-."}}
    For i As Integer = 0 To codes.GetUpperBound(0)
        If codes(i, 0) = c Then ret = codes(i, 1) : Exit For
    Next
    If ret = " " Then
        Threading.Thread.Sleep(ld * 7)
        Return ret
    End If
    For i = 0 To ret.Length - 1
        If ret(i) = "." Then
            Console.Beep(fr, sd)
        Else
            Console.Beep(fr, ld)
        End If
        If i < ret.Length - 1 Then
            Threading.Thread.Sleep(sd)
        End If
    Next
    Threading.Thread.Sleep(ld)

    Return ret
End Function 


شكرا لك

بس عندما اضغط على Button1

لا يعمل شي  بارك الله فيك لو تتاكد من الكود وشكرا من جديد لك