منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تغيير الحروف من سمول إلى كبتل في textbox

[SIZE=4]بسم الله الرحمان الرحيم
الصلاة و السلام علي رسول الله صلى الله عليه و سلم

السلام عليكم

الفكرة بسيطة لكن حيرتني
مثلا عندي هذه الكلمة:

algeria

موجودة في تتكست بوكس مثلا
أريد أن أجعل الحروف في كل مرة حرف كبتل مما يعطيني جميع إحتمالات الكبتل و السمول
مثلا
Algeria
aLgeria
alGeria
algEria
و هكذا إلى أن نصل إلى
ALGERIA
يعني كل الحروف كبتل

جزاكم الله كل خير
و بارك الله فيك و رحم والديكم
و السلام عليكم و رحمة الله تعالى و بركاته[/SIZE]

[COLOR="#008000"]تفضل أخي
هذه طريقة التحويل
يبقى الية الحساب الحروف
إضغط هنا[/COLOR]

بارك الله فيك أخي الفاضل
و لكن المشكلة ليست في كيف اجعل الحرف كابتل و لكن كيف اصل و بشكل أوتوماتيكي لجميع الإحتمالات للسمول و الكبتل يعني لا اريد التكبير لمرة واحدة أو لكلمة واحدة .
أنا اريد أن اجلب كل الإحتمالات للكبتل و السمول لكلمة معينة مثلا كلمة islam
islaM
islAm
islAM
isLam
isLaM
isLAm
isLAM
iSlam
iSlaM
iSlAm
iSlAM
iSLam
iSLaM
iSLAm
iSLAM
Islam
IslaM
IslAm
IslAM
IsLam
IsLaM
IsLAm
IsLAM
ISlam
ISlaM
ISlAm
ISlAM
ISLam
ISLaM
ISLAm
ISLAM
أريد جميع هذه الإحتمالات و لأي كلمة أريدها و مهما كان طول الجملة أحفظها مثلا في ملف تكست
ارجو المساعدة و اي توضيح انا هنا

السلام عليكم و رحمة الله و بركاتة
اخي الكريم جرب هذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim txtlong As Integer = TextBox1.Text.Length

        Dim result As String = ""

        TextBox1.Text = TextBox1.Text.ToLower

        For i = 0 To txtlong

            On Error Resume Next

            result = result & TextBox1.Text.Substring(0, i).ToUpper & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine

            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine

            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine

            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine

        Next

        MessageBox.Show(result)

    End Sub

لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته
أخي الكريم طريقة عمل هذا النوع من الوظائف ينتج عنه عدد هائل من الكلمات مع كل حرف تضيفه
وهذا الكود بإذن الله سيعطيك إياها كاملة

وأي استفسار أنا جاهز

PHP كود :

If TextBox1.Text.Length < 1 Then Exit Sub
        Dim StringLength As Integer = TextBox1.Text.Length
        Dim PossibleString As Integer = 2 ^ TextBox1.Text.Length
        Dim ResultString(PossibleString) As String
        For H = StringLength - 1 To 0 Step -1
            Dim AdditionFraction As Double = IIf(H = StringLength - 1, 0, 2 ^ ((H + 2) - StringLength))
            Dim Letter As String = TextBox1.Text.Substring(H, 1).ToUpper
            For I = 0 To PossibleString - 1
                If (I * AdditionFraction) Mod 2 = 0 Then
                    If Letter = Letter.ToUpper Then
                        Letter = Letter.ToLower()
                    Else
                        Letter = Letter.ToUpper()
                    End If
                End If
                ResultString(I) = Letter & ResultString(I)
            Next
        Next
        MsgBox(Strings.Join(ResultString, vbNewLine))
    End Sub 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

magginito2022

مبرمج بلا حدود

magginito2022

ahmed salam

sooriaty03