Имитация работы регулятора

@WMC · Регистрация: 15.11.2011

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

Нужно сделать вот такое вот.

Должно уметь менять диапазон, регулировать поля вывода. менять шкалу регулятора

как-то имитироваться вращение регулятора. двойной клик на него и появляется окно свойств. когда нажимаешь на левую половинку относительно нуля, то крутится влево на одно деление, соответственно вправо.

наткните пожалуйста на что-нибудь по теме и может какие кусочки готового чего-то

dev.Free · 05.04.2013, 13:15

WMC, Для начала нарисовать круг, использовать шапе. Далее поставить еще 1 щапе будет работать в качестве стрелочки. Начинай.

@WMC · 05.04.2013, 13:37 **[ТС]**

Сообщение от inv.DS

WMC, Для начала нарисовать круг, использовать шапе. Далее поставить еще 1 щапе будет работать в качестве стрелочки. Начинай.

Вот начал

@WMC · 05.04.2013, 13:58 **[ТС]**

Вот если что полное конкретное задание

@Alex77755 · 05.04.2013, 17:10

Лучше начни со второго задания и сделай контрол.
А по первому заданию просто используй свой контрол
Примерно такой контрол делал когда-то.
Перевод по 1 шагу по клику

@WMC · 11.04.2013, 18:21 **[ТС]**

А как сделать такую шкалу как мне нужно?

@WMC · 19.05.2013, 21:23 **[ТС]**

Сделайте пожалуйста вместо кругов на шкале и на регуляторе чёрточки пожалуйста.

@Alex77755 · 20.05.2013, 08:56

вместо кругов .PSet используй линии .Line
Всего делов-то

Добавлено через 44 минуты

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Nl, Kl
Nl = 120
Kl = 135
Do While fi <= (3.14)
Form1.Picture1.ForeColor = CommonDialog2.Color
Form1.Picture1.DrawWidth = 2
Form1.Picture1.Line (Nl * Sin(fi), Nl * Cos(fi))-(Kl * Sin(fi), Kl * Cos(fi)), 1
Form1.Picture1.Print a
fi = fi + Round(dfi, 4)
a = a + 1
Loop
 
a = Val(Combo1.List(Combo1.ListIndex))
Do While fi < (2 * 3.14)
Form1.Picture1.ForeColor = CommonDialog2.Color
Form1.Picture1.DrawWidth = 2
Form1.Picture1.Line (Nl * Sin(fi), Nl * Cos(fi))-(Kl * Sin(fi), Kl * Cos(fi)), 1
Form1.Picture1.CurrentX = 160 * Sin(fi)
Form1.Picture1.Print a
fi = fi + Round(dfi, 4)
a = a + 1
Loop

@WMC · 23.05.2013, 18:44 **[ТС]**

А сделайте пожалуйста кто-нибудь, чтобы выбор шкалы был только в диапазоне [-5,5] и [-10,10].

@Alex77755 · 24.05.2013, 07:19

Как вариант: выкинуть комбик с лейблом и взять опции.
Все упоминания о выкинутых контролах удалить.
Да и ещё совет: меняй имена контролов. Давай им осмысленные, ассоциативносвязанные.
А то в коде чёрт ногу сломит.
В данном случае DIAPAZ имя масссива опций.

@Alex77755 · 24.05.2013, 07:33

И ещё: возьми за правило объявлять переменные и их тип. И никогда не помешает в верху каждого модуля Option Explicit. (В опциях установить галку) и бейсик будет сам ставить в новом проекте
так будет короче:

Visual Basic
1
2
Dim shrift  As Integer
shrift = Combo3

@WMC · 24.05.2013, 13:46 **[ТС]**

К сожалению именно комбик и необходим, по другому нельзя

Добавлено через 34 минуты
Убрал я лишнее из комбика. Нарисуйте пожалуйста вместо круга на регуляторе, чтобы линия была, ничего путного вырисовать не могу.

@Alex77755 · 24.05.2013, 21:31

Нет на картинке в задании комбика выбора диапазонов!

@WMC · 24.05.2013, 22:38 **[ТС]**

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

Нет на картинке в задании комбика выбора диапазонов!

Условия для меня были изменены поэтому так вот. А вот в чёрточке вместо круга на регуляторе нуждаюсь до сих пор.

@Alex77755 · 24.05.2013, 23:33

Так я же код давно дал!?

@Alex77755 · 24.05.2013, 23:38

вот

@WMC · 25.05.2013, 00:06 **[ТС]**

так я это уже применил всё. Я имею ввиду на самой крутёлке кружочек заменить на чёрточку.

@Alex77755 · 25.05.2013, 00:14

Даже по образцу не можешь заменить PSet на Line?
У меня шок!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192

	Имитация работы регулятора 05.04.2013, 11:54. Показов 1877. Ответов 17 Метки нет (Все метки) Нужно сделать вот такое вот. Должно уметь менять диапазон, регулировать поля вывода. менять шкалу регулятора как-то имитироваться вращение регулятора. двойной клик на него и появляется окно свойств. когда нажимаешь на левую половинку относительно нуля, то крутится влево на одно деление, соответственно вправо. наткните пожалуйста на что-нибудь по теме и может какие кусочки готового чего-то Миниатюры 1

dev.Free Заблокирован
	05.04.2013, 13:15
	WMC, Для начала нарисовать круг, использовать шапе. Далее поставить еще 1 щапе будет работать в качестве стрелочки. Начинай. 1

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	05.04.2013, 13:58 [ТС]
	Вот если что полное конкретное задание Миниатюры 1

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	11.04.2013, 18:21 [ТС]
	А как сделать такую шкалу как мне нужно? 1

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	23.05.2013, 18:44 [ТС]
	А сделайте пожалуйста кто-нибудь, чтобы выбор шкалы был только в диапазоне [-5,5] и [-10,10]. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.05.2013, 07:19
	Как вариант: выкинуть комбик с лейблом и взять опции. Все упоминания о выкинутых контролах удалить. Да и ещё совет: меняй имена контролов. Давай им осмысленные, ассоциативносвязанные. А то в коде чёрт ногу сломит. В данном случае DIAPAZ имя масссива опций. Миниатюры 0

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	24.05.2013, 13:46 [ТС]
	К сожалению именно комбик и необходим, по другому нельзя Добавлено через 34 минуты Убрал я лишнее из комбика. Нарисуйте пожалуйста вместо круга на регуляторе, чтобы линия была, ничего путного вырисовать не могу. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.05.2013, 21:31
	Нет на картинке в задании комбика выбора диапазонов! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.05.2013, 23:33
	Так я же код давно дал!? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.05.2013, 23:38
	вот Миниатюры 0

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	25.05.2013, 00:06 [ТС]
	так я это уже применил всё. Я имею ввиду на самой крутёлке кружочек заменить на чёрточку. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.05.2013, 00:14
	Даже по образцу не можешь заменить PSet на Line? У меня шок! Миниатюры 1

Имитация работы регулятора

Решение