Могу предложить только ссылки
http://www.gamedev.ru/code/forum/?id=50627
http://www.snippy.ru/snippet/406-programmirovanie-lpt-porta/
http://lpt-port.narod.ru/5.html
Но твой вопрос больше на хардварный похож
И такие темы обычно на С++ реализуют или Delphi

P. S. вопрос? Робота изобретаешь?

Протестируй свеженаваянное (в модуле пропиши правильный путь к библиотеке)
Учитывай особенность записи в свой порт
номера контактов 2;3;4=значение в десятичной системе
значение в контакте 1;1;1=7
значение в контакте 1;1;0=6
значение в контакте 1;0;1=5
значение в контакте 1;0;0=4
значение в контакте 0;1;1=3
значение в контакте 0;1;0=2
значение в контакте 0;0;1=1
значение в контакте 0;0;0=0

Data вы установили я согласен а вот тактовую частоту CL и разрешение на изменение CE почему-то нет....
более того data выставлена не правильно
LPT параллельный порт при установке числа у него на всех восьми ножках устанавливается чило т.е в вашем случае сказав что нужно установить 1 он на ножки установит 00000001 при 2 00000010
вот тут его и надо ловить т.к. вывод данных у вас последовательный

нужно просто определиться какие цифры ему подсовывать и все....
а циферек всего 4 это 0 , 8, 3, 5 при условии что CE младший разряд а CL старший

Alex у Вас все получится только ухватите мысль.....
вы сейчас в единицу времени выводите на один провод либо 0 либо 1

проблема в том что вы выводите это значение а оно только либо 1 либо 0

вы на выходе D0 видете мерцание светодиода

по логике Вам нужно еще D1 и D2 а вы к ним подступиться не можете....

по одной простой причине - Вы не уловили то что выдает порт

давайте попробуем вместе

и так имеем 8 проводов и на каждом можем выставить напряжение исходя из двоичной системы соответсвенно максимальное число равно 2 в 8 степени

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

нам нужно только три провода(т.е наши числа будут располагаться в диапазоне от 0 до 7)

теперь договоримся о разрядности

старший разряд - это будет CL - тактовая частота
средний разряд - Data
младший разряд -CE

исходя из графика который вы прислали на рис

при изменении данных СЕ должно быть 1
CL должно кувыркаться (если вчера было 1 то сегодня 0 и наоборот)
Data должно иметь значение которое имеет

теперь для того что бы что то получилось вам нужно в цикле передать данные (т.е установить значение порта если вы порту передадите 7 то будет установлено 00000111 (D0 справа)) т.е на все три провода подается напряжение +5 вольт

таким образом вам нужны цифры 3 5 7 0 1

далее все в ваших руках

где то как то так

Function WriteLPT()     'запись в порт '  Dim cnn As ADODB.Connection Dim asd(24) As Integer    Dim TableRec As ADODB.Recordset    Dim strCurrentConn As String '  Set cnn = New ADODB.Connection    Set TableRec = New ADODB.Recordset    strCurrentConn = CurrentProject.Connection     '  Set cnn = CurrentProject.Connection    TableRec.Open "Send", strCurrentConn       With TableRec           .MoveFirst           Do              asd(1) = .Fields("D0")              asd(2) = .Fields("D1")              asd(3) = .Fields("D2")              asd(4) = .Fields("D3")              asd(5) = .Fields("D4")              asd(6) = .Fields("D5")              asd(7) = .Fields("D6")              asd(8) = .Fields("D7")              asd(9) = .Fields("D8")              asd(10) = .Fields("D9")              asd(11) = .Fields("D10")              asd(12) = .Fields("D11")              asd(13) = .Fields("D12")              asd(14) = .Fields("D13")              asd(15) = .Fields("T0")              asd(16) = .Fields("T1")              asd(17) = .Fields("B0")              asd(18) = .Fields("B1")              asd(19) = .Fields("B2")              asd(20) = .Fields("TB")              asd(21) = .Fields("R0")              asd(22) = .Fields("R1")              asd(23) = .Fields("R2")              asd(24) = .Fields("S")              .MoveNext           Loop Until .EOF       End With    TableRec.Close '  cnn.Close    Set TableRec = Nothing '  Set cnn = Nothing Dim CLk As String Dim signaltxt As String Dim signalinteger As Integer CLk = "0" Out &H378, 0 For i = 1 To 24 Step 1 'я не знаю в какой последовательности должны идти сигналы 'вполне возможно что должно быть и вот так For i = 24 To 1 Step -1 If CLk = "0" Then CLk = "1" 'устраиваем кувыркашки If CLk = "1" Then CLk = "0" signaltxt = CLk & asd(i) & "1" 'собираем сигнал Select Case signaltxt 'ищем числовой аналог Case "001": signalinteger = 1 Case "011": signalinteger = 3 Case "101": signalinteger = 5 Case "111": signalinteger = 7 End Select Out &H378, signalinteger 'выпихиваем число в порт 'тут бы по уму паузу воткнуть, а я не помню как это делается (смотрите свой рисунок ' там СL идет с периодичностью 1.5 или более мкс) Next i Out &H378, 0 'запрещаем изменение 'сигнал ловить СL на выводе D2, Data-D1, CE-D0  согласно схемы распайки разъема End Function

