Eğik Düzlem ve Piston

Bu dosya, bir pistonun ve eğik düzlem üzerindeki kütlelerin hareketini Excel sayfası üzerinde canlandıran makrolu bir animasyon şablonudur. Hareket, sayfadaki şekillerin VBA ile adım adım kaydırılmasıyla oluşturulur.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: Tek sayfadır (A1:J21). Üzerinde kutle1, kutle2 ve piston adlı şekiller bulunur. A1 hücresindeki değer (varsayılan 5000), pistonun aşağı inen bloğu eğik düzlemdeki tutacakta ne kadar süre monteli tuttuğunu belirler. A5 hücresinde bu değeri açıklayan not yer alır.

Dosyada formül, grafik, tablo ya da özet tablo yoktur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada 1Modülü içinde tek bir makro vardır: Animasyon19. Kod, şekilleri taşımaktan ve ses çıkarmaktan başka bir işlem yapmaz; dosya silme ya da dış bağlantı içermez.

1. İlk aşamada kutle2 aşağı, kutle1 ise eğik düzlem boyunca yukarı ve sağa doğru 103 adımda hareket eder; piston aynı sırada sola kayar.
2. Ardından piston ve kutle2 32 adım daha sola gider.
3. A1 hücresindeki sayı kadar Beep komutu çalıştırılır; bu, bekleme süresi işlevi görür. Değer büyüdükçe bekleme uzar.
4. Son aşamada piston ve kutle2 32 adım geri döner, sonra tüm şekiller 103 adımda başlangıç konumlarına getirilir.
5. İşlem bitince A1 hücresi seçilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. A1 hücresine bekleme süresini belirleyen sayıyı girin; küçük değer kısa, büyük değer uzun bekleme sağlar.
3. Alt+F8 tuşlarıyla makro listesini açın, Animasyon19 makrosunu seçip Çalıştır düğmesine basın.
4. Animasyon bitene kadar sayfada başka işlem yapmayın; tamamlandığında şekiller ilk konumuna döner.