Countdown für Platinenbelichter =P~

[Inkoknito]

hallo,

ich habe vor einen Platinenbelichter zu bauen. Dazu will ich über ein Display die zeit einstellen können, entweder über ein Poti oder ein drehencoder (würde mir am besten gefallen) der pro takt eine sekunde macht) oder 2 taster.

hab auch schon mal im Forum und im inet nachgeschaut und gelesen aber so richtig komm ich nich drauf wie ich das angehen soll.

vieleicht kann mir einer, einen Gedankenanstoß gebn, so einen kleinen nur : ) man will ja auch selber was lernen^^

zu auswahls stehen quarze mit 4, 8, 12 Mhz.

besten dank schon mal : )

[Che Guevara]

hallo inkoknito

also mit einem drehencoder kenne ich mich persönlich leider nicht sehr gut aus
ich kann dir die bedinung via 2 taster beschreiben:

es gibt dafür im prinzip zwei möglichkeiten:
1. du hängst beide taster an einen externen interrupt (gegen gnd). diese sollten aber entprellt sein, egal welche möglichkeit du wählst! wenn t1 eins gedrückt ist, springt das prog aus der hauptschleife in die interrupt-routine und darin kannst du dann einstellen, um wieviel secunden deine zeit verlängert/verkürtzt werden soll. hier mal ein kleines beispiel:

$regfile = "......."
$crystal = "......"

config pina.0 = output
config pina.1 = input
porta.1 = 1
porta.0 = 0

config lcd = x * y 
config lcdpin = .......
config lcdbus = ....

initlcd
cls

locate 1 , 1
lcd "Belichtungscountdown"
wait 1
cls

enable int0
enable int1
enable interrupts
config int0 = falling
config int1 = falling
on int0 isr_von_int0
on int1 isr_von_int1

dim t as word

t = xy 'voreinstellen der 'normalen' laufzeit

do

if pina.1 = 0 then
porta.0 = 1  'beliechtungsgerät
wait t
porta.0 = 0
cls
locate 1 ,  1
lcd "Belichtung beendet!"
wait 1
cls
else
locate 1 , 1
lcd "Bitte Starten Sie das Programm zum belichten!!"
endif

loop

end

isr_von_int0:
t = t + 1   'erhöhen des wertes um 1
return

isr_von_int1:
t = t - 1   'erniedriegen (!!) des wertes um 1
return

ich hoffe, das prog hilft dir ein wenig weiter.
welchen quarz du verwendest, spielt hier keine große rolle, allerdings würde ich den kleinsten verwenden, da dieser nicht so viel strom verbraucht als ein größerer.

2. die zweite möglichkeit ist, die taster einfach im hauptprogramm abzufragen und dann den zeitwert (t) zu erhöhen/ernidriegen.
anschließend kann das eig prog gestartet werden.
allerdings hat die 1. methode hier einen vorteil:
man kann den wert auch noch während der belichtung verändern, was bei der 2. möglichkeit nicht mehr geht.....

falls du noch eine frage hast (oder du ein codebeispiel der 2. methode möchtest), helfe ich dir gerne weiter.

ich hoffe, ich habe dir jetzt nicht die ganze arbeit abgenommen, da du ja auch etwas dabei lernen sollst/willst

gruß
chris

[Inkoknito]

cool danke das hilft mir schon sehr viel weiter : )

nur kruz ne frage zum Program, wo verbirgt sicht jetzt der eigentlich timer bzw Countdown, uhr?

das seh ich nich ganz. und ne start taste oder so?

mfg dangöö^^

[Che Guevara]

das hab ich woll nicht ganz erklärt

der 'timer bzw. countdown, uhr' ist im mainloop, da steht

if pina.1 = 0 then
porta.0 = 1  'beliechtungsgerät
wait t
porta.0 = 0
cls
locate 1 ,  1
lcd "Belichtung beendet!"
wait 1
cls
else
locate 1 , 1
lcd "Bitte Starten Sie das Programm zum belichten!!"
endif

das if pina.1 = 0 then schaltet (wenn pina.1 auf gnd gezogen wird) die beleuchtung ein (diese hängt an porta.0). dann wird t secunden lang gewartet, um dann die beleuchtung wieder auszuschalten. t wird in den zwei routinen der interrupts verändert.

das ganze ist allerdings nicht sooo genau (bei insgesamt 10 minuten beleuchtungsdauer gibt es etwa eine abweichung von einer halben minute). wenn du es genauer haben willst, dann schreib ich dir morgen noch mal was anderes, aber jetzt muss ich jetzt dann pennen, morgen hab ich schule

nochwas:
in den routinen von int0 und int1 steht
t = t + 1
bzw.
t = t - 1
da muss stehen:
t = t + 30
bwz.
t = t - 30

damit kann man die zeit im halbe minuten schritt verändern. ich hoffe, das reicht dir, kann man aber ganz leicht ändern.