вот исправил

Dim CLk As String Dim signaltxt As String Dim signalinteger As Integer Dim i As Integer Dim fgh As Integer fgh = 0 CLk = "1" Out &H378, 0 For i = 1 To 48 If CLk = "0" Then 'устраиваем кувыркашки CLk = "1" Else CLk = "0" End If If i / 2 - Int(i / 2) > 0 Then fgh = fgh + 1 signaltxt = CLk & asd(fgh) & "1" 'собираем сигнал Select Case signaltxt 'ищем числовой аналог Case "001": signalinteger = 1 Case "011": signalinteger = 3 Case "101": signalinteger = 5 Case "111": signalinteger = 7 End Select Out &H378, signalinteger 'выпихиваем число в порт 'тут бы по уму паузу воткнуть, а я не помню как это делается (смотрите свой рисунок ' там СL идет с полупериодичностью 1.5 или более мкс) Next i Out &H378, 0 'запрещаем изменение 'сигнал ловить СL на выводе D2, Data-D1, CE-D0  согласно схемы распайки разъема

там раньше оператор был кажеться Pause(сколько времени)
но честно не помню.....может гуру подскажут

а на счет me.timerinterval вполне законно ругается Вы из модуля (публичной функции) пытаетесь обратиться к форме - правильно в Вашем случае полное обращение forms![имя формы].timerinterval

вот только толку от этого не будет timerinterval работает только на timer т.е. в timer задается что надо делать а в timerinterval через какое время

Ага и я то же самое нашел в Справочнике Разработчика
Поставил паузу 1 миллисекунду - переключения стали более чёткими и качество приема улучшилось Видимо без паузы микруха как то не так тюнер настраивала

Щас ацкий интерфейс чуть доделаю и выложу

If RF < [Band].Column(9) Then If RF< CInt([Band].Column(9)) Then ' или CLng или CDbl (смотря в чем RF) или If RF< [Band].Column(9)*1 Потому как из Column получаем в тексте, и приходится преобразовывать к числу

Я тут слегонца упростил функцию вывода
протестируй, плиз

Function WriteLPT()     'запись в порт    Dim asd(24) As Integer    Dim TableRec As ADODB.Recordset    Dim i, fgh, CLk, signalinteger As Integer    Dim strCurrentConn As String    Set TableRec = New ADODB.Recordset    strCurrentConn = CurrentProject.Connection         TableRec.Open "Send", strCurrentConn       With TableRec          .MoveFirst          Do             For i = 1 To 24                asd(i) = .Fields(i - 1)             Next i             .MoveNext          Loop Until .EOF       End With    TableRec.Close    Set TableRec = Nothing    Out &H378, 0    For i = 2 To 49       If i Mod 2 Then CLk = 0 Else CLk = 4 'устраиваем кувыркашки       fgh = i \ 2       If asd(fgh) = "0" Then signalinteger = 1 Else signalinteger = 3       signalinteger = signalinteger + CLk       Out &H378, signalinteger       Call Sleep(1)   'пауза 1 миллисекунда    Next i    Out &H378, 0 End Function

С паузой было все нормально
просто у Вас комп слишком быстрый и на микросхему сигналы приходили быстрее 1.5 мкс отсюда и была не стабильная работа


На открытие формы FMAvto добавить

Out &H378, 0

дабы на микросхему случайно не залезла всякая ерунда

добавить обработчик ошибки при отсутствии .dll а то Акс виснет и остановить его можно только через диспетчер задач

