تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكفون مساعدة
#1
Ideaالسلام عليكم ..

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

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

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

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

If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub 
الرد
تم الشكر بواسطة:
#3
وايضا كود لكتابة الارقام فقط

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

If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub 
الرد
تم الشكر بواسطة:
#4
وأيضا مرفق برنامج صغير لعكس اتجاه النص فى التكست

تحياتي لك ...


الملفات المرفقة
.rar   ReverseText.rar (الحجم : 1.61 ك ب / التحميلات : 47)
الرد
تم الشكر بواسطة:
#5
السلام عليكم

- طريقة أخرى لكود عكس الكلمات أو الأحرف ، وتنفيذ العكس عند إختيار العنصر الأول من 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)

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة:
#6
اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا Heart
الرد
تم الشكر بواسطة:
#7
اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا Heart ..
الرد
تم الشكر بواسطة:
#8
السلام عليكم

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

كود :
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

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة:
#9
هلا والله اخوي ادري تعبتك معي ، بس اخوي الكود يا ليت تشرح كيف استخدمه ؟
عندي تكست بوكس 2 الاول اكتب فيه وابي لما اسوي اسويزر الامر يخي التكست الثاني في اي كلمة قوس
الرد
تم الشكر بواسطة:
#10
السلام عليكم

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

- تحياتي .


الملفات المرفقة
.rar   StrReverse_Exa.rar (الحجم : 2.06 ك ب / التحميلات : 51)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: king2512010


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود الحفظ bidaya 5 180 22-04-18, 06:47 PM
آخر رد: bidaya
  هل من مساعدة في تعديل كود الحفظ مصمم هاوي 7 200 06-03-18, 02:20 PM
آخر رد: sendbad100
  مساعدة في تشغيل ملف صوتي VB.NET 7 151 01-03-18, 08:59 AM
آخر رد: Ahmed_Mansoor
  مساعدة في فورمات المبالع للفلكسي قريد khezzani 2 89 06-02-18, 08:05 AM
آخر رد: sendbad100
  [سؤال] طلب مساعدة بسيطة اي سفن 6 122 29-01-18, 12:41 PM
آخر رد: اي سفن
Heart [سؤال] مساعدة : أريد كود excel 2003 من إخواني مشكورين ؟؟؟؟؟؟ abdouhai 3 106 29-01-18, 03:33 AM
آخر رد: عبدالله الدوسري
  مساعدة ضروري saharramadan 1 100 16-01-18, 10:21 PM
آخر رد: Amir_Alzubidy
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 221 12-01-18, 08:06 PM
آخر رد: khezzani
  [سؤال] مساعدة لوتكرمتم في صنع برنامج تخفيضات Visual Basic 8 212 17-11-17, 12:00 AM
آخر رد: Visual Basic
  مساعدة في البحث والجمع sulimanalahdl 4 222 10-11-17, 02:17 AM
آخر رد: sulimanalahdl

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم