Frage zum Code WC

Thorsten Sch. · 28. November 2010

so habe hier mal meine neue schaltung endworfen ich bitte ich darum ob es so okay ist

1.) würde das so gehen?
2.) ich weis der Spannungsregler fehlt....

Bitte einmal rüber schauen

gruss Thorsten Sch.

PS: ein kleines proplem gibt es noch beim code, wenn der kontakt geschlossen ist kommt da nichts anderes in der Anzeige???

Thorsten Sch. · 4. Dezember 2010

ist die schaltung nu okay oder was falsch?????

Bitte um rückantwort

Jony Walker · 5. Dezember 2010

Mir fallen 2 kleinigkeiten am UDN2981 auf:
1. bei den beiden ist der Pin9 miteinander verbunden, die Leitung sollte auch an VCC gehen
2. bei den beiden ist der Pin10 und die Emitter der BC337 miteinander verbunden, dese leitung sollte noch mit GND verbunden sein.

ich denke aber daran wurde eh gedacht, aber nicht eingezeichnet da wie von dir geschrieben der Spannungsregler nicht eingezeichnet ist

Thorsten Sch. · 15. Oktober 2011

Hallo Forum und Bastler
Hier mal der code

Code

'---------------------------------------------
'Matrix Anzeige ( WC=FREI oder X=Besetzt )
'Schalter Eingang ( Taster ) an PIN16  PD2
'Erstellt von Thorsten Sch. V.001
'Erstellt am: 30.10.2010 - Uhrzeit: 23:43:27
'---------------------------------------------
$regfile "m32def.dat"                                   	' ATmega32
$crystal = 4000000
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"                                      	' 4Mhz


Config Porta = Output                                   	' Dis.1_Reihe R1-7
Config Portb = Output                                   	' dis.2_Reihe R1-R7
Config Portc = Output                                   	' Steuert die Transistoren An C1-C5
Config Pind.2 = Input
Portd.2 = 1


Declare Sub Wc
Declare Sub X
Declare Sub Badewanne
Dim I As Byte




'------------------------
'Timer-Interrupt zur Zeitmessung
Config Timer1 = Timer , Prescale = 1024
Start Timer1
Timer1 = 61629                                          	'=65536 - (Taktfrequenz(4000000Hz) geteilt durch Prescale(1024))
On Timer1 Sekunde_plus
Enable Interrupts
'Variablen für die Zeitmessung
Dim Sekunde As Byte
Dim Minute As Byte
Sekunde = 0
Minute = 0


Dim Besetzt_dauer As Byte
Besetzt_dauer = 10                                      	'Vergleichswert für die Zeit in Minuten,wie lange das WC besetzt ist


'------------------------




Do


If Pind.2 = 0 Then Gosub Wc
If Pind.2 = 1 Then Gosub X


Loop




Sub Wc
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1
End Sub




'Kreutz auf beiden anzeigen
Sub X
If Minute < Besetzt_dauer Then                          	'wenn gemessene Zeit unter dem Vergleichswert liegt,dann wird X angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01000001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B00100010 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If


If Minute >= Besetzt_dauer Then                         	'wenn der Vergleichswert kleiner oder gleich der gemessenen Zeit ist,dann wird z.B. die Badewanne angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01111001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B01111010 : Portb = &B01111110 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If
End Sub


'--------------------------
'Timerüberlauf nach ca 1 sekunde
Sekunde_plus:
Timer1 = 61629
If I = 0 Then                                           	'wenn keiner auf dem WC ist,wird nicht gezählt
Sekunde = 0
Minute = 0
End If


If I = 1 Then Incr Sekunde                              	'wenn WC besetzt,dann Sekunde+1
If Sekunde = 60 Then
Incr Minute                                             	'wenn Sekunde=60 dann erhöhe Minute
Sekunde = 0                                             	'Sekunden wieder auf 0 setzen
End If
Return
'--------------------------


End

Alles anzeigen

beide anzeigen wie ( WC ) und ( X ) wird angezeigt aber jetzt kommst er zeigt beim längerne nichts anderes an wo liegt da der fehler.
bitte um antworten vielen dank
gruß Thorsten sch.

