4-fach Dipschalter 1Led

[Del]

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

[Malte0815]

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.

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.

[peterfido]

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

Schlecht , aber funktional:

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

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

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

[Del]

Versuch mal:

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?

[peterfido]

Bascom braucht meine ich die ausgeschriebene Weise.

If Dip =1 And...

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

[Malte0815]

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.

[peterfido]

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

[Malte0815]

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

[Vitis]

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

[peterfido]

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.