الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نظام تصويت بvisual Basic 2005

بدأه alhatmi88 في 28 أبريل 2011 · 6 رد · 577 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سيناريو البرنامج هو كالتالي:

عبارة عن برنامج يساعد الأعضاء في اختيار رئيس المجموعة.بحيث أعمل نافذة تحمل اسماء المترشحين وأقدر أضيف فيها أكثر من مترشح

فلما يدخل الأعضاء للتصويت يضغط كل عضو على المترشح اللي يختاره فتنفتح نافذة أخرى تظهر فيها أسماء المترشحين والأصوات اللي حصلوا عليها.

وبعد كذا راح أعمل نافذة أخرى فيها ترتيب المترشحين من حيث أعلى الأصوات.

لحد الآن أنا قمت بعمل النافذة الأول الخاصة بالمترشحين وتسمح لهم بإضافة اسمائهم للترشح.

ولكن لم أعرف كيف أجعل الأعضاء يقوموا بالتصويت

هنا أريد المساعدة بالضبط

وفقكم الله

#2

عفواً إخوتي أنا لا أريد منكم أن تحلوا لي الواجبات

فقط أريد المساعدة في بعض النقاط فمثلاً المشكلة التي أواجهها الآن هي أنني لا أستطيع حفظ أسماء المرشحين في ملف TXT كما في الصور

927008279.jpg

124497884.jpg

وهذا الكود الذي استخدمته في زر Save


SaveFileDialog1.ShowDialog()
Using ofd As New OpenFileDialog
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
IO.File.WriteAllText(ofd.FileName, Me.ListBox1.SelectedItem)
End If
End Using
  SaveFileDialog1.Filter = "Text files(*.txt)|*.txt"

ولكن لم يفي بالغرض فأن أريد حفظ الItems للListBox

#3

وأخيراً شباب عرفت الحل

وحتى تعم الفائدة إليكم إياه:

في زر Save نكتب

Using SW As New IO.StreamWriter("C:\Users\alhatmi88\Desktop\Candidates.txt", True)
            For Each itm As String In Me.ListBox1.Items
                SW.WriteLine(itm)
            Next
        End Using
#4

شباب سؤال آخر:

كيف أقدر أن أجعل

عندما يختار المستخدم أحد المرشحين تزيد عدد نقاط المرشح ويرتفع اسمه أعلى القائمة؟

تم تعديل هذه المشاركة بواسطة alhatmi88 في 30 أبريل 2011 في 13:53

#5

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

اخي عندما يختار مرشح ما قم بتعديل عدد الاصوات له بمقدار 1 عبر جملة Update .. وطبعا عند عرضك للمرشحين اعرضهم حسب عدد الاصوات يعني Order By Votes Descending

.:: Wish to become better and better ::.

#6
VB Helper كتب:

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

اخي عندما يختار مرشح ما قم بتعديل عدد الاصوات له بمقدار 1 عبر جملة Update .. وطبعا عند عرضك للمرشحين اعرضهم حسب عدد الاصوات يعني Order By Votes Descending

أخي هل ممكن تعطيني مثال توضيحي عليها

إذا ممكن؟

#7

شباب أرجو أن لا تبخلوا علي بالمساعدة

مواضيع مشابهة