26-02-15, 10:02 PM
كود :
Private Function la5bet(ByVal str As String) As String
Dim s As String = String.Empty
Dim lst As New List(Of String)
For Each t In str
lst.Add(t)
Next
For a = lst.Count - 1 To 0 Step -1
s &= lst.Item(a)
Next
Return s
End Function
Private Function arge3(ByVal str As String) As String
Dim s As String = String.Empty
Dim lst As New List(Of String)
For Each t In str
lst.Add(t)
Next
For a = lst.Count - 1 To 0 Step -1
s &= lst.Item(a)
Next
Return s
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = la5bet(TextBox1.Text)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox3.Text = arge3(TextBox2.Text)
End Subاللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
