توليد ارقام عشوائيه

[TQTHAMI]

السلام عليكم ورحمة الله وبركاته

تقبل الله من ومنكم صالح الاعمال

لدي طلب وهو عند الضغط على امر التوليد

يظهر في الحقول من ((  1  -  32  ))  

من الرقم المدخل في حقل الرقم الاول  الى الرقم المدخل في حقل الرقم الاخير

ارقام عشوائيه غير مكرره

توليد رقم عشوائي.accdb

[د.كاف يار]

لتوليد رقم عشوائي استخدم الدالة Rnd

Int(Rnd() * 10000) + 1

 

[TQTHAMI]

اشكرك الرد السريع بارك الله فيك 

لكن لم افهم في اضعه وكيف اربط الحقول به

[د.كاف يار]

اتفضل التعديل

 

توليد رقم عشوائي.accdb

[TQTHAMI]

يادكتور على اسمك روح الله يوفقك في كل طريق تسلكه ويرزقك من غير ماتحتسب 

الف الف شكر 

[د.كاف يار]

العفو و تحت أمرك في اي وقت 

[TQTHAMI]

في اشكالية بسيطه بارك الله فيك

وهي انه عند التوليد يضع ارقام اقل من الموجوده في حقل الرقم الاول 

ونفس الشي اكبر من الرقم الاخير  مثال وضعت رقم 370 في الرقم الاول و 900 في الرقم الاخير 

يظهر ارقام اقل واكبر من مابين الحقلين

[د.كاف يار]

الان, TQTHAMI said:

في اشكالية بسيطه بارك الله فيك

وهي انه عند التوليد يضع ارقام اقل من الموجوده في حقل الرقم الاول 

ونفس الشي اكبر من الرقم الاخير  مثال وضعت رقم 370 في الرقم الاول و 900 في الرقم الاخير 

يظهر ارقام اقل واكبر من مابين الحقلين

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

مثلا متسلسلة

Int(Rnd()) + 1

 

[TQTHAMI]

للاسف ماعرفت لها لكن المرفق يفي بالغرض مؤقتا 

[د.كاف يار]

جرب هذا التعديل

 

توليد رقم عشوائي.accdb

[TQTHAMI]

نفس الشي يزيد عن الرقمين 

لو تحطه بين رقمين ثابته مثال  1 الى 30 فقط

الهدف من هذ هو عيدية الابناء وابناء الاخوه والخوات وغيرهم 

اضع رقمين وبينها يتم توليد الارقام واقوم باخبارهم بان كل واحد يختار رقم بين هذي الرقمين والي يطلع رقمه في الحقول يحصل على عيديه مدبوله 

وتقبل تحياتي واكثرة الطلب 

[د.كاف يار]

15 دقائق مضت, TQTHAMI said:

نفس الشي يزيد عن الرقمين 

لو تحطه بين رقمين ثابته مثال  1 الى 30 فقط

الهدف من هذ هو عيدية الابناء وابناء الاخوه والخوات وغيرهم 

اضع رقمين وبينها يتم توليد الارقام واقوم باخبارهم بان كل واحد يختار رقم بين هذي الرقمين والي يطلع رقمه في الحقول يحصل على عيديه مدبوله 

وتقبل تحياتي واكثرة الطلب 

 

الآن فهمت انك تحتاج توليد الرقم داخل نطاق الرقمين

اتفضل التعديل

 

توليد رقم عشوائي.accdb

[TQTHAMI]

 

ويعجز اللسان عن شكرك 

اتعبتك معي لكن نسال الله ان بارك لك الله في أهلك وفي مالك ويرفع لك منزلتك بين خلقه ويجعل لك الخير في يومك وفي سائر أيامك إن شاء الله.

[jjafferr]

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

 

اكتب كلمة Randomize في مساعد الاكسس ، وستحصل على الجواب:

.

ولا تستخدم علامة الناقص في اسماء كائناتك (بل استعمل الشرطه السفليه _ ) ، لأنها في الكود تصبح :

.

فتضطر الى معالجته بوضع اسم الكائن بين [] :

.

 

ولا تستخدم الارقام في تسمية الحقول ، فالاسم لا يظهر في الكود VBE ، مثلا انا طلب الحقل الذي اسمه 1 ، ولكن الكود لا يراه :

.

ولاحظ ان اخي حسين لم يتعامل مع حقل النموذج مباشرة ، بل تعامل مع الجدول 🙂

 

 

وعليه ، وحتى نتعامل مع حقل النموذج ، يصبح الكود :

Private Sub cmd_Generate_Random_Click()

    Dim i As Integer
    Dim f As Integer
    Dim e As Integer
    
    'ÇÍÝÙ ÓÌá ÇáäãæÐÌ
    If Me.Dirty Then Me.Dirty = False
    
    f = Me.[f-no]
    e = Me.[e-no]
    
    
    For i = 1 To 32
    
Try_Again:

        Dim MyValue
        Randomize Timer

        MyValue = Int((e * Rnd) + f)
             
        
        If MyValue < f Or MyValue > e Then
            GoTo Try_Again
        Else
             Me("[" & i & "]") = MyValue
        End If
        
    Next i
    
End Sub

.

 

جعفر

[husamwahab]

مشاركة مع اساتذتي الاجلاء 

ملاحظة : الكود يراعي عدم التكرار وللتحقق اختر الارقام من 1 الى 32

CreateNumbers.rar

[jjafferr]

