Er zijn 30 reacties in dit onderwerp

[Woutertje]

Hallo iedereen,

Ik heb onlangs een K8055 interface kaartje gekocht van Velleman.
Ik zou hiervoor graag een programma schrijven. Dit met Microsoft Visual Basic 2010 Express.

Wat ik graag zou maken is een programma wanneer er bij de digitale ingang een signaal binnenkomt als de deur opengaat dat er wordt geregistreerd en weergegeven wordt in dat programma om hoe laat, op welke dag de deur is geopend....

Ik weet niet goed hoe hiermee te beginnen.

Hoe moet ik starten?
Moet ik bij het maken van een nieuw project kiezen voor Windows Form Application?

En op vlak van code? Moet ik hier beginnen met volgende code of moet daar nog iets voor komen?

OpenDevice(0)

Is dit gedeelte al correct?

Visual Basic Code:

Public Class Form1

	Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer)
	Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer)
	Public up, down, lleft, rright As Boolean 'to keep track of which buttons are already pressed

End Class

Hoe moet ik nu verder?

Alvast bedankt!

[Woutertje]

Niemand die me kan helpen?

[thijs]

Woutertje zei:

Niemand die me kan helpen?

sorry wouter ik heb echt niks geen ervaring op dit gebied

[Woutertje]

En andere mensen, want ik heb al topics gezien op dit forum over dit onderwerp maar daaruit kan ik het ook niet begrijpen???

[pascalbianca]

Tijd doet helen, er zal wel iemand eens erop reageren, niet iedereen werkt ermee

Kijk hier eens, mischien helpt dat:
http://forum.vellema...8a04003d0920e0d

[Luckie64]

Woutertje,

Add Reference van k8055d.dll

Declaratie gedeelte :
Visual Basic Code:

Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
Private Declare Sub ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer)

Connectie met kaart:
Kaart jumpers staat op kaart 0
Visual Basic Code:

If OpenDevice(0) = -1 then
'foutboodschap kaart niet gevonden
End If 

Gebruik ingang 1
Inlezen digitale ingang :(deze zet je in timer om x tijd)
Visual Basic Code:

 If ReadDigitalChannel(1) Then
'actie die je wil ondernemen
End If

Groeten,
Luc

[Swets]

je zou het ook eens op circuits-online kunnen proberen.... daar zitten er ook nog wel een paar die met die kaart werken...

[Woutertje]

Hallo,

Ik ben terug bezig met het programmeren van mijn k8055.
Ik heb al begrepen dat dit sowieso aanwezig moet zijn:

Visual Basic Code:

	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)

Maar hoe moet ik nu op een eenvoudige manier connecteren met de kaart???

Dit moet met de functie OpenDevice() maar verder weet ik niet hoe het moet.

[RedThread]

kijk hier eens > http://www.vbib.be/P...ic-t-8327.phtml

Greetzzz
Redthread

[pascalbianca]

ik doe zo de connectie maken:

  Visual Basic Code:

Dim CardAddress As Integer
		Dim h As Integer
		CardAddress = 0
		h = OpenDevice(CardAddress)
		Select Case h
			Case 0, 1, 2, 3
				Label2.Text = "Kaart " & Str(h) & " gevonden en connectie gemaakt."
					  Case -1
				Label2.Text = "Kaart " & Str(h) & " niet gevonden."
					  Case -2
				Label2.Text = "Dll bestand niet gevonden"
		End Select

[Woutertje]

@Pascalbianca:

Als deze connectie gebruik krijg ik een error??

[pascalbianca]

Ow?
Welke error krijg je dan want hier doet hij het gewoon.

[Woutertje]

Dat de OpenDevice functie niet werkt..
Ik heb nu volgende code, hij geeft geen fouten aan, maar de led van digitale uitgang 1 gaat niet aan.

Visual Basic Code:

Public Class Form1

	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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		OpenDevice(0)

	End Sub

	
	Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

		SetDigitalChannel(1)

	End Sub

End Class

[pascalbianca]

Ik zie nu al enkele fouten in de eerste regels van je code.
bv.:
Visual Basic Code:

  Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long

DIt moet al zijn:
Visual Basic Code:

 Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer

Hier de werkende declaraties:
Visual Basic Code:

Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	Private Declare Sub CloseDevice Lib "k8055d.dll" ()
	Private Declare Sub Version Lib "k8055d.dll" ()
	Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer
	Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	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)

Dan zou de code van mij nu wel moeten werken.

[Woutertje]

Heb de juiste declaraties ingevoegd en het werkt nog steeds niet met volgende code:

Visual Basic Code:

