Also hier mal das mini Progrämmchen.

Es ist das Erste das ich getippelt habe.

$regfile = "m48def.dat"
$crystal = 8000000
$sim


Config Portb.1 = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input
'Ports einrichten welcher Eingang und welcher Ausgang ist.'

Versorgungfensterschalter Alias Portd.0
Versorgungtuerkontakt Alias Portd.1
Alarm Alias Portb.1
Fensterschalter Alias Pind.4
Tuerkontakt Alias Pind.5
Eingangrauchmelder Alias Pind.6

'Alias Namen setzen'

Versorgungfensterschalter = 1
Versorgungtuerkontakt = 1
Alarm = 0

'Grundeinstellung'

Hauptprogramm:
Do
Wait 5

If Fensterschalter = 1 And Tuerkontakt = 1 And Eingangrauchmelder = 0 Then
Alarm = 1
Else
Alarm = 0
End If
Wait 5
Loop
End 'end program

Ich hoffe das es einigermassen ok so ist was ich gemacht habe.

Was mir daran noch aufgefallen ist wäre folgendes..

Wenn ich das Programm mit F8 im BascomSimulator durchlaufen lasse passt alles..

Fensterschalter=1 Tuerkontakt =1 Eingangrauchmelder =0
Alarm = 1

Wenn ich es aber mit F5 starte dann wird der Ausgang genau entgegen der gewünschsten Funktion gesetzt.

Fensterschalter =1 Tuerkontakt=1 Eingangrauchmelder= 1
Alarm = 1

Grüße aus dem Süden