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


شكرا