17-04-18, 07:06 PM
(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", "-----")
(".", "*-*-*-")
(",", "--**--")
("?", "**--**")
("'", "*----*")
("!", "-*-*--")
("/", "-**-*")
("(", "-*--*")
(")", "-*--*-")
("&", "*-***")
(":", "---***")
(";", "-*-*-*")
("=", "-***-")
("+", "*-*-*")
("-", "-****-")
("_", "**--*-")
("""", "*-**-*")
("$", "***-**-")
("@", "*--*-*")
شكرا

