| |
Suche Visual-Basic CodeVB6 Deklaration in VB 2010 | | | Autor: Edd121 | Datum: 02.02.12 18:18 |
| Hallo
folgender Ausschnitt stammt aus Visual Basic 2006
ich benutze allerding VB 2010 und hab schon das halbe internet durchforstet bzw den ganzen tag damit verbracht rum zu probieren wie ich es umschreiben könnte...
kann mir jemand erklären wie mans umsetzte oder es direkt umsetzten
wäre sehr dankbar!
Public Declare Function FT_ListDevices Lib "FTD2XX.DLL" ( _
ByVal arg1 As Long, _
ByVal arg2 As String, _
ByVal dwFlags As Long) As Long
Public Declare Function FT_GetNumDevices Lib "FTD2XX.DLL" Alias _
"FT_ListDevices" ( _
ByRef arg1 As Long, _
ByVal arg2 As String, _
ByVal dwFlags As Long) As Long
Public Declare Function FT_Open Lib "FTD2XX.DLL" ( _
ByVal intDeviceNumber As Integer, _
ByRef lngHandle As Long) As Long
Public Declare Function FT_OpenEx Lib "FTD2XX.DLL" ( _
ByVal arg1 As String, _
ByVal arg2 As Long, _
ByRef lngHandle As Long) As Long
Public Declare Function FT_Close Lib "FTD2XX.DLL" ( _
ByVal lngHandle As Long) As Long
Public Declare Function FT_Read Lib "FTD2XX.DLL" ( _
ByVal lngHandle As Long, _
ByVal lpszBuffer As String, _
ByVal lngBufferSize As Long, _
ByRef lngBytesReturned As Long) As Long
Public Declare Function FT_Write Lib "FTD2XX.DLL" ( _
ByVal lngHandle As Long, _
ByVal lpszBuffer As String, _
ByVal lngBufferSize As Long, _
ByRef lngBytesWritten As Long) As Long
Public Declare Function FT_WriteByte Lib "FTD2XX.DLL" Alias "FT_Write" ( _
ByVal lngHandle As Long, _
ByRef lpszBuffer As Any, _
ByVal lngBufferSize As Long, _
ByRef lngBytesWritten As Long) As Long
' Return codes
Public Const FT_OK = 0
Public Const FT_INVALID_HANDLE = 1
Public Const FT_DEVICE_NOT_FOUND = 2
Public Const FT_DEVICE_NOT_OPENED = 3
Public Const FT_IO_ERROR = 4
Public Const FT_INSUFFICIENT_RESOURCES = 5
Public Const FT_INVALID_PARAMETER = 6
Public Const FT_INVALID_BAUD_RATE = 7
Public Const FT_DEVICE_NOT_OPENED_FOR_ERASE = 8
Public Const FT_DEVICE_NOT_OPENED_FOR_WRITE = 9
Public Const FT_FAILED_TO_WRITE_DEVICE = 10
Public Const FT_EEPROM_READ_FAILED = 11
Public Const FT_EEPROM_WRITE_FAILED = 12
Public Const FT_EEPROM_ERASE_FAILED = 13
Public Const FT_EEPROM_NOT_PRESENT = 14
Public Const FT_EEPROM_NOT_PROGRAMMED = 15
Public Const FT_INVALID_ARGS = 16
Public Const FT_NOT_SUPPORTED = 17
Public Const FT_OTHER_ERROR = 18
' Flags für FT_OpenEx
Public Const FT_OPEN_BY_SERIAL_NUMBER = 1
Public Const FT_OPEN_BY_DESCRIPTION = 2
' Flags für FT_ListDevices
Public Const FT_LIST_BY_NUMBER_ONLY = &H80000000
Public Const FT_LIST_BY_INDEX = &H40000000
Public Const FT_LIST_ALL = &H20000000
Global lngHandle As Long
Public FT_HANDLE As Long
End Sub | |
Re: VB6 Deklaration in VB 2010 | | | Autor: Manfred X | Datum: 02.02.12 18:44 |
| Hallo!
Es gibt kein VB 2006. Du meinst wohl Classic VB 6.
Die Konstanten sind als Integer zu deklarieren-
Die Datentypen der Parameterlisten sind zu ändern.
Integer --> Short
Long --> Integer
Byref String --> System.Text.StringBuilder
(AS Any: vermutlich?)
Schau Dir auch mal die DLLImport-Direktive an.
Könnte weiterhelfen .... (Wrapper)
http://www.ftdichip.com/Support/SoftwareExamples/CodeExamples/CSharp.htm | |
Re: VB6 Deklaration in VB 2010 | | | Autor: Edd121 | Datum: 03.02.12 14:05 |
| danke schon mal !!
long zu int wusst ich bereits aber den rest nicht
den link kenn ich bereits weis nur nicht was ichd amit anfangen soll... | |
Re: VB6 Deklaration in VB 2010 | | | Autor: Manfred X | Datum: 03.02.12 14:54 |
| Hallo!
VB6 Declares benötigst Du nicht !!!!
In dem Link sind NET-Wrapperklassen zum Download angeboten.
Kopiere die Bibliothek FTD2XX_NET.DLL ud die XML-Datei in
Deinen Projektordner und setze einen Projekt-Verweis darauf.
Aufrufbeispiel in VB 2010:
Dim myftdi As New FTD2XX_NET.FTDI
Dim dn() As FTD2XX_NET.FTDI.FT_DEVICE_INFO_NODE
Dim st As FTD2XX_NET.FTDI.FT_STATUS = myftdi.GetDeviceList(dn) Du hast ausführliche IDE-Intellisense-Unterstützung.
Die Wrapper-Downloads stehen im Abschnitt C# - auch für VB 2010 zu verwenden.
Beitrag wurde zuletzt am 03.02.12 um 15:24:20 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|