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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج تخمين من لسته محدده (/showthread.php?tid=10962)

برنامج تخمين من لسته محدده - 3booy201 - 20-12-14

السلام عليكم
كيفك ان شاء الله طيبين
اخواني


اريد عمل برنامج 
اضغط زر
يضهر لي جمله محدده مثل abdullahConfuseds1 في ال(textbox)
يعني برنامج تخمين من لسته محدده
اتمنى المساعده باسرع وقت وشكرا Heart


RE: برنامج تخمين من لسته محدده - mudz - 20-12-14

(20-12-14, 04:53 PM)3booy201 كتب :
السلام عليكم
كيفك ان شاء الله طيبين
اخواني


اريد عمل برنامج 
اضغط زر
يضهر لي جمله محدده مثل abdullahConfuseds1 في ال(textbox)
يعني برنامج تخمين من لسته محدده
اتمنى المساعده باسرع وقت وشكرا Heart

وضح
كيف تخمين لسته معينة
هوا اللسة رقم ولا عندك كذا لسته بالرنامج ايش بالضبط Huh

RE: برنامج تخمين من لسته محدده - سعود - 20-12-14

كود :
       Dim a As Integer = Nothing
       a = Int(Rnd() * ListBox1.Items.Count)
       On Error Resume Next
       TextBox1.Text = ListBox1.Items.Item(a)
       If ListBox1.Items.Count = 0 Then
           TextBox1.Clear()
       End If
       ListBox1.Items.Remove(ListBox1.Items.Item(a))


RE: برنامج تخمين من لسته محدده - 3booy201 - 20-12-14

اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا

RE: برنامج تخمين من لسته محدده - mudz - 21-12-14

(20-12-14, 09:08 PM)3booy201 كتب : اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا

دامك تعرف تبرمج
استخدم خاصية item

RE: برنامج تخمين من لسته محدده - سعود - 21-12-14

(20-12-14, 09:08 PM)3booy201 كتب : اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا

نفس الشي ونفس الطريقة 
الفرق كيف خزنت هذه القائمة؟
ان كان في Listbox فكما ورد وان كان في غيرها فاخبرنا.

RE: برنامج تخمين من لسته محدده - 3booy201 - 25-12-14

مشكورين هذا الكود الي احتاجه
Dim a As Integer = Nothing
a = Int(Rnd() * ListBox1.Items.Count)
On Error Resume Next
TextBox1.Text = ListBox1.Items.Item(a)
If ListBox1.Items.Count = 0 Then
TextBox1.Clear()
End If
ListBox1.Items.Remove(ListBox1.Items.Item(a))
بس فيه مشكلة بالكود انه يختار من الليستبوكس بالترتيب ابغى اخليه عشوائي وشكرا

RE: برنامج تخمين من لسته محدده - 3booy201 - 25-12-14

رفع...........

RE: برنامج تخمين من لسته محدده - سعود - 25-12-14

اخي الكريم الكود جربته وهو يشكل عشوائي

ولو حبيت من غير Listbox
كود :
Public Class Form1
    Dim names As New List(Of String)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
b:
        Dim a As Integer = Nothing
        a = Int(Rnd() * names.Count)

        If names.Count = 0 Then TextBox1.Clear() : Exit Sub
        If TextBox1.Text = names.Item(a) Then
            GoTo b
        End If
        TextBox1.Text = names.Item(a)
        names.Remove(names.Item(a))
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()

        names.Add("سعود")
        names.Add("ناجح")
        names.Add("علي")
        names.Add("ماضي")
        names.Add("عارف")

    End Sub

  
End Class
المثال المحدث