[dubai.eig]

السلام عليكم ورحمة الله

في عندي فكرة احاول احصل طريقه لها 

وهيه

املك 
TextBox1

في حالت اني كتبت في ال TextBox1

اسم اي اي كلمه كمثال
ABC


عند الضغط على ال Button

يقوم الكود بالبحث ويقراء حرف حرف في حالت حصل في ال TextBox1   حرف A  

يفتح لي ملف صوتي



واذا حصل حرف ال B   يفتح لي ملف صوتي 

وهكذا  

PHP كود :

       If tex2.Text = "A" Then

            My.Computer.Audio.Play("D:\cw\*-.wav")


        ElseIf tex2.Text = "B" Then

            My.Computer.Audio.Play("D:\cw\-***.wav")

        ElseIf tex2.Text = "C" Then
            My.Computer.Audio.Play("D:\cw\-*-*.wav")

        End If 


اتمنى اني قمت بتوصيل الفكرة

هيه عباره عن بحث في التيكس بوكس ويقراء حرف حرف

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

[عبدالله الدوسري]

استخدم Contains
بمعنى تحتوي على .
هل النص يحتوي على ( ؟؟؟ ) = نعم / لا

كود :

       If tex2.Text.Contains("A") Then

           My.Computer.Audio.Play("D:\cw\*-.wav")


       ElseIf tex2.Text.Contains("B") Then

           My.Computer.Audio.Play("D:\cw\-***.wav")

       ElseIf tex2.Text.Contains("C") Then
           My.Computer.Audio.Play("D:\cw\-*-*.wav")

       End If

[dubai.eig]

(17-04-18, 07:01 PM)عبدالله الدوسري كتب : استخدم Contains
بمعنى تحتوي على .
هل النص يحتوي على ( ؟؟؟ ) = نعم / لا

كود :

       If tex2.Text.Contains("A") Then

           My.Computer.Audio.Play("D:\cw\*-.wav")


       ElseIf tex2.Text.Contains("B") Then

           My.Computer.Audio.Play("D:\cw\-***.wav")

       ElseIf tex2.Text.Contains("C") Then
           My.Computer.Audio.Play("D:\cw\-*-*.wav")

       End If

بارك الله فيك

النص احتمال يحتوى على هذه الحروف

PHP كود :

("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", "-----")
       (".", "*-*-*-")
       (",", "--**--")
       ("?", "**--**")
       ("'", "*----*")
       ("!", "-*-*--")
       ("/", "-**-*")
       ("(", "-*--*")
       (")", "-*--*-")
       ("&", "*-***")
       (":", "---***")
       (";", "-*-*-*")
       ("=", "-***-")
       ("+", "*-*-*")
       ("-", "-****-")
       ("_", "**--*-")
       ("""", "*-**-*")
       ("$", "***-**-")
       ("@", "*--*-*") 


شكرا 

[dubai.eig]

(17-04-18, 07:01 PM)عبدالله الدوسري كتب : استخدم Contains
بمعنى تحتوي على .
هل النص يحتوي على ( ؟؟؟ ) = نعم / لا

كود :

       If tex2.Text.Contains("A") Then

           My.Computer.Audio.Play("D:\cw\*-.wav")


       ElseIf tex2.Text.Contains("B") Then

           My.Computer.Audio.Play("D:\cw\-***.wav")

       ElseIf tex2.Text.Contains("C") Then
           My.Computer.Audio.Play("D:\cw\-*-*.wav")

       End If

اهلا اخي عبدالله

مع الاسف جربت الكود Contains  بس ليس هو المطلوب

انا اريد مثلا اذا الكلمه المكتوبه 
ABC

يقراء لي 
االملف الصوتي الخاص بحرف ال A  ومن ثم الملف الثاني بحرف ال B  ثم الملف الثالث لحرف ال C 

ورى بعض الفاصل بينهم
  Thread.Sleep(1000)

الفكرة غريبه بس ان شاءالله احصل لها طريقه

---

تقريبا ضبط معاي بههذه الطريقه

PHP كود :

Dim i As Integer

        For i = 0 To tex1.Text.Length - 1

            If tex1.Text.Chars(i) = "A" Then
                My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)
                Thread.Sleep(1000)
            ElseIf tex1.Text.Chars(i) = "B" Then
                My.Computer.Audio.Play(My.Resources.B, AudioPlayMode.Background)
                Thread.Sleep(1000)
            ElseIf tex1.Text.Chars(i) = "K" Then
                My.Computer.Audio.Play(My.Resources.K, AudioPlayMode.Background)
                Thread.Sleep(1000)
            ElseIf tex1.Text.Chars(i) = "6" Then
                My.Computer.Audio.Play(My.Resources._6, AudioPlayMode.Background)
                Thread.Sleep(1000)
            ElseIf tex1.Text.Chars(i) = "1" Then
                My.Computer.Audio.Play(My.Resources._1, AudioPlayMode.Background)
                Thread.Sleep(1000)
            End If

        Next 


بس بجرب باقي الحروف ان شاءالله يضبط

[محمد كريّم]

كود :

       Dim i As Integer
       For i = 0 To tex1.Text.Length - 1
           Try
               My.Computer.Audio.Play(My.Resources.ResourceManager.GetObject(tex1.Text.Chars(i)), AudioPlayMode.Background)
               Thread.Sleep(1000) 'مطلوب تحديد الزمن بناء على طول المقطع الصوتي
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       Next