"2. Функцию CurrentPath() можно заменить на свойство CurrentProject.Path." - сделано
"3. Все функции, работающие с формой переместить из общего модуля Global в модуль класса формы." - сделано

Прислушайтесь к совету Lukas .....
Посудите сами все данные у Вас храняться на форме (я про сигнал Data)
форма постоянно открыта т.е считать данные можно в любую секунду

а у Вас получается - Вы запросом удаляете записи в таблице
потом в эту таблицу заносите данные

далее програмно получаете получаете доступ к этой таблице и считываете данные

Может я чего то не увидел...
но почему нельзя просто считать данные с формы (без этого забега по запросам)

если вы не можете придумать как имена полей использовать в циклах то это просто
те имена которые будете использовать обзываете одинаково (Акс сам так поступает - вновь добавленные поля называет например поле265) осталось числовую составляющую проконтролировать что бы были в нужном порядке

добираться до поля в цикле следующим образом forms![имя формы]("имя поля" & i+j)
где i переменная цикла
j сдвиг (ну т.е. если цикл начат с 1 а поля с 249 то сдвиг будет 248)

Это уже вопрос из серии философия программирования
Пусть Lukas меня поправит
Если двоичная строка где то высчитывается, можно эту переменную сделать глобальной
И не надо искать по форме, а в функции использовать переменную и mid выбирать кусочки

Красава
А как это вы такую формочку нарисовали?

Чё та сходу не получается ковыряюсь...

1. Уж если в обоих модулях описываешь процедуру под одним именем, то:
В обоих модулях добавить:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

2. в Function WriteLPT() модуля LPT:

...          Do             For i = 1 To 24                asd(i) = Forms![FMAvto]("Field" & i + 0)             Next i    '         .MoveNext          Loop Until .EOF ...

откуда компилятору знать про какой-то .EOF?
и зачем цикл Do-Loop? Если бы не ошибка на .EOF этот цикл впал бы в нирвану, вместе с вложенным циклом.
3. Зачем растаскиваешь по полям формы бинарное значение, есть же массив asd(24) /лучше asd(1 To 24)/, его и используй при подготовке и выводе в порт.
А если хочешь посмотреть что в нем, считай данные из него и положи на форму.

Еще раз:
Не надо считывать данные с полей формы в массив!!!
Массив заполнять программно!!!
Если не ошибаюсь, изначально там должны быть биты Long числа, преобразованного к двоичному представлению.
Используй функцию преобразования Long числа в массив битов, вначале предыдущего твоего топика есть пример такой функции.
Далее меняешь значения элементов массива как требуется для вывода в порт.
Выводишь в порт тоже из массива.
Если надо смотреть значения элементов массива - выводишь значения из массива на форму.
И перемести все процедуры/функции из общего модуля в модуль формы.

To Lukas & snipe
Не, отказываться от полей в форме, ну вы поняли, не хочу. Так как есть на данный момент мне удобнее, потом - возможно...
Есть несколько вопросов не по теме:

1. Возможно ли из акса программно крутить виндовый микшер? И не мастер, а регулятор уровня линейного входа?

