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 согласно схемы распайки разъема
|