Animasyon Örnekleri - Eğik Düzlem

Bu dosya, eğik düzlem üzerindeki iki kütlenin hareketini Excel içinde makro ile canlandıran bir animasyon örneğidir. Fizik derslerinde veya sunumlarda eğik düzlem konusunu görsel olarak anlatmak için kullanılabilir.

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

Dosyanın içeriği​

• Sayfa1: C6:I20 aralığında hazırlanmış çizim alanı. Eğik düzlemi ve Kutle1 ile Kutle2 adlı şekilleri barındırır. Sayfada formül bulunmaz.
• 1Modülü: Animasyon18 adlı makroyu içeren VBA modülü.

Makrolar​

Animasyon18 makrosu 100 adımlık bir döngü çalıştırır. Her adımda şekiller şu şekilde hareket eder:

• Kutle2 şekli dikey olarak 1 birim aşağı iner (başlangıç konumu 110).
• Kutle1 şekli yatayda 1 birim sağa kayar (başlangıç 182) ve dikeyde 1 birim yukarı çıkar (başlangıç 210); böylece eğik düzlem boyunca yukarı doğru hareket eder.
• Her adımda DoEvents çağrılır; ekran güncellenir ve hareket akıcı görünür.

Döngü bittiğinde makro A1 hücresini seçerek işlemi tamamlar. Makroda dosya silme veya dışarıya bağlantı gibi işlemler yoktur; yalnızca şekillerin konumunu değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerinde eğik düzlem çizimini ve iki kütle şeklini görüntüleyin.
3. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8) ve Animasyon18 makrosunu seçip çalıştırın.
4. Animasyon sırasında kütlelerin birbirine bağlı biçimde zıt yönlerde hareket ettiğini izleyin.
5. Animasyonu yeniden izlemek için şekilleri başlangıç konumlarına getirip makroyu tekrar çalıştırın.

Hareket adımı ve başlangıç konumları makro kodundaki m, k ve r değişkenleriyle belirlenir; farklı bir görünüm için bu değerler VBA düzenleyicisinden değiştirilebilir.