Hallo Liebes Forum Und Bastler.........
ja ich bins mal wieder, ich bitte euch um hilfe mit meinen Analog Telefon Bestezt Melder
Die schaltung Funktioniert gut hab ich aus Elektor Heft......
Ich beschreibe mal wenn ich am eingang wo telefon analog steht drahn ist und den hörer abnehme schaltet der CNY17 denausgang durch und der ATtiny2313
sagt mir im LCD das die leitung besetzt ist....
mich stört nur ein im LCD wird der TEXT immer wieder holt wie oder wo muss man was ändern????
daher bitte ich um eure hilfe
hier mal die 1x analog telefon besetzt melder mit grber schaltung es ATtiny2313
und hier der code den ich benutze:
Code
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Ddrb = &B11111101 'Ports auf Ausgang setzen
Ddrd = &B00000100 'Ports auf Ausgang setzen
' Configgaration des LCD Anzeige Ports
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , _
Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Besetzt Anzeige"
Locate 2 , 1
Lcd "3xAnalog Telf."
Waitms 200
Config Portb = Output
Config Pind.2 = Input 'Telefon 1
Portd.2 = 0
Declare Sub Telefon1
Declare Sub Telefon1b
Dim I As Byte
Do
If Pind.2 = 0 Then Gosub Telefon1
If Pind.2 = 1 Then Gosub Telefon1b
Loop
End
Sub Telefon1
Portb.0 = 1 '
Cls
Locate 1 , 1
Lcd "TEL1"
Locate 2 , 1
Lcd "BES."
Wait 1
End Sub
Sub Telefon1b '
Cls
Locate 1 , 1
Lcd "TEL1"
Locate 2 , 1
Lcd " -- "
Wait 1
Portb.0 = 0
End Sub
Return
End
Alles anzeigen
BITTE UM HILFE UND TIPPS
Mit Freundlichen Grüßen
Thorsten Sch.