foo38 · 15. Oktober 2011

Wieso nimmst du nicht den sowieso schon vorhandenen Timer interrupt um damit die ewigen "Waitms" zu ersetzen.
"Waitms" ist eigentlich ne Unart. Es ist zwar einfach, aber unschön, da der der MC einfach "tot" rumliegt und nix macht. z.B. er reagiert in der Zeit auch auf keine Tasteneingaben etc (wenn sie nicht über nen Interrupt laufen sondern gepollt werden). Lass doch einfach entweder deinen schon vorhandenen Timerinterrupt schneller auslösen oder nimm einen anderen Timer, der Atmega32 hat ja genug für deien Bedarf...

Thorsten Sch. · 15. Oktober 2011

okay und wie macht man das mit den timer so fix bin ich nu doch nicht.....
gruß Thorsten .sch

Falo · 15. Oktober 2011

Hallo,

Ich sehe nirgendwo das 'I' irgentwo gesetzt/geändert wird immer nur abgefragt so sollte die auch immer '0' sein und so kann es nicht funktionieren.

Du kannst dir ja testweise einfach mal die Sekunden/Minuten anzeogen lassen:

Einfach als ausgabe statt deinen:
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1

testweise durch :
Portc = 1 : Portb = Sekunde : Porta = Minute : Waitms 1
Portc = 2 : Portb = Sekunde : Porta = Minute : Waitms 1
Portc = 4 : Portb = Sekunde : Porta = Minute : Waitms 1
Portc = 8 : Portb =Sekunde : Porta = Minute : Waitms 1
Portc = 16 : Portb = Sekunde : Porta = Minute : Waitms 1

ersetzten so werden dir ie werte Binär angezeigt.

mfg
Falo

Thorsten Sch. · 29. März 2015

Hallo Forum und Bastler

Noch mal zum timer wie oder wo ist den das proplem jetzt darin in den code

Code

'---------------------------------------------
'Matrix Anzeige ( WC=FREI oder X=Besetzt )
'Schalter Eingang ( Taster ) an PIN16  PD2
'Erstellt von Thorsten Sch. V.001
'Erstellt am: 30.10.2010 - Uhrzeit: 23:43:27
'---------------------------------------------
$regfile "m16def.dat"                                       ' ATmega32
$crystal = 4000000                                          ' 4Mhz


Config Porta = Output                                       ' Dis.1_Reihe R1-7
Config Portb = Output                                       ' dis.2_Reihe R1-R7
Config Portc = Output                                       ' Steuert die Transistoren An C1-C5
Config Pind.2 = Input
Portd.2 = 1


Declare Sub Wc
Declare Sub X
Dim I As Byte


'------------------------
'Timer-Interrupt zur Zeitmessung
Config Timer1 = Timer , Prescale = 1024
Start Timer1
Timer1 = 61629                                              '=65536 - (Taktfrequenz(4000000Hz) geteilt durch Prescale(1024))
On Timer1 Sekunde_plus
Enable Interrupts
'Variablen für die Zeitmessung
Dim Sekunde As Byte
Dim Minute As Byte
Sekunde = 0
Minute = 0


Dim Besetzt_dauer As Byte
Besetzt_dauer = 1                                           'Vergleichswert für die Zeit in Minuten,wie lange das WC besetzt ist


'------------------------


Do


If Pind.2 = 1 Then Gosub Wc
If Pind.2 = 0 Then Gosub X


Loop


Sub Wc
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1
End Sub


'Kreutz auf beiden anzeigen
Sub X
If Minute < Besetzt_dauer Then                              'wenn gemessene Zeit unter dem Vergleichswert liegt,dann wird X angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01000001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B00100010 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If


If Minute >= Besetzt_dauer Then                             'wenn der Vergleichswert kleiner oder gleich der gemessenen Zeit ist,dann wird z.B. die Badewanne angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01111111 : Portb = &B00111110 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B11111110 : Waitms 1
Portc = 8 : Porta = &B01111110 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If
End Sub


