Raambediening.

Dit is een raam sturing voor die ik voor Mandy heb ontworpen voor in haar bmw.

Top

Update 13/08/07

Omdat ik fouten op de print heb gemaakt heb ik een apart printje erbij gemaakt voor de aansturing van de transistoren.

Top

Update 16/09/07

Gisteren heb ik versie 2.2 afgemaakt:

Top

Update 17/09/07

Het schema:

(Klikbaar)

Top

Update 20/04/08

Ik heb besloten om de pcb layout en de code ook vrij te geven.

De layout van V2.1:

De layout van V2.2:

In deze layouts zitten nog fouten dus even vergelijken met het schema en corrigeren als je dit wil nabouwen. Als er intresse is kan ik wel even een nieuw printplaat tekenen.

 

De code:

'****************************************************************
'*  Name    : Comfortconsole.BAS                                *
'*  Author  : [Stynus]                                          *
'*  Notice  : Copyright (c) 2008 [www.elektronicastynus.be]     *
'*          : All Rights Reserved                               *
'*  Date    : 14/02/2008                                        *
'*  Version : 4.1                                               *
'*  Notes   : Comfortconsole                                    *
'****************************************************************
    Device 12F629
    Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_ON, CP_ON
    ALL_DIGITAL     TRUE
    
    Dim tellerlaag  As Byte
    Dim tellerhoog  As Byte
    Dim ICounter    As Byte
    Clear
    
    Symbol stroomSensor = PORTB.0
    Symbol knopOmhoog   = PORTB.4
    Symbol knopOmlaag   = PORTB.5
    Symbol UitR         = PORTB.2
    Symbol UitL         = PORTB.1
    
    Low UitR
    Low UitL
   
Main:
    While 1 = 1
        If knopOmhoog = 0 And knopOmlaag = 1 And stroomSensor = 0 Then
            GoSub Omhoog
        EndIf
        If knopOmlaag = 0 And knopOmhoog = 1 And stroomSensor = 0 Then
            GoSub Omlaag
        EndIf
    Wend

Omhoog:
    Low UitL
    High UitR 
    DelayMS 500
    While 1 = 1 
        If knopOmlaag = 0  Or stroomSensor = 1 Then
            Low UitR
            GoTo wachten
        EndIf 
    Wend

Omlaag:
    Low UitR
    High UitL 
    DelayMS 500
    While 1 = 1 
        If knopOmhoog = 0  Or stroomSensor = 1 Then 
            Low UitL
            GoTo wachten
        EndIf 
    Wend

wachten:
    DelayMS 1000
    Return
    
End      

Top