-
        

Ergebnis 1 bis 3 von 3

Thema: Frage Summe Eingangspin bilden

  1. #1
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    08.08.2006
    Beiträge
    118

    Frage Summe Eingangspin bilden

    Anzeige

    Hallo,
    ich will mit meinen Attiny 2313 5 Pins überwachen.
    nur einer darf auf H sein.
    Jetzt wollte ich schreiben:

    If Summe Pinb.= 1 Then
    Print "OK"
    Else
    Print "Leitungsfehler"
    End if

    Summe Pinb. wollte ich als Sub unten ablegen.
    Geht das in Bascom überhaupt.und wie könnte man das machen.
    Ein Bascom Anfänger

    Wigbert

  2. #2
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    22.05.2005
    Ort
    12°29´ O, 48°38´ N
    Alter
    48
    Beiträge
    2.731
    Hallo,
    so kommts mit einfacher vor, ohne Sub:

    Code:
    Dim B As Byte
    
    B = Pinb And &B00111110
    If B > 0 Then
        Print "OK"
    Else
        Print "NOK"
    End if
    nach dem AND dann diese Pins auf eins, die abgefragt werden sollen, wenn dann eins dieser Pins mal high ist, ist der Gesamtwert grösser als 0 und dann trifft das zu.

    PS:
    hab das jetzt aber nicht in der Praxis ausprobiert !

  3. #3
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    08.08.2006
    Beiträge
    118

    Re Summe ....

    Hallo,
    Danke für den Code.Im Programm muss das "Vergleichen"
    mehrmals gemacht werden.Aber ich denke ich komme erst mal
    weiter.

    Wigbert

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •