السلام عليكم ورحمة الله
هذا كود تستطيع من خلاله أن تعرف هل الكلمة مشكولة أم لا :
Dim str As String = Me.TextBox1.Text
Dim Tashkel() As String = {"َ", "ِ", "ُ", "ْ", "ً", "ٍ", "ٌ"}
Dim n As Integer = Tashkel.Length
Dim isTash As Boolean = False
Dim R As Integer
For i As Integer = 0 To n - 1
R = InStr(str, Tashkel(i))
If R > 0 Then
isTash = True
Exit For
End If
Next
Select Case isTash
Case True
Me.Label2.Text = "الكلمة مشكلة"
Case False
Me.Label2.Text = "الكلمة غير مشكلة"
End Selectلكن هناك مشكلة في هذا الكود فلو مثلا أدخلت جملة ( بسم الله الرحمن الرحيم الحمد لله رب العالمين الرحمن الرحيم ) وكان الجزء ( بسم الله الرحمن الرحيم ) مشكول فسوف يتعرف على الجملة كلها بانها مشكولة أي سوف يعتبر ( الرحمن الرحيم ) الثانية مشكولة ايضاً هذا خطأ
من يعرف الحل لا يبخل علينا
جزاكم الله خير الجزاء
وهذا هو المثال في الرفقاتTash.rar
