تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة
#1
السلام عليكم

عندى برنامج مكون من فورم 1

بجانب البرنامج يوجد ملفين نصى
1.txt الخاص بعدد مرات تشغيل البرنامج
2.txt يوجد به عناصر سوف تضاف لليست بوكس فى البرنامج

الفورم يحتوى على ليست بوكس

فى الملف رقم 1 هكتب فيه رقم والرقم دا يكون عدد مرات تشغيل البرنامج

يعنى مثلا لو كتبت فيه 5 يبقا البرنامج يفتح نفسه 5 مرات

ثانيا الملف رقم 2 نفترض ان به 100 عنصر

والبرنامج فتح مثلا 5 مرات عايز بقا يقسم عدد العناصر على البرامج المفتوحة مثلا هو مفتوح 5 مرات

و 100 على 5 = 20

يبقا كدا المفروض كل برنامج منهم هيضاف لليست بوكس بتاعته 20 عنصر

يبقا كدا المطلوب

هو فتح البرنامج بعدد مرات معينة من اختيار المستخدم و تقسيم عدد العناصر على البرامج المفتوحة

اتمنى يكون الطلب واضح

شكرا لكم مقدما


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 45.54 ك ب / التحميلات : 52)
الرد
تم الشكر بواسطة:
#2
اذا كان (بجانب البرنامج يوجد ملفين نصى) وكان البرنامج في مجلد البرامج Program Files فستحتاج لصلاحيات الكتابة.
الرد
تم الشكر بواسطة: الماجيك مسعد , zinom , zinom
#3
(06-05-17, 08:34 PM)mansoor كتب : اذا كان (بجانب البرنامج يوجد ملفين نصى) وكان البرنامج في مجلد البرامج Program Files فستحتاج لصلاحيات الكتابة.

هههه شكرا لك للتنبيه ولكن اخى الغالى لا اظن ان الصلاحيات هى مشكلة بالنسبة لى اكتر من عمل كود يفعل المطلوب
الرد
تم الشكر بواسطة:
#4
نعم جوابي للتنبيه فقط، ولكن الباقي أتركه لم سبق له الدخول في مسألة عدد مرات التشغيل وبقية التفاصيل التي في الموضوع.
الرد
تم الشكر بواسطة: zinom
#5
ياريت لو تشاركنا بمثال يمكن نقدر نساعد

الموضوع بخصوص الحمايه اخي مسعد ؟!
مظبوط كلامي؟
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة: الماجيك مسعد
#6
(07-05-17, 01:52 AM)zinom كتب : ياريت لو تشاركنا بمثال يمكن نقدر نساعد

الموضوع بخصوص الحمايه اخي مسعد ؟!
مظبوط كلامي؟

تفضل http://vb4arb.com/vb/attachment.php?aid=14157

لا ليس الغرض منه الحماية وانما انجاز بعض الاعمال
الرد
تم الشكر بواسطة:
#7
شكرا لكم جميعا

تم المساعدة بواسطة صديق خارج المنتدى

والحل

'Current Process
Dim proc As Process = Process.GetCurrentProcess()

'All running processes with the same name
Dim procs() As Process = Process.GetProcessesByName(proc.ProcessName)
'////////////////////////////////////////////////////////////////////////////////'
'Read settings file
'Should be first line = Instances:5 , second line = DataLength:1000
Dim settings() As String = File.ReadAllLines(Path.Combine(APATH, "Settings.txt"))

'Read how many instances the user want
Dim instances As Integer = Integer.Parse(settings(0).Replace("Instances:", ""))

'Get data file length
Dim len As Integer = Integer.Parse(settings(1).Replace("DataLength:", ""))
'////////////////////////////////////////////////////////////////////////////////'

'Check if this one is the first instance
If procs.Length = 1 Then
'Open the program n times
For index = 1 To instances - 1
Process.Start(proc.ProcessName)
System.Threading.Thread.Sleep(200)
Next
ElseIf procs.Length > instances Then
MessageBox.Show("Cannot create more instances")
System.Environment.Exit(0)
End If


Dim skip As Integer = (procs.Length - 1) * (len \ instances)
'if proces.Length == instances take (len - skip) else take (len / instances)
'to make sure there is no leftover data
Dim take As Integer = If(procs.Length = instances, (len - skip), (len \ instances))


'Read the data
data = File.ReadLines(Path.Combine(APATH, "2.txt")).Skip(skip).Take(take).ToArray()
ListBox1.Items.AddRange(data)
'For debugging, Show HM instances are running & data[0] - data[max] in the title
Text = procs.Length & ":" & data(0) & ":" & data(data.Length - 1)
الرد
تم الشكر بواسطة: khodor1985 , zinom


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية معرفه مسار الويندوز أو بمعني آخر ازاي اعرف البارتيشن ال نازل عليه الويندوز حسن الجلب 1 58 , 09:59 PM
آخر رد: Mohamad Anan
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 1 71 15-10-21, 06:47 PM
آخر رد: asemshahen5
  [سؤال] كيفية عمل زر بحث والنتائج بجدول DeSSaR 7 6,932 28-09-21, 02:45 AM
آخر رد: karim5009
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 357 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
  [سؤال] كيفية تحميل ادوات الديف اكسبريس ؟ منه 7 1,577 25-09-21, 01:01 PM
آخر رد: Lathe1
  لماذا تختفي القيم المسندة للاعدادات عند نقل البرنامج ابو انس 3 237 20-09-21, 10:21 PM
آخر رد: alfaiz678
  مشكلة في نقل البرنامج الى جهاز اخر سيف الشمال 8 808 19-09-21, 03:13 PM
آخر رد: سيف الشمال
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 10 506 13-09-21, 12:45 AM
آخر رد: ابراهيم ايبو
  كيفية عمل المشغل anes 1 240 10-09-21, 05:13 PM
آخر رد: ميدو الفنان
  [VB.NET] كيفية اضافة ال public key token في البرنامج Codack 0 234 07-09-21, 07:30 PM
آخر رد: Codack

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


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