'****************************************************************
'*  Name    : knippericht.BAS                                   *
'*  Author  : [Stynus]                                          *
'*  Notice  : Copyright (c) 2006 [www.elektronicastynus.be]     *
'*          : All Rights Reserved                               *
'*  Date    : 30/06/2006                                        *
'*  Version : Safty car licht voor rc-model V1.0                *
'*  Notes   :                                                   *
'****************************************************************
Device 12F629
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_ON
ALL_DIGITAL     TRUE

Dim tijda As Byte 
Dim tijdp As Byte
Dim index As Byte
Dim index2 As Byte

Symbol LED1 = PORTB.0
Symbol LED2 = PORTB.1
Symbol functie = PORTB.4

'****************************************************************
'Tijd instellen
'****************************************************************
tijda = 50
tijdp = 50
 
'****************************************************************
'Kijken of schakelaar aan staat
'****************************************************************
Test:
If functie = 1 Then 
    Low LED1
    Low LED2
    GoTo knipperen
Else
    GoTo aan
EndIf
 
'****************************************************************
'Knipperen  ( 3X LINKS 3X RECHTS 3XL 3XR 1XL 1XR 1XL 1XR)
'****************************************************************
knipperen:
    '2X (3X LINKS 3X RECHTS) 
    For index2 = 0 To 2
        'Links
        For index = 0 To 3
            High LED1
            DelayMS tijda
            Low LED1
            DelayMS tijdp
        Next
        'Rechts
        For index = 0 To 3
            High LED2
            DelayMS tijda
            Low LED2
            DelayMS tijdp
        Next    
    Next
    '2X (1X LINKS 1X RECHTS)
    For index2 = 0 To 2
        'Links
        High LED1
        DelayMS tijda
        Low LED1
        DelayMS tijdp
        'REchts
        High LED2
        DelayMS tijda
        Low LED2
        DelayMS tijdp
    Next    
GoTo Test

'****************************************************************
'Constand aan
'****************************************************************
aan:
    High LED1
    High LED2
GoTo Test

End