K8055 usb experiment interface board - Forum

falaigai

Leren kan je alleen maar door te Doen

maandag 20 juni 2011 17:23:19

Hoi ,
ik heb me vandaag K8055 van velleman aangeschaft
Deze zou ik graag programmeren in Visual basic 10 express edition .

ik vindt hier en daar op het internet dat je stukken code er in moet zetten .

bv :

Option Explicit On

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

Private Sub Connect_Click()

    Dim CardAddress As Long
    Dim h As Long

    CardAddress = 0
    CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
    h = OpenDevice(CardAddress)
    Select Case h

        Case 0, 1, 2, 3
            Label1.Caption = "Card " + Str(h) + " connected"
        Case -1
            Label1.Caption = "Card " + Str(CardAddress) + " not found"
    End Select

End Sub


Private Sub Form_Terminate()
    CloseDevice()
End Sub

Maar als ik dit doe dan geeft ie veel fouten . Ik denk dat dit komt omdat deze code van een oudere versie is .

Wie kan me helpen ? eventueel met een voorbeeldprogramma ?

Grtz

Arco

Special Member

Arco - "Simplicity is a prerequisite for reliability" - hard-, firm-, en software ontwikkeling: www.arcovox.com

maandag 20 juni 2011 17:26:56

Ik denk dat posten van de optredende foutmeldingen een stuk zal helpen...

mbbneon

maandag 20 juni 2011 17:27:27

Die code doet niets zonder een forms applicatie.

Zo te zien moet je een scherm hebben met een knop en een paar checkboxes. Heb je wel de volledige solution gedownload? Of heb je alleen dat stukje code gekopieerd en geplakt?

falaigai

Leren kan je alleen maar door te Doen

maandag 20 juni 2011 17:32:31

ik heb deze link gevolgd . (reactie 4)
http://www.electro-tech-online.com/general-electronics-chat/23652-k805…
En deze foutcodes krijg ik ..

Error	1	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	3	1	WindowsApplication1
Error	2	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	4	1	WindowsApplication1
Error	3	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	5	1	WindowsApplication1
Error	4	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	6	1	WindowsApplication1
Error	5	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	7	1	WindowsApplication1
Error	6	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	8	1	WindowsApplication1
Error	7	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	9	1	WindowsApplication1
Error	8	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	10	1	WindowsApplication1
Error	9	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	11	1	WindowsApplication1
Error	10	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	12	1	WindowsApplication1
Error	11	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	13	1	WindowsApplication1
Error	12	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	14	1	WindowsApplication1
Error	13	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	15	1	WindowsApplication1
Error	14	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	16	1	WindowsApplication1
Error	15	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	17	1	WindowsApplication1
Error	16	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	18	1	WindowsApplication1
Error	17	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	19	1	WindowsApplication1
Error	18	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	20	1	WindowsApplication1
Error	19	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	21	1	WindowsApplication1
Error	20	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	22	1	WindowsApplication1
Error	21	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	24	1	WindowsApplication1
Error	22	Statement is not valid in a namespace.	C:\Users\Admin\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	43	1	WindowsApplication1

mbbneon

maandag 20 juni 2011 17:36:30

Heb je dit ook netjes gedaan?

1. copy supplied DLL file into c:\windows\system32 directory

2. start VB (should create new project), drop one button onto form, click on it and change properties for 'caption' and 'name' (both should be Connect).

3. drop one label onto form (this will be your display)

4. switch to code view (or just doubleclick on form or button you just created). once in the code window, delete everything and paste code that came with the kit.

Volgens mij ontbreken er 3 checkboxes.
Verwijder deze regel, dat scheelt
CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)

[Bericht gewijzigd door mbbneon op maandag 20 juni 2011 17:37:56 (13%)]

falaigai

Leren kan je alleen maar door te Doen

maandag 20 juni 2011 17:40:59

de prop. Caption vindt ik niet ..

En ik denk dat ik de verkeerde dll in die map heb gezet
kga m ff is opnieuw downloaden

Professioneel ElectronenTemmer - siliconvalleygarage.com - De voltooid verleden tijd van 'halfgeleider' is 'zand' ... US 8,032,693 / US 7,714,746 / US 7,355,303 / US 7,098,557 / US 6,762,632 / EP 1804159 - Real programmers write Hex into ROM

maandag 20 juni 2011 18:04:30

je hebt geen class of module definitie.. vandaar al die warnings :



Option Explicit On
Public Module K8055
  Public Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
  Public Declare Sub CloseDevice Lib "k8055d.dll" ()
  Public Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long) As Long
  Public Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
  Public Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long, ByVal Data As Long)
  Public Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
  Public Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
  Public Declare Sub SetAllAnalog Lib "k8055d.dll" ()
  Public Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
  Public Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
  Public Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Long)
  Public Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
  Public Declare Sub ClearAllDigital Lib "k8055d.dll" ()
  Public Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
  Public Declare Sub SetAllDigital Lib "k8055d.dll" ()
  Public Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) As Boolean
  Public Declare Function ReadAllDigital Lib "k8055d.dll" () As Long
  Public Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Long) As Long
  Public Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Long)
  Public Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Long, ByVal DebounceTime As Long)
End Module

Public Class Form1
  Private Sub Connect_Click() handles connect.click

    Dim CardAddress As Long
    Dim h As Long

    CardAddress = 0
    CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
    h = OpenDevice(CardAddress)
    Select Case h

        Case 0, 1, 2, 3
            Label1.Caption = "Card " + Str(h) + " connected"
        Case -1
            Label1.Caption = "Card " + Str(CardAddress) + " not found"
    End Select

End Sub


Private Sub Form_Terminate() handles me.formclosing
    CloseDevice()
End Sub

End Class

Damic

Ben Belg sowat :D :: plaatjes zijn meestal klikbaar

maandag 20 juni 2011 18:37:33

Ja VB10 express is VB.NET en niet de oude VB6, dus goed zien of je met VB code te maken hebt of met de .NET code

falaigai

Leren kan je alleen maar door te Doen

maandag 20 juni 2011 18:59:21

Ik heb een bestand gevonden waarbij alles werkt

Het enigste wat ik me nog afvroeg welke weerstanden ik het best pak voor die versterking te regelen .

Want ik ben niet van plan om die altijd te desolderen ... of bestaat er een schakelaar met veel standen ? een stuk of vijf ?

dan kan ik

Vout = 0.5 Vin
Vout = 1 Vin
Vout = 2 Vin
Vout = 5 Vin
Vout = 10 Vin

thx