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

[Foksh]

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

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

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

 

 

Rotate.accdbFetching info...

[Moosak]

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

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

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

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

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

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

[Foksh]

  في 12‏/5‏/2024 at 04:36, Moosak said:

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

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

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

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

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

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

Expand  

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

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

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

 

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

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

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

[ابوخليل]

السلام عليكم

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

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

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

 

 

[Foksh]

  في 12‏/5‏/2024 at 09:56, ابوخليل said:

السلام عليكم

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

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

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

 

 

Expand  

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

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

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

[Moosak]

  في 12‏/5‏/2024 at 08:27, Foksh said:

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

Expand  

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

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

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

[Foksh]

  في 12‏/5‏/2024 at 10:08, Moosak said:

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

Expand  

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

 

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

[Moosak]

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

 

 

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

 

‏‏Meter -Moosak _ Final.accdbFetching info...

[Foksh]

  في 12‏/5‏/2024 at 18:01, Moosak said:

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

 

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

Expand  

 

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

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

[Foksh]

 

 

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

[Moosak]

  في 12‏/5‏/2024 at 18:12, Foksh said:

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

Expand  

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

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

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

[Foksh]

  في 12‏/5‏/2024 at 18:20, Moosak said:

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

Expand  

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

 

  في 12‏/5‏/2024 at 18:20, Moosak said:

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

Expand  

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

وهذا يا مهندسنا @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, 2024 بواسطه Foksh

[Foksh]

  في 12‏/5‏/2024 at 18:20, Moosak said:

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

Expand  

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

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

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

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, 2024 بواسطه Foksh
إضافة صورة