Categorie: PCB fabricage gereedschap

Het schema:

Foto’s

De glasplaat met de TL lampen eronder

De timer (zwart ding met de grijze knop vanbuiten):

De starters (onder de TL lampen):

In werking:

De vorige versie van mijn belichtingsbak voldeed niet meer vond ik dus heb ik een nieuwe gemaakt in een behuizing van een scanner. Op deze belichtingsbak zit een timer met pic + lcd om de belichtingstijd te timen, de lampen worden gestuurd met een relais.

Foto’s:.

Het schema:

Het programma:

'****************************************************************
'*  Name    : Belichtingsbaktimer.BAS                           *
'*  Author  : [Stynus]                                          *
'*  Notice  : Copyright (c) 2006 [www.elektronicastynus.be]     *
'*          : All Rights Reserved                               *
'*  Date    : 14/01/2007                                        *
'*  Version : 3.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device 16F627
Config   WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_ON, INTRC_OSC_NOCLKOUT
Declare         LCD_INTERFACE 4
Declare         LCD_LINES 2
Symbol Lampen = PORTA.2
Symbol Start =  PORTB.0
Dim hondert As Byte
Dim seconden As Byte
Dim minuten As Byte
hondert     = 0
seconden    = 0
minuten     = 0
Cls
DelayMS 500

Print At 1,1, "C Elek"
Print At 2,1, "Stynus"
DelayMS 1000
Print At 1,1, "      "
Print At 2,1, "      "
Print At 2,1, "0 :0 :00"
GoTo Begin
Begin:
Print At 1,1, "OFF"
If Start = 1 Then
    bla:
    DelayMS 50
    If Start = 1 Then
        GoTo bla
    End If
    If Start = 0 Then
        High Lampen
        GoTo Loop:
    End If
End If
GoTo Begin

Loop:
Print At 1,1, "ON "
Loop2:

If Start = 1 Then
         DelayMS 50
    bla2:
    If Start = 1 Then
        GoTo bla2
    End If
    If Start = 0 Then
        Low Lampen
            hondert     = 0
            seconden    = 0
            minuten     = 0         
        GoTo Begin
   End If
End If
'tijd op Lcd:
DelayMS 3.98
hondert = hondert + 1
If hondert = 100 Then
    hondert = 0
    seconden = seconden + 1
End If
If seconden = 60 Then
    seconden = 0
    minuten = minuten + 1
End If
Print At 2,1,"  :  :"
Print At 2,1,@minuten
Print At 2,4,@seconden
Print At 2,7,@hondert
GoTo Loop2   
End

De HEX-file: Download.