Problem mit IF Abfrage und and in Bascom

[Tom Z. (tom_z)]

Hallo,

ich baue zur Zeit ne kleine Alarmanlage mit GSM Modem Siemens M20 
Terminal.

Bei mir löst die Schaltung immer Alarm aus, egal ob sie aktiviert oder 
deaktiviert ist und auch egal ob der Reedkontakt auf oder zu ist.

Sensor ist ein Reedkontakt der an Pinb.1 hängt und gegen GND geschaltet 
ist. Tür zu => Signal Low

An Pinb.0 hängt ein zweiter Mikrocontroller (RFID Modul). Ist der Pin 
Low ist die Alarmanlage deaktiviert. Ist der Pin High, dann aktiviert.

Auslösen (SMS senden) geht Problemlos. Nur Passiert das immer EGAL wie 
die Pins sind.
Alarmgeber werden später noch angeschlossen. Bis jetzt is das eh noch 
ein Versuchsaufbau auf dem Tisch.

Das Relais soll das GSM Modem ein- und ausschalten um Strom zu sparen. 
Das Alarm Bit soll verhindern, dass ständig SMS gesendet werden.

$regfile = "attiny2313.dat"
$crystal = 14745600
$baud = 19200

Wait 5

Dim Alarm As Bit
Alarm = 1

Config Portd.6 = Output
Relais Alias Portd.6
Relais = 0

Config Portd.5 = Output
Summer Alias Portd.5
Portd.5 = 1

Config Pinb.0 = Input                                       'zweiter Mikrocontroller (RFID Modul)
Rfid Alias Portb.0
Set Rfid

Config Pinb.1 = Input                                       'Reedkontakt gegen Masse
Reed Alias Portb.1
Set Reed

Do

If Reed = 1 And Rfid = 1 Then
  If Alarm = 1 Then
    'Sirenen einschalten
    Relais = 1                                              'GSM Modem einschalten
    Wait 15
    Print "AT+CPIN=4310"
    Wait 30
    Print "AT+CMGF=1"
    Wait 10
    Print "AT+CMGS={034}[phone]{034}"                 'SMS senden
    Wait 5
    Print "ALARM; Einbruch Stadl{026}"
    Wait 15
    Alarm = 0
    Relais = 0                                              'GSM Modem ausschalten
  End If
End If

If Rfid = 0 Then
  'Sirenen ausschalten

  Alarm = 1
  'Reset Summer
  'Waitms 300
  'Set Summer
 ' Waitms 300
 ' Reset Summer
 ' Waitms 300
  'Set Summer
End If

loop

MfG Tom

[mue-c (Gast)]

Tom Z. schrieb:
> Config Pinb.0 = Input            'zweiter Mikrocontroller (RFID Modul)
> Rfid Alias Portb.0
> Set Rfid
>
> Config Pinb.1 = Input            'Reedkontakt gegen Masse
> Reed Alias Portb.1
> Set Reed

Schreib das mal lieber so

Config Pinb.0 = Input              'zweiter Mikrocontroller (RFID Modul)
Rfid Alias Pinb.0
Set Portb.0

Config Pinb.1 = Input              'Reedkontakt gegen Masse
Reed Alias Pinb.1
Set Portb.1

[Thomas K. (tkroth)]

Mache mal so:

If (Reed = 1) And (Rfid = 1) Then

[Tom M. (Gast)]

mue-c schrieb:
> Schreib das mal lieber so

Wozu??? FUD.

[Tom Z. (tom_z)]

Hallo,

Danke! funktioniert jetzt. Mit dem Pin statt Port. Hatte ich garnicht 
bemerkt, dass ich das so geschrieben hatte.

@Thomas K.
da kommen bei mir in Bascom Fehlermeldungen

[mue-c (Gast)]

Tom M. schrieb:
> mue-c schrieb:> Schreib das mal lieber so
> Wozu??? FUD.

Wer solche Anfängerfehler macht und dann noch nicht mal lesen kann, 
sollte nicht so überheblich sein.

[Paul Baumann (Gast)]

Ich mußte erst mal suchen, was FUD heißt, aber hier ist die Erklärung:
http://bar.wikipedia.org/wiki/Fud

