Hallo zusammen,
ich habe ein Problem mit meinem Programm, wenn ich es durch den Simulator laufen lasse springt es von der Stelle Pind.2 = 1 wieder in die erste Zeile. Es sollte doch eigentlich in der Do - Loop Schleife hängen bleiben. Wer hat eine Erklärung warum das so ist.
Viele Grüsse Kalle

$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 132
$swstack = 132
$framesize = 164
$baud = 19200

Config Pinb.0 = Input 'Starttaster
Config Pinb.1 = Input 'MV manuell ein / ausschalten
Config Pinb.2 = Input 'im Menü scrollen
Config Pinb.3 = Input 'Wert im Menü erhöhen
Config Pind.2 = Input 'Wert im Menü verringern
'config pind.3 = input(Res)
'config pind.4 = input(Res)
'config pind.5 = input(Res)
Config Portc.2 = Output 'Magnetventil 1
Config Portc.1 = Output 'Magnetventil 2
Config Portc.0 = Output 'Kamera
Config Portd.7 = Output 'Blitz

Kamera Alias Portc.0
Mv1 Alias Portc.2
Mv2 Alias Portc.1
Blitz Alias Portd.7
Taster_start Alias Pinb.0 ' starttaster
Taster_mm Alias Pinb.1 ' Taster_mv_manuell
Taster_ms Alias Pinb.2 ' Taster_menü_scroll
Taster_we Alias Pinb.3 ' Taster_wert_erhöhen
Taster_wv Alias Pind.2 ' Taster_wert_verringern

Pinb.0 = 1 'Pull Up einschalten da taster gegen gnd
Pinb.1 = 1 'Pull Up einschalten da taster gegen gnd
Pinb.2 = 1 'Pull Up einschalten da taster gegen gnd
Pinb.3 = 1 'Pull Up einschalten da taster gegen gnd
Pind.2 = 1 'Pull Up einschalten da taster gegen gnd

Dim Wert1 As Word
Dim Wert2 As Word
Dim Wert3 As Word
Dim Wert4 As Word
Dim Wert5 As Word
Dim Wert6 As Word
Dim A As Byte
Dim B As Byte
Dim C As Byte

Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Lcd = 16 * 2

Do
If Taster_ms = 0 Then
Incr A
End If
Cls
Lcd A

Loop


End