Animasyon Örnekleri - Eğik Düzlem ve Piston

Bu dosya, bir eğik düzlem ve piston düzeneğinin çalışmasını Excel sayfası üzerinde animasyon olarak gösterir. Hareket, sayfadaki şekillerin VBA makrosuyla adım adım kaydırılmasıyla elde edilir. Fizik ve mekanik derslerinde ya da VBA ile şekil animasyonu örneği incelemek için kullanılabilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Animasyonun oynatıldığı tek sayfadır. A1 hücresinde 5000 değeri bulunur. Hücrenin yanındaki açıklamaya göre bu değer, piston aşağı inen bloğu eğik düzlemde ne kadar süre tutacağını belirler.
• Sayfada kutle1, kutle2 ve piston adlı şekiller yer alır; makro bu şekilleri hareket ettirir.

Makrolar​

• Animasyon19 (1Modülü içinde): Animasyonun tamamını çalıştırır. Önce 103 adımda kutle2 aşağı iner, kutle1 eğik düzlem boyunca hem sağa hem yukarı kayar ve piston sola çekilir.
• Ardından 32 adımda piston ve kutle2 birlikte sola ilerler.
• Sonraki aşamada A1 hücresindeki sayı kadar Beep komutu çalışır. Bu döngü bekleme süresi işlevi görür; sayı büyüdükçe bekleme uzar.
• Son olarak hareketler ters sırada uygulanır: piston ve kutle2 sağa döner, şekiller başlangıç konumlarına gelir ve imleç A1 hücresine alınır.
• Her adımda DoEvents kullanıldığı için hareket ekranda akıcı görünür. Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Bekleme süresini değiştirmek için A1 hücresindeki değeri düzenleyin.
3. Alt+F8 tuşlarıyla makro listesini açın, Animasyon19 makrosunu seçip çalıştırın.
4. Animasyon bitince şekiller başlangıç konumuna döner; makro yeniden çalıştırılabilir.