$sim
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 64 '100
$swstack = 64 '100
$framesize = 64 '100
$baud = 9600
$include "Variablen.inc"
'#############################################################################
' Totmann- Bewegungslosschalter
' Autor:
' Datum: 06/2014
' Changelog: #v1.0 Prototyp
'#############################################################################
'
' Softwareversion
Stand = "v1.0"
Datum = "06/2014"
'#############################################################################
Declare Sub Set_acc_range(byval Range As Byte)
$include "LCD.bas"
'++++++ I2C ++++++++++++++
$lib "i2c_twi.lbx"
Config Twi = 400000
Config Scl = Portc.5
Config Sda = Portc.4
'+++++++++++++++++++++++++++++Tasterkonfigurationen+++++++++++++++++++++++++++
'Totmannschalter aktivieren Aktivieren
aktivieren Alias Pind.6
Config aktivieren = Input
'Manueller Alarm
manueller_alarm Alias Pind.7
Config manueller_alarm = Input
'Reset
alarm_reset Alias Pinb.0
Config alarm_reset = Input
'+++++++++++++++++++++++++++Ausgangskonfiguration+++++++++++++++++++++++++++++
RGB_rot Alias Pinb.2
Config RGB_rot = Output
RGB_rot_ein Alias Portb.2 'RGB rot
RGB_grun Alias Pinb.3
Config RGB_grun = Output
RGB_grun_ein Alias Portb.3 'RGB grüm
RGB_blau Alias Pinb.4
Config RGB_blau = Output
RGB_blau_eim Alias Portb.4 'RGB blau
Piezo1 Alias Pinb.5
Config Piezo1 = Output
Piezo1_ein Alias Portb.5 'Piezo 1
Flasher Alias PinC.0
Config Flasher = Output
Flasher_ein Alias PortC.0 'LED Flasher
'( - leds
Config Portd.7 = Output
Config Portd.6 = Output
Config Portb.0 = Output
Led_gl Alias Portd.7
Led_rt Alias Portd.6
Led_gr Alias Portb.0
')
Enable Interrupts
'+++++++++++++++++++++++++++ I2C Initialisierung +++++++++++++++++++++++++++++
I2cinit
Call Set_acc_range(0)
' messbereich:
' Set_acc_range(0) -> +/- 2g (default)
' Set_acc_range(1) -> +/- 4g
' Set_acc_range(2) -> +/- 8g
'#############################################################################
' Aktivierung erforderlich
aktivierung:
ist_aktiviert = 0
aktivierung_erforderlich = 1
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Stop TIMER1
Const Timervorgabe = 34286
Const Prescaler = 256
Config Timer1 = Timer, Prescale = Prescaler
Enable Timer1
Timer1 = Timervorgabe
On Timer1 Timer_irq
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
CLS
Locate 1,1
LCD "aktivieren..."
Config Debounce = 3000
'Do
' Debounce aktivieren , 1 , scharfgeschaltet , 'Aktivieren
'Loop
'#############################################################################
' Schalter ist scharf
scharfgeschaltet:
aktivierung_erforderlich = 0
ist_aktiviert = 1
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Stop TIMER1
Const Timervorgabe1 = 42099 ' 3 Sekunden takt
Const Prescaler1 = 1024
Config Timer1 = Timer, Prescale = Prescaler1
Enable Timer1
Timer1 = Timervorgabe1
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Config Single = Scientific , Digits = 2
CLS
Locate 1,1
LCD "aktiv!"
wait 1
CLS
Locate 1,1
LCD "acc test!"
Dim wert0 As Single
Dim wert0_max As Single
Dim wert0_min As Single
Dim wert1 As Single
Dim wert1_max As Single
Dim wert1_min As Single
' Toleranzwert
Dim Prozent_max As Byte, Prozent_min As Byte
Prozent_max = 10
Prozent_min = 10
dim k as Bit
dim l as Bit
wert0 = 0
wert0_max = 0
wert0_min = 0
wert1 = 0
wert1_max = 0
wert1_min = 0
k=0
l=0
[B][COLOR="#B22222"]Do
Config Debounce = 3000
Debounce aktivieren , 1 , aktivierung , 'Deaktivieren
Gosub Messen
if k = 0 Then
' Addition von x,y,z immer im Wechsel mit der anderen If-Schleife
wert0 = Sx + Sy
wert0 = wert0 + Sz
' Prozentualer Maximal- und Minimalwert bestimmen
wert0_max = wert0 * Prozent_max
wert0_max = wert0_max / 100
wert0_max = wert0 + wert0_max
wert0_min = wert0 * Prozent_max
wert0_min = wert0_min / 100
wert0_min = wert0 - wert0_min
l= 1
End If
if k = 1 Then
' Addition von x,y,z immer im Wechsel mit der anderen If-Schleife
wert1 = Sx + Sy
wert1 = wert1 + Sz
' Prozentualer Maximal- und Minimalwert bestimmen
wert1_max = wert1 * Prozent_min
wert1_max = wert1_max / 100
wert1_max = wert1 + wert1_max
wert1_min = wert1 * Prozent_min
wert1_min = wert1_min / 100
wert1_min = wert1 - wert1_min
k = 0
l = 0
End If
'Auswertung
If wert1<wert0_min or wert1>wert0_max Or wert0<wert1_min or wert0>wert1_max Then
Print "Alarm"
End If
Loop[/COLOR][/B]
End
'#############################################################################
[B][COLOR="#B22222"]Messen:
I2cstart
' Sensor adressieren
I2cwbyte Acc_w
' acc Datenregister adressieren
I2cwbyte &H02
' I2cstop
I2cstart
I2cwbyte Acc_r ' daten lesen
For I = 1 To 5
I2crbyte V(i) , Ack
Next I
I2crbyte V(6) , Nack
'I2cstop
' Format konvertieren
Ax = Ax / 64
Ay = Ay / 64
Az = Az / 64
'In beschleunigungen umrechnen & ausgeben
Locate 2,2
Sx = Ax * D2g
LCD Sx
Print Sx ;
Locate 2,7
Sy = Ay * D2g
LCD Sy
Print " ";Sy ;
Locate 2,12
Sz = Az * D2g
LCD Sz
Print " "; Sz
If l=1 Then
k=1
End If
Return[/COLOR][/B]
'#############################################################################
Timer_irq:
if aktivierung_erforderlich = 1 Then
Timer1 = Timervorgabe
Toggle RGB_rot_ein 'LED orange/gelb Blinken jede 1 Sekunde
End if
if ist_aktiviert = 1 Then
Timer1 = Timervorgabe1
Toggle Flasher_ein 'LED Flasher Blinken
End if
Return
'#############################################################################
Sub Set_acc_range(byval Range As Byte)
I2cstart
'
' sensor adressieren
I2cwbyte Acc_w
'
' kontrollregister adressieren
I2cwbyte &H14
'
'I2cstop
'
I2cstart '
' kontrollregister lesen
I2cwbyte Acc_r
I2crbyte Acc_cntr , Nack
'
'I2cstop
'
' kontrollregister manipulieren
Acc_cntr.3 = Range.0
Acc_cntr.4 = Range.1
'
I2cstart
'
' kontrollregister zurückschreiben
I2cwbyte Acc_w
I2cwbyte &H14
I2cwbyte Acc_cntr
'
'I2cstop
'
' umrechnungsfaktor neu berechnen
D2g = 2 ^ Range
D2g = D2g * 2
D2g = D2g / 512
'
End Sub
in Bascom und würde mich über eure Hilfe freuen.
büffeln, sodass ich es heute nicht mehr schaffen werde. 
)