Dim A As Bit 'wurde der taster berreits losgelassen dann a =0? Dim B As Bit 'Led an =1 sonst =0 Ddra = &B00000001 Porta.0 = 1 B = 0 A = 0 do If B = 0 Then ' wenn die Led aus ist If A = 0 Then ' wenn der Taster seit dem letzten druck losgelassen wurde If Pina.0 = 0 Then ' und der schalter gedrückt wurde B = 1 ' die LEDvariable auf 1 setzen A = 1 ' taster ist gedrückt deswegen a=1 Porta.1 = 1 'Led an end if end if end if If Pina.0 = 1 Then A = 0 'wenn der taster losgelassen wurde a=0 If B = 1 Then ' wenn die Led an ist If A = 0 Then ' der taster losgelassen wurde If Pina.0 = 1 Then ' und wieder gedrückt ist Porta.1 = 0 'Led aus B = 0 'Ledvariable auch A = 1 ' der taster wurde natürlich wieder gedrückt end if end if end if loop