loetstelle.net
Lötstelle Userforum
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Hi Suche ein Ausschalt Beispiel für einen Timer in Bascom
Gehe zu Seite Zurück  1, 2
 
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
stefanWie



Anmeldungsdatum: 31.03.2011
Beiträge: 15

BeitragVerfasst am: Fr 13.Mai 2011 09:43:49    Titel: hallo Bauteile finden Antworten mit Zitat

Wenn

ich das geschaft habe werde ich mich auf jedenfall melden.

Tasten zum ein und ausschalten und zum togglen habe ich schon geschafft.

Ich habe zu meiner freundin gesagt wenn ich das mit den timer schaffe stoße ich mit ihr an. Very Happy
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
stefanWie



Anmeldungsdatum: 31.03.2011
Beiträge: 15

BeitragVerfasst am: So 15.Mai 2011 19:34:42    Titel: So jetzt habe ich alles geändert ! Bauteile finden Antworten mit Zitat

So jetzt habe ich viel gelöscht was ich nicht brauche.

Jetzt fehlt mir nur der rest wie ich das einfacher machen kann.
soweit geht es ohne probleme

' Einschalten durch Taste
' Stufe 1: 2 Minuten an
' In: Taster an D.0
' Out: grüne LED an B.1 Licht/Verbraucher
$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 32
$framesize = 60
Config Debounce = 50

Config Portd.7 = Output 'Licht bzw. Verbraucher
Licht Alias Portd.7

Config Pind.2 = Input 'Taster 1
Portd.2 = 1 'Pullup-Widerstand

Config Timer1 = Timer , Prescale = 64 '1 Sekunde
On Timer1 Timer1_isr
Enable Timer1
Enable Interrupts
Const Timerstartwert = 49911
Timer1 = Timerstartwert
Const Zeit = 60 'Momentan auf 60 sekunden-test 2 Minuten

Dim Stufe As Byte
Dim Eingabefenster As Byte
Dim Restzeit As Word

Do '-------Hauptschleife------

'an oder aus:
If Restzeit > 0 Then
Licht = 1
Else
Licht = 0
End If

Debounce Pind.2 , 0 , Tastenroutine , Sub

Loop '--- Ende der Hauptschleife
End

Tastenroutine:

If Eingabefenster = 0 And Restzeit = 0 Then 'am Anfang
Timer1 = 0
Eingabefenster = 3
Stufe = 1
Restzeit = Zeit

Elseif Eingabefenster > 0 And Restzeit > 0 Then 'In Eingabefenster
Incr Stufe


If Stufe = 1 Then 'von Dauer an auf aus
Stufe = 0
Restzeit = 0
End If
End If

Return

Timer1_isr: 'jede Sekunde
Timer1 = Timerstartwert
If Eingabefenster > 0 Then Decr Eingabefenster
If Restzeit > 0 Then Decr Restzeit
Return
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Anzeige






Verfasst am: Heute 11:40:22    Titel: Bauteile finden

Nach oben
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen


Powered by phpBB 2.x © 2001, 2002 phpBB Group

Sie sind Besucher Nr. 1199374
©opyright by Markus Vohburger 2005 All Rights reserved