تدوير صورة بمقدار قيمة معينة من الدرجات

[Foksh]

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا الأفاضل ،

هل من الممكن تحقيق الهدف بأن يتم تدوير صورة معينة عن طريق تحديد زاوية الدوران ؟

هذه صورة توضيحية للمطلوب ، ومرفق معها مثال للتطبيق عليه .

 

 

Rotate.accdb

[Moosak]

وعليكم السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 

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

ولكن يتبادر في ذهني هذه البدائل :

1 - تصميم عدة صور ( أسهم ) بزوايا مختلفة وميلان مختلف ، وعند كل نتيجة تستدعي الصورة المناسبة . 

2- تستعيض عن صورة السهم بأداة الخط المتاحة من ضمن أدوات الأكسس ولكنها بدون رأس مدبب (السهم) 

وهذين الحلين تطبيقهما يسير بعون الله 🙂 

[Foksh]

3 ساعات مضت, Moosak said:

وعليكم السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 

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

ولكن يتبادر في ذهني هذه البدائل :

1 - تصميم عدة صور ( أسهم ) بزوايا مختلفة وميلان مختلف ، وعند كل نتيجة تستدعي الصورة المناسبة . 

2- تستعيض عن صورة السهم بأداة الخط المتاحة من ضمن أدوات الأكسس ولكنها بدون رأس مدبب (السهم) 

وهذين الحلين تطبيقهما يسير بعون الله 🙂 

أهلاً بأستاذنا الكبير @Moosak ، بارك الله فيك على الإستجابة السريعة 🥰 .

أنا أعلم أن اكسيس لا يوفر هذه الخاصية ، ولكن تبادر لذهني تنفيذ الفكرة بشكل برمجي إن كان ممكناً .

كفكرة عقارب الساعة مثلاً أنها تدور حول مركز محدد 😉 .

 

اما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 .

واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁 .

تم تعديل مايو 12 بواسطه Foksh

[ابوخليل]

السلام عليكم

القريب لطلبك هو الاستفادة من الاكواد الخاصة بالساعة .. حصرا عقرب الثواني فقط .. واستبدال المصفوفة في المتغير بدلا من ( 0 الى 60 ) الى ( 0 الى 360 )

وبدلا من حدث التايمر (التاريخ والوقت) يكون قيمة ثابتة عند النقر

اذكر اني محتفظ بمثال للساعة ولكن جهازي بعيد ، ومؤكد لو بحثت عنه هنا ستجده

 

 

[Foksh]

6 دقائق مضت, ابوخليل said:

السلام عليكم

القريب لطلبك هو الاستفادة من الاكواد الخاصة بالساعة .. حصرا عقرب الثواني فقط .. واستبدال المصفوفة في المتغير بدلا من ( 0 الى 60 ) الى ( 0 الى 360 )

وبدلا من حدث التايمر (التاريخ والوقت) يكون قيمة ثابتة عند النقر

اذكر اني محتفظ بمثال للساعة ولكن جهازي بعيد ، ومؤكد لو بحثت عنه هنا ستجده

 

 

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

أهلاً بصاحب الأفكار العبقرية 😀 ، حمداً لله على سلامتك معلمي الفاضل @ابوخليل . والله ما تطرقت للتشبيه في ردي على الأستاذ @Moosak إلا من وحي هذه الفكرة الخاصة من مثال الساعة .

سأجرب وأخبركم بالنتيجة 🤗 

[Moosak]

1 ساعه مضت, Foksh said:

ما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 .
واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁

الحين مع البرمجة صار إنتاج 360 صورة ما ياخذ ثواني 😄✌

عليك بالفكرة الثانية إذا .. وسنحتاج إلى صورة عداد وخط واحد فقط إذا عرفنا (فهمنا) الخوارزمية اللي على أساسها يدور العقرب . 🙂 

تصور للنتيجة :

[Foksh]

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

الحين مع البرمجة صار إنتاج 360 صورة ما ياخذ ثواني 😄✌

الفكرة ليست في انتاج الصور الـ 360  .. الفكرة في مساحة النموذج بعد إدراج الصور .

 

أما الفكرة الثانية فهي ما ابحث عنه ؛ وبدعمكم وافكاركم وتوجيهاتكم سنتوصل الى حل بإذن الله 

[Moosak]

وهذه مغامرتي وتجربتي بعد العديد من المحاولات 😊

 

 

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

 

‏‏Meter -Moosak _ Final.accdb

[Foksh]

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

