С LPT в EXCEl

[vovik_t]

Товарищи программисты, помогите начинающему!

При чтении с LPT компилятор ругается: Text1 - переменная не определена.

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

Private Sub TextBox1_Change()

End Sub

[tempora]

Вопрос на засыпку - а на каком языке вы это пытаетесь написать?

[vovik_t]

На Visual Basic. Он в EXCEL интегрирован.

[Flopix]

Visual Basic наверняка, а что там еще может быть в Excel. Но ТС необходимо выложить нормально кусок проблемного кода, оформив его в соотв. теги и нормально выложив текст ошибки.
При выполнении какой именно строки кода ругается?

[vovik_t]

В строке

Text1.Text = Inp(&H37)

Text1. - переменная не определена.

[Flopix]

Text1. - переменная не определена.

Text1 это скорее всего панель для ввода-вывода текста выложенная на форму. Перетащите ее из панели с компонентами в Excel. Там есть такое.

[oleg110592]

Наверное переменную надо определить:

Dim I As Integer
.........
Private Sub CommandButton2_Click()
    I = Inp(&H379)
End Sub

[akegor]

Перетащите ее из панели с компонентами в Excel.

Надо почитать. Может, нужно указывать полное имя, начиная с Формы.

[omercury]

Делал когда-то так:

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 r1 As Double
Private r2 As Double
Private r3 As Double
Private r4 As Double

...............

Private Sub Command1_Click()
Out &H378, Label5.Caption
End Sub
Private Sub Command2_Click()
Label3.Caption = Inp(&H379)
End Sub
Private Sub Command3_Click()
Out &H37A, Label6.Caption
End Sub

Private Sub Command4_Click()
If i = 0 Then
    Out &H378, r1
    Out &H37A, 10
    i = i + 1
    Out &H378, 8
    Out &H37A, 11
ElseIf i = 1 Then
    Out &H378, r2
    Out &H37A, 10
    i = i + 1
    Out &H378, 4
    Out &H37A, 11

ElseIf i = 2 Then
    Out &H378, r3
    Out &H37A, 10
    i = i + 1
    Out &H378, 2
    Out &H37A, 11
ElseIf i = 3 Then
    Out &H378, r4
    Out &H37A, 10
    i = 0
    Out &H378, 1
    Out &H37A, 11
End If
'Label4.Caption = i
End Sub 

Может, нужно указывать полное имя, начиная с Формы.

Возможно, я делал в чистом VB6.

[tempora]

Сообщение от tempora

... на каком языке вы это пытаетесь написать?

На Visual Basic.

Чудненько, и что же мешает объявить свою текстовую переменную и складывать в неё прочитанное функцией Inp()?