| Вопрос: Помогите, please! | Добавлено: 14.09.04 22:10 |
Автор вопроса:  Black Dragon | Web-сайт: в разработке | ICQ: 321186096 |
| Вот я хочу сделать стрелочные часики. Кто может подсказать алгоритм написания таких часиков? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Alexander Вопросов: 19 Ответов: 118 |
Профиль | | #1 | Добавлено: 14.09.04 22:21 |
|
смотри или в примерах или на Vbrussian.com
где то я видел такой пример, а ваще: Public XS Public YS Private Function DtoR(X) Pi = 3.1415 RAD = Pi / 180 DtoR = X * RAD End Function Private Sub Form_Load() XS = Form1.Width / 2 YS = (Form1.Height / 2) - 120 Form1.Font.Name = "Courier New" For AB = 0 To 359 Step 30 A = Sin(DtoR(AB)) B = -(Cos(DtoR(AB))) If AB = 0 Then CNT = 360 Else CNT = AB TX$ = Trim(Int((CNT) / 30)) Form1.Line ((A * 800) + XS, (B * 800) + YS)-((A * 1000) + XS, (B * 1000) + YS), RGB(0, 0, 0) Form1.CurrentX = (A * 1200) + XS - (Form1.TextWidth(TX$) / 2) Form1.CurrentY = (B * 1200) + YS - (Form1.TextHeight(TX$) / 2) Form1.Print TX$ Next AB Form1.Line1.X1 = XS Form1.Line1.Y1 = YS Form1.Line2.X1 = XS Form1.Line2.Y1 = YS Form1.Line3.X1 = XS Form1.Line3.Y1 = YS End Sub Private Sub Timer1_Timer() W = Timer X = W / 120 Y = W * 6 Z = W / 10 A = Sin(DtoR(X)) B = -(Cos(DtoR(X))) Form1.Line1.X2 = (A * 600) + XS Form1.Line1.Y2 = (B * 600) + YS C = Sin(DtoR(Y)) D = -(Cos(DtoR(Y))) Form1.Line3.X2 = (C * 800) + XS Form1.Line3.Y2 = (D * 800) + YS E = Sin(DtoR(Z)) f = -(Cos(DtoR(Z))) Form1.Line2.X2 = (E * 800) + XS Form1.Line2.Y2 = (f * 800) + YS End Sub добавь три line и таймер с именами соответственно line1, line2, Line3 timer1 и задай ему интервал 250 где качал не помню, помню качал много. PS вроде все понятно. |
||
|
Номер ответа: 2 Автор ответа: ISpyРазработчик Offline Client Вопросов: 47 Ответов: 621 |
Web-сайт: Профиль | | #2 | Добавлено: 15.09.04 05:40 |
| По-моему на форуме уже был подобный вопрос - поищи. | ||
|
Номер ответа: 3 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 15.09.04 09:20 |
|
В разделе Примеры, подразделе Интерфейс есть несколько таких примеров. |
||
|
Номер ответа: 4 Автор ответа:  Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #4 | Добавлено: 15.09.04 21:15 |
| Спавсибо, Alexsandr! Пример очень хороший! Скажи, ты его сам составил или откуда-то взял готовым? | ||
|
Номер ответа: 5 Автор ответа:  AlexanderВопросов: 19 Ответов: 118 |
Профиль | | #5 | Добавлено: 25.09.04 22:10 |
|
Если честно то качал, но где качал
под дулом пистолета не сеажу так как не знаю, если кто заглянет на этот ответ, то пусть ищет прикольные сайты в ссылках все от туда |
||
Страница: 1 |