Out &H378, signalinteger 'выпихиваем число в порт
'тут бы по уму паузу воткнуть, а я не помню как это делается (смотрите свой рисунок
' там СL идет с полупериодичностью 1.5 или более мкс)
Me.TimerInterval = 15
Next i
Out &H378, 0 'запрещаем изменение
'сигнал ловить СL на выводе D2, Data-D1, CE-D0 согласно схемы распайки разъема
|