С LPT в EXCEl

[vovik_t]

Option Explicit

Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Private Sub CommandButton1_Click()

Out &H378, 150 - это работает

End Sub

Private Sub CommandButton2_Click()

TextBox1.Text = Inp(&H37 - это работает
Text1.Text = Inp(&H37 - а это не работает


End Sub


В форму данные из порта записываются, а в ячейку таблицы нет.

[oleg110592]

Text1.Text это что? В ячейку таблицы пишется типа так: Cells(3, "B").Value = I

[Flopix]

Text1.Text это что? В ячейку таблицы пишется типа так: Cells(3, "B").Value = I

Написали же выше. Обращение к компоненту на форме, не в обычную ячейку.

[oleg110592]

к компоненту на форме

у автора работает, если выводить в TextBox

В форму данные из порта записываются, а в ячейку таблицы нет.

а что такое Text1 непонятно, если как указано - ячейка таблицы, то надо по другому.

[DK]

пишется типа так

Проще Range("A1").Value

а это не работает

В свойствах текстбокса поменяйте имя с "TextBox1" на "Text1"

И не путайте VB и VBA. Они разные. Вплоть до отношения к типам переменных. И в VBA не все команды и свойства.

[vovik_t]

Всем спасибо за участие в обсуждении.
Разобрался!!!!!!!!!!