Кручение line1 вокруг своей оси

@Mubinov Damir · Регистрация: 01.03.2009

Студворк — интернет-сервис помощи студентам

Бейсико-знающее!
Мне хотелось бы на VB6 сделать так:
Одна линия, у которой крутится только одна сторона, а другая ось. при этом они не растут и не уменьшаются то есть линия аналогичная стрелке часов

@Alex77755 · 18.03.2010, 08:45

самое простое:

Visual Basic
1
2
3
4
5
Private Sub Часы1_Timer()
Форма1.Строка1.X2 = Форма1.Строка1.X1 + 1000 * Sin(A)
Форма1.Строка1.Y2 = Форма1.Строка1.X1 + 1000 * Cos(A)
A = A + 0.1
End Sub

@(Lim) · 18.03.2010, 09:10

Visual Basic
1
2
Dim a As Single
Private Sub Часы1_Timer()

Форма1.Строка1.X2 = Форма1.Строка1.X1 + 1000 * Cos(a)
Форма1.Строка1.Y2 = Форма1.Строка1.Y1 + 1000 * Sin(a)

Visual Basic
1
2
a = a + 0.1
End Sub

Alex77755, чуток напутал ты

@Alex77755 · 18.03.2010, 09:11

У меня крутится

@(Lim) · 18.03.2010, 09:13

по твоему коду и у меня крутится, только в обратном направлении и, как бы, в изометрии. В принципе - прикольно, если предположить, что циферблат наклонен чуток к горизонту.

@Alex77755 · 18.03.2010, 09:16

Думаешь у Афтора не хватит фонтазии поменять знак?

@(Lim) · 18.03.2010, 09:17

как знать...

@Alex77755 · 18.03.2010, 09:19

А на счёт изометрии - так это, наверное смотри настройки своего экрана. С геометрией в формуле порядок

@(Lim) · 18.03.2010, 09:21

Сообщение от Alex77755

самое простое:
Private Sub Часы1_Timer()
Форма1.Строка1.X2 = Форма1.Строка1.X1 + 1000 * Sin(A)
Форма1.Строка1.Y2 = Форма1.Строка1.X1 + 1000 * Cos(A)
A = A + 0.1
End Sub

уверен?

@Alex77755 · 18.03.2010, 09:23

Во, блин, Очепятка. Скопипасти, попробовал - вертится. Сори недогляд

@(Lim) · 18.03.2010, 09:24

при таком раскладе она забавно весьма вертится, за это спасибо

@Alex77755 · 18.03.2010, 09:27

X1 во времени не меняется, а у меня совпали по значению с Y1 вот и не видно было
А сейчас переместил - прикольно. Сам не знал
А попробуй Y1 > 3200

@(Lim) · 18.03.2010, 11:57

Часы получились! В архиве - исходник.

@Mubinov Damir · 18.03.2010, 17:59 **[ТС]**

(Lim)
Прикольно получилось.

Thanks всем проблема решена

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Mubinov Damir 6 / 6 / 0 Регистрация: 01.03.2009 Сообщений: 93

	Кручение line1 вокруг своей оси 18.03.2010, 07:49. Показов 2028. Ответов 13 Метки нет (Все метки) Бейсико-знающее! Мне хотелось бы на VB6 сделать так: Одна линия, у которой крутится только одна сторона, а другая ось. при этом они не растут и не уменьшаются то есть линия аналогичная стрелке часов 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 09:11
	У меня крутится 0

@(Lim) 6 / 6 / 0 Регистрация: 03.03.2010 Сообщений: 45
	18.03.2010, 09:13
	по твоему коду и у меня крутится, только в обратном направлении и, как бы, в изометрии. В принципе - прикольно, если предположить, что циферблат наклонен чуток к горизонту. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 09:16
	Думаешь у Афтора не хватит фонтазии поменять знак? 0

@(Lim) 6 / 6 / 0 Регистрация: 03.03.2010 Сообщений: 45
	18.03.2010, 09:17
	как знать... 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 09:19
	А на счёт изометрии - так это, наверное смотри настройки своего экрана. С геометрией в формуле порядок 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 09:23
	Во, блин, Очепятка. Скопипасти, попробовал - вертится. Сори недогляд 0

@(Lim) 6 / 6 / 0 Регистрация: 03.03.2010 Сообщений: 45
	18.03.2010, 09:24
	при таком раскладе она забавно весьма вертится, за это спасибо 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 09:27
	X1 во времени не меняется, а у меня совпали по значению с Y1 вот и не видно было А сейчас переместил - прикольно. Сам не знал А попробуй Y1 > 3200 0

@Mubinov Damir 6 / 6 / 0 Регистрация: 01.03.2009 Сообщений: 93
	18.03.2010, 17:59 [ТС]
	(Lim) Прикольно получилось. Thanks всем проблема решена 0