المشاركات : 11
المواضيع 5
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم ورحمة الله وبركاته
اريد منكم اخواني كود لعكس الحروف مثال
hgsbl ugd;l ,vplm hggi ,fv;hji
المفروض تكون
السلام عليكم ورحمة الله وبركاته
في برنامج اسمه ابو الحروف ممتاز جدا بس انا عايز كود اشتغل عليه لعكس الحروف
منتظر الرد تقبلو تحياتي
المشاركات : 18
المواضيع 3
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 2 مشاركات
تفضل
او من هنا
او يمكن كتابه الكود التالي
كود :
[align=left]
Dim a As String = "mohmmad mustafa"
Dim b As String
b = StrReverse(a)
MsgBox(b)[/align]
المشاركات : 11
المواضيع 5
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
للاسف ليس هو الكود المطلوب ,,,,
انا عندي مشروع عباره عن 2 تكست بوكس وبوتن عايز مثلا لما اكتب
hgsbl ugd;l ,vplm hggi ,fv;hji
انا كده نسيت احول اللغه للغه العربيه عايز بقي اضغط علي البوتن يحول لي الجمله مظبوطه في التكست بوكس اتنين تبقي كده
السلام عليكم ورحمة الله وبركاته
منتظر الرد منكم اخواني تقبلوا تحياتي
المشاركات : 749
المواضيع 17
الإنتساب : Sep 2013
السمعة :
54
الشكر: 521
تم شكره 619 مرات في 232 مشاركات
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا هو الكود المطلوب
كود :
Public Class Form1
Dim ListOfEn, ListOfAr As New List(Of String)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each I As Char In TextBox1.Text.ToCharArray
Dim Index As Integer = ListOfEn.IndexOf(I)
If Index = -1 Then
TextBox2.Text &= I
Else
TextBox2.Text &= ListOfAr.Item(Index)
End If
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListOfEn.AddRange({"z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", ",", "<", ".", ">", "/", "?",
"a", "A", "s", "S", "d", "D", "f", "F", "g", "G", "h", "H", "j", "J", "k", "K", "l", "L", ";", ":",
"'", """", "q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "i", "I", "o", "O",
"p", "P", "[", "{", "]", "}", "`", "~"})
ListOfAr.AddRange({"ئ", "~", "ء", "ْ", "ؤ", "}", "ر", "{", "لا", "لآ", "ى", "آ", "ة", "’", "و", ",", "ز", ".", "ظ",
"؟", "ش", "ِ", "س", "ٍ", "ي", "]", "ب", "[", "ل", "لأ", "ا", "أ", "ت", "ـ", "ن", "،", "م", "/",
"ك", ":", "ط", """", "ض", "َ", "ص", "ً", "ث", "ُ", "ق", "ٌ", "ف", "لإ", "غ", "إ", "ع", "‘", "ه",
"÷", "خ", "×", "ح", "؛", "ج", "<", "د", ">", "ذ", "ّ"})
End Sub
End Class
بالتوفيق
المشاركات : 11
المواضيع 5
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
الف شكر اخي الكريم نعم ظبط هذا الكود تمام اشكرك اخي تقبل تحياتي
المشاركات : 73
المواضيع 11
الإنتساب : Jul 2014
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 2 مشاركات
المشاركات : 190
المواضيع 5
الإنتساب : Sep 2013
السمعة :
3
الشكر: 27
تم شكره 103 مرات في 33 مشاركات
اقل ما يقال
مبدع sooriaty03
"الناس نيام فإذا ماتوا إنتبهوا"
|