gruß
chris

[goara]

hab sowas auch gebaut siehe hier:
https://www.roboternetz.de/phpBB2/ze...716&highlight=
der wird mit 4 tasten gestuert, sekunden / minuten +/- beie + tasten drücken start.
wenn du willst kann ich dir den code geben...

[Rone]

Hallo!

@goara!

Setz mich seit kürzerem mit µC's auseinander. Da ich leider keine
Vorkenntnisse im Programmieren habe, wäre es nett, wenn Du mir Deinen
Code zukommen lassen könntest. Versuche so gut es eben geht, aus
diversen Codeteilen zu lernen wie man es richtig angeht.

Vielen Dank
Rone

[goara]

bin nciht sicher ob das so alles stimmt, weil ich die letzte version nciht finde, aber so grob sollte es stimmen...

 $regfile = "m8def.dat"

 $crystal = 8000000





 '-----LCD-----

 Config Lcd = 16 * 2

 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4





 '----Ports----

 Config Pinb.1 = Output

 Uv Alias Portb.1

 Config Pinb.0 = Input

 Config Pind.7 = Input

 Config Pind.6 = Input

 Config Pind.5 = Input

 Minplus Alias Portb.0

 Secplus Alias Portd.7

 Minminus Alias Portd.6

 Secminus Alias Portd.5





 '-----VAR-----

 Dim Bel_min As Integer

 Dim Bel_sec As Integer

 Dim Rest_min As Byte

 Dim Rest_sec As Byte

 Dim Start_uv As Bit





 '-----Subs-----

 Declare Sub Zeile1

 Declare Sub Zeile2



 Cls

 Locate 1 , 1

 Lcd "Hallo :)"



 Wait 1



  Bel_min = 0

  Bel_sec = 0

  Rest_min = 0

  Rest_sec = 0

  Start_uv = 0



 Do



   If Start_uv = 0 Then                                     ' Einstellmodus



       If Pinb.0 = 0 Then

          Incr Bel_min

       End If





       If Pind.7 = 0 And Pind.5 = 1 Then

          Incr Bel_sec

       End If





       If Pind.6 = 0 Then

          Decr Bel_min

       End If





       If Pind.5 = 0 And Pind.6 = 1 Then

          Decr Bel_sec

       End If



       If Bel_min < 0 Then                                  'überlauf

            Bel_min = 0

       End If

       If Bel_sec < 0 Then

            Bel_sec = 0

       End If

       If Bel_min >= 60 Then                                  'überlauf

            Bel_min = 0

       End If

       If Bel_sec >= 60 Then

            Bel_sec = 0

       End If







       Waitms 200

       Zeile1



   End If





   If Pind.7 = 0 And Pind.5 = 0 Then                        ' Starten Stoppen



      If Start_uv = 0 Then

         Start_uv = 1

         Rest_sec = Bel_sec

         Rest_min = Bel_min

      Else

         Start_uv = 0



      End If



   End If



   If Start_uv = 1 Then

      Uv = 1









      If Rest_sec = 0 Then
	If Rest_min > 0 Then

           Decr Rest_min

           Rest_sec = 60
	end if
	if Rest_min = 0 Then
           Uv = 0

           Start_uv = 0

           Locate 2 , 1

           Lcd "*Fertig*"
	end if	

      End If

      Wait 1

      Decr Rest_sec

      Zeile2




   End If



 Loop





 Sub Zeile1

     Locate 1 , 1

     If Bel_min < 10 Then

        If Bel_sec < 10 Then

          Lcd "Tg=0" ; Bel_min ; ":0" ; Bel_sec

        Else

          Lcd "Tg=0" ; Bel_min ; ":" ; Bel_sec

        End If

     Else

        If Bel_sec < 10 Then

          Lcd "Tg=" ; Bel_min ; ":0" ; Bel_sec

        Else

          Lcd "Tg=" ; Bel_min ; ":" ; Bel_sec

        End If

     End If

 End Sub





 Sub Zeile2

     Locate 2 , 1

     If Rest_min < 10 Then

        If Rest_sec < 10 Then

          Lcd "Tr=0" ; Rest_min ; ":0" ; Rest_sec

        Else

          Lcd "Tr=0" ; Rest_min ; ":" ; Rest_sec

        End If

     Else

        If Rest_sec < 10 Then

          Lcd "Tr=" ; Rest_min ; ":0" ; Rest_sec

        Else

          Lcd "Tr=" ; Rest_min ; ":" ; Rest_sec

        End If

     End If

 End Sub

[Rone]

@goara!

Vielen Dank für den Code.

Wenn denn Fehler drin sind machts auch nichts. Beim Fehler ausbügeln
kann man ja auch eine Menge lernen. Aber wie schon gesagt, mir geht's
eher um das Konzept.
Danke nochmal

MfG
Rone