huis alarm via een c-control 1 station

[diki]

Ik wil mijn huis gaan beveiligen met een c-control I staion
Ik dacht bij het kopen van de c-control het alarm programma zal wel op de cd staan die er bij zit
Een maal thuis en alles goed te hebben bekeken zat er alleen maar een paar demo,s bij
Ben op het internet wezen kijken en vond daar wel wat maar bij het op de c-control zetten krijg ik een fout melding
Dit is het program wat er bij zat



'
'Mess - und Regelungstechnik
'Basic Programm für Alarmanlage
'
'***************************************************************
'
'
'***************************************************************
'
' Aufgabe:
'
' - Alarmanlage für 4 digitale Eingänge
' - Statusanzeige der Anlage über LED: rot/grün
' - Ausgabe an Relais 2: Sirene und Signalleuchte an/aus
'
'***************************************************************
'Digitale Ausgaenge
define ruettel port [1]
define schluessel port [2]
define fenster port [3]
define bewegung port [4]
define I byte
define rot port [5]
define gruen port [6]
'Relais
define alarm port [8]
'Variablen für Bus
define Empfang byte
define Adresse byte
define Kanal byte
define Busadresse 2 'Busadresse der C-Control
define Ue_byte byte 'Übergabebyte an den Bus
'****************************************************************
#main 'Hauptprogramm Alarmanlage
gosub Bus
if not schluessel then gosub scharf else gosub unscharf
if Ue_byte > 1 then gosub alarm
goto main
#scharf 'Alarmunterprogramm
Ue_byte = Ue_byte or 1
gruen = off
rot = on
if (not ruettel) then Ue_byte = Ue_byte OR 2 'Abfrage ob Eingänge
if (not fenster) then Ue_byte = Ue_byte OR 4 'auf Masse geschaltet
if (bewegung) then Ue_byte = Ue_byte OR 8 'wurden
return
#alarm
alarm = on 'Alarm an
gosub warte
alarm = off 'Alarm aus
gosub warte
return
#unscharf
alarm = off
gruen = on
rot = off
Ue_byte = 0
return
#warte 'Warteschleife für Blinklicht
for I = 1 to 50
gosub Bus
next
return
'**************** BusProgramm *******************
'*************** RingBus Clints V2.0 ****************

'************ Sascha Gersing und Dirk Göttel **********
'*************************************************
#Bus
if not RXD then return
get Empfang
put Empfang
if Empfang <> 97 then return
get Adresse
put Adresse
get Kanal
put Kanal
if (Adresse -48)<> Busadresse then return
print" ";
if Kanal = 57 then print Ue_byte
return
'**************** BusProgramm ENDE **************


Kan hier eens iemand naar kijken wat hier niet goed aan is



http://www.sgersing.de/pdf/SFT018.pdf

 

[diki]

is er dan niemand die hier iets op te zeggen heeft?
of er verstand van heeft

 

[boldyman]

Geen idee wat er mis mee is maar de code is niet ANSI-C.
Lijkt erop dat ze een afgeleide van C hebben gemaakt.
Wordt dus lastig voor iemand om dit te debuggen zonder apparaat en specs.

Kun je je vraag niet stellen op de site van de fabrikant ???
(of andere site waar mensen deze spullen gebruiken ?)

Succes

 

[Palmpje]

Dit lijkt me BASIC

'Basic Programm für Alarmanlage

Maar ook aan de code te zien.

 

[gamesoft]

Dat denk ik ook want ik programmeer visual basic en in visual basic staat ' voor een comment en in C++ //