| Вопрос: Фигуры Лиссажу. Косяк. Прошу помощь. | Добавлено: 26.04.05 17:50 |
Автор вопроса:  ViktorZ | ICQ: 271202919 |
|
Dim k2, coef1, coef2
k2 = Val(Text5.Text) k2 = k2 * pi / 180 coef1 = Val(Text6.Text) coef2 = Val(Text7.Text) A = Val(Text2.Text) B = Val(Text3.Text) t = t + Val(Text1.Text) If Check1.Value = 0 Then Picture1.Cls Picture1.AutoRedraw = True ElseIf Check1.Value = 0 Then Picture1.Cls Picture1.AutoRedraw = False End If If Text1.Text = "" Then MsgBox "Заполните поля. Шаг по умолчанию = 0.4" Text1.Text = 0.4 End If Picture1.Line (xc, yc)-(xc + A * Cos(coef1 * w * t), yc + B * Cos(coef2 * w * t + k2)) Me.Caption = k2 Ребят. Помогите найти ошибку. Вот ссылка с чем сравнивать(http://www.viksite.narod.ru/pic11.jpg). Подозреваю что ошибка в предпоследней строке. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 26.04.05 18:00 |
|
Вот несколько общих предположений:
Dim k2, coef1, coef2
Мне кажется, что надо поточнее тип объявлять типа dim k1 as integer, coef1 as double ' etc
k2 = k2 * pi / 180
не зыбыл случайно pi указать ?  ладно, шутка.. ну а вдруг? у меня бывает иногда
заодно не кинешь проэкт а то у меня вообще чё то не запускается 
|
||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 27.04.05 02:00 |
|
Ботай Арбуз
http://www.arbuz.uz/w_lisagu.html |
||
|
Номер ответа: 3 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #3 | Добавлено: 27.04.05 15:24 |
|
2 sharp: уже был там.
2 Morpheus: тип поточнее объявлю, хотя помоему разницы не видно. 2 others: кажется решил проблему. |
||
Страница: 1 |