إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

كيفية جعل الازرار تدور حول مركز الاسطوانة

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • كيفية جعل الازرار تدور حول مركز الاسطوانة

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

    اخوتي الكرام اعمل على مشروع به عدة ازرار وقرأت في بعض المواقع ان بالامكان جعل الازرار تدور حول مركز الاسطوانة كما تدور الكواكب حول الشمس.
    فهل بامكانكم مدي بالاكواد المناسبة لهذا العمل مغ الشرح المفصل والممل لان لا خبرة لي في هذا المجال .
    ولكم سلفا كل الشكر والتقدير
    أخوكم في الله
    والسلام

  • #2
    الاكواد ستعتمد على مقاس صفحة المشروع
    وعدد الازرار و تسمياتها
    موفق
    يمكنك ارسال ملف مفتوحا لمواصفات مشروعك

    تعليق


    • #3
      كيفية جعل الازرار تدور حول مركز الاسطوانة

      السلام عليكم ورحمة الله وبركاته
      شطرا اخي على الرد لكن كيف اعمل ملفا مفتوحا ؟
      مقاسات مشروعي 800× 600 وادخلت الاكواد التي تجعلها مرنة مع حجم الشاشة
      بالمشروع 9 ازرار مستطيلة الشكل
      جازاك الله عنا كل خير وجعلها في ميزان حسناتك
      والسلام

      تعليق


      • #4
        في الحدث on startup ضع الكود

        كود:
        delta=2;
        steps=720;
        Center_X=800/2;
        Center_Y=600/2;
        Radius_X=200;
        Radius_Y=90;
        Speed=25;
        Count_Buttons=9;
        في الحدث global function ضع
        كود:
        function display(w,Count_Buttons,delta)
          w=2*math.pi /Count_Buttons;
          for x=1,Count_Buttons do
            result_x = Center_X+Radius_X*Math.Cos(w*(x-1)+delta);
            result_y = Center_Y+Radius_Y*Math.Sin(w*(x-1)+delta);
            BuSize=1+(Math.Sin(w*(x-1)+delta))/2;
            BuWidth=44*BuSize;
            BuHight=44*BuSize;
            Button.SetPos("Button"..x, result_x, result_y);
            Button.SetSize("Button"..x,BuWidth,BuHight)
          end
        end
        في حدث الصفحة on show
        كود:
        Page.StartTimer(Speed);
        وفي الحدث on timer

        كود:
        delta=Math.Mod(delta+2*math.pi/steps,(2*math.pi));
        display(w,Count_Buttons,delta)
        على أن تكون الازرار التسع بالتسميات
        Button2 - Button1 إلى غاية Button9

        موفق

        تعليق


        • #5
          كيفية جعل الازرار تدور حول مركز الاسطوانة

          بسم الله الرحمن الرحيم
          السلام عليكم ورحمة الله وبركاته
          جازاك الله اخي على الاكواد كل الخير لقد وقعت تجربتها بنجاح لكن المشكلة ان الازرار اصبح حجمها صغيرا وتسمية الزر لا يظهر منها الا جزء صغير فهل حل هذا المشكل ولك كل التقدير والاحترام
          والسلام

          تعليق


          • #6
            ماهو مقاس الأزرار في مشروعك

            تعليق


            • #7
              كيفية جعل الازرار تدور حول مركز الاسطوانة

              شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
              مقاس الازرار 204 × 60
              موفق بإذن الله ... لك مني أجمل تحية .

              تعليق


              • #8
                لاحظ أخي أن الأزرار كبيرة الحجم مقارنة مع مقاسات المشروع
                المهم
                عدلت في on startup
                كود:
                 delta=2;
                steps=720;
                Center_X=800/2;
                Center_Y=600/2;
                Radius_X=[COLOR="Red"]300[/COLOR];
                Radius_Y=90;
                Speed=25;
                Count_Buttons=9;
                في الحدث global function

                كود:
                function display(w,Count_Buttons,delta)
                  w=2*math.pi /Count_Buttons;
                  for x=1,Count_Buttons do
                    result_x = Center_X+Radius_X*Math.Cos(w*(x-1)+delta);
                    result_y = Center_Y+Radius_Y*Math.Sin(w*(x-1)+delta);
                    BuSize=1+(Math.Sin(w*(x-1)+delta))/2;
                    BuWidth=[COLOR="Red"]120[/COLOR]*BuSize;
                    BuHight=[COLOR="Red"]50[/COLOR]*BuSize;
                    Button.SetPos("Button"..x, result_x, result_y);
                    Button.SetSize("Button"..x,BuWidth,BuHight)
                  end
                end
                ثم اعتمدت على كتابة " السلام عليكم ورحمة الله " في أحد الأزرار
                بحجم خط = 10 و توسيط للجملة في الزر
                وعاينت على أمل أن لا تختفي الجملة أثناء عملية الدوران

                أتمنى أن تكون المحاولة مقبولة

                تعليق


                • #9
                  كيفية جعل الازرار تدور حول مركز الاسطوانة

                  السلام عليكم ورحمة الله وبركاته
                  لقد نجحت التعديلات في الاكواد في ابراز الكتابة على الازرار بشكل كبير واصبحت الازرار ايضا تدور في وسط المشروع على عكس المرة الاولى كانت تدور على جانب من الشاشة
                  فشكرا مجددا لك وابقاك الله ذخرا لنا ولبلقيس
                  تصبح في خير ونعمة والسلام
                  ملاحظة : فكرت في تصغير حجم الhttp://sites.ienajah.com/vb2/images/smilies/abc_152.gifخط وليس الازرار .

                  تعليق


                  • #10
                    بارك الله فيك وموفق وفي خدمتك أخي

                    موفق

                    شكرا جزيلا

                    تعليق


                    • #11
                      شكرا اخى ثامر

                      تعليق


                      • #12
                        جمييييييييييييييييييييييي يييل
                        اية الحلاوه دى

                        تعليق

                        مواضيع تهمك

                        تقليص

                        المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                        المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                        المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                        المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                        المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                        يعمل...
                        X