falaigai
Leren kan je alleen maar door te Doen
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
Ik denk dat posten van de optredende foutmeldingen een stuk zal helpen...
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
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
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 (13%)]
falaigai
Leren kan je alleen maar door te Doen
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
free_electron
Silicon Member
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
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
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
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