einstellbarer zähler mit bascom???

[albundy]

jetzt hab ich mal ne saublöde frage wie schließe ich das display hier überhaupt an?

http://www.sprut.de/electronic/pic/programm/led.htm
hier findest du eine einfache Ansteuerung ohne BCD Decoder.
In deiner Timerinterrupt Routine lässt du bei jedem Interrupt eine andere Ziffer anzeigen.

- Transistor 1 ansteuern und Ziffer 1 über den 7 Segmentport ausgeben.
beim nächsten Interrupt ...
- Transistor 2 ansteuern und Ziffer 2 über den 7 Segmentport ausgeben.
u.s.w.

[xbgamer]

jo des mit den sekunden wollte ich schon machen da bringt mir Bascom aber immer einen fehler value doesnt fit into byte.
da hab ichs deswegen mit minuten gemacht. danke euch beiden schon mal.

und wenn ich des ganze jetzt per tastendruck starten will muss ich dass ja in dass hauptprogramm scheiben also wenn ich dass aus dem Buch jetzt richtig verstanden habe oder?

und geht dass jetzt einfach so paralel dass ich jetzt zb schreibe
if pind.0 =1 then
sekunde = sekunde +1

oder würde man dass so nicht schreiben um die sekunde zu erhöhen?

[coCo]

Du hast wahrscheinlich Sekunde als Byte deklariert. Ein Byte kann nur hat nur 8 Bit und kann deshalb nur Werte von 0-255 aufnehmen. Sekunde wird bis 300 hochgezählt, also wäre in der Variablen kein Platz mehr, deshalb die Fehlermeldung. Du kannst statt dessen einfach Word oder Integer verwenden. Word besteht glaub ich aus 16 Bit -> also von 0 bis 65535.

MfG

[xbgamer]

ne habs schon als integer deklariert is komisch.
aber habs jetzt eben so mit minute gelassen.

und wie bekomme ich des rein dass der timer mit ner taste an geht?
und wie dass ich die sekunden einstellen kann?

muss ich ja alles ins hauptprogramm einfügen oder?

[coCo]

Hi,
mit Taste zum starten und einstellbarer Zeit sieht das so aus:

Timer0_isr: 
Tcnt0 = 26 

If taste_gedrueckt = 1 Then

  Incr Intzaehler 

  If Intzaehler = 25 Then 
    Intzaehler = 0 
    Incr Zehntelsek 
  End If 

  If Zehntelsek = 10 Then 
    If Minute < Vorgabe Then 
      Toggle Led3 
    End If 
    Incr Sekunde 
    Zehntelsek = 0 
  End If 

  If Sekunde = 60 Then 
    Incr Minute 
  End If 

End If

Return

Die Variable taste_gedrueckt wird am Anfang des Programmes auf 0 gesetzt. Wird nun eine Taste betätigt wird taste_gedrueckt der Wert 1 zugewiesen und die Befehle in der ISR werden ausgeführt.

Neu ist noch die Variable Vorgabe. In diese schreibst du die Zeit, wie lang der Countdown dauern soll, in Minuten rein. Es wäre praktischer wenn du, wie schon oben erwähnt, mit der Variable Sekunde rechnen würdest, da man dann statt Minuten, mit Sekunden arbeiten könnte.

MfG

[xbgamer]

naja ich habs ja probiert in sekunde zu schreiben is ja net so dass ich mich dagegen streube. aber Bascom sieht es trotz integer als fehler

[coCo]

Hmm wie lautet denn die Fehlermeldung? Ich krieg da keine Fehlermeldung, vielleicht hast du irgendwo nen Tippfehler?

MfG

[xbgamer]

jetzt gehts weiß echt net was es war. warscheinlich hab ich mich doch vertippt. wollte mich nur mal so bedanken dass du mir so geholfen hast. du hättest mir des aber echt net schreiben brauchen hättest mich ja auch hinführen können wäre noch en bischen übung für mich gewesen. aber trotzdem mal danke. ich werde mich im laufe der woche mal intensiver damit befassen und schauen ob es dann auch so meinen wünschen entspricht. falls ich noch was habe werde ich mich melden.


was ich dich oder jemanden noch fragen wollte das mit dem einschalten klappt net so ganz. wenn ich jetzt meinen taster drücke bleibt es nur während ich die taste drücke angeschaltet wenn ich loslasse geht der timer wieder ab wie bekomme ich dass aber hin dass ich den taster einmal drücken muss und dass der timer dann nach ablaufen der zeit selbst aufhört.

achso und könntest du mir dass mit dem einstellen noch einmal erklären des hab ich also komplett net ganz verstanden.

[coCo]

Hi,
zum Starten des Timers:
Sobald die Taste gedrückt wird, musst du die Variable "taste_gedrueckt" auf 1 setzen (Vorher muss diese Variable 0 sein).

  If Sekunde < 300 Then 
    Toggle Led3 
  End If

Mit diesem Befehl läuft dein Timer 300 Sekunden lang. Wenn du jetzt eine variable Zeit einstellen möchtest, ersetzt du einfach die 300 durch eine Variable in der die Zeit gespeichert ist. Also z.B.:

Dim Einstellung as Integer

Einstellung = 500

...

  If Sekunde < Einstellung Then 
    Toggle Led3 
  End If

In diesem Fall wird der Timer 500 Sekunden lang ausgeführt. Du brauchst also die gewünschte Zeit einfach in die Variable "Einstellung" schreiben.

MfG

[xbgamer]

achso. ja dass habe ich auch gesehen und auch ausprobiert. weißt du ich möchte es aber so machen:

es wird ja ein belichtungsapparat.
und da möchte ich mit ner taste die sekunden einstellen können. zb dass das maximale was ich einstellen kann zb. 500 sekunden is aber dass ich da auch was weiß ich 349 sekunden über ne taste einstellen kann die die sekunden immer um 1 erhöhen.
weißt du zb so wie bei ner microwelle oder so. da muss ich ja auch irgendwie was reinbauen wie if pinc.1 = 1 then sekunde = sekunde+1 oder sowas.
dass ich halt die zeit erst einstellen kann diese auf den 7 segment anzeigen sehe und dann den startknopf drücken kann.