Springen naar inhoud


- - - - -

k8055 Programma schrijven.

K8055 Veleman VB.Net

  • Log in a.u.b. om te beantwoorden
Er zijn 30 reacties in dit onderwerp

#1 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 04 november 2010 - 20:11

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! :)

#2 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 05 november 2010 - 18:04

Niemand die me kan helpen? :)

#3 thijs

thijs

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 539 berichten
    Laatst bezocht 01 feb 2022 20:57
  • LocatieOude Tonge

Geplaatst op 05 november 2010 - 18:20

Woutertje zei:

Niemand die me kan helpen? :)

sorry wouter ik heb echt niks geen ervaring op dit gebied

#4 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 05 november 2010 - 18:22

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

#5 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 05 november 2010 - 22:05

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

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

#6 Luckie64

Luckie64

    Senior Developer

  • Leden
  • PipPipPip
  • 206 berichten
    Laatst bezocht 31 aug 2016 16:55

Geplaatst op 06 november 2010 - 11:38

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

#7 Swets

Swets

    Professional Developer

  • Leden
  • PipPipPipPip
  • 381 berichten
    Laatst bezocht 20 dec 2021 10:06
  • LocatieKrimpen a/d IJssel

Geplaatst op 09 november 2010 - 00:35

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

#8 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 21:14

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.

#9 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3612 berichten
    Laatst bezocht 27 nov 2022 21:07
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 06 maart 2011 - 21:20

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

Greetzzz
Redthread

#10 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 21:22

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


#11 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 21:31

@Pascalbianca:

Als deze connectie gebruik krijg ik een error??

#12 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 21:49

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

#13 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 21:58

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


#14 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 22:02

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.

#15 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 22:05

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



#16 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 22:14

Vind ik ook niet raar B)

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


#17 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 22:23

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)

#18 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 22:34

probeer eens met :

  Visual Basic Code:
SetDigitalChannel(uitgangnummer)

uitgangnummer is 1 t/m 8 dus bv:

  Visual Basic Code:
SetDigitalChannel(1)


#19 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 22:36

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



#20 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 maart 2011 - 22:40

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

#21 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 06 maart 2011 - 22:43

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?

#22 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 maart 2011 - 05:50

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.:

Geplaatste afbeelding

#23 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 07 maart 2011 - 08:41

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.

#24 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 maart 2011 - 09:54

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.

#25 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 07 maart 2011 - 15:37

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



#26 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 maart 2011 - 15:40

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?

#27 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 07 maart 2011 - 15:47

Ja, inderdaad ik zou graag een deuralarm maken. B)

#28 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 maart 2011 - 21:55

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.
Geplaatste afbeelding

#29 Woutertje

Woutertje

    Starting Developer

  • Leden
  • 14 berichten
    Laatst bezocht 08 mrt 2011 12:58

Geplaatst op 07 maart 2011 - 22:06

Hallo,

Hoe heb je dat allemaal gedaan? B)

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.

#30 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 08 maart 2011 - 10:35

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






Ook met taq K8055, Veleman, VB.Net voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)