Visual Basic frågor!!

[Glycol]

Har precis fått lite problem. Rotade fram mitt gamla Velleman k8055 usb kort ur en låda och tänkte göra något kul med det. Program exempel finns för VB6 så jag installerade det. Och började mixtra lite. Tänkte jag skulle lära mig att göra lite enkla program. Dock funkade inte hjälpen, och en massa annat. Tankade ner VB2005 express istället. Där funkar det givetvis inte alls med exempelprogrammet även efter konverteringen. SÅ nu har jag ingen aning om hur jag skall lära mig att använda kortet.
Har någon en idé så dela den gärna med mig!

[Seven11]

använd VB6 och lär dig det istället...

för att få fram en del tutorials om vb6: http://www.google.se/search?q=%2BVB6+%2Btutorial och för VB i allmänhet http://www.google.se/search?hl=sv&q=%2B ... %B6k&meta=

[Micke_s]

Eller så lär du dig vb.net eller C# och tittar in
http://www.users.fh-sbg.ac.at/~kschuste/vellemann.php istället

Att lära sig VB6 är inte lönt, VB.net har så många fördelar.

[Micke_s]

Det är exempelkod för c# att anrop wellemans dll
eller http://forum.velleman.be/viewtopic.php? ... aaf0c1378d
för vb.net exempel

Viktiga är

Kod: Markera allt

 
Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
Private Declare Sub CloseDevice Lib "k8055d.dll" ()
Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Integer
Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByRef Data1 As Integer, ByRef Data2 As Integer)
Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer, ByVal Data As Integer)
Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Integer, ByVal Data2 As Integer)
Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer)
Private Declare Sub SetAllAnalog Lib "k8055d.dll" ()
Private Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer)
Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Integer)
Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer)
Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer)
Private Declare Sub SetAllDigital Lib "k8055d.dll" ()
Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Boolean
Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Integer
Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) As Integer
Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Integer)
Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Integer, ByVal DebounceTime As Integer)
 

där du anropar wellemans dll(onödigt vetande detta är unmanaged code som körs)