تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج تخمين من لسته محدده
#1
Exclamation 
السلام عليكم
كيفك ان شاء الله طيبين
اخواني


اريد عمل برنامج 
اضغط زر
يضهر لي جمله محدده مثل abdullahConfuseds1 في ال(textbox)
يعني برنامج تخمين من لسته محدده
اتمنى المساعده باسرع وقت وشكرا Heart
الرد }}}}
تم الشكر بواسطة:
#2
(20-12-14, 04:53 PM)3booy201 كتب :
السلام عليكم
كيفك ان شاء الله طيبين
اخواني


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

وضح
كيف تخمين لسته معينة
هوا اللسة رقم ولا عندك كذا لسته بالرنامج ايش بالضبط Huh
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}}
تم الشكر بواسطة: سعود
#3
كود :
       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))
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: 3booy201
#4
اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا
الرد }}}}
تم الشكر بواسطة:
#5
(20-12-14, 09:08 PM)3booy201 كتب : اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا

دامك تعرف تبرمج
استخدم خاصية item
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

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

نفس الشي ونفس الطريقة 
الفرق كيف خزنت هذه القائمة؟
ان كان في Listbox فكما ورد وان كان في غيرها فاخبرنا.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#7
مشكورين هذا الكود الي احتاجه
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))
بس فيه مشكلة بالكود انه يختار من الليستبوكس بالترتيب ابغى اخليه عشوائي وشكرا
الرد }}}}
تم الشكر بواسطة:
#8
رفع...........
الرد }}}}
تم الشكر بواسطة:
#9
اخي الكريم الكود جربته وهو يشكل عشوائي


ولو حبيت من غير 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

المثال المحدث


الملفات المرفقة
.zip   For_3booy201.zip (الحجم : 36.21 ك ب / التحميلات : 10)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 59 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 39 19-05-17, 12:46 PM
آخر رد: medoddd
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 80 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 120 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 41 13-05-17, 01:28 PM
آخر رد: OakenShield
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 141 13-05-17, 07:41 AM
آخر رد: أبو نقطة
  مساعدة في ربط برنامج بالسكنر zinab ali 3 85 09-05-17, 10:55 PM
آخر رد: mansoor
  [سؤال] تعليم عمل برنامج مبيعات المبرمج العبقري 4 172 30-04-17, 12:42 PM
آخر رد: جميل علي
  انترنت اكسبولور داخل برنامج ديسك توب weswes88 1 60 18-04-17, 05:57 AM
آخر رد: Anas Mahmoud
  برنامج لتعليم ذوي الاحتياجات الخاصة Basil Abdallah 4 135 14-04-17, 12:24 AM
آخر رد: Amir_alzubidy

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


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