Форумы HiProg.com - MS ACCESS, VBA, VB

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

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