Mark Balla Posted April 6, 2005 Report Share Posted April 6, 2005 I'm Building a production tester that uses a Melexis chip programmer. It came with and Active X toolkit but all the examples are written in VB. I was able to interpret all the VB code except one part. The code below scans for connected devices and returns a "Collection pointer" Sub CreateDevice() Dim PSFMan As MLX90251PSFManager, DevicesCol As ObjectCollection, I As Long On Error GoTo lError Set PSFMan = CreateObject("MPT.MLX90251PSFManager") Set DevicesCol = PSFMan.ScanStandalone(dtSerial) If DevicesCol.Count <= 0 Then MsgBox ("No PTC-04 programmers found!") Exit Sub End If ' Dev is a global variable of type MLX90251PSFDevice Quote Link to comment
FLX Posted April 7, 2005 Report Share Posted April 7, 2005 I think you have to use for the type input of the variant to data function an array of refnums, because in the VB is the first element selected with index 0 DevicesCol(0). Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.