[racky]

السلام عليكم ..

انا عندي برنامج ومحتاج كود
يزيل الأرقام و الفواصل او الرموز بالتكست ؟
وومحتاج
كود يعكس الكلام مثلا التكست : انا عبدالله وكذا : وكذا عبدالله انا
واخر شي محتاج
انا مسوي Combobox نقول حاط خيار رقم 1 وعندي في button ابي لما اظغط خيار 1 واظغط button يخلي الكلام زي كذا بالتكست انا1عبدالله1وكذا يارب تساعدون تكفون

[king2512010]

اخى / racky

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

مرفق كود لكتابة الحروف فقط

PHP كود :

Private Sub Text2_KeyPress(KeyAscii As Integer)
'كود كتابة الحروف فقط

If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub 


[king2512010]

وايضا كود لكتابة الارقام فقط

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
'كود كتابة الأرقام فقط

If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub 


[king2512010]

وأيضا مرفق برنامج صغير لعكس اتجاه النص فى التكست

تحياتي لك ...

[VB_Coder]

السلام عليكم

- طريقة أخرى لكود عكس الكلمات أو الأحرف ، وتنفيذ العكس عند إختيار العنصر الأول من Combo1 ومحتوى العنصر الأول هو رقم "1" والضغط على الزر Command1 ، فسيكون الكود كالتالي :

كود :

Private Sub Command1_Click()

IF Trim$(Combo1.Text) = "1" Then

     Text2.Text = ""

     IF Trim$(Text1.Text) <> "" And InStr(1 , Text1.Text , " ") <> 0 Then
          
          Dim zWords() As String
          Dim I As Integer

          zWords = Split(Trim$(Text1.Text) , " ")
          
          For I = LBound(zWords) To UBound(zWords) Step -1
                Text2.Text = Text2.Text & Trim$(zWords(I)) & " "
          Next

          Text2.Text = Trim$(Text2.Text)

      Else

          Text2.Text = Trim$(Text1.Text)

      End IF

End IF

End Sub

- وهذا الكود لعكس أحرف مايوجد في Text1 ووضعه في Text2 :

كود :

Text2.Text = StrReverse(Text1.Text)

- تحياتي .

[racky]

اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا

[racky]

اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا ..

[VB_Coder]

السلام عليكم

- بالنسبة للكود اللي يعكس أماكن الكلمات ، هو الكود الأول الذي وضعته في ردي السابق ، والكود الثاني لعكس أماكن الحروف ، أما بالنسبة لوضع قوس على كلمة عشوائيه ، إستخدم هذا الكود :

كود :

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

- تحياتي .

[racky]

هلا والله اخوي ادري تعبتك معي ، بس اخوي الكود يا ليت تشرح كيف استخدمه ؟
عندي تكست بوكس 2 الاول اكتب فيه وابي لما اسوي اسويزر الامر يخي التكست الثاني في اي كلمة قوس

[VB_Coder]

السلام عليكم

- معليش كان في الكود خطأ بسيط ماجربت الكود , الأكواد كلها في المثال المرفق .

- تحياتي .