20-12-14, 04:53 PM
السلام عليكم
كيفك ان شاء الله طيبين
اخواني
اريد عمل برنامج
اضغط زر
يضهر لي جمله محدده مثل abdullahs1 في ال(textbox)
يعني برنامج تخمين من لسته محدده
اتمنى المساعده باسرع وقت وشكرا
(20-12-14, 04:53 PM)3booy201 كتب : [ -> ]السلام عليكمكيفك ان شاء الله طيبيناخواني
اريد عمل برنامجاضغط زر
يضهر لي جمله محدده مثل abdullahs1 في ال(textbox)يعني برنامج تخمين من لسته محددهاتمنى المساعده باسرع وقت وشكرا
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))
(20-12-14, 09:08 PM)3booy201 كتب : [ -> ]اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا
(20-12-14, 09:08 PM)3booy201 كتب : [ -> ]اخواني لم تفهموا قصدي
انا لدي الان لسته محدده من عندي
وهي اسم مستخدم وكلمة مرور
مثلا:
abood00-1919
ahmad2-3939
اريد ان اضغط زر ويظهر احد الحسابات فالتكست بوكس
وشكرا
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