اختيار عشوائي للحروف دون تكرار

[hougar]

السلام عليكم

اريد انشاء كود برمجي يختار الحروف عشوائيا في خانات محددة

والملف المرفق يوضح ذلك

 

GAME WORD.accdb

[Moosak]

وعليكم السلام أخي @hougar 🙂 

تكرما .. إشرح الفكرة كاملة لكي تتضح الطريقة المطلوبة .. ( كأنك تحاول تصميم لعبة أو مسابقة من نوع ما ؟! ) ..
ما هي الآلية التي تريدها ؟

كم عدد الحروف التي ستظهر كل مرة ؟

وماذا بعد ظهور الحروف ؟

تم تعديل نوفمبر 6, 2022 بواسطه Moosak

[hougar]

37 دقائق مضت, Moosak said:

وماذا بعد ظهور الحروف ؟

بعد ظهور الحروف ستلاحظ أنه عند النقر على خانة حرف ما يتم اختياره وتظهر حانات جديدة وعند النقر على Command8 تتشكل كلمة

[husamwahab]

عليكم السلام

تفضل التعديل حسب فهمي , ارجو ان يكون طلبك

GAME WORD_10.rar

[jjafferr]

وعليكم السلام 🙂

 

وهذه طريقتي :

.

وهذه محركات العمل :

Option Compare Database

    Dim Number_Exists As String
    Dim i As Long
'

Sub Rnd_Number()

    Dim Max_Number As Long, Rnd_Number As Long
    
    Max_Number = DCount("*", "Char")
    
    
    For i = 1 To 5
    
    
Start_Over:

        Randomize
        Rnd_Number = Int((Max_Number * Rnd) + 1)
    
        'check if this number was used
        If InStr(Number_Exists, Rnd_Number) > 0 Then
    
            'this number exists, get another one
            GoTo Start_Over
    
        Else
        
            'its a new number, add it
            Number_Exists = Number_Exists & Rnd_Number
        
        End If
    
        
        'use the number, get the Char
        Me("T" & i - 1) = DLookup("Cha1", "Char", "IDW=" & Rnd_Number)
    
    Next i
    
End Sub


Private Sub cmd_Fresh_Sart_Click()

    Number_Exists = ""
    
    Call Clear_Fields
    Call Rnd_Number
End Sub


Private Sub Form_Load()

    Call Clear_Fields
    Call Rnd_Number
End Sub

Sub Clear_Fields()

    'clear the lower fields
    For i = 1 To 5
        Me("ch" & i) = ""
    Next i
    
    Me.Word0 = ""
    
End Sub

 

جعفر

1525.GAME WORD.accdb.zip

[hougar]

16 ساعات مضت, husamwahab said:

تفضل التعديل حسب فهمي , ارجو ان يكون طلبك

بارك الله فيك وشكرا على الإجابة الوافية .... وطريقتك في الكود بسيطة لكنها لا تمنع تكرار ظهور الحرف.

شكرا لك وألف شكرا فمنكم نتعلم

[hougar]

9 ساعات مضت, jjafferr said:

Start_Over:

        Randomize
        Rnd_Number = Int((Max_Number * Rnd) + 1)
    
        'check if this number was used
        If InStr(Number_Exists, Rnd_Number) > 0 Then
    
            'this number exists, get another one
            GoTo Start_Over
    
        Else
        
            'its a new number, add it
            Number_Exists = Number_Exists & Rnd_Number
        
        End If

شكرا جزيلا كفيت وزيادة عنما طلبته

ولآنني أتعلم منكم أسألك أحي جعفر هل هذا هو الكود الذي يمنع التكرار

وشكرا جزيلا مرة أخرى

[jjafferr]

اليك الشرح كاملا :

 

1. عدد سجلات الجدول ،

2. استخراج رقم عشوائي بين الرقمين 1 وعدد السجلات ،

3. هل الرقم العشوائي موجود في المتغير Number_Exists :

4. نعم موجود ، اذن ارجع لإختيار رقم آخر ،

5. لا ، غير موجود ، اذن اضفه الى المتغير Number_Exists .

 

جعفر

[hougar]