SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 15
15 gasten
0 leden:
Forum > Elektronica algemeen > Schema
Colt
Lid
Berichten: 88
Gepost op maandag 22 Oktober 2012 17:58:35 QuoteWijzig

Hallo allemaal

Reddevil heeft een keer zulk schema gepost.

http://www.schematheek.net/index.php?p=upload/weergeven&id=1786

Ik ben zo wat aan het zoeken.
Weet iemand van jullie mij hier aan te helpen?.

Misschien Reddevil Zelf.

Alvast bedankt voor jullie hulp.

Grt. Colt
reddevil
Lid
Berichten: 1252
Gepost op dinsdag 23 Oktober 2012 20:17:21 QuoteWijzig

Moest even nadenken: http://www.schematheek.net/index.php?p=forum/topic&t=662&n=2#6673

Schema moet ik even zoeken,update volgt.
 
[Bericht gewijzigd door reddevil op Dinsdag 23 Oktober 2012 20:18:17]


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op woensdag 24 Oktober 2012 12:45:48 QuoteWijzig

Hallo Reddevil

Als je dit wil doen heel graag.
Ik wil je hier voor alvast hartelijk danken.

Thanxxx

Colt

reddevil
Lid
Berichten: 1252
Gepost op woensdag 24 Oktober 2012 22:29:32 QuoteWijzig

Gevonden, is eigenlijk heel simpel, gewoon uitgang pic naar driver.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op donderdag 25 Oktober 2012 19:28:32 QuoteWijzig

@ Reddevil
Bedankt voor het schema.

Maar ik denk dat we een paar stapjes verder moeten.
Als ik dit zie denk ik wel dat er nog wat in en bij moet.

Ik heb namelijk niet die kennis voor dit zo te maken.
Daarom ben ik ff verder gaan zoeken.

Ik heb nog verschillende vragen.
Komt dit schema overeen met deze

Nummer een. http://www.uploadarchief.net/files/download/ledboard_rs232.png

En voor hem te sturen moet ik dan op deze manier gaan werken.

Nummer twee

http://members.upc.nl/w.akker80/william.htm

