> aber wie schon gesagt das funktioniert nich wirklich.
Definiere: "funktioniert nicht wirklich"
Was funktioniert denn daran nicht?
Was erwartest du und was passiert statt dessen?
> das der jeweilige wert des counters abgelesen wird
Dein Counter dürfte wohl das I sein. Oder doch das A.
Aber warum rotierst du das A immer um 1 nach links?
Aber warum fragst du den Eingang erst dann ab, wenn die
for schleife einmal bis 16 durchgezählt hat. Ich denke
du willst den Counter bei irgendeinem Zählerstand erwischen
und nicht erst dann, wenn er 16 erreicht hat.
Im übrigen wird das wahrscheinlich nicht funktionieren,
weil das ganze viel zu schnell abläuft. Du willst den
Zählerstand einfrieren, wenn der Taster gedrückt wird
und nicht solange er gedrückt ist.
Vom Port kriegst du aber nur die Information ob der Taster
gedrückt ist. Das ist aber relativ einfach zu beheben.
WEnn der Taster vorher nicht gedrückt war und jetzt
plötzlich gedrückt ist, dann ist er in der Zwischenzeit
gedrückt worden.
Du brauchst also noch eine Variable, die den Zustand ses Tasters
im letzten Durchlauf festhält. Unterscheidet sich dieser
Zustand vom jetzigen Zustand, dann war Action an der Taste
Vorher = Eingang
do
Jetzt = Eingang
if Jetzt <> Vorher then
' Juhu es gab Action an der Taste, werte da mal aus
end if
Vorher = Jetzt
Loop
Ich bin kein BASCOM Spezialist und wahrscheinlich kann man
das auch noch einfacher machen. Am besten ist es im Web nach
einem BASCOM Tutorial zu suchen und mal nachzulesen.
