Показано с 1 по 3 из 3
  1. #1
    Экстра-класс Аватар для RA0FF
    Регистрация
    28.03.2011
    Адрес
    IOTA AS-018
    Возраст
    52
    Сообщений
    2,177
    Поблагодарили
    1368
    Поблагодарил
    446

    Требуется помощь по Visual Basic 6.0

    Знатоки Visual Basic 6.0, помогите ботанику

    У меня есть исходник программы, которой я управляю включением\выключением 8-ти USB-шных Реле.
    Программа написана так, что имеем на выходе 16 кнопок - по 2 шт. на реле, одна включение, вторая выключение. Вот это и неудобно.
    Как все в одну кнопку сделать не пойму.
    Через команду If Никак не получается. Пока самостоятельно смог сделать только изменение цвета кнопки, при включении...

    Вот, например, код для реле №5 такой

    Private Sub Command11_Click()
    Call SetRelays(5, True)
    Command11.BackColor = &HFF00&
    End Sub

    Private Sub Command12_Click()
    Call SetRelays(5, False)
    Command11.BackColor = &H8000000F
    End Sub

    (Command11 - на кнопке Вкл, Command12 - на кнопке Выкл...)


  2. #2
    Мастер Аватар для UA1ATD
    Регистрация
    03.10.2012
    Адрес
    Санкт-Петербург
    Возраст
    58
    Сообщений
    539
    Поблагодарили
    411
    Поблагодарил
    187
    Нужно иметь признак текущего состояния реле. Это может быть отдельно заведенная переменная или использовать одно из меняющихся полей кнопки - например, цвет.

    С бейсиком у меня туго, поэтому покажу как идею

    Private Sub Command11_Click()

    if Command11.BackColor = &HFF00& then
    Call SetRelays(5, True)
    Command11.BackColor = &XYZ&
    else
    Call SetRelays(5, False)
    Command11.BackColor = &HFF00&
    end if
    End Sub

  3. #3
    Экстра-класс Аватар для RA0FF
    Регистрация
    28.03.2011
    Адрес
    IOTA AS-018
    Возраст
    52
    Сообщений
    2,177
    Поблагодарили
    1368
    Поблагодарил
    446
    Цитата Сообщение от UA1ATD Посмотреть сообщение
    С бейсиком у меня туго, поэтому покажу как идею
    Сергей, спасибо! С бейсиком у нас все ОК!

Похожие темы

  1. Рвдиолюбительские ресурсы Санкт-Петербурга
    от UN8FM в разделе Беседка. Для любителей поговорить.
    Ответов: 3
    Последнее сообщение: 03.08.2013, 12:02
  2. FT 530 (требуется помощь )
    от UT5UHS в разделе УКВ: YAESU
    Ответов: 1
    Последнее сообщение: 13.02.2010, 01:33
  3. Требуется помощь в ремонте IC-707
    от RA2FCD в разделе КВ: ICOM
    Ответов: 0
    Последнее сообщение: 09.12.2005, 19:59
  4. требуется помощь
    от кубасик в разделе Общие вопросы
    Ответов: 0
    Последнее сообщение: 10.08.2004, 23:32

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Похоже, что вы используете блокировщик рекламы :(
Форум QRZ.RU существует только за счет рекламы, поэтому мы были бы Вам благодарны если Вы внесете сайт в список исключений!
как отключить
×
Рейтинг@Mail.ru
eXTReMe Tracker
Яндекс.Метрика