+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تكفون مساعدة (/showthread.php?tid=3745)
تكفون مساعدة - racky - 01-09-14
السلام عليكم .. انا عندي برنامج ومحتاج كود
يزيل الأرقام و الفواصل او الرموز بالتكست ؟
وومحتاج
كود يعكس الكلام مثلا التكست : انا عبدالله وكذا : وكذا عبدالله انا
واخر شي محتاج
انا مسوي Combobox نقول حاط خيار رقم 1 وعندي في button ابي لما اظغط خيار 1 واظغط button يخلي الكلام زي كذا بالتكست انا1عبدالله1وكذا يارب تساعدون تكفون
RE: تكفون مساعدة - king2512010 - 01-09-14
اخى / racky
السلام عليكم ورحمة الله وبركاته
مرفق كود لكتابة الحروف فقط
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
'كود كتابة الحروف فقط
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
RE: تكفون مساعدة - king2512010 - 01-09-14
وايضا كود لكتابة الارقام فقط
PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
'كود كتابة الأرقام فقط
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
RE: تكفون مساعدة - king2512010 - 01-09-14
وأيضا مرفق برنامج صغير لعكس اتجاه النص فى التكست
تحياتي لك ...
RE: تكفون مساعدة - VB_Coder - 02-09-14
السلام عليكم
- طريقة أخرى لكود عكس الكلمات أو الأحرف ، وتنفيذ العكس عند إختيار العنصر الأول من 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)- تحياتي .
RE: تكفون مساعدة - racky - 02-09-14
اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا
RE: تكفون مساعدة - racky - 02-09-14
اخوي انا محتاج شين بس يا ليت تساعدني
اول شي اخوي : كود يحط قوس على كلمة عشوائي مثال : انا (طالب) ناجح فهمت؟
: زمحتاج كود كا يعكس الحروف : انا طالب ناجح : حجان بلاط انا : ما ابغى ها الكود انا ابي :
زي كذت انا طالب ناجح " ناجح طالب انا
..
RE: تكفون مساعدة - VB_Coder - 02-09-14
السلام عليكم
- بالنسبة للكود اللي يعكس أماكن الكلمات ، هو الكود الأول الذي وضعته في ردي السابق ، والكود الثاني لعكس أماكن الحروف ، أما بالنسبة لوضع قوس على كلمة عشوائيه ، إستخدم هذا الكود :
كود :
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- تحياتي .
RE: تكفون مساعدة - racky - 02-09-14
هلا والله اخوي ادري تعبتك معي ، بس اخوي الكود يا ليت تشرح كيف استخدمه ؟
عندي تكست بوكس 2 الاول اكتب فيه وابي لما اسوي اسويزر الامر يخي التكست الثاني في اي كلمة قوس
RE: تكفون مساعدة - VB_Coder - 03-09-14
السلام عليكم
- معليش كان في الكود خطأ بسيط ماجربت الكود , الأكواد كلها في المثال المرفق .
- تحياتي .