Visual Basic Forum

Benji · Verfasst am: 02.11.2009, 10:28

Hallo,

leider habe ich ein kleines Problem. Ich soll in der Arbeit eine USB Schnittstelle mit Visual Basic programmieren. Leider habe ich noch nie was mit der Sprache am Hut gehabt.
Mein Problem besteht darin das ich den folgenden Programmcode der scheinbar in VB6 erstellt wurde nicht zum laufen kriege mit VB 2008.

Quellcode:

Friend Class Beispiel12
Inherits System.Windows.Forms.Form

' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim lngNumDevices As Integer

Dim strBeschreibung As New VB6.FixedLengthString(256)

Dim strReadBuffer As New VB6.FixedLengthString(1024)
Dim strWriteBuffer As String

Dim lngBytesWritten As Integer
Dim lngBytesRead As Integer
Dim lngTotalBytesRead As Integer

Dim FT_RxBytes As Integer
Dim FT_TxBytes As Integer

Dim lngevent_get_stat As Integer
Dim intMask As Byte ' &0FH alle Signale / Bits als output 0= all inputs
Dim intMode As Byte ' &H00 reset, &H01 = async Bitbang, &H04 sync Bitbang

Dim flTimedout As Boolean
Dim flFatalError As Boolean

Dim FtStatus As Integer
Dim Databyte As Byte
Dim TimerIstAn As Boolean
'

Private Sub bt_ea_Click()
Dim i As Object

' zuerst die bits zu einem Byte in intMask zusammenfügen
' Maske inMask neu setzen
' und zugleich auch lesekästchen des bits aktivieren
' lesen mit getbit nur dann wenn Engang = wenn 0

intMask = 0

For i = 0 To 7

intMask = intMask + CType(Me.Controls("cb_ea" & Trim(Str(i))), Object).Value * 2 ^ i
An dieser Stelle schmiert das Programm schon ab. Da kommt die Meldung: MissingMemberException wurde nicht behandelt. Der öffentliche Member Value für den Typ CheckBox wurde nicht gefunden. Wäre super wenn mir da jemand einen Tip geben könnte.

Next i

For i = 0 To 7

If CType(Me.Controls("cb_ea" & Trim(Str(i))), Object).Value = 1 Then
CType(Me.Controls("cb_rd" & Trim(Str(i))), Object).Visible = False
CType(Me.Controls("cb_wr" & Trim(Str(i))), Object).Visible = True
CType(Me.Controls("lb_d" & Trim(Str(i))), Object).ForeColor = System.Drawing.Color.White
CType(Me.Controls("lb_d" & Trim(Str(i))), Object).BackColor = System.Drawing.Color.Blue

Else

CType(Me.Controls("cb_rd" & Trim(Str(i))), Object).Visible = True
CType(Me.Controls("cb_wr" & Trim(Str(i))), Object).Visible = False
CType(Me.Controls("lb_d" & Trim(Str(i))), Object).ForeColor = System.Drawing.Color.Black
CType(Me.Controls("lb_d" & Trim(Str(i))), Object).BackColor = System.Drawing.Color.Yellow

End If
Next i

If intMask = 0 Then
Me.bt_wr(0).Enabled = False
Else
Me.bt_wr(0).Enabled = True
End If

End Sub
_________________