MfG Paul

[troll42 (Gast)]

Paul Baumann schrieb:
> Ich mußte erst mal suchen, was FUD heißt, aber hier ist die Erklärung:
> http://bar.wikipedia.org/wiki/Fud
Oh Mann, NSFW aber gut! Typisch Paul halt.

[Tom Z. (tom_z)]

Hallo,

ich habe nochmal ein Problem und zwar soll ja das Alarm Bit mehrere SMS 
verhindern. Tut es aber nicht. Jetzt ist auch noch die Auslösung per 
Anruf drin. Weis jemand warum mehrere SMS kommen, obwohl sie nicht 
deaktiviert ist (RFID = 0)?

$regfile = "attiny2313.dat"
$crystal = 14745600
$baud = 19200

Wait 5

Dim Alarm As Bit
Alarm = 1

Config Portd.6 = Output
Relais Alias Portd.6
Relais = 0

Config Portd.5 = Output
Summer Alias Portd.5
Portd.5 = 1

Config Pinb.0 = Input                                       'zweiter Mikrocontroller (RFID Modul)
Rfid Alias Pinb.0
Set Rfid

Config Pinb.1 = Input                                       'Reedkontakt gegen Masse
Reed Alias Pinb.1
Set Reed

Config Pinb.2 = Input
Gsm Alias Pinb.2


Do

If Reed = 1 And Rfid = 1 Then
  If Alarm = 1 Then
    'Sirenen einschalten
    Relais = 1                                              'GSM Modem ein
    Wait 5
    Print "AT+CPIN=0000"
    Wait 30
    Print "AT+CMGF=1"
    Wait 1
    Print "AT+CMGS={034}[phone]{034}"                 'SMS senden
    Wait 1
    Print "ALARM; Einbruch{026}"
    Wait 1
    Alarm = 0
  End If
End If



If Alarm = 0 Then
  Relais = 1
  Alarm = 1
    If Gsm = 0 Then
      Summer = 0
    End If
End If



If Rfid = 0 Then 'Fals per RFID deaktiviert wird, dann...
  Relais = 0 'GSM Modem aus
  Set Summer 'Sirene aus
  Alarm = 1 'Alarmbit zurücksetzen um neue SMS zuzulassen.
End If

loop

[Weingut P. (weinbauer)]

Schau mal in die Stack und Frame Einstellungen bei Fehlern in Variablen 
ist bei Bascom das die erste Anlaufstelle

Ach so, mal noch nebenbei, Du kannst die Bitvariable auch als 
Bytevariable deklarieren, Bascom verwendet eh ein ganzes Byte ... leider

Ach so, im Programmablauf ist auch noch unlogisch, erst setzt Du Alarm = 
0
um gleich darauf:

If Alarm = 0 Then
  Relais = 1
  Alarm = 1

wird ergo gleich wieder aufgehoben Dein Flag.

[Tom Z. (tom_z)]

Fhutdhb Ufzjjuz schrieb:
> Schau mal in die Stack und Frame Einstellungen bei Fehlern in Variablen
> ist bei Bascom das die erste Anlaufstelle

Ok werd ich machen. Danke

Fhutdhb Ufzjjuz schrieb:
> Ach so, mal noch nebenbei, Du kannst die Bitvariable auch als
> Bytevariable deklarieren, Bascom verwendet eh ein ganzes Byte ... leider

Das ist ja blöd. Für was gibt es dann die Bit Vaiable in Bascom.

MfG Tom

[Paul Baumann (Gast)]

Man kann Platz sparen, indem man mehrere "Merker" in einem Byte 
zusammen-
fasst und dann aber bitweise benutzt:

Dim Merker as Byte

set merker.0 'Setzt nur das Bit 0 und läßt die anderen in Ruhe

set Merker.1 'wie oben

If Merker.0=1 and Merker.1=1 then 'z.B. Zwei Merkerbits verknüpfen
  Print "Tralala"
End If

Reset Merker.0

u.s.w.

Print "MfG Paul"

[MWS (Gast)]

Fhutdhb Ufzjjuz schrieb:
> Bytevariable deklarieren, Bascom verwendet eh ein ganzes Byte ... leider

Ist falsch.