Антенны выдуманы (но хороший пример, чтобы написать вашу собственную программу)

Скачайте исходный код на Visual Basic и EXE файл: MixAntSw1.zip.

Предположим, что вы имеете два перпендикулярных диполя на 80 м (север/юг и восток/запад), многодиапазонный beam на 20,15, и 10 м и длинная проволочная антенна для других диапазонов.

Эта программа демонстрирует возможность автоматического переключения между всеми вашими тремя антеннами и вращать beam.

Кликните по кнопке Switch! для переключения антенны в зависимости от диапазона ( для 80 м диполей также в зависимости от азимута).
Кликните Rotate! для вращения beam-a в направление на станцию.

Для активации переключения и вращения из MixW, создайте два макроса для клавиатуры (например F3 и F4):

Macro: F3
Label: Switch
Text: <CATCMDDDE:SWITCH><CATCMDDDE:> 

Macro: F4
Label: Rotate
Text: <CATCMDDDE:ROTATE><CATCMDDDE:> 

Теперь F3 будет переключать антенны, а F4 будет управлять вращением beam-а.

Выберите "Auto switch" и "Auto rotate" чтобы запустить переключение и вращение сразу при изменении частоты или направления.

Переключение через порт принтера

Скачайте файлe: MyAntSwitch5.zip

Эта программа пишет данные непосредственно в порт принтера. Для Windows NT, вам будет нужен отдельный драйвер, чтобы позволить такой доступ. (Например, используйте Beyond Logic Port Talk I/O Port Driver - с http://www.beyondlogic.org.)

Этот конфигурируемый пользователем антенный переключатель предоставляет возможность автоматического переключения вплоть до 10 различных антенн для каждой диапазона. Реле или некоторая дополнительная логика должны быть соединенны с D0...D7 линиями порта принтера.

Чтобы инициировать переключение из MixW, создайте два макроса для клавиши клавиатуры (например F3) :

Macro: F3
Label: Switch
Text: <CATCMDDDE:SWITCH><CATCMDDDE:> 

Теперь клавиша будет F3 переключать антенны.

Выберите "Auto" старт для переключения сразу же при изменении частоты.