ممكن طلب صغير عليكم لانكم مبرمجون كبار جدا

هل ترجعوا الذين يطلبون العلم؟

أرجوكم جاوبوني على السؤالي ؟

انا صممت برنامج مسابقة ولكن اريد هذا الكود لكي يكتمل برنامجي

اريد اذا ضغطت على الزر يطلع في Label كلام انا امحدده بالكود لا يتجاوز 15 كلمة ولا تتكرر الكلمة

واذ خلصت الكلام الذي انا امحدده بالكود يكتب في Label فزت في المسابقة

ممكن هذا الطلب يامبرمجين (لا ترجعوني خائبه )

:wacko: اللي يسأل ياريت يحط مثال ويشرح عليه مشكلته عشان الناس تحاول عليه لكن ايه اللي

يدري الناس باللي تقصديه :wacko:

اختى كما قال اخى حازم نتمنى ان تضعى مثال لاننا لم نفهم شئ فاذا كنتى تريدين الكتابة فى الليبل عند الضغط على الزر فبامكانك استخدام خاصية Caption لليبل مع الامر vbNewLine للانتقال الى سطر جديد لكن اذا اردتى توضيح اكثر فنتمنى ان تضعى مثال :rolleyes:

جرب هذا الكود وهو بداية للحل:

"label1="text here

ارجو وضع هذا الكود في زر الكوماند

هذا حسب ما فهمت من كلامك

كيف استطيع ادراج كود في المنتدى بشكل افضل من هذا حيث لاحظت ان بعض الاعضاء يدرجون الكود بطريقة جميله

موجود المثال في ملف مرفق

أنا اريد أن ضغطت على زر يطلع في Label كلمة من كلمات محددة في الكود والاختيار عشوائي والكلمة ان طلعت في Label لاتتكرر

الملف موجود : الملف مرفق

الرجاء ان تساعدوني انا بحاجه اليه باسرع وقت (لاترجعوني خائبه)

الكلمة العشوائيه.zip

جرب هذا الكود وهو بداية للحل:

"label1="text here

ارجو وضع هذا الكود في زر الكوماند

هذا حسب ما فهمت من كلامك

كيف استطيع ادراج كود في المنتدى بشكل افضل من هذا حيث لاحظت ان بعض الاعضاء يدرجون الكود بطريقة جميله

لا اخواني محد جاوبني صح انتم ماتعرفون ولا تعرفون ارجوكم انا محتاجه لكم

برنامج عبارة عن اداتان وهي command و label

اريد كودcommand مخزن به عدة كلمات ويطلع في label اي كلمة

من الكلمات المخزنه به (أي ان طرقه اختيارة عشوائيه)

أرجوكم هذا اول طلب لي

قمت بصنع هذا الكود لك يارب يكون قصدك هذا

الكلمة العشوائيه.zip

اعملي Array من الStrings و Array اخر من الintegers

الاول به الكلمات التي تريدين ان تظهريها

ثم قومي باستخدام هذا الكود لعمل generation لرقم عشوائي مابين قيمتين و هما HighestNumber و LowestNumber

Dim HighestNumber,LowestNumber

    HighestNumber = 11  'highest number to generate
    LowestNumber = 1     'Lowest number to generate
	Randomize
	index =  Int((HighestNumber * Rnd) + LowestNumber)
command1.Caption = MyStingArray(index)

و للتاكد من عدم تكرار الكلمات يمكنك ان تخزني رقم كل كلمة ظهرت من الStringArray في الIntegerArray و عندما تقومين بعمل Rnd مرة اخرى تاكدي انه غير موجود في الArray

الله يوفقك دينا واخره مشكور

بس صح طريقتك بس ما اريد مستخدم برنامجي هو يكتب الاسامي اريد انا احددها و

ارجوكم هذا اول طلب

السلام عليكم

هذا مثال بسيط لما طلب ارجو ان يوفى بالغرض و يكون واضح

HalfA.rar

ضعى هذا الكود فى كما هو وارسمى على الفورم command button و label

Dim MyArr(10, 1) As String

Private Sub Command1_Click()
Dim C As Integer
Dim Found As Boolean
Dim RandNum As Integer
Randomize

While C <= 10 And Found = False
    RandNum = Fix(Rnd * 10) + 1
    If MyArr(RandNum, 1) = "no" Then
        Found = True
    End If
    C = C + 1
Wend

If Found = True Then
Label1.Caption = MyArr(RandNum, 0)
MyArr(RandNum, 1) = "yes"
Else
MsgBox "تم اظهار جميع الاسماء"
End If
End Sub

Private Sub Form_Load()
MyArr(1, 0) = "Ahmed"
MyArr(2, 0) = "ibrahim"
MyArr(3, 0) = "yaser"
MyArr(4, 0) = "maged"
MyArr(5, 0) = "amgad"
MyArr(6, 0) = "abdullah"
MyArr(7, 0) = "yasin"
MyArr(8, 0) = "mohsen"
MyArr(9, 0) = "tamer"
MyArr(10, 0) = "samer"

MyArr(1, 1) = "no"
MyArr(2, 1) = "no"
MyArr(3, 1) = "no"
MyArr(4, 1) = "no"
MyArr(5, 1) = "no"
MyArr(6, 1) = "no"
MyArr(7, 1) = "no"
MyArr(8, 1) = "no"
MyArr(9, 1) = "no"
MyArr(10, 1) = "no"
End Sub

مشكور اخوي VB6_RoCKET الله يوفقك إن شاء الله انا الحين بجربه

لو طلع خلط المهم انك رديت يعطيك العافيه

هذا هو الي ابيه مشكور اخوي VB6_RoCKET

انا اول شي قلت (غلط) قصدي يعني البرنامج الي سويته ماهو الذي اريد

بس انت ذكي جدا وعرفت وش ابي وسويته

مشكورVB6_RoCKET

VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET

VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET VB6_RoCKET

مشكورين انتم البقيه لانكم حاولتو اتساعدوني ولكن مافهمتوني

لا شكر على واجب :) :) :) :) :) :)

لا اطلب الا الدعاء لى دعوة من القلب :)

ممكن اختى تبعثين لي البرنامج الى سويتيه

لاني محتاااااااااااااااااااج هذا البرنامج ظروري