Springen naar inhoud


- - - - -

K8061 Vs2008

K8061 Poorten

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

#1 sioenlucien

sioenlucien

    Starting Developer

  • Leden
  • 2 berichten
    Laatst bezocht 25 okt 2012 14:04

Geplaatst op 25 oktober 2012 - 09:24

hoe kan vb.2008 zien dat bv poort 1 aan of uit staat ?
ik werk met een timer om de poorten aan te sturen.
ik ben bezig met een sturing voor mijn centrale verwarming.

Voorbeeld : poort 1 is om radiatorkraan1 te openen en poort 8 om mijn ciculatiepomp te doen draaien.

Visual Basic Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


If TextBox1.Text > Label19.Text Then
			SetDigitalChannel(CardAddress, 1)
			SetDigitalChannel(CardAddress, 8)
		End If
		If TextBox1.Text < Label19.Text Then
			ClearDigitalChannel(CardAddress, 1)
			ClearDigitalChannel(CardAddress, 8)
		End If
		If TextBox2.Text > Label38.Text Then
			SetDigitalChannel(CardAddress, 2)
			SetDigitalChannel(CardAddress, 8)

		End If

		If TextBox2.Text < Label38.Text Then
			ClearDigitalChannel(CardAddress, 2)
			ClearDigitalChannel(CardAddress, 8)
		End If


Als poort 1 moet uitgaan, maar poort 2 staat aan, wil poort 1 ook poort 8 sluiten, maar ziet niet dat poort 8 moet blijven openstaan. De ene wil de poort 8 sluiten en de andere wilt de poort openen.

Zo zit poort 8 aan en uit te gaan.

Veranderd door RedThread, 25 oktober 2012 - 14:10.
Code tussen tags geplaatst.


#2 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4380 berichten
    Laatst bezocht 02 jul 2018 15:31
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 25 oktober 2012 - 10:37

Ten eerste welkom sioenlucien op dit forum.
Mag ik vragen aan welke kant je die hebt aangesloten? aan de kant waar de leds zitten of aan de andere kant?
Helaas ziet vb dit niet , hij voert alleen jou commando's uit met die kaart.
Helaas kan ik dit niet testen aangezien ik die kaart niet heb, maar ik heb een voorbeeld project bekeken van hun.

Als ik jouw verhaal goed begrijp kun je beter i.p.v. een if -functie met select case werken.

#3 sioenlucien

sioenlucien

    Starting Developer

  • Leden
  • 2 berichten
    Laatst bezocht 25 okt 2012 14:04

Geplaatst op 25 oktober 2012 - 14:01

aan de kant van de leds





Ook met taq K8061, Poorten 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)