4-fach Dipschalter 1Led

@peterfido
Das wird es auch nicht sein was er will.
Und nein, da steht was anderes, mit dem entscheidenden Unterschied.

Vielen Dank für eure Tipps.
Ich hab es nun hinbekommen obwohl ich eigentlich mit einem anderen Ergebnis bei diesem Versuch gerechnet habe. Ich hab wohl den "AND" Befehl noch nicht richtig verstanden???? Eigentlich dachte ich das die LED erst an geht wenn alle Schalter auf ON sind aber es funktioniert so wie ich es brauche.

Code:

---

Do

 If Dip1 = 1 And Dip2 = 1 And Dip3 = 1 And Dip4 = 1 Then
  Led = 1
 Else
  Led = 0

 End If


Loop
End

---

Ich werd es aber auch nochmal mit den anderen Versionen von euch probieren um noch ein bisschen Übung mit den Variablen zu bekommen:).

Naja, viele Wege führen nach Rom...

Schlecht , aber funktional:

Code:

---

dim b as byte
b=4
b=b-dip1
b=b-dip2
b=b-dip3
b=b-dip4
if b>0 then
set led
else
reset led
endif

---

Wenn es nur um logische Verknüpfungen geht:
Ob Bascom ohne Zwischenschritte

Code:

---

if dip1 = 1 and dip2 = 1 and dip3 =1 and dip4 = 1 then
reset led
else
set led
endif

---

macht, weiß ich grad nicht. Sitze nicht am ArbeitsPC, sondern im Wohnzimmer mit dem Lappi...
Anders ausgedrückt müsste auch

Code:

---

if dip1=0 or dip2=0 or dip3=0 or dip4=4 then
set led
else
reset led
endif

---

laufen.


edit: Zu lange mit dem Tippen gebraucht...

Versuch mal:

Code:

---

Do

 If Dip1 And Dip2 And Dip3 And Dip4 = 1 Then
  Led = 1
 Else
  Led = 0

 End If


Loop
End

---

Gehen sie so auch noch alle an wenn nciht alle Schalter On sind?

Bascom braucht meine ich die ausgeschriebene Weise.

Code:

---

If Dip =1 And...

---

Habe ich Anfangs auch so versucht gehabt, weil ich es bei VB auch immer so mache...

Ist euch eigentlich aufgefallen das die 'Forumuhr' noch auf Winterzeit steht. Zumindest lassen das die Zeiten der Beiträge vermuten (oder ist das nur bei mir aufm Apfel-phone so?) :))
@Del
den Code hatte ich ja auch schon gepostet und er funktioniert. Sobald ein Schalter on ist, ist die LED an...egal welchen ich betätige und sie geht erst wieder aus wenn alle dips auf off sind.

Die 17:51 Uhr Deines Posts passen doch...

Dein letzter post ist bei mir 17:01. Ist ja auch sch... egal;).
Frohe Ostern.

man man man ... if-schleifen, wo gibts denn sowas ... argh.
Das sind Programmverzweigungen.

Schleifen sind For - Next, Do Loop, while wend

zum Thema:

dim hifsvar as byte

do

hilfsvar = pinc and &b00001111

if hilfsvar > 0 then
reset led
else
set led
endif

loop

So ähnlich wie mein Vorschlag von 17:13 Uhr aber deins wäre richtig, wenn die PullUps nicht genutzt werden und meins, bei genutzen Pullups so wie es im ersten Post vermuten lässt.