+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Word List Gen (/showthread.php?tid=28591)
Word List Gen - yunis - 12-02-19
السلام عليكم
أنا عضو جديد بهذا المنتدى وقد أعجبني كثيراً مما شهدته من خلال زياراتي السابقة لهذا المنتدى من تعاون بين الأعضاء وتقديم المساعدة
هذا المنتدى يحوي مجموعة من الأعضاء المميزين من خلال تتبعي لمواضيعهم وما يقدمونه من عون لزملائهم الأعضاء.
في الحقيقة لقد شاهدت موضوع لأحد الزملاء في هذا المنتدى وقد أعجبتني الفكرة و أنا أطلب من الإخوة التعديل عليه لتحسين أداءة
الموضوع بهذا الرابط http://vb4arb.com/vb/showthread.php?tid=26196
( جهد يشكر عليه )
هل من تعديل على جمل for بكود بديل يقوم بنفس الفكرة وغرضي من هذا الطلب لزيادة سرعة أداء البرنامج في توليد الكلمات ( البرنامج بطيء نوعا ما فقط مرت على فكرة لهذا البرنامج و لاكن بلغة برمجة أخرى وقد كان أداء البرنامج رهيب من ناحية السرعة. ( البرمجة كانت بلغة python )
يكون حفظ تقسيم الملفات ألي أي يعطي أسم لكل ملف ينتهي منه ويكون تقسيم الملفات من خلال تحديد حجم الملف وليس عدد الملفات أي كلما وصل حجم الملف للحجم الذي يتم تحديده من قبل المستخدم يعطيه إسم ويحفظه ومن ثم يستكمل باقي توليد الكلمات في الملف التالي وهكذا حتى يستكمل التوليد.
هذه فكرتي لتحسين أداء البرنامج وهذا طلبي من الأساتذه الخبراء هنا من خلال إبدعاتهم في هذا المجال (( البرمجة))
RE: Word List Gen - yunis - 13-02-19
أين أنتم أساتذتنا الكرام
RE: Word List Gen - yunis - 13-02-19
RE: Word List Gen - yunis - 14-02-19
يبدو أنه لايوجد نية في تعاونكم هل _ أصبت أو أخطئت
RE: Word List Gen - princelovelorn - 14-02-19
(14-02-19, 12:57 PM)yunis كتب : يبدو أنه لايوجد نية في تعاونكم هل _ أصبت أو أخطئت
السلام عليكم ورحمة الله وبركاته
أستاذ الفاضل
رجاء عدم التسرع والحكم على النيات على أحد
فهنا الكل يتعاون بقدر الأستطاعة من حيث
أولا علمه
ثانيا وقت فراغه
وغالبا العذر الصحيح هو قلة وقت الفراغ لدى الأساتذة والأخوة الكرام هنا
كان الله في عون الجميع
نصيحة من أخ لك وأرجوا أن تتقبلها بصدر رحب
من الأفضل لك أولا وأخيرا
أن تقوم بالبدأ في تطبيق فكرتك بنفسك
وعرض الأخطاء التي ستقابلك هنا وصدقني ستجد ألف من يقدم لك المساعدة
فالغرض الأساسي من المنتدى هو التعليم وتقديم العلم
وتقديم المساعدة في طلب العلم
وليس تلبيه الطلبات وفقط
هذا ما تعلمته من الأساتذة والأخوة الكرام في المنتدى
والله سبحانه تعالى أعلى واعلم
وبالنسبة للجزء الثاني من الفكرة والمتعلق بالحجم
سيتم أستخدام فكرة الكود التالي
كود :
Imports System.IO
Module Module1
Sub Main()
' Get file info for test.txt.
' ... Create this file in Visual Studio and select Copy If Newer on its properties.
Dim info As New FileInfo("test.txt")
' Get length of the file.
Dim length As Long = info.Length
' Add more characters to the file.
File.AppendAllText("test.txt", " More characters.")
' Get another file info.
' ... Then get the length.
Dim info2 As New FileInfo("test.txt")
Dim length2 As Long = info2.Length
' Show how the size changed.
Console.WriteLine("Before and after: {0}, {1}", length, length2)
Console.WriteLine("Size increase: {0}", length2 - length)
End Sub
End Moduleومهمة الكود هو جلب حجم الملف
فأنشأ مشروع جديد وحاول تطبيق الكود على ملف txt
بمعنى ستقوم بإنشاء ملف txt بداخل مجلد البرنامج وتقوم بالتعديل عليه برمجيا باضافة نص له
وفي اثناء التعديل سيتم تطبيق الكود لجلب حجم الملف في timer
ووضعه في متغير او label او textbox اي كان لن تفرق
ثم زرع الناتج في دالة if المتعلقة بحفظ الملف
إذا كان حجم الملف 5 أوقف الدالة
وإلا أكمل الدالة
هذا مجرد سيناريو عملي بسيط لفكرتك
حاول تطبقها أو عدل عليها بحيث تصل لنتيجة مرضية
وأي مشكلة تواجهك ضعها هنا في قسم الأسئلة وستجد المساعدة بإذن الله تعالى
تمنياتي لك بالتوفيق والنجاح