Проект в VB. 3. 1. Создать проект, который по нажатию кнопки будет прорисовывать сердце проколотое стрелой

Формулировка задачи:

Создать проект, который по нажатию кнопки будет прорисовывать сердце проколотое стрелой. Заранее спасибо.

Решение задачи: «Проект в VB. 3. 1. Создать проект, который по нажатию кнопки будет прорисовывать сердце проколотое стрелой»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Command1_Click()
' [url]http://festival.1september.ru/articles/413294/[/url]
' [url]http://www.wolframalpha-ru.com/2012/03/blog-post.html[/url]
 
 Dim SngX As Single, Y1 As Single, Y2 As Single, BytI As Integer  'SngX –абсцисса точки, у - ордината
 Me.AutoRedraw = True
 Me.DrawWidth = 3
  'Задание масштаба и новой системы координат
 Picture1.Scale (-2, 2)-(2, -2)
 'Построение графика функции
 For SngX = -1 To 1 Step 0.01
 Y1 = Sqr(Abs(SngX)) + (1 - (SngX) ^ 2) ^ 0.5 ' верхняя часть сердца
  Y2 = Sqr(Abs(SngX)) - (1 - (SngX) ^ 2) ^ 0.5 ' нижняя часть сердца
 ' как совместить обе части сердца на графике?
 'X ^ 2 + (Y - Sqr(Abs(X)))^ 2 = 1 - исходная формула на Вольфраме
 'Вычисление ординаты у
  Picture1.PSet (SngX, Y2), vbRed 'Рисуем точку
 Picture1.PSet (SngX, Y1), vbRed 'Рисуем точку
 Next SngX
 'Рисуем ось Х
 'Picture1.Line (-2, 0)-(2, 0)
 'For BytI = -2 To 2
 'Picture1.PSet (BytI, 0) 'Рисуем масштаб на оси Х
 'Picture1.Print BytI; 'Подписываем; масштаб
 'Next BytI
 'Ось Y
 'Picture1.Line (0, 2)-(0, -2)
 'For BytI = -2 To 2
 'Picture1.PSet (0, BytI) 'Рисуем масштаб на оси У
 'Picture1.Print BytI; 'Подписываем; масштаб
 'Next BytI
 End Sub
                        