'--------------------------
'Timerüberlauf nach ca 1 sekunde
Sekunde_plus:
Timer1 = 61629
If I = 0 Then                                               'wenn keiner auf dem WC ist,wird nicht gezählt
Sekunde = 1
Minute = 0
End If


If I = 1 Then Incr Sekunde                                  'wenn WC besetzt,dann Sekunde+1
If Sekunde = 60 Then
Incr Minute                                                 'wenn Sekunde=60 dann erhöhe Minute
Sekunde = 0                                                 'Sekunden wieder auf 0 setzen
End If
If Minute > 250 Then Minute = 200
Return
'--------------------------


End

Alles anzeigen

würde gern das es funktioniert dieser code....

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 25. März 2016

Hallo Forum Gemeinde sowie bastler

ich bins mal wieder das mit den code geht soweit aber nach der abgelaufenden zeit kommt nicht anderes auf der Matrix?
hier der volgende code:

Code

'---------------------------------------------
'Matrix Anzeige ( WC=FREI oder X=Besetzt )
'Schalter Eingang ( Taster ) an PIN16  PD2
'Erstellt von Thorsten Sch. V.001
'Erstellt am: 30.10.2010 - Uhrzeit: 23:43:27
'---------------------------------------------
$regfile = "m16def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32


                                       ' 4Mhz


Config Porta = Output                                    ' Dis.1_Reihe R1-7
Config Portb = Output                                    ' dis.2_Reihe R1-R7
Config Portc = Output                                    ' Steuert die Transistoren An C1-C5


Declare Sub Wc
Declare Sub X
Declare Sub Badewanne
Dim I As Byte


'------------------------
'Timer-Interrupt zur Zeitmessung
Config Timer1 = Timer , Prescale = 1024
Start Timer1
Timer1 = 61629                                              '=65536 - (Taktfrequenz(4000000Hz) geteilt durch Prescale(1024))
On Timer1 Sekunde_plus
Enable Interrupts
'Variablen für die Zeitmessung
Dim Sekunde As Byte
Dim Minute As Byte
Sekunde = 0
Minute = 0


Dim Besetzt_dauer As Byte
Besetzt_dauer = 50                                          'Vergleichswert für die Zeit in Minuten,wie lange das WC besetzt ist


'------------------------


On Int0 Taster
Config Int0 = Falling
Enable Int0
Enable Interrupts
I = 0


Do


Select Case I
Case 0 : Gosub Wc
Case 1 : Gosub X
End Select


Loop


Sub                                                         'Wc
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1
End Sub


'Kreutz auf beiden anzeigen
Sub X
If Minute < Besetzt_dauer Then                              'wenn gemessene Zeit unter dem Vergleichswert liegt,dann wird X angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01000001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B00100010 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If


If Minute >= Besetzt_dauer Then                             'wenn der Vergleichswert kleiner oder gleich der gemessenen Zeit ist,dann wird z.B. die Badewanne angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01111111 : Portb = &B00011100 : Waitms 1
Portc = 4 : Porta = &B00111110 : Portb = &B00111110 : Waitms 1
Portc = 8 : Porta = &B00011100 : Portb = &B01111111 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If
End Sub


Taster:
Waitms 100
I = I + 1
If I = 2 Then I = 0
Gifr . Intf0 = 1
Return


'--------------------------
'Timerüberlauf nach ca 1 sekunde
Sekunde_plus:
Timer1 = 61629
If I = 0 Then                                               'wenn keiner auf dem WC ist,wird nicht gezählt
Sekunde = 0
Minute = 0
End If


If I = 1 Then Incr Sekunde                                  'wenn WC besetzt,dann Sekunde+1
If Sekunde = 60 Then
Incr Minute                                                 'wenn Sekunde=60 dann erhöhe Minute
Sekunde = 0                                                 'Sekunden wieder auf 0 setzen
End If
Return
'--------------------------


End

Alles anzeigen

als kontakt gibt es an der tür ein Reed schalter......

ich bitte um ratschläge......

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 11. April 2016

Juhu Mitglieder ist denn keiner bereit zu helfen oder ein tipp zu geben.......

Frage zum Code WC

Teilen

Benutzer online in diesem Thema