هديتي الى الاستاد مجدي يونس (فانوس رمضان)

[شوقي ربيع]

السلام عليكم

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

اهديك بمناسبة حلول شهر رمضان هدا الملف

فانوس رمضان.rar

[megonil]

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

تم تعديل يونيو 27, 2013 بواسطه megonil

[شوقي ربيع]

'هدا كود زمني اي امر يوضع بعده لاينفد الا بعد انتهاء الفترة الزمنية التي حددتها
'الوقت او الزمن المحدد هنا هو جزاء من الثانية
 Sub Tm()
    secondes = 0.01
        timer_avant = Timer
         
        Do While Timer < timer_avant + secondes
            DoEvents
        Loop

  End Sub
'ادا اردت تحريك اي شيء في الاكسل كل ما عليك هو دمج الكود السابق مع الحلقات التكرارية
'مثال لجعل ليبل يتسع ببطاء
'أنشاء فورم جديد ضع فيه ليبل و كومبو بوتن ثم انسخ فيه هدا الكود ولاحض
Private Sub CommandButton1_Click()
    secondes = 0.1 'سرعة الحركة
    For a = 1 To 100  'متغير
        timer_avant = Timer
         
        Do While Timer < timer_avant + secondes
            DoEvents
        Loop
Me.Label1.Height = a 'هنا اضفنا كود لجعل عرض اليبل ياخد قيمت المتغير
Next
End Sub

