Dörtlü Yinyang Yapma

Dosyanın içeriği​

• S sayfası (B1:H29): "Geometrik Dizayn - 4 adet YIN YANG" başlığı, ayar alanları ve grafik bu sayfadadır.
• Dış Çember Yarıçapı: F4 hücresinde tutulur, başlangıç değeri 1'dir ve d adıyla tanımlıdır.
• Komple Döndürme: Başlangıç değeri 0'dır; w adlı hücreye bağlıdır.
• Ek Seçenekler: "Grafikte Dış ÇEMBER'in Gösterimi" seçeneği D8 hücresindeki değerle çalışır.
• Sayfada dört sembolü gösteren bir grafik ve yarıçap ile açı için iki kaydırma çubuğu bulunur.

Kullanılan formüller​

• B1.x, B1.y ile B4.x, B4.y: Dört yinyang gövdesinin çevre eğrilerini, her biri 90 derece kaydırılmış olarak COS ve SIN ile üretir.
• K1 - K5 adlı çiftler: Yinyang içindeki yarım daire ve küçük daire eğrilerini hesaplar.
• CDx, CDy: Dış çemberi çizer; D8 hücresi 1 değilse NA() döndürerek çemberi grafikten gizler.

=EĞER(S!$D$8*1<>1;YOKSAY();0)

=IF(S!$D$8*1<>1,NA(),0)

Makrolar​

• dBar_Change ve dBar_Scroll: Yarıçap çubuğunun değerini 100'e bölerek d hücresine yazar.
• wBar_Change ve wBar_Scroll: Dönüş çubuğunun değerini w hücresine yazar.
• Worksheet_Change: Hücreye elle değer girildiğinde çalışır. Yarıçap 0,5 ile 1 arasında, dönüş açısı 0 ile 360 arasındaysa ilgili çubuk güncellenir; geçersiz değer girilirse hücre çubuğun değerine döner.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Yarıçapı kaydırma çubuğuyla değiştirin veya F4 hücresine 0,5 ile 1 arasında bir değer girin.
3. Dönüş açısını çubukla ya da 0 - 360 arasında bir değer yazarak ayarlayın.
4. Dış çemberi göstermek için D8 hücresine 1 girin; gizlemek için başka bir değer girin.