كود لقلب الجمل وليس الكلمات

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default كود لقلب الجمل وليس الكلمات

مُساهمة من طرف العـطوي في الإثنين نوفمبر 13, 2006 3:25 pm

هذا الكود لقلب الجمل وإليك مثال على ذلك:
بسم الله الرحمن الرحيم
تصبح:
الرحيم الرحمن الله بسم
..........................................
أضف ثلاثة صناديق نص (TextBox) وأضف الكود التالي:

Dim i, I2 As Integer, S1, S2 As String
Text2.Text = StrReverse(Text1.Text) & " "
I2 = 1
Text3.Text = ""
For i = 1 To Len(Text2.Text)
S1 = Mid(Text2.Text, i, 1)
If S1 = " " Then
S2 = Text3.Text & StrReverse(Mid(Text2.Text, I2, i - I2)) & " "
Text3.Text = S2
I2 = i
End If
Next i
End Sub
.......................................................................................
جرب هذا البيت وهو من شعر ابن المقري الزبيدي(من اليمن_زبيد)
طلبو الذي نالوا فما منعوا رفعت فما حطت لهم رتب
....................................................
النقد دائما يصحح الأخطاء
والمدح دائما يبعث الغرور

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى