ник: snipe
с кувыреками
сначала старший
мысль такая - пока оставить все как есть
просто надо немного дописать
во вложении есть рисунок 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