Hallo! Versuche schon ewig eine UND-Funktion zu erstellen, habe vorher n C-Control mit Basic gehabt da wars viel einfacher.

Bei C-Control schaut es ungefär so aus:
IF Port1 AND Port2 = 1 THEN
Port3 = 1
ELSE
Port 3 =0
END IF

Aber diese AND-Funktion oder auch OR,NOR,NAND usw. funktionieren nicht bei BASCOM, es kommen immer Fehlermeldungen.

So habe ich eine komplizierte IF-Schliefe gebaut um 3 Taster UND-Ferknüpft auf ne LED zugeben
Code:
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000

Config Porta.4 = Output
Led Alias Porta.4

Config Pina.0 = Input
T1 Alias Pina.0

Config Pina.1 = Input
Dim T2 As Bit

Config Pina.2 = Input
Dim T3 As Bit

Porta.0 = 1                                                 
Porta.1 = 1
Porta.2 = 1

Do
   If Pina.1 = 0 Then
      T2 = 1
   Else
      T2 = 0
   End If
   If Pina.2 = 0 Then
      T3 = T2
   Else
      T3 = 0
   End If
   If T1 = 0 Then
      Led = T3
   Else
      Led = 0
   End If
Loop

End
Nur diese Variante ist zulang zuaufwendig und verschwendet ressourcen, und wenn man komplexe Anwendungen wünscht wird das Programm zu langsam.
Ich habe überall nach Quellcodes gesucht aber nichts gefunden, selbst in mein BASCOM-Buch ist sowas einfaches nicht drin.

Bitte um Hilfe, Danke!