شكرا جزيلا اخوي حسام انك نبهتنا لخطأ التكرار ، واللي صعب معرفته غير انك تجعل الارقام من 1 الى 32 🙂

 

هذا تعديل الكود حقي :

Private Sub cmd_Generate_Random_Click()

    Dim i As Integer
    Dim j As Integer
    Dim f As Integer
    Dim e As Integer
    
    Dim t As Single
t = Timer
    'احفظ سجل النموذج
    If Me.Dirty Then Me.Dirty = False
    
    f = Me.[f-no]
    e = Me.[e-no]
    
    For i = 1 To 32: Me("[" & i & "]") = 0: Next i
    For i = 1 To 32
    
Try_Again:

        Dim MyValue
        Randomize Timer

        MyValue = Int((e * Rnd) + f)
             
             
        '1. No Duplicates
        For j = 1 To i
            If Val(Me("[" & j & "]")) = MyValue Then GoTo Try_Again
        Next j
        
        '2 Smaller than, Or Greater than
        If MyValue < f Or MyValue > e Then
            GoTo Try_Again
        Else
             Me("[" & i & "]") = MyValue
        End If
        
    Next i
Debug.Print Timer - t
End Sub

.

وتلاحظ اني حسبت الوقت اللي الكود يأخذه في عمل اللازم ، ويمكن مقارنة سرعة الكود هذا مع كود اخوي حسين واخوي حسام 🙂

 

جعفر

[TQTHAMI]

عظيم الشكر والامتنان لكل

1-  د.كاف يار  راعي الاوله مايلح (مثل يعبر عن من سبق الكل)

2- jjafferr (ماشاء الله عليك لكن انا مبندي فعمل ماذكرت صعب علي )

3-husamwahab    (مثالك في قمت الروعه) 

من ساهم في مساعدتي أو  مر على موضوعي ولم يتمكن من المساعده

كلمه الشكر لا تفيكم حقكم ولا تعبر مدى امتناني لكم والشكر لكافة اعضاء المنتدى

 

كل عام وانتم دائماً بخير بمناسبة عيد الأضحي وجعل الله عيدكم فرحة وسعادة.

[jjafferr]

منذ ساعه, TQTHAMI said:

انا مبندي فعمل ماذكرت صعب علي

حياك الله 🙂

انا وضعت لك الكود جاهز ولا يحتاج تفكير في التطبيق ، بس اسم زر امر توليد الارقام ، اسمه cmd_Generate_Random ، وهذا كود الحدث ، والسلام 🙂

 

جعفر

[TQTHAMI]

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

علشان اذا اخترت رقم نثلا 12 وطلع في الحقول التي يزرع فيها الارقام العشولئيه يصير الون واحد مثلا احمر اوغيره

واكيد ان فيه اختصار بدل دالة اف 

توليد ارقام.accdb

[jjafferr]

 

اسماء الحقول اصبحت C1 و C2 و C3 ،

واعمل خلفيتهم باللون الذي تحب ،

وعند حدث بعد التحديث ، سيتم اختيار المربع الذي يحمل نفي الرقم ، بنفس لون الخلفية:

استعمل هذا الكود :

Private Sub Select_it(ctl As Control)

    For i = 1 To 32
    
        If Me("[" & i & "]") = Me(ctl.Name) Then
        
            Me("[" & i & "]").BackColor = Me(ctl.Name).BackColor
             
        End If
        
    Next i
    
End Sub

Private Sub C1_AfterUpdate()

    Call Select_it(C1)
End Sub

Private Sub C2_AfterUpdate()

    Call Select_it(C2)
End Sub

Private Sub C3_AfterUpdate()

    Call Select_it(C3)
End Sub

.

جعفر

 

1402.1.Random Numbers.accdb.zip

[TQTHAMI]

أتمنى من الله عز وجل أن يعطيكم الصحة والعافية، شكراً لكم على ما قدمتموه لي ودام الله عزّكم ودام عطائكم.

لي ولغيري 

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

كل عام وانتم دائماً بخير بمناسبة عيد الأضحي وجعل الله عيدكم فرحة وسعادة.

 

[husamwahab]

وهذه مشاركة مع اخي واستاذي العزيز استاذ جعفر

بطريقة التنسيق الشرطي

qqq.rar

[SEMO.Pa3x]

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

 

اسماء الحقول اصبحت C1 و C2 و C3 ،

واعمل خلفيتهم باللون الذي تحب ،

وعند حدث بعد التحديث ، سيتم اختيار المربع الذي يحمل نفي الرقم ، بنفس لون الخلفية:

استعمل هذا الكود :

Private Sub Select_it(ctl As Control)

    For i = 1 To 32
    
        If Me("[" & i & "]") = Me(ctl.Name) Then
        
            Me("[" & i & "]").BackColor = Me(ctl.Name).BackColor
             
        End If
        
    Next i
    
End Sub

Private Sub C1_AfterUpdate()

    Call Select_it(C1)
End Sub

Private Sub C2_AfterUpdate()

    Call Select_it(C2)
End Sub

Private Sub C3_AfterUpdate()

    Call Select_it(C3)
End Sub

.

جعفر

 

1402.1.Random Numbers.accdb.zip 57.38 kB · 2 downloads

 

سؤال هل هناك خلل!

ارى الرقم 52 باللون الأصفر والذي يقابله الرقم 40 باللون الأصفر، لماذا؟!

[jjafferr]

نعم هناك خلل في الصورة ، وليس في الكود 🙂

 

جعفر