Problem mit Counter für sog. "Skinner-Box"

[PicNick]

Ganz anspruchslos kannst du das machen, indem du nach =1 auf =0 wartest.

Do
   If Taster = 1 Then
          Ist = Ist + 1
          Locate 1,1
          Lcd "Ist :" ; Ist

          DO 
           LOOP UNTIL Taster = 0   'warten auf loslassen

  End If
Loop
End

Wie gesagt, anspruchslos.