تقييم الموضوع :
  • 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 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 22)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: king2512010


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تطبيق هذا الكود bidaya 0 34 06-12-16, 04:46 AM
آخر رد: bidaya
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 107 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 233 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  مساعدة فى عمل برنامج بسيط hithemlion 23 623 27-09-16, 05:22 PM
آخر رد: Amir_alzubidy
  مساعدة في Active report haiderkh 4 188 31-08-16, 12:08 AM
آخر رد: Ahmed_Mansoor
  مساعدة في كود بحث Microsoft Visual Basic 6.0 2 154 24-07-16, 06:14 PM
آخر رد: Microsoft Visual Basic 6.0
  مساعدة text مربوطة بقاعدة بيانات mohfar 2 141 14-07-16, 09:46 PM
آخر رد: Amir_alzubidy
  مساعدة في كود الطباعة Mo_rb 5 275 07-07-16, 06:17 PM
آخر رد: Amir_alzubidy
  [ تمّ الحل ] مساعدة برسائل تنبيهيّة خاصّة عبد العزيز البسكري 5 187 19-06-16, 04:16 AM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة في رفع قاعدة برنامج vb6 والبحث بالنت fahad fbs 0 152 14-06-16, 03:59 PM
آخر رد: fahad fbs

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


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