Public Class Form1

	Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	Private Declare Sub CloseDevice Lib "k8055d.dll" ()
	Private Declare Sub Version Lib "k8055d.dll" ()
	Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer
	Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	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)

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

		Dim CardAddress As Integer
		Dim h As Integer
		CardAddress = 0
		h = OpenDevice(CardAddress)
		Select Case h
			Case 0, 1, 2, 3
				Label2.Text = "Kaart " & Str(h) & " gevonden en connectie gemaakt."
			Case -1
				Label2.Text = "Kaart " & Str(h) & " niet gevonden."
			Case -2
				Label2.Text = "Dll bestand niet gevonden"
		End Select


	End Sub

End Class

[pascalbianca]

Vind ik ook niet raar

ik mis hier iets:
Visual Basic Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

als je op de knop drukt reageerd hij niet!!
dit moet zijn:
Visual Basic Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) handles button1.click

[Woutertje]

Het werkt!! Hij zegt dat hij een connectie heeft gemaakt!

Maar hoe doe je nu dat als je op button 2 klikt dat uitgang 1 werkt? (dus dat ledje van uitgang 1 brandt)

[pascalbianca]

probeer eens met :

  Visual Basic Code:

SetDigitalChannel(uitgangnummer)

uitgangnummer is 1 t/m 8 dus bv:

  Visual Basic Code:

SetDigitalChannel(1)

[Woutertje]

Heb ik gedaan maar dat werkt niet.

Zie je een fout in de code?

Visual Basic Code:

Public Class Form1

	Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	Private Declare Sub CloseDevice Lib "k8055d.dll" ()
	Private Declare Sub Version Lib "k8055d.dll" ()
	Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer
	Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer
	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)

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.click

		Dim CardAddress As Integer
		Dim h As Integer
		CardAddress = 0
		h = OpenDevice(CardAddress)
		Select Case h
			Case 0, 1, 2, 3
				Label1.Text = "Kaart" & Str(h) & "  is gevonden en er is succesvol connectie gemaakt!"
			Case -1
				Label1.Text = "Kaart" & Str(h) & " is niet gevonden."
			Case -2
				Label1.Text = "Het Dll bestand is niet gevonden"
		End Select

	End Sub

	
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

		SetDigitalChannel(1)

	End Sub
End Class

[pascalbianca]

nee met de code wat jij geeft gaat het ledje op kanaal 1 gewoon aan.

[Woutertje]

Bij mij gaat het niet aan...
Sla je eerst je programma op in een .exe bestand of run je dit gewoon in Visual Basic zelf?

[pascalbianca]

Ik run hem gewoon in VB zelf.
Maar heb je de brugjes goed staan?
Op SK2, SK3, SK5 en SK6 moet een jumper zitten.
In onderstaand figuur zijn ze omringt met een rode lijn.:

[Woutertje]

Ja, dat is correct, er is op alle 4 een jumper geplaatst.

Misschien is er gewoon geen connectie met de kaart?

Als ik dit zet geeft hij geen melding:

Visual Basic Code:

 If OpenDevice(0) = 0 Then

			MsgBox("Geconnecteerd!")

		End If

Ik werk met Visual Basic 2008.

[pascalbianca]

Ja maar in de code die ik jou heb gegeven maakt hij wel connectie, dus moet iets anders aan de hand zijn, heb je hem eens opnieuw ingestoken en eventueel op een andere usb poort gezet? dan kun je zien of hij word herkend enz., enz.
Zal thuis erna kijken want hier op mijn werk heb ik niets bij de hand.

[Woutertje]

Hallo. Het werkt maar ik heb nog een andere vraag.

Hoe kan ik volgend stukje code om de 10 seconden laten uitvoeren?

Visual Basic Code:

 Dim Deur As Boolean
		Deur = ReadDigitalChannel(1)
		If Deur = False Then
			MsgBox("Open")
		End If

[pascalbianca]

Door het in een timer te plaatsen.
Maar je code wat je als voorbeeld geeft ken ik meen ik ergens van, is het niet van die deuralarm?

[Woutertje]

Ja, inderdaad ik zou graag een deuralarm maken.

[pascalbianca]

Momenteel heb ik een kleine bedienings paneel , het is nog niet veel omdat ik de indeling van de aparaten nog niet exact weet, maar dit heb ik op het moment om te testen.

[Woutertje]

Hallo,

Hoe heb je dat allemaal gedaan?

Bestaat er een functie om de button "ingedrukt" te houden, want als ik nu probeer werkt het alleen op het moment dat ik de button indruk.

[pascalbianca]

Volgens mij zou het wel kunnen durf het alleen nu niet te zeggen, zal er vanavond even naar kijken want als ik de de poorten van de analoge kant verbind , dus de grd en 1 van de 5 analoge ingangen blijft hij contact houden.

Maar om even terug te komen op de connectie problemen wat je hebt.
Ik weet niet of je het programma afsluit via een knop of via het kruisje in je form of andere optie, maar zet daar de close connection in om de kaart weer te disconnecten.
Kan namelijk wel eens zijn als de kaart nog aangesproken word en je wilt hem weer aanspreken dat je een probleem gaat krijgen.

De code hiervoor is Visual Basic Code:

CloseDevice