STORE problemer med egne funksjoner/sub'er og type

[Richard87]

Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of user defined types

 

denne error'en får eg i VB6 når eg utfører følgende kode:

Private Sub Command1_Click()
On Error Resume Next
Dim ret As Long
Dim sUSB_Device As USB_Device2
usb_init
ret = usb_find_busses
   sPrint ret, "USB_Find_Busses"
ret = usb_find_devices
   sPrint ret, "USB_Find_Devices"
ret = usb_get_busses
   sPrint ret, "USB_Get_Busses"
   
   sUSB_Device = GetUsbDevice(ret)
   With sUSB_Device
       tPrint .bcdDevice
       tPrint .bcdUSB
       tPrint .bDescriptorType
       tPrint .bDeviceClass
       tPrint .bDeviceSubClass
       tPrint .bLenght
       tPrint .bMaxPacketSize0
       tPrint .bNumConfigurations
       tPrint .Bus
       tPrint .Config
       tPrint .Dev
       tPrint .filename
       tPrint .idProduct
       tPrint .idVendor
       tPrint .iManufacturer
       tPrint .iProduct
       tPrint .iSerialNumber
       tPrint .Next
       tPrint .Prev
   End With
End Sub

ka må te får og få fiksa dette?

alle type etc ligge lagra i modulen(vedlegget...)

libusb.bas

[Jonas]

sPrint finnes ikke. Du har ikke lagt ut all koden.

 

Det er også mye lettere å hjelpe hvis du sier hvilken linje du får error på..

[Richard87]

ok, sry, sPrint og tPrint er bare noen eklne funksjoner for og gjøre det raskere og legge til lementer i en ListBox.. jeg får error'er med en gang den prøver og lese ut verdien fra sUSB_Device, dvs, tPrint .bcdDevice

[Richard87]

[EDIT] Dobbelt post...

 

Private Sub Command1_Click()
On Error Resume Next
Dim ret As Long
Dim sUSB_Device As USB_Device2
usb_init
ret = usb_find_busses
   sPrint ret, "USB_Find_Busses"
ret = usb_find_devices
   sPrint ret, "USB_Find_Devices"
ret = usb_get_busses
   sPrint ret, "USB_Get_Busses"
   
   sUSB_Device = GetUsbDevice(ret)
   With sUSB_Device
       tPrint .bcdDevice
       tPrint .bcdUSB
       tPrint .bDescriptorType
       tPrint .bDeviceClass
       tPrint .bDeviceSubClass
       tPrint .bLenght
       tPrint .bMaxPacketSize0
       tPrint .bNumConfigurations
       tPrint .Bus
       tPrint .Config
       tPrint .Dev
       tPrint .filename
       tPrint .idProduct
       tPrint .idVendor
       tPrint .iManufacturer
       tPrint .iProduct
       tPrint .iSerialNumber
       tPrint .Next
       tPrint .Prev
   End With
End Sub

Public Sub sPrint(ByVal ret As Long, ByVal Description As String)
List1.AddItem ret & ": " & Description
End Sub

Public Sub tPrint(ByVal Description As Variant)
List1.AddItem Description
End Sub

Endret 4. februar 2005 av Richard87

[Jonas]

   With sUSB_Device
      tPrint .bcdDevice.Short
      tPrint .bcdUSB.Short
      tPrint .bDescriptorType
      tPrint .bDeviceClass
      tPrint .bDeviceSubClass
      tPrint .bLenght
      tPrint .bMaxPacketSize0
      tPrint .bNumConfigurations
      tPrint .Bus
      tPrint .Config
      tPrint .Dev
      tPrint .filename
      tPrint .idProduct.Short
      tPrint .idVendor.Short
      tPrint .iManufacturer
      tPrint .iProduct
      tPrint .iSerialNumber
      tPrint .Next
      tPrint .Prev
  End With

[Richard87]

ka gjør short? (og koffor virka det?)

Endret 4. februar 2005 av Richard87

[Jonas]

bcdDevice, bcdUSB, idProduct og idVendor lenket bare til en ny UDP. Du ser 'idVendor as Short' osv.

[Richard87]

kossen kan eg då få ut all dataen som blei lagra der? de e jo bare ein heil del med bytes? hekkan, eg ser det nå

Endret 4. februar 2005 av Richard87

[Jonas]

Byte Data Type

Byte variables are stored as unsigned 8-bit (1-byte) numbers ranging in value from 0 through 255.

Byte lagrer bare en byte, 8 bit. Et tall mellom 0 og 255.

 

Edit: Du får dataen ut på samme måte som med alle andre talltyper.

Endret 4. februar 2005 av Jonas