''''''انتهينا من الفكرة الاساسية لتحريك الاشكال في الاكسل""""
'لو تلاحض ان الحركة تتوقف بوصول المتغير الى اخر قيمة له
'ادا كيف نجعل الحركة متواصلة
'الكود التالي استخدمته في الملف المرفق في اول الموضوع

Sub engrenage()
  vitesse = 0.01   'سرعة الحركة
  
    secondes = vitesse
       
   Do While start
         
        timer_avant = Timer
         
        Do While Timer < timer_avant + secondes
            DoEvents
        Loop
        
        Shapes("a").IncrementRotation  'هدا هو الكود الدي يجعل الحركة مستمرة
        'شرح لكود استمرار الحركة
        'Shapes("a")  a شكل او صورة داخل الاكسل اسمها
        'IncrementRotation امر يجعل الصورة او الشكل يدور حول نفسه
        SHMove 'كود جل الفانوس يتحرك
   Loop

End Sub
'لان نأتي الى شرح كود تحريك الفانوس
'الفكرة بسيطةجدا
'وهي وضع مجموعة من الصور في ملف الاكسل وجعلها تختفي وتضهر بالتوالي
'وهده هي الطرية

Sub SHMove()
VFalse 'كود لاخفاء جميع صور الفانوس
    secondes = vitesse
    'لدينا في الملف 18صورة
    'للفانوس وضعت فوق بعضها بطريقة مرتبة واوضاع مختلفة
For a = 1 To 36 '36 ضعف عدد الصورة الموجودة
b = Feuil2.Cells(a, 1).Text 'شاهد الورقة الثانية للملف ستفهم الامر
     'حيث جعلنا الرمز b
     'ياخد اسم صور الفانوس من الاول الى الاخير ثم من الاخير الى الاول
    
    timer_avant = Timer
 Do While Timer < timer_avant + secondes
            DoEvents
       Loop
Feuil1.Shapes(b).Visible = msoTriStateToggle ' هدا الامر يجعل الصورة تختفي ادا كانت ضاهرة والعكس ادا كانت مخفية
Feuil1.Shapes("Rectangle 22").Visible = msoTriStateToggle 'نفس الامر لكلمة رمضان كريم
        Next
        Feuil1.Shapes("Rectangle 21").Visible = msoCTrue 'امر لجعل الصورة تضهر
End Sub

Sub VFalse() 'كود لاخفاء جميع صور الفانوس
  
For a = 1 To 18
b = Feuil2.Cells(a, 1).Text
Feuil1.Shapes(b).Visible = msoFalse
Next
End Sub

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

http://www.officena.net/ib/index.php?showtopic=47857

[دغيدى]

أخى الفاضل / شوقى

تقبل الله منا ومنكم الصيــــام

[حمادة عمر]

اخي الحبيب / شوقي

ملك الحركات

 

سلمت يمينك

 

رمضـــان كـــريـــم

[رجب جاويش]

أخى الفاضل / شوقى ربيع

دائما صاحب أفكار متجددة

[أم عبد الله]

أستاذنا الفاضل / شوقي ربيع

 

عمل رائع .جزاك الله خيراً وكل عام وحضرتك بخير.

[ضاحي الغريب]

[شوقي ربيع]

 

أخى الفاضل / شوقى

تقبل الله منا ومنكم الصيــــام

 

الاستاد القدير جمال دغيدي

شكرا لمرورك  وتقبل الله منا ومنكم الصيام

تقبل تحياتي وشكري

[شوقي ربيع]

 

اخي الحبيب / شوقي

ملك الحركات

 

سلمت يمينك

 

رمضـــان كـــريـــم

 

الاخ الحبيب حمادة عمر

سلم قلبك من كل كرب

شكرا لمرورك العطر

تقبل تحياتي وشكري

[شوقي ربيع]

أخى الفاضل / شوقى ربيع

دائما صاحب أفكار متجددة

الستاد العزيز رجب جاويش

يسعدني ويشرفني مرورك العطر دائما

تقبل تحياتي وشكري

[شوقي ربيع]

أخى الفاضل / شوقى ربيع

دائما صاحب أفكار متجددة

الستاد العزيز رجب جاويش

يسعدني ويشرفني مرورك العطر دائما

تقبل تحياتي وشكري

[شوقي ربيع]

أستاذنا الفاضل / شوقي ربيع

 

عمل رائع .جزاك الله خيراً وكل عام وحضرتك بخير.

الاخت الفاضلة ام عبد الله

وانتي بخير ان شاء الله

شكرا لمرورك ولدعائك

تقبلي مني تحياتي وشكري

[شوقي ربيع]

الاخ الحبيب ضاحي الغريب (القلب التابض للمنتدى)

كل عام وانت بخير

شكرا لمرورك لحركاتك الجميلة

تقبل تحياتي وشكري

[شوقي ربيع]

الاخ الحبيب ضاحي الغريب (القلب التابض للمنتدى)

كل عام وانت بخير

شكرا لمرورك لحركاتك الجميلة

تقبل تحياتي وشكري

[مصطفى كمال متولى]

 

[شوقي ربيع]

 

 

 

الاخ مصطقى كامل

كل عام وانت بخير

تقبل تحياتي وشكري

[saad abed]

اخى شوقى ملك الحركات

حركاتك واعمالك جميلة جدا

حاول تشرح ولو فى سطور الكود افكارك

جزاك الله خيرا

[شوقي ربيع]

 

اخى شوقى ملك الحركات

حركاتك واعمالك جميلة جدا

حاول تشرح ولو فى سطور الكود افكارك

جزاك الله خيرا

 

الاخ سعد عابد

رمضان كريم وكل عام وانت بخير

شكرا لمرورك ولكلماتك

اعتقد اني شرحت الاكواد في اول الموضوع

ان تلبس عليك في اي جزاء اخبرني وانا في الخدمة

تقبل تخياتي وشكري

[مصطفى كمال متولى]

 

[جمال عبد السميع]

ماشاء الله عليك أخى الحبيب ( شوقى )

هدية جميلة من شخصية جميلة لشخصية جميلة بمناسبة جميلة

بارك الله فيك أخى الحبيب ( شوقى ) وزادك الله علما

بدون مبالغة أنت تعلم جيدا رأي فى أعمالك منذ ظهورك الأول ( أعمالك رائعة ) وجذابة

تقبل تحيات : أخيك

وكل عام والجميع بخير

[مجدى يونس]

الاخ / شوقى

هدية عظيمة من شخص عظيم باعماله

شكرا لك وكل عام وانت بخير واليك هدية منى

بوربوينت 2003 و 2010 والاغانى بداخلهم مختلفة

 

 

 

مع صورة للدعاء لمصرنا الغالية هذه الايام العصيبة

 

[شوقي ربيع]

الاخ الحبيب جمال عبد السميع (ملك المعادلات)

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

جزاك الله خيرا اخي الحبيب

وكل عام وانت بخير ان شاء الله

تقبل تحياتي وشكري

[شوقي ربيع]

استادي العزيز مجدي يونس

انت تستحق اكثر من هدية او كلامات او عبارت نبتهل بها بشخصك الجميل

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

وفرج الله  عن ابناء  بلدنا الثاني مصر ان شاء الله  وكافة الامة العربية

كل عام وانت ومصر بخير ان شاء الله

تقبل تحياتي وشكري

[مجدى يونس]

الاخ شوقى

شكرا لك وشكرا لدعواتك لمصر

ونتمنى الخير للجزائر ومصر وكل الدول العربية من المشرق الى المغرب