وهذه مغامرتي وتجربتي بعد العديد من المحاولات 😊

 

‏‏Meter -Moosak _ Final.accdb 576 kB · 0 downloads

 

مجهود رائع جداً ولا شك فيه ..

ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!

[Foksh]

 

 

انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 360 درجة ، حتى أنني دعمت فكرة الزوايا التي تكون قيمتها أقل من 0 ( -250 ) مثلاً ، وقد انتهيت منها الى حد ما  

[Moosak]

8 دقائق مضت, Foksh said:

ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!

في الوقت الحالي هذا العداد من 1 إلى 160 .. ولو تم إدخال رقم أقل من الصفر أو أعلى من 160 فسيقف عند الحد الأدنى أو الأعلى ..
 

أما لو كنت تقصد أن الحالة لديك تستدعي ترقيم مختلف ، حينها سنحتاج لإعادة التصميم والأرقام المخزنة 😁 (وهذا سهل إن شاء الله ) ..
 

ولكني سأقف هنا حتى أستمتع بالنظر إلى فكرتك 😄

[Foksh]

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

وهذا سهل إن شاء الله

إن شاء الله سهلة عليك مهندسنا الكبير ,,
أما بالنسبة لفكرتي فسأذكر سبب حاجتي لهذه الفكرة ، وهي أنني سأضيف فكرة اتجاه القبلة الى برنامجي ( صلوات ) ، وتعتمد الفكرة في تنفيذها على عملية حسابية تستند الى خطي الطول والعرض لكل موقع . 😁

 

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

ولكني سأقف هنا حتى أستمتع بالنظر إلى فكرتك 😄

حاضر يا سيدي ، حال انتهائي سأدرجها هنا 

وهذا يا مهندسنا @Moosak الكود الذي خلصت به لتنفيذ فكرتي 

    Dim ctrl As Control
    Dim secValue As Integer
    Dim Rx As Integer
    Rx = Abs(Me.Txt_Sec.Value)
    secValue = Abs(Round(Me.Txt_Sec.Value / 6, 0))
    If Me.Txt_Sec.Value < 0 Then
        secValue = (360 - Rx) \ 6
    End If
    For Each ctrl In Controls
        If Left(ctrl.Name, 1) = "s" Then
            If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then
                Me(ctrl.Name).Visible = True
            Else
                Me(ctrl.Name).Visible = False
            End If
        End If
    Next

 

تم تعديل مايو 12 بواسطه Foksh

[Foksh]

23 ساعات مضت, Moosak said:

ولكني سأقف هنا حتى أستمتع بالنظر إلى فكرتك 😄

تم الإنتهاء من الفكرة ولله الحمد ,,

وأرجو التكرم بتجربة الفكرة وإخباري بالنتيجة أو رأيكم ..

الكود الأول للزر المسؤول عن طلب إدخال القيمة

Private Sub Btn_Job_Click()
    Dim userInput As String
    Dim numericValue As Double
    Do
        userInput = InputBox("الرجاء إدخال القيمة رقمية", "إدخال قيمة")
        If userInput = "" Then
            Exit Sub
            Else
            DisplayQiblaDirection userInput
        End If
        If IsNumeric(userInput) Then
            numericValue = CDbl(userInput)
            Exit Do
        Else
            MsgBox "الرجاء إدخال قيمة رقمية فقط", vbExclamation, "قيمة غير رقمية"
        End If
    Loop
End Sub

 

الدالة التي من خلالها تم حل المشكلة وهي عرض الصورة التي تدل على الزاوية أو القيمة التي تم إدخالها في الرسالة . مع العلم أن كل صورة تمثل 6 درجات

Private Sub DisplayQiblaDirection(ByVal userInput As String)
    Dim secValue As Integer
    Dim Rx As Integer
    Dim ctrl As Control
    Dim numericValue As Double
    If IsNumeric(userInput) Then
        numericValue = CDbl(userInput)
    Else
        Exit Sub
    End If
    Rx = Abs(numericValue)
    secValue = Abs(Round(numericValue / 6, 0))
    If numericValue < 0 Then
        secValue = (360 - Rx) \ 6
    End If
    For Each ctrl In Controls
        If Left(ctrl.Name, 1) = "s" Then
            If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then
                Me(ctrl.Name).Visible = True
            Else
                Me(ctrl.Name).Visible = False
            End If
        End If
    Next
End Sub

 

Test Directions.zip

تم تعديل مايو 13 بواسطه Foksh
إضافة صورة