produkt id und seriennummer

[any]

hi ich wollte gerne mal testen wie ich mir die produktid und die seriennummer ausgeben alssen kann, ich hab hier ein iow24 und ein iow40.
bis jetzt mach ichs wie folgt:
ProduktID:

Code: Select all

Private Sub Command1_Click()
Dim pid As Long
pid = IowKitGetProductId()
pid = Hex$(pid)
List1.AddItem (pid)
End Sub

Seriennummer:

Code: Select all

Private Sub Command2_Click()
Dim snr As String
sn = IowKitGetSerialNumber(iowHandles(0), (snr))
List2.AddItem (sn)
End Sub

aber leider funktionirts nich wirklich
woran liegt das? wie geht das?

[Robert Marquardt]

Ups, da haben wir glatt vergessen ein Beispiel fuer die Seriennummer unter VB6 zu machen.

Code: Select all

Private Sub Form_Load()
  Dim I As Long
  Dim Report(8) As Byte
  Dim Serial(20) As Byte

  ' open the IO-Warriors and use the first one available
  IOWarrior = IowKitOpenDevice
  Pid = IowKitGetProductId(IOWarrior)
  I = IowKitGetSerialNumber(IOWarrior, Serial(0))
  Form1.Label1(8).Caption = Serial

  ' if found activate IIC
  If IOWarrior <> 0 And (Pid = IOWKIT_PID_IOW40 Or Pid = IOWKIT_PID_IOW24) Then
    Report(0) = &H1
    Report(1) = &H1
    I = IowKitWrite(IOWarrior, IOW_PIPE_SPECIAL_MODE, Report(0), 8)
    ' start timer for reading Voltages
    Timer1.Enabled = True
  End If
End Sub

Hier mal fuer das MAX127-Beispiel eine alternative Form_Load() Methode, die die Seriennummer ausgibt.
Es wird auch die PID geholt, wenn auch nicht ausgegeben.

[any]

wenn ich es nach deiner variante mache sagt er mir bei der produktid:
"falsche anzahl an argumenten oder ungültige zuweisung zu einer eigenschaft" und verweisst auf "IowKitGetProductId", ich vermute weil in der dekleration folgendes steht:

Code: Select all

Public Declare Function IowKitGetProductId _
    Lib "iowkit" _
    () _
As Long

und bei der ausgabe für die serien nummer sagt er:
"Argumenttyp ByRef unverträglich"
und verweisst auf Serial

[Robert Marquardt]

Wo kommt den dieses iow.bas File her? Ist das auch das aktuelle SDK?

[any]

ich hab das sdk von der cd genommen

[Robert Marquardt]

Schick mir mal die Files deines Beispiels. marquardt at codemercs dot com. insbesondere inklusive des iow.bas Files.

[any]

gut ich hab dir ne email mit der dll und der bas datei geschickt.

[Robert Marquardt]

Das sind Files vom 1.2 API. Da muss man sich nicht wundern wenn es nicht richtig funktioniert. Ist das eine CD von einem kuerzlich gekauften Starterkit?

[any]

aehm weiss ich leider nich da ich momentan in nem praktikum bin und damit nur arbeiten muss, ich denk aber nich das die erst gekauft wurden

[Robert Marquardt]

Na dann das aktuelle SDK von unserer Webseite runterladen und verwenden http://www.codemercs.com/Downloads/SDK.zip
Die alte CD am besten wegschmeissen und statt dessen den Download entpacken und auf eine CD-R schreiben.