2. Как сделать постраничное перелистывание списка кнопкой? Ну типа PageUp / PageDown?
Варианты:
SendKeys "PgDn", False
SendKeys "PageDown", False
SendKeys 34, False
SendKeys 0x[22, False
SendKeys 81, False
SendKeys 0x51, False
не работают
Вариант:
Me!Список0 = Me!Список0 + 10 ' 10 - например
Работает, но как то криво

3. Как проверить наличие записи в таблице?
Сделал кнопочку МЕМ - суть ее в том, что при нажатии на нее, запрос на добавление добавляет в таблицу Станции текущую частоту приема. В таблице на поле Частота стоит "повторения не допускаются" Т.е. если нажать МЕМ на имеющейся частоте, то она просто молча не добавляется. А хотелось бы поиметь соответствующее сообщение.

"И перемести все процедуры/функции из общего модуля в модуль формы."
После перемещения ругецо - спрашивает кто такой Band...

по поводу постраничного перелистывания

forms![имя списка].ListCount - показывает сколько в текущий момент в списке записей следует учитывать что отсчет идет от 1

конструкция

forms![имя списка]=forms![имя списка].ItemData(M) 'где М - целое положительное число

позволяет переместиться на определенную строчку в списке

следует учитывать, что М ведет отсчет от 0 (т.е. ItemData(0) установит выбор на первой строчке)

осталось только накидать код который будет обрабатывать события ваших кнопок

Чета чуть выше я велосипед изобретал....
Me![имя списка].SetFocus
SendKeys "{PGUP}"

ну соответственно
SendKeys "{PGDN}" в другую сторону

Конечно соверсшенству нет предела (оно недостижимо), но, условно, на данный момент, проект считаю законченным: сегодня наконец то все собралось во едино и установилось в машинку - самое интересное, что все это работает
Если кому интересно для чего все это было нужно - вот: http://www.pccar.ru/showthread.php?t=6162&page=7 (пост #70)
ОЧЕНЬ ХОЧЕТСЯ ПОБЛАГОДАРИТЬ ВСЕХ ЗА ПОМОЩЬ В СОЗДАНИИ ПРОГРАММЫ!!!

Спасибо!

Добавил регионы: http://webfile.ru/3927306

Теперь осталось все это к GPS прикрутить - чтоб города сами переключались

GPS выдает вот такое: http://webfile.ru/3930439
Да вообще это шутка была Неоправданно сложно да и не нужно - машина ж не самолет.
Да и как привязку к координатам делать? - центр города не подходит... напрашивается квадрат(район)...

как я понял вам нужно выкинуть через LPT порт последовательно 32 бита причем первых 8 на одну микросхему а остальные 24 на другую
если это так
то схематическое решение немного не правильное - из LPT порта надо вытаскивать сигнал по 4 проводам (у Алекса по 3)
CL_K-тактовую частоту
Data_K - собственно сигнал
СE_1-разрешения изменения 1 микросхемы
СE_2 - разрешения изменения 2 микросхемы

при таком решении без разницы в какой последовательности будут стоять регистры сдвига

вообще в радиоэлектронике я тоже полный профан
прошлый раз Алекс прислал схему сигнала(лов) и по ней я ориентировался

различатся по фазе
а как вы подадите сигнал запрещающий запись в обе микросхемы

вот и я про то же - загрузили одну микруху переключились потом другую загрузили и запретили ввод инфы и для этого надо два провода


вот как организовать опрос (получение значений из порта)
это не ко мне - не знаю(не разбирался)

разберитесь с тем что надо передать микросхемам
а дальше разберемся

не знаю что писал автор
но когда ему делали выгрузку в LPT порт выгружали слово из 24 бит

вот раскопал =>
на зелененьких проводах всегда установлена 1
если один из проводков (10-13) соединить с землей и потом считать состояние этой части порта то можно получить цифирку (а если подавать данные через шифратор то можно подцепить 16 датчиков)

вот таким кодом
dim statusint as variant
statusint=inp(889)

в начале модуля соответственно прописать
Private Declare Function Inp Lib "C:\WINDOWS\system32\inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer

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

А насчёт шага перестройки - это так. Положим, к примеру, у нас в 595 регистре слово 00100001, мы нажимаем кнопочку "+" на форме и значение меняется на 00100010, а если на кнопку "-", то 00100000. Только по одному биту - это слишком медленно (шаг маленький). До полного заполнения регистра - 256 шагов, а надо шагов 50-100.
Да, и ещё. Режим АМ не нужен. Синтез работает на FM только. Частота ГУНа 111-114 МГц.

Так чего, АМ вырезать нафиг?

http://www.hiprog.com/forum/files/5638-20090825122949.GIF

Поскольку так и не въехал, что нужно изменить,
нарисовал лицо как смог =>
Вот только интересно, работает ли?

ps. У кого нет библиотек LPT порта, кнопки "<", ">", "Play" лучше не давить.

Неа, все как в предыдущем варианте.
Для меня эти "посылаемые биты" темный лес, ночью, зимой.

Да я ж писАл. LM7001 не может работать с мелким шагом перестройки. Поэтому ставят сдвиговый регистр на 74НС595. Существует два способа подключения его. Скажем так, последовательный (когда выход 595 подключают на вход data LM-ки и засылают слово в 32 бита, а сигналы СЕ и CL - запараллелены. Из 32 бит 24 проходят через 595 к ЛМ, а последние 8 остаются в 595) и параллельный ( DATA и CL идут и к 595, и к ЛМ, а сигналом CE выбирается в какую микросхему будет записано управляющее слово. В этом случае посылка сигнала идёт раздельно: сначала 24 бита для ЛМ, затем 8 бит для регистра 595). Рисунки во вложении. Вот этими 8-ю битами и в первом, и во втором случае нужно иметь возможность управлять, т. е. сдвигать регистр вверх-вниз. В 8-ми битовый регистр влезет до заполнения 255 единичек (в десятичной системе). При заполнении всего регистра (на входе: 11111111): в битах для ЛМ должен увеличится на шаг StepNet (словно нажали кнопку ШАГ) переменная RF (из оригинала программы), а регистр 595 - обнулиться и, соответственно, при движении в обратную сторону, при достижении на входе: 00000000 - RF уменьшится на шаг StepNet, а регистр заполнится. На регистре собран ЦАП, который путём увода частоты ( на 1,2 - 1,4 кГц) опорного кварцевого генератора, обеспечит нам мелкий шаг перестройки частоты на выходе синтезатора. Если, что не понятно, спрашивайте.

с кувыреками
сначала старший

мысль такая - пока оставить все как есть
просто надо немного дописать
во вложении есть рисунок 0001.jpg на него и ориентироваться
только сигнал брать с 2 3 4 5 ног lpt порта

'CE1 (pin3 LM7001) > D0 (pin2 LPT)
'Data (pin5 LM7001 pin14 595) > D1 (pin3 LPT)
'CL (pin4 LM7001 pin 11 595) > D2 (pin4 LPT)
'CE2 (pin 12 595) > D3 (pin5 LPT)

далее после того как отработает код алекса
нужно закинуть код для 595 для этого на ce1 подать ноль (запретить запись в регистр) а на се2 подать 1

добавить примерно такой блок

Dim CLk As String
Dim signaltxt As String
Dim signalinteger As Integer
Dim i As Integer
Dim fgh As Integer
fgh = 0
CLk = "1"
Out &H378, 0

For i = 1 To 16

If CLk = "0" Then 'устраиваем кувыркашки
CLk = "1"
Else
CLk = "0"
End If

If i / 2 - Int(i / 2) > 0 Then fgh = fgh + 1
signaltxt = "1" & CLk & asd(fgh) 'собираем сигнал
Select Case signaltxt 'ищем числовой аналог
Case "100": signalinteger = 8
Case "101": signalinteger = 10
Case "110": signalinteger = 12
Case "111": signalinteger = 14
End Select

Out &H378, signalinteger 'выпихиваем число в порт
'Call Sleep(1) 'пауза 1 миллисекунда
Next i

Пишем в порт &H378(888), а считываем с 889.
Это ошибочка или так и надо?

там между кнопочкой и разъемом наверное что-то типа триггера поставить надо т.е. нажали кнопочку триггер встал в нужное состояние далее опросили порт 889 считали инфу и через 890 порт скинули состояние триггера до следующего нажатия кнопочки

все нормально
на lpt разъем выходит 3 порта 888 889 890
888 и 890 служат для ввода\вывода т.е. к ним можно обратиться inp\out
889 - служит только на ввод инфы
по распайке
порт 888 - 2-9 контакты разъема (слово 8 бит)
порт 889 - 10-13,15 контакты разъема (старший - контакт 15 за остальные 4 бита в следующей последовательности контакты 13, 12, 10, 11)
порт 890- 1, 14,16,17 контакты (слово 8 бит однако используются только 4 младших бита)
контакты 18-25 - земля

скорее всего так
у формы есть событие таймер
вот в процедуру и запихать это
выставить интервал таймера в милисекундах
и переделать немного код

Dim statusint As Variant
statusint = Inp(889)
If statusint = 95 Then
RF = RF + StepNet
Call To_TRX
end if

извините
я думал Вы знаете

таймер он на панеле контролов(элементов управления) лежит - где кнопки берём, поля, Labels и т.д.
=====================
Положить этот таймер на форму, которая всё время открыт и видна.
в свойствах таймера Interval написать 10 - 10000 - экспериментально
Кликнуть по нему пару раз

Private Sub Timer1_Timer() 'пересчёт нужного ---------- поместить этот опрос ------------------- End Sub

Думаю............

Бр-р-р. А нафига бесконечный цикл? Прога и так постоянно выполняется. Я сужу по кнопкам 48 и 49. Значит прога циклически через них проходит. Вот здесь бы где-то (или до, или после кнопочек) и добавить опрос 889 порта. В голове у меня уже каша. Где на форме Form_700x разместить эту строку:
Private Declare Function Inp Lib "C:\WINDOWS\system32\inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Без неё проблема с Inp, а с ней - вообще останавливается, предлагает макрос создать. Третий день на месте топчусь.

Это я знаю, что её обычно там помещают, но если я её прописываю в Form_LM700x, то комп предлагает сразу сотворить макрос. Почему?
Как между собой соединить переменные, находящиеся в разных модулях? То бишь, в одном модуле у меня определена переменная, как мне с ней работать в другом модуле?

Так, ЧАС, давай мух от котлет отделим. Если я меняю слово приват на паблик, то получается => см. вложение. Одновременно с выдачей сообщения выделено инверсией номер порта 889 в коде.

А это:

Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long' перемещение формы за любую часть

к чему относится?

Засунуть всё или первые две строчки. А остальное в форму?

Option Explicit Public Declare Function Inp Lib "C:\WINDOWS\system32\inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer Dim statusint As Variant statusint = Inp(889) If statusint = 95 Then RF = RF + StepNet Call To_TRX End If

Dim statusint As Variant

а это где нибудь в Load form

хотя нужно в модуль тоже
Public statusint As Variant
=============================
извини башка не фурычит ваще - пиду спать..............

rf как и stepnet это не переменные
это поля на форме и обращение к ним должно быть соответствующее
или me!rf me!stepnet
или forms![имя формы]![rf] forms![имя формы]![stepnet]

добраться до события таймер
открываете форму в режиме конструктора
наводите курсор на любой контрол (поле например)
давите правую кнопку мыши выбираете свойство
появится панель свойств этого контрола
чуть выше вкладок будет поле со списком
нужно выбрать форма
на вкладке свойства
найдите интервал таймера и установите время в миллисекундах
тут же найдите таймер установите курсор в строку
справа появится две кнопки
первая это поле со списком
кликаем по ней выбираем процедура обработки события
вторая с изображением трех точек кликаем по ней
открывается редактор VBA
вставляем код
перемещаемся в самый верх модуля
видим надпись
Option Compare Database
под нее вставляем декларирование функции из библиотеки inpout32.dll

у меня библиотеки нет - не проверял
вот попробуй =>

с таймером вот так
запускается форма
и через определенные промежутки времени (определяемые интервалом таймера)
отрабатывает код написанный в таймере
т.е. опрашивается порт 889
посмотрите последний пример

а вот так
=>

зачем 4
можно 2
кратковременное нажатие и удержание
завтра (точнее сегодня) напишу надо перед работой хоть часок поспать

чета до меня только сейчас дошло
имеем
три провода (три младших разряда) в порту 888
в которых за 48 полупериодов (шагов цикла) нужно выкинуть слово из 24 бит
т.е.
все время работы цикла на одном проводе удерживаем 1
на другом по нечетным тактам устанавливаем дату (данные)
за первый полупериод тактовую частоту переводим с 0 в 1
во второй полупериод тактовую частоту переводим с 1 в 0
для этого необходимо передавать в порт десятичные 1 3 5 7

а если использовать два порта 888 и 890
например в порт 888 просто передавать на один провод данные
а в порт 890 передавать тактовую частоту и разрешение на изменение
тогда в момент изменения инфы в 890 будет передаваться или 1 или 3
все упростится до следующего
cl=1
for i=1 to 24
Out 888, data ' или 0 или 1
for j=1 to 2
if cl=1 then
cl=3
else
cl=1
end if
Out 890, cl
Call Sleep(2)
next j
next i
Out 888, 0
Out 890, 0

ни ХР себе в 5 утра!!!!!!!!!!!!!

Всем, здравствуйте.

Так, всё работает.Частота и вверх, и вниз и шагает, и бегает. Единственная хотелка - это, чтобы между шагами и бегом была пауза. То бишь, нажал кнопочку - частота на шаг скаканула, ещё раз нажал - опять на шаг, но, если нажал и держишь кнопку, то частота не сразу начинает бежать, а через хотя бы 1 секунду. Наверное, delay вставить надо между ними.

Это я сразу сделал. Ставил даже 10000 - не помогло. Попробуй сам.

Лови.

А-а, понятно, я постоянно счётчик takt сбрасывал в ноль. Вот тупой. Да, сейчас всё ОК. Благодарю.
Ещё не надоело со мной возиться? Это я о тех злополучных 8 битах для 595 регистра.

Ну, положим, львиная доля сообщений - это Алекс постарался, а мы так, по-мелочи. Главное - результат достигнут.