+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] تقليب جملة نصية (/showthread.php?tid=41803)
تقليب جملة نصية - سعود - 29-06-22
PHP كود :
Private Function ro(ByRef lst1 As List(Of String)) As List(Of String)
Dim lst2 As New List(Of String)
Do Until lst2.Count = lst1.Count
Dim i As Integer = Int(Rnd() * lst1.Count)
Dim t As String = lst1(i)
If lst2.Contains(t) = False Then
lst2.Add(t)
End If
Loop
Return lst2
End Function
بعد البهدلة مع سي++ حبيت اطيب خاطري مع المحبوبة الى قلبي vb.net.
لا يوجد تعقيد ابدا مع فيجوال بيسك ولا حتى سي شارب ولا توجد انواع للنص او تقسيمات اما سي++ فـــــــــــــــخلاص فهمتوها.
والتالي هو اجراء الزر:
PHP كود :
Dim lst As New List(Of String)
For Each h As String In ListBox1.Items
lst.Add(h)
Next
ListBox1.Items.Clear()
ListBox1.Items.AddRange(ro(lst).ToArray)
lbl.Text = ListBox1.Items.Count
lst = Nothing
sarab فك السر
RE: تقليب جملة نصية - سعود - 30-06-22
تحديث
لتوليد والهام افكار للمحتاجين الجدد وليس القدامى
كلمة المرور: sarab
RE: تقليب جملة نصية - أبو خالد الشكري - 02-07-22
مرحبا أستاذي
عندما أفتح المشروع تظهر لي الرسالة التالية
RE: تقليب جملة نصية - سعود - 02-07-22
(02-07-22, 12:46 AM)أبو خالد الشكري كتب : مرحبا أستاذي
عندما أفتح المشروع تظهر لي الرسالة التالية
شغله باحدث اصدار عندك لاني سويته بفيجوال استوديو 2010 و يمكن فيه مشاكل.
RE: تقليب جملة نصية - أبو خالد الشكري - 02-07-22
(02-07-22, 01:58 AM)سعود كتب :(02-07-22, 12:46 AM)أبو خالد الشكري كتب : مرحبا أستاذي
عندما أفتح المشروع تظهر لي الرسالة التالية
شغله باحدث اصدار عندك لاني سويته بفيجوال استوديو 2010 و يمكن فيه مشاكل.
أنا أحاول أشغله بنسخة 2015 وما راضي يشتغل !
شو نسوي يا كنج المنتدى ؟
RE: تقليب جملة نصية - سعود - 02-07-22
(02-07-22, 02:52 PM)أبو خالد الشكري كتب : أنا أحاول أشغله بنسخة 2015 وما راضي يشتغل !
شو نسوي يا كنج المنتدى ؟
سهلة اخي الكريم خصوصا المشاريع البسيطة هذي.
عندك ملفات المصدر انسخها لمشروع جديد .
RE: تقليب جملة نصية - أبو خالد الشكري - 03-07-22
تمام أستاذي الكريم
أشكرك حتى تستغيث
RE: تقليب جملة نصية - سعود - 03-07-22
(03-07-22, 06:10 AM)أبو خالد الشكري كتب : تمام أستاذي الكريم
أشكرك حتى تستغيث
العفو .