Dosya simgesi

Vba ile Otomatik String Art Cardioid

Bu dosya, ip sanatı (String Art) tekniğiyle kardioid deseni oluşturmak için hazırlanmış makro destekli bir şablondur. Yarıçap ve yarım çemberdeki nokta adedi girilir; çember noktaları, açılar ve çizgi koordinatları otomatik hesaplanır, sonuç grafikte gösterilir.

Dosyanın içeriği​

  • S sayfası: Kullanım ekranıdır. Yarıçap değeri (varsayılan 0.89) ve yarım çemberde nokta adedi (varsayılan 90) bu sayfadan girilir. Yarıçap bir kaydırma çubuğuyla da ayarlanır. Sayfada ayrıca açıklama metni bulunur.
  • H sayfası: Hesaplama sayfasıdır. Açı listesi, x ve y koordinat sütunları, nokta eşleştirme tabloları ve grafik için kullanılan açı verileri burada yer alır. Sayfada 1 adet grafik vardır.

Kullanılan formüller​

H sayfasında yaklaşık 100 formül bulunur. Koordinatlar adlandırılmış aralıklar üzerinden hesaplanır; örneğin x değerleri COS, y değerleri SIN ve RADIANS ile üretilir. y sütunundaki formül şöyledir:
Excel formülü
=EĞER(C2="";"";a*SIN(RADYAN(C2*180/m)))
=IF(C2="","",a*SIN(RADIANS(C2*180/m)))
Burada a yarıçapı, m yarım çemberdeki nokta adedini temsil eder. Açı sütunundaki formül, bir önceki açıyı ikiyle çarpıp 360'a göre mod alarak sıradaki noktayı bulur. Yinelenen noktaları COUNTIF ile denetleyen bir kontrol sütunu da vardır. Tanımlı adlar (OFFSET ile oluşturulan Alan, AlanS, Kp, Kv gibi) veri aralığını nokta sayısına göre dinamik tutar.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar S sayfasının kod bölümündedir; kodda dosya silme ya da dışarıya bağlantı işlemi yoktur.
  • aBar_Change ve aBar_Scroll: Kaydırma çubuğu değiştiğinde değeri 100'e bölüp yarıçap hücresine yazar.
  • Worksheet_Change: Yarıçap hücresine 0.5 ile 1 arasında bir sayı girilirse çubuğu bu değere getirir; aksi halde çubuk değerini geri yazar. Nokta adedi hücresi değiştiğinde değerin geçerli olup olmadığını denetler; geçersizse girişi geri alır, geçerliyse seri makrosunu çalıştırır.
  • seri: Önceki tablo biçimlerini ve içeriğini temizler, ardından her nokta için eşleştirme satırlarını sırayla oluşturup kopyalar. Nokta adedi değiştirildiğinde otomatik çalışır.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. S sayfasında yarıçap değerini 0.5 - 1 aralığında girin ya da kaydırma çubuğunu kullanın.
  3. Yarım çemberdeki nokta adedini girin; makro tabloyu yeniden oluşturur.
  4. H sayfasındaki grafikte kardioid desenini izleyin.

52779 tarafından daha fazla dosya

Detaylar
Yazar
52779
İndirme
5
Gösterim
2,296
İlk sürüm
Güncel
SHA-256
e9e0ff7a14cf47efb3cf838784606ea6d0146bd0f669ac8837707d9f18bc6fe9

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Emeğinize sağlık.
Geri
Üst