منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

وهيه

املك
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

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

شكرا

(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)

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

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

dubai.eig

dubai.eig

محمد كريّم