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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة لوتكرمتم في صنع برنامج تخفيضات Visual Basic 8 101 17-11-17, 12:00 AM
آخر رد: Visual Basic
  مساعدة في البحث والجمع sulimanalahdl 4 107 10-11-17, 02:17 AM
آخر رد: sulimanalahdl
  مساعدة في حل رسالة خطأ تظهر لي Error 5000 loayrefai 3 109 15-10-17, 01:50 AM
آخر رد: Amir_alzubidy
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 226 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
  ممكن مساعدة في ايجاد حل لهذه المشكلة الغريبة مبرمج جديد 2 150 01-08-17, 04:18 AM
آخر رد: مبرمج جديد
  مساعدة VB6 مشكل تنصيب ومكافح الفيروسات bidai 3 167 29-07-17, 06:23 PM
آخر رد: bidai
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 143 27-07-17, 12:17 PM
آخر رد: shadi_alfares
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 289 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy
  مساعدة في تفعيل اداة VSFlexGrid ياسر عبد الكريم 4 535 28-04-17, 03:14 AM
آخر رد: أبوسعود
  مساعدة فى إخفاء الملفات عبد الرحمن على 2 288 21-04-17, 04:30 PM
آخر رد: عبد الرحمن على

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


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