02-09-14, 08:23 AM
السلام عليكم
- بالنسبة للكود اللي يعكس أماكن الكلمات ، هو الكود الأول الذي وضعته في ردي السابق ، والكود الثاني لعكس أماكن الحروف ، أما بالنسبة لوضع قوس على كلمة عشوائيه ، إستخدم هذا الكود :
- تحياتي .
- بالنسبة للكود اللي يعكس أماكن الكلمات ، هو الكود الأول الذي وضعته في ردي السابق ، والكود الثاني لعكس أماكن الحروف ، أما بالنسبة لوضع قوس على كلمة عشوائيه ، إستخدم هذا الكود :
كود :
IF Trim$(Text1.Text) <> "" Then
IF InStr(1 , Text1.Text , " ") <> 0 Then
Dim Words() As String
Dim WordsCount As Integer
Dim RandomIndex As Integer
Dim I As Integer
Words = Split(Trim$(Text1.Text) , " ")
WordsCount = UBound(Words)
Randomize
RandomIndex = Int((Rnd * WordsCount) + 1)
Text1.Text = ""
For I = LBound(Words) To UBound(Words)
IF Left$(Trim$(Words(I)) , 1) = "(" Then
Words(I) = Right$(Trim$(Words(I)) , Len(Trim$(Words(I))) - 1)
End IF
IF Right$(Trim$(Words(I)) , 1) = ")" Then
Words(I) = Left$(Trim$(Words(I)) , Len(Trim$(Words(I))) - 1)
End IF
IF I = RandomIndex Then
Words(I) = "(" & Trim$(Words(I)) & ")"
End IF
Text1.Text = Text1.Text & Trim$(Words(I)) & " "
Next
Text1.Text = Trim$(Text1.Text)
Else
IF Left$(Trim$(Text1.Text) , 1) <> "(" Then
Text1.Text = "(" & Trim$(Text1.Text)
End IF
IF Right$(Trim$(Text1.Text) , 1) <> ")" Then
Text1.Text = Trim$(Text1.Text) & ")"
End IF
End IF
End IF- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next