+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] فكرة اتمنى احصل حل لها (/showthread.php?tid=24569)
فكرة اتمنى احصل حل لها - dubai.eig - 17-04-18
السلام عليكم ورحمة الله
في عندي فكرة احاول احصل طريقه لها
وهيه
املك
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
اتمنى اني قمت بتوصيل الفكرة
هيه عباره عن بحث في التيكس بوكس ويقراء حرف حرف
بارك الله فيكم وشكرا
RE: فكرة اتمنى احصل حل لها - عبدالله الدوسري - 17-04-18
استخدم 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 IfRE: فكرة اتمنى احصل حل لها - dubai.eig - 17-04-18
(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", "-----")
(".", "*-*-*-")
(",", "--**--")
("?", "**--**")
("'", "*----*")
("!", "-*-*--")
("/", "-**-*")
("(", "-*--*")
(")", "-*--*-")
("&", "*-***")
(":", "---***")
(";", "-*-*-*")
("=", "-***-")
("+", "*-*-*")
("-", "-****-")
("_", "**--*-")
("""", "*-**-*")
("$", "***-**-")
("@", "*--*-*")
شكرا
RE: فكرة اتمنى احصل حل لها - dubai.eig - 18-04-18
(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
بس بجرب باقي الحروف ان شاءالله يضبط
RE: فكرة اتمنى احصل حل لها - محمد كريّم - 18-04-18
كود :
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