Zijn het de zelfde onderdelen op alle twee de schema`s.
Ik heb die van jou namelijk op geslagen en als ik hem iets uitvergroot gaat hij me blokken met het gevolg dat ik niet meer kan lezen wat, wat is

Bedankt alvast als je me hier even mee verder wil helpen .

Ik heb je pm gegeven met de links.
Ik doe ongetwijfelt wat fout want ik krijg ze hier niet goed geplaatst vandaar pm.

Thanxxx
 
[Bericht gewijzigd door Colt op Donderdag 25 Oktober 2012 19:38:15]

reddevil
Lid
Berichten: 1252
Gepost op donderdag 25 Oktober 2012 22:00:12 QuoteWijzig

Stynus heeft mijn schema aangepast, met contr + F5 in te drukken kan je hem vergroten.

Dat mijn schema een beetje overeenkomt is louter toeval. Heb het schema vlug gemaakt, moest snel gaan, vandaar zo rommelig.

Het aansturen doe ik met een software matige pwm, op dit principe:http://www.schematheek.net/index.php?p=artikel/artikel&t=36


En hier de hele lap code, ook rommelig, moest snel gaan:










Code
'****************************************************************
'*  Name    : 4 x RGB sfeer                                     *
'*  Author  : reddevil                                          *
'*  Notice  : Copyright (c) 2010                                *
'*          : All Rights Reserved                               *
'*  Date    : 18/11/2010                                        *
'*  Version : 2.0                                               *
'*  Notes   :                                                   *
'****************************************************************
DEVICE 16F877A 
             
XTAL = 20                           
ALL_DIGITAL = true

TRISA = %00000
PORTA = %00000
TRISB = %00000000
PORTB = %00000000   
TRISC = %10000000
PORTC = %00000000   
TRISD = %00000000
PORTD = %00000000
TRISE = %000
PORTE = %000                  

SYMBOL T0IE = INTCON.5         
SYMBOL T0IF = INTCON.2         
SYMBOL GIE = INTCON.7          
SYMBOL T0CS = OPTION_REG.5     
SYMBOL ledpoortb = PORTB
SYMBOL ledpoorta = PORTA


; instellen van interrupt 
 OPTION_REG = %00000000
 GIE = 0                          
 T0CS = 0                         
 TMR0 = 125                      
 T0IE = 1                         
 GIE = 1                         
 
 DIM t AS WORD
 DIM a AS BYTE
 DIM b AS WORD
 DIM c AS BYTE
 
 DIM poortb AS BYTE
 DIM poortc AS BYTE
 DIM poortd AS BYTE
 DIM poorte AS BYTE
 
 DIM programma AS BYTE
 DIM dimwaarde AS BYTE
 DIM kontroleprogramma AS BYTE
 DIM pwmteller AS BYTE

 DIM rood1 AS BYTE                    
 DIM rood2 AS BYTE                    
 DIM rood3 AS BYTE                                    
  
 
 DIM groen1 AS BYTE                    
 DIM groen2 AS BYTE  
 DIM groen3 AS BYTE                   
  
 
 DIM blauw1 AS BYTE
 DIM blauw2 AS BYTE
 DIM blauw3 AS BYTE
  
 
 DIM rood1n AS BYTE                    
 DIM rood2n AS BYTE                    
 DIM rood3n AS BYTE                                    
 
 
 DIM groen1n AS BYTE                    
 DIM groen2n AS BYTE  
 DIM groen3n AS BYTE                   
  
 
 DIM blauw1n AS BYTE
 DIM blauw2n AS BYTE
 DIM blauw3n AS BYTE
  
 
 DIM spot1 AS BYTE
 DIM spot1n AS BYTE
 DIM huis1 AS BYTE
 DIM huis1n AS BYTE
 DIM huis2 AS BYTE
 DIM huis2n AS BYTE
 DIM kerstboom1 AS BYTE
 DIM kerstboom1n AS BYTE
 DIM lantaarn AS BYTE
 DIM lantaarnn AS BYTE
 DIM ster1 AS BYTE
 DIM ster2 AS BYTE
 DIM ster3 AS BYTE
 DIM ster4 AS BYTE
 DIM ster5 AS BYTE
 DIM ster6 AS BYTE
 DIM ster7 AS BYTE
 DIM ster8 AS BYTE
 DIM ster9 AS BYTE

 DIM ster1n AS BYTE
 DIM ster2n AS BYTE
 DIM ster3n AS BYTE
 DIM ster4n AS BYTE
 DIM ster5n AS BYTE
 DIM ster6n AS BYTE
 DIM ster7n AS BYTE
 DIM ster8n AS BYTE
 DIM ster9n AS BYTE 
 
 SYMBOL outrood1 = PORTB.7                   
 SYMBOL outrood2 = PORTB.4
 SYMBOL outrood3 = PORTB.1                                    
  
 
 SYMBOL outgroen1 = PORTB.6                    
 SYMBOL outgroen2 = PORTB.3 
 SYMBOL outgroen3 = PORTB.0                  
  
 
 SYMBOL outblauw1 = PORTB.5
 SYMBOL outblauw2 = PORTB.2
 SYMBOL outblauw3 = PORTD.7
  
 SYMBOL outhuis1 = PORTD.5
 SYMBOL outhuis2 = PORTE.0
 SYMBOL outkerstboom1 = PORTD.6 
 SYMBOL outlantaarn = PORTC.4
 SYMBOL outspot1 = PORTD.4
 SYMBOL outster1 = PORTC.0
 SYMBOL outster2 = PORTC.1
 SYMBOL outster3 = PORTC.2
 SYMBOL outster4 = PORTC.3
 SYMBOL outster5 = PORTD.0
 SYMBOL outster6 = PORTD.1
 SYMBOL outster7 = PORTD.2
 SYMBOL outster8 = PORTD.3
 SYMBOL outster9 = PORTE.2

 CLEAR
 
 
 
On_Interrupt GOTO scan
;*************************************************************************
;  HOOFDPROGRAMMA
;*************************************************************************
lus:
DELAYMS 100
a = 0
GOSUB kerstboom_aan ELAYMS 100
GOSUB kerk_aan ELAYMS 100 
GOSUB tl_huis1_aan ELAYMS 100
GOSUB lantaarn_aan ELAYMS 100   
GOSUB spot_aan ELAYMS 100
 
ster1 = 1: DELAYMS 100
ster2 = 1: DELAYMS 100
ster3 = 1: DELAYMS 100
ster4 = 1: DELAYMS 100
ster5 = 1: DELAYMS 100 
ster6 = 1: DELAYMS 100
ster7 = 1: DELAYMS 100
ster8 = 1: DELAYMS 100
ster9 = 1: DELAYMS 100 

DELAYMS 200        
                  
 
 

'stap a                 rood - rood - rood - rood

        a = 1
        FOR t = 0 TO 255
        
        rood1 = t : groen1 = 0 : blauw1 = 0
        
        rood2 = t : groen2 = 0 : blauw2 = 0
                 
        rood3 = t : groen3 = 0 : blauw3 = 0
        
        ster1 = t: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1         
                 
        GOSUB tijd        
        NEXT 
        GOSUB wachten

'stap b                 groen - groen - groen - groen
      
        FOR t = 0 TO 255
        
        rood1 = 255 - t : groen1 = t : blauw1 = 0
                 
        rood2 = 255 - t : groen2 = t : blauw2 = 0
                 
        rood3 = 255 - t : groen3 = t : blauw3 = 0
        
        ster1 = 255 - t: ster2 = t: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1  
                 
                  
        GOSUB tijd        
        NEXT 
        GOSUB kerk_uit
        GOSUB wachten 
        
'stap c                 blauw - blauw - blauw - blauw
      
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 - t : blauw1 = t
                 
        rood2 = 0 : groen2 = 255- t : blauw2 = t
                 
        rood3 = 0 : groen3 = 255 - t : blauw3 = t
        
        ster1 = 1: ster2 = 255 - t: ster3 = t: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1           
                  
        GOSUB tijd         
        NEXT 
        GOSUB wachten 
        
'stap d                 groen - rood- blauw - rood/groen
      
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = t : blauw1 = 255 - t
                 
        rood2 = t : groen2 = 0 : blauw2 = 255 - t
                 
        rood3 = 0 : groen3 = 0 : blauw3 = 255
        
        ster1 = 1: ster2 = 1: ster3 = 255 - t: ster4 = t: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1          
                 
         GOSUB wachten
                 
        NEXT                  
        GOSUB kerk_aan
GOTO Hoofdprogramma
;*************************************************************************
; SUBROUTINES
;*************************************************************************
wachten:
    
    'DELAYMS 100
    
RETURN

;*************************************************************************
tl_huis1_aan: 

    huis1 = 255 ELAYMS 2
    huis1 = 0   ELAYMS 5
    huis1 = 255 ELAYMS 4
    huis1 = 50  ELAYMS 8
    huis1 = 255 ELAYMS 10
    huis1 = 0   ELAYMS 5
    huis1 = 255 ELAYMS 15
    huis1 = 0   ELAYMS 80
    huis1 = 255 ELAYMS 100

RETURN
;*************************************************************************
tl_huis1_uit:
    huis1 = 0
    
RETURN
;*************************************************************************
kerk_aan:
    huis2 = 10  ELAYMS 90
    huis2 = 40  ELAYMS 150
    huis2 = 80  ELAYMS 30
    huis2 = 150 ELAYMS 200
    huis2 = 255 ELAYMS 100

RETURN
;*************************************************************************
kerk_uit: 
    huis2 = 255 ELAYMS 100 
    huis2 = 150 ELAYMS 200
    huis2 = 80  ELAYMS 30 
    huis2 = 40  ELAYMS 150
    huis2 = 10  ELAYMS 90
        
RETURN
;*************************************************************************    
kerstboom_aan: 
    FOR t = 0 TO 255  
    kerstboom1 = t
    GOSUB tijd
    NEXT
    kerstboom1 = 255 
RETURN
;*************************************************************************
spot_aan:
    FOR t = 0 TO 255
    spot1 = t
    GOSUB tijd
    NEXT
    spot1 = 255
RETURN
;*************************************************************************
lantaarn_aan:
    FOR t = 0 TO 255
    lantaarn = t
    GOSUB tijd
    NEXT
    lantaarn = 255
RETURN
;*************************************************************************    
tijd: 
 
       SELECT t
         CASE 0 TO 40
                DELAYMS 10
               DELAYMS 1
               
         CASE 41 TO 210
                'DELAYMS 10
                DELAYMS 1
         CASE 211 TO 255
                DELAYMS 10
                DELAYMS 1        
        ENDSELECT
RETURN

;*************************************************************************
RGB_programma:
 

'stap 1                 groen - rood - blauw   
      
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 : blauw1 = 0
                 
        rood2 = 255 : groen2 = 0 : blauw2 = 0
                 
        rood3 = 0 : groen3 = 0 : blauw3 = 255
        
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 255 - t: ster5 = t 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1            
                 
        GOSUB tijd 
                 
        NEXT  

'stap 2                 blauw - rood/groen - groen  
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 - t : blauw1 = t
                 
        rood2 = 255 : groen2 = t : blauw2 = 0
                
        rood3 = 0 : groen3 = t : blauw3 = 255 - t
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 255 - t 
        ster6 = t: ster7 = 1: ster8 = 1: ster9 = 1            
                          
        GOSUB tijd 
                 
        NEXT  
        GOSUB tl_huis1_uit
        GOSUB wachten
        
'stap 3                 blauw - groen - rood  
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 0 : blauw1 = 255
                 
        rood2 = 255 - t : groen2 = 255 : blauw2 = 0
                 
        rood3 = t : groen3 = 255 - t : blauw3 = 0
        
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 255 - t: ster7 = t: ster8 = 1: ster9 = 1         
                 
        GOSUB tijd 
                 
        NEXT  
        GOSUB tl_huis1_aan
        GOSUB wachten
        
'stap 4                 rood/blauw - groen - rood/blauw  
                
        FOR t = 0 TO 255
        
        rood1 = t : groen1 = 0 : blauw1 = 255
                 
        rood2 = 0 : groen2 = 255 : blauw2 = 0
                 
        rood3 = 255 : groen3 = 0 : blauw3 = t
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 255 - t: ster8 = t: ster9 = 1           
        
        GOSUB tijd 
                 
        NEXT  

        GOSUB wachten
        
'stap 5                 rood - groen/blauw - rood/blauw  
                
        FOR t = 0 TO 255
        
        rood1 = 255 : groen1 = 0 : blauw1 = 255 - t
                 
        rood2 = 0 : groen2 = 255 : blauw2 = t
                 
        rood3 = 255 : groen3 = 0 : blauw3 = 255
        
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 255 - t: ster9 = t          
                 
        GOSUB tijd 
                 
        NEXT  

        GOSUB wachten       
        
'stap 6                 blauw - blauw - blauw  

        FOR t = 0 TO 255
        
        rood1 = 255 - t : groen1 = 0 : blauw1 = t
                 
        rood2 = 0 : groen2 = 255 - t : blauw2 = 255
                 
        rood3 = 255 - t : groen3 = 0 : blauw3 = 255
                 
        ster1 = t: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 255 - t
                   
        GOSUB tijd 
                 
        NEXT  
        GOSUB kerk_uit
        GOSUB wachten
        
        
' stap 7                groen/blauw - rood - blauw  

        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = t : blauw1 = 255
                 
        rood2 = t : groen2 = 0 : blauw2 = 255 - t
                 
        rood3 = 0 : groen3 = 0 : blauw3 = 255
                 
        ster1 = 255 - t: ster2 = t: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1
                 
        GOSUB tijd 
                 
        NEXT  
        GOSUB kerk_aan
        GOSUB wachten    
        
'stap 8                 groen - rood/blauw - groen  
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 : blauw1 = 255 - t
                 
        rood2 = 255 : groen2 = 0 : blauw2 = t
                 
        rood3 = 0 : groen3 = t : blauw3 = 255 - t
                 
        ster1 = 1: ster2 = 255 - t: ster3 = t: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1
                  
        GOSUB tijd 
          
        NEXT
         
        GOSUB wachten 
        
'stap 9                 groen - blauw - rood  
        
        FOR t = 0 TO 255
        
        rood1 = 0: groen1 = 255 : blauw1 = 0
                 
        rood2 = 255 - t : groen2 = 0 : blauw2 = 255
                 
        rood3 = t : groen3 = 255 - t : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 255 - t: ster4 = t: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1
                  
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten
        
'stap 10                  groen/rood - blauw - rood  
        
        FOR t = 0 TO 255
        
        rood1 = t : groen1 = 255 : blauw1 = 0
                 
        rood2 = 0 : groen2 = 0 : blauw2 = 255
                 
        rood3 = 255 : groen3 = 0 : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 255 - t: ster5 = t 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1
                 
        GOSUB tijd 
          
        NEXT 
        GOSUB tl_huis1_uit
        GOSUB wachten  
        
'stap 11                 rood - blauw/groen - rood/blauw  
        
        FOR t = 0 TO 255
        
        rood1 = 255 : groen1 = 255 - t : blauw1 = 0
                 
        rood2 = 0 : groen2 = t : blauw2 = 255
                 
        rood3 = 255 : groen3 = 0 : blauw3 = t
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 255 - t 
        ster6 = t: ster7 = 1: ster8 = 1: ster9 = 1
                 
        GOSUB tijd 
          
        NEXT 
        GOSUB tl_huis1_aan
        GOSUB wachten 
        
'stap 12                 rood - blauw/groen - rood/blauw   
        
        FOR t = 0 TO 255
        
        rood1 = 255 : groen1 = 0 : blauw1 = 0
                 
        rood2 = 0 : groen2 = 255 : blauw2 = 255
                 
        rood3 = 255 : groen3 = 0 : blauw3 = 255 
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 255 - t: ster7 = t: ster8 = 1: ster9 = 1         
                 
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten  
        
'stap 13                 blauw - groen - groen  
        
        FOR t = 0 TO 255
        
        rood1 = 255 - t : groen1 = 0 : blauw1 = t
                 
        rood2 = 0 : groen2 = 255 : blauw2 = 255 - t
                 
        rood3 = 255 - t : groen3 = t : blauw3 = 255 - t
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 255 - t: ster8 = t: ster9 = 1      
                 
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten  
        
'stap 14                blauw - rood - groen  
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 0 : blauw1 = 255 
                 
        rood2 = t : groen2 = 255 - t : blauw2 = 0 
                 
        rood3 = 0 : groen3 = 255 : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 255 - t: ster9 = t                
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten 
        
'stap 15                 blauw/groen - blauw - rood   
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = t : blauw1 = 255 
                 
        rood2 = 255 - t : groen2 = 0 : blauw2 = t
                 
        rood3 = t : groen3 = 255 - t : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = t: ster7 = 1: ster8 = 1: ster9 = 255 - t 
                  
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten
        
'stap 16                 groen - groen - groen   
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 : blauw1 = 255 - t
                 
        rood2 = 0 : groen2 = t : blauw2 = 255 - t
                 
        rood3 = 255 - t : groen3 =  t : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = t: ster4 = 1: ster5 = 1 
        ster6 = 255 - t: ster7 = 1: ster8 = 1: ster9 = 1 
                 
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten        
        GOSUB wachten
        
'stap 17                 groen/rood - blauw - groen   
        
        FOR t = 0 TO 255
        
        rood1 = t : groen1 = 255 : blauw1 = 0
                 
        rood2 = 0 : groen2 = 255 - t : blauw2 =  t
                 
        rood3 = 0 : groen3 =  255 : blauw3 = 0
                 
        ster1 = t: ster2 = 1: ster3 = 255 - t: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1 
                 
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten   
        
'stap 18                 blauw - blauw - rood   
        
        FOR t = 0 TO 255
        
        rood1 = 255 - t : groen1 = 255 - t : blauw1 = t
                 
        rood2 = 0 : groen2 = 0 : blauw2 =  255
                 
        rood3 = t : groen3 =  255 - t: blauw3 = 0
                 
        ster1 = 255 - t: ster2 = t: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 1: ster9 = 1
                  
        GOSUB tijd 
          
        NEXT 
        GOSUB kerk_uit
        GOSUB wachten     
        
'stap 19                 groen - rood/blauw - groen   
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = t : blauw1 = 255 - t
                 
        rood2 = t : groen2 = 0 : blauw2 =  255
                 
        rood3 = 255 - t : groen3 = t : blauw3 = 0
                 
        ster1 = 1: ster2 = 255 - t: ster3 = 1: ster4 = 1: ster5 = 1 
        ster6 = 1: ster7 = t: ster8 = 1: ster9 = 1
                 
        GOSUB tijd 
          
        NEXT 
        GOSUB kerk_aan
        GOSUB wachten   
        
'stap 20                 groen/blauw - groen - groen   
        
        FOR t = 0 TO 255
        
        rood1 = 0 : groen1 = 255 : blauw1 = t
                 
        rood2 = 255 - t : groen2 = t : blauw2 =  255 - t
                 
        rood3 = 0 : groen3 = 255 : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = t 
        ster6 = 1: ster7 = 255 - t: ster8 = 1: ster9 = 1
                 
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten    
        
'stap 21                 rood - rood - rood  
        
        FOR t = 0 TO 255
        
        rood1 = t : groen1 = 255 - t : blauw1 = 255- t
                 
        rood2 = t : groen2 = 255 - t : blauw2 =  0
                 
        rood3 = t : groen3 = 255 - t : blauw3 = 0
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = 1: ster5 = 255 - t 
        ster6 = 1: ster7 = 1: ster8 = t: ster9 = 1
                  
        GOSUB tijd 
          
        NEXT 
        
        GOSUB wachten
        GOSUB wachten                                       
'stap 22               groen - rood - blauw 
        
        FOR t = 0 TO 255
        
        rood1 = 255 - t : groen1 = t : blauw1 = 0
                 
        rood2 = 255 : groen2 = 0 : blauw2 = 0
                 
        rood3 = 255 - t : groen3 = 0 : blauw3 = t
                 
        ster1 = 1: ster2 = 1: ster3 = 1: ster4 = t: ster5 = 1 
        ster6 = 1: ster7 = 1: ster8 = 255 - t: ster9 = 1  
          
        GOSUB tijd 
          
                       
        NEXT 
        
                                  
               
'**************************************************************************
'**************************************************************************             
Hoofdprogramma:

GOTO RGB_programma
GOTO lus
   
;************************************************************************
;************************************************************************ 
;******               Interrupt routine PWM sturing                ******         
;************************************************************************
scan:
TMR0 = 156    ;75Hz = '255-((kristal/8)/255)/75Hz' 125
     
      '156

pwmteller = pwmteller + 1
IF pwmteller <>  0 THEN GOTO leds

IF a = 0 THEN GOTO verder
IF ster1 = 0 THEN ster1 = 1
IF ster2 = 0 THEN ster2 = 1
IF ster3 = 0 THEN ster3 = 1
IF ster4 = 0 THEN ster4 = 1
IF ster5 = 0 THEN ster5 = 1
IF ster6 = 0 THEN ster6 = 1
IF ster7 = 0 THEN ster7 = 1
IF ster8 = 0 THEN ster8 = 1
IF ster9 = 0 THEN ster9 = 1

verder:


            rood1n =rood1
            rood2n = rood2
            rood3n = rood3
             
            groen1n = groen1
            groen2n = groen2
            groen3n = groen3
             
            blauw1n = blauw1
            blauw2n = blauw2
            blauw3n = blauw3
            
            spot1n = spot1
            huis1n = huis1
            huis2n = huis2
            kerstboom1n = kerstboom1
            lantaarnn = lantaarn
            ster1n = ster1
            ster2n = ster2
            ster3n = ster3
            ster4n = ster4
            ster5n = ster5
            ster6n = ster6
            ster7n = ster7
            ster8n = ster8
            ster9n = ster9
             
            IF rood1n > 0 THEN outrood1 = 1
            IF rood2n > 0 THEN outrood2 = 1
            IF rood3n > 0 THEN outrood3 = 1
             
            IF groen1n > 0 THEN outgroen1 = 1
            IF groen2n > 0 THEN outgroen2 = 1
            IF groen3n > 0 THEN outgroen3 = 1
             
            IF blauw1n > 0 THEN outblauw1 = 1
            IF blauw2n > 0 THEN outblauw2 = 1
            IF blauw3n > 0 THEN outblauw3 = 1
             
            IF spot1n > 0 THEN outspot1 = 1 
            IF huis1n > 0 THEN outhuis1 = 1
            IF huis2n > 0 THEN outhuis2 = 1
            IF kerstboom1n > 0 THEN outkerstboom1 = 1
            IF lantaarnn > 0 THEN outlantaarn = 1
            
            IF ster1n > 0 THEN outster1 = 1
            IF ster2n > 0 THEN outster2 = 1
            IF ster3n > 0 THEN outster3 = 1
            IF ster4n > 0 THEN outster4 = 1
            IF ster5n > 0 THEN outster5 = 1
            IF ster6n > 0 THEN outster6 = 1
            IF ster7n > 0 THEN outster7 = 1
            IF ster8n > 0 THEN outster8 = 1
            IF ster9n > 0 THEN outster9 = 1
               
leds: 
            IF pwmteller = rood1n THEN outrood1 = 0
            IF pwmteller = rood2n THEN outrood2 = 0
            IF pwmteller = rood3n THEN outrood3 = 0
             
            IF pwmteller = groen1n THEN outgroen1 = 0
            IF pwmteller = groen2n THEN outgroen2 = 0
            IF pwmteller = groen3n THEN outgroen3 = 0
             
            IF pwmteller = blauw1n THEN outblauw1 = 0
            IF pwmteller = blauw2n THEN outblauw2 = 0
            IF pwmteller = blauw3n THEN outblauw3 = 0
                    
            IF pwmteller = spot1n THEN outspot1 = 0
            IF pwmteller = huis1n THEN outhuis1 = 0
            IF pwmteller = huis2n THEN outhuis2 = 0
            IF pwmteller = kerstboom1n THEN outkerstboom1 = 0
            IF pwmteller = lantaarnn THEN outlantaarn = 0
            
            IF pwmteller = ster1n THEN outster1 = 0
            IF pwmteller = ster2n THEN outster2 = 0
            IF pwmteller = ster3n THEN outster3 = 0
            IF pwmteller = ster4n THEN outster4 = 0
            IF pwmteller = ster5n THEN outster5 = 0
            IF pwmteller = ster6n THEN outster6 = 0
            IF pwmteller = ster7n THEN outster7 = 0
            IF pwmteller = ster8n THEN outster8 = 0
            IF pwmteller = ster9n THEN outster9 = 0
         T0IF = 0                        
         
        CONTEXT RESTORE                 
END
; **************************************************************** 
; **               Interrupt routine PWM sturing                **         
; ****************************************************************
;scan:

;INT#STARTH:
;CONTEXT SAVE
'SYSTEM_SAVEH 

;     IF T0IF = 0 THEN GOTO exit_interupt 
       
;         TMR0L = 157 ; 100 hz
;         INC pwmteller
;         IF pwmteller <> 0 THEN GOTO leds
         
         
         
;         poortb = 255
;         Led0 = ledn [0]
;         led1 = ledn [1]
;         led2 = ledn [2]    
;         led3 = ledn [3]
;         led4 = ledn [4]
;         led5 = ledn [5]
;         led6 = ledn [6]
;         led7 = ledn [7]
 
;leds:        
  
;         IF Led0 = pwmteller  THEN CLEAR poortb.0
;         IF led1 = pwmteller  THEN CLEAR poortb.1
;         IF led2 = pwmteller  THEN CLEAR poortb.2
;         IF led3 = pwmteller  THEN CLEAR poortb.3
;         IF led4 = pwmteller  THEN CLEAR poortb.4
;         IF led5 = pwmteller  THEN CLEAR poortb.5
;         IF led6 = pwmteller  THEN CLEAR poortb.6
;         IF led7 = pwmteller  THEN CLEAR poortb.7
                           
          
;PORTD = poortb


;  T0IF = 0                                                   


;exit_interupt: 
                                                         
'SYSTEM_RESTOREH 
;CONTEXT RESTORE                         ' Restore the registers and exit the interrupt          
;INT#ENDH:  
;*********************************************************************
 
    
    


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op donderdag 25 Oktober 2012 22:33:08 QuoteWijzig

@ Reddevil supper joh.
Ik denk dat dit wel moet gaan lukken.

En Stynus bedankt voor het aanpassen.
Ik zal via dit forum op de hoogte houden hoe me dit gaat lukken.

Nogmaal al vast bedankt voor jullie hulp.

reddevil
Lid
Berichten: 1252
Gepost op donderdag 25 Oktober 2012 22:44:39 QuoteWijzig

Ik zie net in de code, heel onderaan na END al de regels met ; voor de regels moet je geen rekening mee houden, is van een vorig programma.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op maandag 29 Oktober 2012 15:44:05 QuoteWijzig

Het spijt me.

Ik denk dat ik toch een schakeling moet gaan zoeken.
Die iets eenvoudiger is.
Ik heb het hele weekend geprobeerd die print klaar te stomen maar dit is niet gelukt .

Ik werk met sprint layout5.
Ik heb ook de orginele eagel, maar hier moet ik nog eerst mee leren omgaan.
Ik weet niet of het misschien in eagel wel lukt.
Of misschien de print layout te eenvoudig is.

Heeft iemand van jullie een schakeling op dit gebied die niet zo uitgebreid is? (Dus iets gemakkelijker).

Dan hou ik me graag aanbevolen.


 
[Bericht gewijzigd door Colt op Maandag 29 Oktober 2012 15:46:52]

Stynus
Admin
Berichten: 2829
Gepost op maandag 29 Oktober 2012 20:17:06 QuoteWijzig

Colt, wat wil je precies bouwen? Dan kunnen we beter inschatten wat je nodig hebt.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
Colt
Lid
Berichten: 88
Gepost op dinsdag 30 Oktober 2012 12:40:10 QuoteWijzig

Hallo Stynus

Eigenlijk ben ik op zoek naar zulke schakeling die het zelfde doet maar dan met wat minder ledjes.
Ik wil hem graag gaan gebruiken voor een spoorbaan in miniatuur voor de klein kinderen.

Die van Reddevil is gewoon supper maar ik ben gewoon nog niet zover dat ik zulke printen kan maken die zo uitgebreid zijn vandaar.

colt
 
[Bericht gewijzigd door Colt op Dinsdag 30 Oktober 2012 12:41:07]

reddevil
Lid
Berichten: 1252
Gepost op dinsdag 30 Oktober 2012 20:31:25 QuoteWijzig

Hoeveel kanalen zou je willen. Misschien dat ik nog iets heb dat kan dienen.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op woensdag 31 Oktober 2012 13:59:16 QuoteWijzig

Hallo

Ik ben eigenlijk wat aan het zoeken met ongeveer 15 ledjes.
Als je dadelijk zegt ik heb wat met 12 is natuurlijk ook goed.
Heb je wat met 18 is het ook goed hoor.
Ben allang blij dat jullie proberen te helpen

Colt

reddevil
Lid
Berichten: 1252
Gepost op woensdag 31 Oktober 2012 22:43:12 QuoteWijzig

En moeten die 16 leds (is het gemakkelijkste) allemaal pwm gestuurd zijn of alleen maar aan en uit kunnen. Kwestie om de pic te kiezen en de andere componenten.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op donderdag 1 November 2012 13:30:31 QuoteWijzig

Hallo Reddevil

Het liefs dat ik ze allemaal kan sturen.
Als dit mogelijk is zou wel heel fijn zijn.

Colt

reddevil
Lid
Berichten: 1252
Gepost op donderdag 1 November 2012 18:25:53 QuoteWijzig

Effe schema aangepast. Kun je eens nakijken of je dit kan gebruiken.









Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
Colt
Lid
Berichten: 88
Gepost op donderdag 1 November 2012 19:47:56 QuoteWijzig

@ Reddevil

Bedankt voor jou hulp.
Hier ben ik blij mee, dit moet gaan lukken.
Ik ga hier van het weekend mee aan de slag.

Als de print mij is gelukt ga ik de onderdelen bestellen.
Ik hou jullie op de hoogte.
Alvast bedankt voor de hulp.

Colt

Colt
Lid
Berichten: 88
Gepost op zondag 4 November 2012 13:00:27 QuoteWijzig

Hallo

Ik denk dat het mij dit keer gelukt is.
Ik zal even een foto plaatsen




Ik ga nu onderdelen bestellen, en dan ga ik kijken of ik met de maten goed uit komt.

Ik denk zelf dat dit vrij goed moet klopppen.
Wordt vervolgd.

Colt
 
[Bericht gewijzigd door Colt op Zondag 4 November 2012 13:04:40]


Active Topics

» Compressor Afstandsbed...
» Inrichting laadruimte ...
» Subwoofer JBL
» Show je mini projecten
» TDA7265 (Makita werfra...
» Voeding 24V 3A Stynus
» Audi
» Werkplaatsinrichting
» Subaru Outback 2016
» De tuin.

» Meer actieve topics

Advertenties

PCBway

© 2004-2021 SchemaTheek
Laadtijd: 0.17049 sec.