[]
geometri sorusu
visual basic.net ile kolay yoldan "donut" yani ortası delik bir daire çizdirmeye çalışıyorum. vb nin mantığı ona bir dikdörtgen tanımlamanız, ve onunda içine bir elips veya daire yerleştirmesi.
verdiğiniz kenar değerleri aynıysa yani bir kare tanımladıysanız size bir daire çiziyor, eğer kenar değerleri farklıysa verdiğiniz dikdörtgenin içine bir elips oturtuyor.
gelelim sorunuma. şekilden de görüldüğü gibi çapları ve renkleri farklı 2 adet daire çizdirebiliyorum ama merkezleri arasında kayma olduğundan istediğim şekli elde edemiyorum.
büyük karenin kenarı a1, küçük karenin kenarı a2 olsun. hesaplarıma göre merkezleri arasındaki fark
((a1*kök2)/2) - (a2*kök2) (mutlak değerini de alıyorum)
ama buna rağmen merkezleri hala kayık. kullandığım değişkenlerin tipini double yaptım gene hassasiyeti değişmedi.
matematiksel olarak bu iki dairenin merkezleri arasındaki farkı nasıl ifade edebiliriz ? benim yazdığım ifadenin bir yanlışı var mı ?
eğer beceremezsem bu basit olay için aşağıdaki linkteki kodu yazıp programı gereksiz yere şişirmek zorunda kalacağım.
verdiğiniz kenar değerleri aynıysa yani bir kare tanımladıysanız size bir daire çiziyor, eğer kenar değerleri farklıysa verdiğiniz dikdörtgenin içine bir elips oturtuyor.
gelelim sorunuma. şekilden de görüldüğü gibi çapları ve renkleri farklı 2 adet daire çizdirebiliyorum ama merkezleri arasında kayma olduğundan istediğim şekli elde edemiyorum.
büyük karenin kenarı a1, küçük karenin kenarı a2 olsun. hesaplarıma göre merkezleri arasındaki fark
((a1*kök2)/2) - (a2*kök2) (mutlak değerini de alıyorum)
ama buna rağmen merkezleri hala kayık. kullandığım değişkenlerin tipini double yaptım gene hassasiyeti değişmedi.
matematiksel olarak bu iki dairenin merkezleri arasındaki farkı nasıl ifade edebiliriz ? benim yazdığım ifadenin bir yanlışı var mı ?
eğer beceremezsem bu basit olay için aşağıdaki linkteki kodu yazıp programı gereksiz yere şişirmek zorunda kalacağım.
hatamı şimdi gördüm, merkezleri arasındaki farkı doğru bulmuşum ama bu fark değerini x ve y koordinatlarına eklerken cosinus 45 ile çarpmam gerekiyormuş.
linki de eklemeyi unutmuşum
www.java2s.com
artık linkteki kod yerine şu kod ile çizdirilebiliyor
Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Red)
Dim myBrush2 As New System.Drawing.SolidBrush(System.Drawing.Color.AliceBlue)
Dim formGraphics As System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.FillEllipse(myBrush, New Rectangle(200, 200, 300, 300))
fark = Math.Abs((300 * Math.Sqrt(2) / 2) - (200 * Math.Sqrt(2)))
fark = fark * Math.Cos(45 * Math.PI / 180)
formGraphics.FillEllipse(myBrush2, New Rectangle(200 + fark, 200 + fark, 200, 200))
myBrush.Dispose()
formGraphics.Dispose()
linki de eklemeyi unutmuşum
www.java2s.com
artık linkteki kod yerine şu kod ile çizdirilebiliyor
Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Red)
Dim myBrush2 As New System.Drawing.SolidBrush(System.Drawing.Color.AliceBlue)
Dim formGraphics As System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.FillEllipse(myBrush, New Rectangle(200, 200, 300, 300))
fark = Math.Abs((300 * Math.Sqrt(2) / 2) - (200 * Math.Sqrt(2)))
fark = fark * Math.Cos(45 * Math.PI / 180)
formGraphics.FillEllipse(myBrush2, New Rectangle(200 + fark, 200 + fark, 200, 200))
myBrush.Dispose()
formGraphics.Dispose()
- kimlanbu
(09.06.07 18:29:09)
1
