Knight Rider PicBasic aanpassen

captain nguyen · Bericht door **captain nguyen** » za 2 aug 2008, 19:14

Na het zoeken vond ik een source van Stynus.
Knight Rider PicBasic

Hij werkt zoals gewoonlijk op ledjes.
Maar wat ik nu verder gaat doen is dat het High Power Led aangestuurt worden door TIP120 (Transistor).

En het bleek dat het niks werkt.
En verder wil ik dat PWM invoeren maar hoe doe ik dat?
Plus eerst half seconden alle 8 leds aan en dan pas lopen met heen en weer.

Zoals in origineel serie.

Bericht door **Stynus** » za 2 aug 2008, 20:28

Hoe heb je die TIP transistoren aangesloten?

De code aan passen voor navloeien en langzamer aan was ik al is van plan te proberen. Ik zal dat als ik tijd heb is doen.

captain nguyen · Bericht door **captain nguyen** » za 2 aug 2008, 21:21

Tip transistoren heb ik op deze manier aangesloten.

Pic -> Weerstand -> Tip Transistor (Base)

Tip transistor:

Collector naar HP Led.
Base naar PIC via weerstand.
Emitter naar gnd. (massa)

Code aanpassen dat alleen langzamer uitgaan is genoeg.

Hier is de voorbeeld waar ik over had.

http://www.youtube.com/watch?v=mQWbBP4dTbw
Hij gebruik door met condensator.

Maar je ziet dan wel bij het aanzetten eerst alle 8 ledjes aan voor ongeveer half tot 1 sec aan en dan pas looplicht in KR stijl.

Zie ook hier een korte clipje van KR.
http://www.youtube.com/watch?v=SBBj1JW4DA8

Bericht door **Stynus** » za 2 aug 2008, 22:41

Ik heb wat geprogrammeerd.

http://www.elektronicastynus.be/PICBASI ... /index.php

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 0:02

Das snel!

Bericht door **Stynus** » zo 3 aug 2008, 0:14

Idee zat al langer in men hoofd.
Moest het alleen nog uittypen.

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 15:48

Ik vraag me af.
Hoe kan ik ervoor zorgen dat eerste halve sec alle ledjes aan en dan pas running light?

En ook dat bij looplicht gewoon meteen aan en langzaam uit met wat langer trail effect.

Zoals dit hier.

http://nl.youtube.com/watch?v=bwPEzQEAfH4

Bericht door **Stynus** » zo 3 aug 2008, 18:57

Ik ga er is over nadenken.

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 20:12

Ik heb net zelf geschreven programma dat met all-on effect voor 750 ms en dan looplichtje.
Maar nog steeds geen fade out leds.

Code: Selecteer alles

'Config
    Device 16F628             
    Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_ON
    ALL_DIGITAL TRUE                ;Alle ingangen digitaal

'****************************************************************	
'Uitgangen declareren
    Dim AllOn as Byte
    Dim Scan1 as Byte
    Dim Scan2 as Byte	
    Symbol led1     = PORTB.7
    Symbol led2     = PORTB.6
    Symbol led3     = PORTB.5
    Symbol led4     = PORTB.4
    Symbol led5     = PORTB.3
    Symbol led6     = PORTB.2
    Symbol led7     = PORTB.1
    Symbol led8     = PORTB.0
    'TrisB register instellen (alles uitgang)
    TRISB = 0 
    AllOn = 750
    Scan1 = 115
    Scan2 = 5
	
'****************************************************************
'****************************************************************    
      High LED1
	  High LED2
	  High LED3
	  High LED4
	  High LED5
	  High LED6
	  High LED7
	  High LED8
	  Delayms AllOn
	  Low LED1
	  Low LED2
	  Low LED3
	  Low LED4
	  Low LED5
	  Low LED6
	  Low LED7
	  Low LED8
	  Delayms 5
Scanning:
High LED1
DelayMS Scan1
Low LED1
DelayMS Scan2
High LED2
DelayMS Scan1
Low LED2
DelayMS Scan2
High LED3
DelayMS Scan1
Low LED3
DelayMS Scan2
High LED4
DelayMS Scan1
Low LED4
DelayMS Scan2
High LED5
DelayMS Scan1
Low LED5
DelayMS Scan2
High LED6
DelayMS Scan1
Low LED6
DelayMS Scan2
High LED7
DelayMS Scan1
Low LED7
DelayMS Scan2
High LED8
DelayMS Scan1
Low LED8
DelayMS Scan2
High LED7
DelayMS Scan1
Low LED7
DelayMS Scan2
High LED6
DelayMS Scan1
Low LED6
DelayMS Scan2
High LED5
DelayMS Scan1
Low LED5
DelayMS Scan2
High LED4
DelayMS Scan1
Low LED4
DelayMS Scan2
High LED3
DelayMS Scan1
Low LED3
DelayMS Scan2
High LED2
DelayMS Scan1
Low LED2
DelayMS Scan2

 
GoTo Scanning
'****************************************************************
End

En met fade out op andere topic zoals dit hier?

Code: Selecteer alles

Dim fade As Byte 
Dim PBM As Byte 
Dim x As Byte 

'Fade lusje 
For fade = 0 To 20 
    For x = 0 To 100 
        If PBM < x Then 
            High led 
        Else 
            Low led 
        EndIf 
    Next 
    PBM = PBM  + 5 
Next 
Low led

Bericht door **Stynus** » zo 3 aug 2008, 20:31

Het probleem met de code uit het andere topic is dat er geen 2 leds tergelijk aan kunnen zijn zo (of kunnen faden).

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 20:40

Daar d8 ik al aan.
En je project over 4 kanaals pwm.
Kan ik iets daarvan toepassen?

Bericht door **Stynus** » zo 3 aug 2008, 21:04

Dat zit verwerkt in de code die ik hier eerder gepost heb.

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 21:11

Die in het PWM_lus zit?

Code: Selecteer alles

PWM_lus:
    For index = 0 To (snelheid *2)
        If Ledwaardes[1] > index Then
            High led1
        Else
            Low led1
        EndIf
        If Ledwaardes[2] > index Then
            High led2
        Else
            Low led2
        EndIf
        If Ledwaardes[3] > index Then
            High led3
        Else
            Low led3
        EndIf    
        If Ledwaardes[4] > index Then
            High led4
        Else
            Low led4
        EndIf
        If Ledwaardes[5] > index Then
            High led5
        Else
            Low led5
        EndIf
        If Ledwaardes[6] > index Then
            High led6
        Else
            Low led6
        EndIf    
        If Ledwaardes[7] > index Then
            High led7
        Else
            Low led7
        EndIf    
        If Ledwaardes[8] > index Then
            High led8
        Else
            Low led8
        EndIf     
    Next 
Return

Bericht door **Stynus** » zo 3 aug 2008, 22:11

klopt

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 23:06

Even denken.

Trail effect langer aan en ledjes gewoon meteen aan is het zo?

Code: Selecteer alles

 For index = 0 To (snelheid *5) 
            High Led1
        If Ledwaardes[1] > index Then 
            Low led1 
        EndIf 
            High Led2
        If Ledwaardes[1] > index Then 
            Low led12
        EndIf 
        ...
        ...
        ...

Bericht door **Stynus** » zo 3 aug 2008, 23:07

Nee
Dan gaan de leds gewoon minder hard branden.

De effecten zitten vanboven in die while loop in de code.

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 23:12

OKe en hoe zorgt ik ervoor dat de trail effect langer wordt?

Bericht door **Stynus** » zo 3 aug 2008, 23:40

Ik zal als ik tijd heb de code wel aanpassen.

captain nguyen · Bericht door **captain nguyen** » zo 3 aug 2008, 23:48

Oke,

btw,

Jouw code heb ik wel aangepast in Nieuwe KITT stijl.
En hij werkt.

http://www.youtube.com/watch?v=G-Y91aUS5lM

Nu pas ik de snelheid nog aan.
Ene kant sneller en andere kant langzaam.

captain nguyen · Bericht door **captain nguyen** » di 5 aug 2008, 19:10

Als je het wilt zet ik de code op in volgende post.

Het gaat hierom dat het werkt in Knight Rider 2008 stijl.
Met jou code die ik aangepast hebt..

http://www.youtube.com/watch?v=_Ijt7jn1xys

captain nguyen · Bericht door **captain nguyen** » wo 6 aug 2008, 20:18

Code: Selecteer alles

'****************************************************************
'*                knightrider 2008 Stijl                        *
'*                                                              *
'*  Auteur  : Stijn Coenen [Stynus]                             *
'*  Edited  : Hoang Nguyen [Captain Nguyen]                     *
'*  Notice  : Copyright (c) 2008 Stijn Coenen                   *
'*          : All Rights Reserved                               *
'*  Datum   : 05/08/2008                                        *
'*  Version : 1.0                                               *
'*  Website : www.elektronicastynus.be                          *
'****************************************************************
'Config
    Device 16F628            
    Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_ON
    ALL_DIGITAL TRUE                ;Alle ingangen digitaal
'****************************************************************
'Uitgangen declareren
    Symbol led1     = PORTB.7
    Symbol led2     = PORTB.6
    Symbol led3     = PORTB.5
    Symbol led4     = PORTB.4
    Symbol led5     = PORTB.3
    Symbol led6     = PORTB.2
    Symbol led7     = PORTB.1
    Symbol led8     = PORTB.0
    'TrisB register instellen (alles uitgang)
    TRISB = 0                       

'****************************************************************    
'Decraraties voor programma:  
    Dim    index    As Byte
    Dim     I As Byte
    Dim    Ledwaardes[9] As Byte
    Symbol snelheid1 = 35  'Hoe groter hoe trager
	Symbol snelheid2 = 20
'****************************************************************
Clear
Start:
    For I = 1 To 8
        Ledwaardes[I] = 0

    Next
While 1 = 1 
    For I = 0 To snelheid1
        Inc Ledwaardes[1]
		Inc Ledwaardes[1]
		GoSub PWM_lus 
    Next  
    For I = 0 To snelheid1
        Inc Ledwaardes[2]
		Inc Ledwaardes[2]
		GoSub PWM_lus 
    Next 
	For I = 0 To snelheid1
        Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Inc Ledwaardes[5]
		Inc Ledwaardes[5]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Inc Ledwaardes[6]
		Inc Ledwaardes[6]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Inc Ledwaardes[7]
		Inc Ledwaardes[7]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Inc Ledwaardes[8]
		Inc Ledwaardes[8]
		GoSub PWM_lus 
    Next

'****************************************************************
	
	For I = 0 To snelheid1
        Dec Ledwaardes[1]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid1
        Dec Ledwaardes[1]
		Dec Ledwaardes[2]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[2]
		Dec Ledwaardes[3]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[3]
		Dec Ledwaardes[4]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[7]
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid1
        Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
'****************************************************************
	
		For I = 0 To snelheid2
        Inc Ledwaardes[8]
		Inc Ledwaardes[8]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[7]
		Inc Ledwaardes[7]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[6]
		Inc Ledwaardes[6]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[5]
		Inc Ledwaardes[5]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[2]
		Inc Ledwaardes[2]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Inc Ledwaardes[1]
		Inc Ledwaardes[1]
		GoSub PWM_lus 
    Next

'****************************************************************

	For I = 0 To snelheid2
        Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	For I = 0 To snelheid2
        Dec Ledwaardes[8]
		Dec Ledwaardes[7]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[7]
		Dec Ledwaardes[6]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[6]
		Dec Ledwaardes[5]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[5]
		Dec Ledwaardes[4]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[4]
		Dec Ledwaardes[3]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[3]
		Dec Ledwaardes[2]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[2]
		Dec Ledwaardes[1]
		GoSub PWM_lus 
    Next
		For I = 0 To snelheid2
        Dec Ledwaardes[1]
		GoSub PWM_lus 
    Next
	
Wend 

'****************************************************************
PWM_lus:
    For index = 0 To (snelheid1 *2)
        If Ledwaardes[1] > index Then
            High led1
        Else
            Low led1
        EndIf
        If Ledwaardes[2] > index Then
            High led2
        Else
            Low led2
        EndIf
        If Ledwaardes[3] > index Then
            High led3
        Else
            Low led3
        EndIf    
        If Ledwaardes[4] > index Then
            High led4
        Else
            Low led4
        EndIf
        If Ledwaardes[5] > index Then
            High led5
        Else
            Low led5
        EndIf
        If Ledwaardes[6] > index Then
            High led6
        Else
            Low led6
        EndIf    
        If Ledwaardes[7] > index Then
            High led7
        Else
            Low led7
        EndIf    
        If Ledwaardes[8] > index Then
            High led8
        Else
            Low led8
        EndIf     
    Next 
Return     

'****************************************************************
End

captain nguyen · Bericht door **captain nguyen** » do 23 okt 2008, 18:18

Het is gelukt!
Alleen lukt het mij steeds niet dat laatste moment nog mooier uit gaan.
Het lijkt wel of de led uitfade tot 30% of zo dan gaat ie meteen uit.

Zie je een fout in?

Code: Selecteer alles

'Config
    Device 16F628               
    Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_ON
    ALL_DIGITAL TRUE                ;Alle ingangen digitaal
'****************************************************************
'Uitgangen declareren
    Symbol ledjes   = PORTB
    Symbol led1     = PORTB.7
    Symbol led2     = PORTB.6
    Symbol led3     = PORTB.5
    Symbol led4     = PORTB.4
    Symbol led5     = PORTB.0
    Symbol led6     = PORTB.1
    Symbol led7     = PORTB.2
    Symbol led8     = PORTB.3
    'TrisB register instellen (alles uitgang)
    TRISB = 0                       

'****************************************************************    
'Decraraties voor programma:  
    Dim    index    As Byte
    Dim     I As Byte
    Dim    Ledwaardes[9] As Byte
    Symbol snelheid = 17  'Hoe groter hoe trager
'****************************************************************
Clear

'x = vol aan
'z = 3/4 aan
'y = 1/2 aan
'w = 1/4 aan
'0 = uit
'i = reeds uit

'************************************************** All On

Start:
    For I = 1 To 8
        Ledwaardes[I] = 0
    Next
    'XXXXXXXX
    For I = 0 To snelheid
        Inc Ledwaardes[1]
        Inc Ledwaardes[1]  
		Inc Ledwaardes[1]
		Inc Ledwaardes[1]
		
		Inc Ledwaardes[2]
        Inc Ledwaardes[2]  
		Inc Ledwaardes[2]
		Inc Ledwaardes[2]
		
		Inc Ledwaardes[3]
        Inc Ledwaardes[3]  
		Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		
		Inc Ledwaardes[4]
        Inc Ledwaardes[4]  
		Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		
		Inc Ledwaardes[5]
        Inc Ledwaardes[5]  
		Inc Ledwaardes[5]
		Inc Ledwaardes[5]
		
		Inc Ledwaardes[6]
        Inc Ledwaardes[6]  
		Inc Ledwaardes[6]
		Inc Ledwaardes[6]
		
		Inc Ledwaardes[7]
        Inc Ledwaardes[7]  
		Inc Ledwaardes[7]
		Inc Ledwaardes[7]
		
		Inc Ledwaardes[8]
        Inc Ledwaardes[8]  
		Inc Ledwaardes[8]
		Inc Ledwaardes[8]
		
    Next  
	
'********************* Start scanning
	    
		'XZZZZZZZ
    For I = 0 To snelheid
        Dec Ledwaardes[2]
        Dec Ledwaardes[3]
		Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		Dec Ledwaardes[8] 
		GoSub PWM_lus
    Next
	    
		'ZXYYYYYY
    For I = 0 To snelheid
	    Dec Ledwaardes[1]
        Inc Ledwaardes[2]
        Dec Ledwaardes[3]
		Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next 
		    
		'YZXWWWWW
    For I = 0 To snelheid
	    Dec Ledwaardes[1]
        Dec Ledwaardes[2]
        Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	    
		'WYZX0000
    For I = 0 To snelheid
        Dec Ledwaardes[1]
        Dec Ledwaardes[2]
		Dec Ledwaardes[3]
		Inc ledwaardes[4]
		Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
'**************************************************** Scanning Forward
	
While 1 = 1	
		    
		'0WYZXIII
    For I = 0 To snelheid
        Dec Ledwaardes[1]
        Dec Ledwaardes[2]
		Dec Ledwaardes[3]
		Dec Ledwaardes[4]
		Inc Ledwaardes[5] 
		Inc Ledwaardes[5] 
		Inc Ledwaardes[5] 
		Inc Ledwaardes[5]
		GoSub PWM_lus 
    Next
	
		'I0WYZXII
    For I = 0 To snelheid
        Dec Ledwaardes[2]
        Dec Ledwaardes[3]
		Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		Inc Ledwaardes[6] 
		Inc Ledwaardes[6] 
		Inc Ledwaardes[6] 
		Inc Ledwaardes[6]
		GoSub PWM_lus 
    Next
  
		'II0WYZXI
    For I = 0 To snelheid
        Dec Ledwaardes[3]
        Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Inc Ledwaardes[7] 
		Inc Ledwaardes[7] 
		Inc Ledwaardes[7] 
		Inc Ledwaardes[7]
		GoSub PWM_lus 
    Next
	
		'III0WYZX
    For I = 0 To snelheid
        Dec Ledwaardes[4]
        Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		Inc Ledwaardes[8] 
		Inc Ledwaardes[8] 
		Inc Ledwaardes[8] 
		Inc Ledwaardes[8]
		GoSub PWM_lus 
    Next
'************************************************************ Scanning Backward
	
			'IIII0WXZ
    For I = 0 To snelheid
        Dec Ledwaardes[5]
        Dec Ledwaardes[6]
		Inc Ledwaardes[7] 
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
			'IIIIIXZY
    For I = 0 To snelheid
	    Inc Ledwaardes[6]
	    Inc Ledwaardes[6]
        Inc Ledwaardes[6]
		Dec Ledwaardes[7] 
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
			'IIIIXZYW
    For I = 0 To snelheid
	    Inc Ledwaardes[5]
        Inc Ledwaardes[5]
		Inc Ledwaardes[5]
		Inc Ledwaardes[5]
		Dec Ledwaardes[6]
		Dec Ledwaardes[7] 
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
			'IIIXZYW0
    For I = 0 To snelheid
	    Inc Ledwaardes[4]
        Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		Dec Ledwaardes[5]
		Dec Ledwaardes[6] 
		Dec Ledwaardes[7]
		Dec Ledwaardes[8]
		GoSub PWM_lus 
    Next
	
			'IIXZYW0I
    For I = 0 To snelheid
	    Inc Ledwaardes[3]
        Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		Dec Ledwaardes[4]
		Dec Ledwaardes[5] 
		Dec Ledwaardes[6]
		Dec Ledwaardes[7]
		GoSub PWM_lus 
    Next
	
			'IXZYW0II
    For I = 0 To snelheid
	    Inc Ledwaardes[2]
        Inc Ledwaardes[2]
		Inc Ledwaardes[2]
		Inc Ledwaardes[2]
		Dec Ledwaardes[3]
		Dec Ledwaardes[4] 
		Dec Ledwaardes[5]
		Dec Ledwaardes[6]
		GoSub PWM_lus 
    Next
	
			'XZYW0III
    For I = 0 To snelheid
	    Inc Ledwaardes[1]
        Inc Ledwaardes[1]
		Inc Ledwaardes[1]
		Inc Ledwaardes[1]
		Dec Ledwaardes[2]
		Dec Ledwaardes[3] 
		Dec Ledwaardes[4]
		Dec Ledwaardes[5]
		GoSub PWM_lus 
    Next
	
'******************************** Scanning Forward
	
			'ZXW0IIII
    For I = 0 To snelheid
	    Dec Ledwaardes[1]
        Inc Ledwaardes[2]
		Dec Ledwaardes[3]
		Dec Ledwaardes[4] 
		GoSub PWM_lus 
    Next
	
			'YZXIIIII
    For I = 0 To snelheid
	    Dec Ledwaardes[1]
		Dec Ledwaardes[2]
        Inc Ledwaardes[3]
		Inc Ledwaardes[3]
		Inc Ledwaardes[3] 
		GoSub PWM_lus 
    Next
	
			'0YZXIIII
    For I = 0 To snelheid
	    Dec Ledwaardes[1]
        Dec Ledwaardes[2]
		Dec Ledwaardes[3]
		Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		Inc Ledwaardes[4]
		Inc Ledwaardes[4] 
		GoSub PWM_lus 
    Next
	  
Wend 

'****************************************************************
PWM_lus:
    For index = 0 To (snelheid *4)
        If Ledwaardes[1] > index Then
            High led1
        Else
            Low led1
        EndIf
        If Ledwaardes[2] > index Then
            High led2
        Else
            Low led2
        EndIf
        If Ledwaardes[3] > index Then
            High led3
        Else
            Low led3
        EndIf    
        If Ledwaardes[4] > index Then
            High led4
        Else
            Low led4
        EndIf
        If Ledwaardes[5] > index Then
            High led5
        Else
            Low led5
        EndIf
        If Ledwaardes[6] > index Then
            High led6
        Else
            Low led6
        EndIf    
        If Ledwaardes[7] > index Then
            High led7
        Else
            Low led7
        EndIf    
        If Ledwaardes[8] > index Then
            High led8
        Else
            Low led8
        EndIf     
    Next 
Return     

'****************************************************************
End

Video:
http://www.youtube.com/watch?v=8lp2AKaMByw

reddevil · Bericht door **reddevil** » do 23 okt 2008, 22:16

Een stukje onderaan bij scanning forward

Code: Selecteer alles

        '0YZXIIII 
    For I = 0 To snelheid 
       Dec Ledwaardes[1] 
        Dec Ledwaardes[2] 
      Dec Ledwaardes[3] 
      Inc Ledwaardes[4] 
      Inc Ledwaardes[4] 
      Inc Ledwaardes[4] 
      Inc Ledwaardes[4] 
      GoSub PWM_lus 
    Next 
     
Wend

Je gaat hier 4 keer achter elkaar ledwaardes[4] 1 aftellen, dit is normaal denk ik dat je led heel snel uitgaat, omdat je hem heel snel laat aftellen.
Kan je niet 2 stappen in de volgende cyclus zetten.
Is niet alleen hier ook in de vorige delen van je programma waar je andere ledwaardes zo laat aftellen.
Hoop dat je er aan uit kan, kan het moeilijk uitleggen.

captain nguyen · Bericht door **captain nguyen** » vr 24 okt 2008, 0:29

Is het niet andersom?

Ik las op ander site dat :

inc = verhogen met waarde en dec is verlagen met waarde.

bron:
http://www.picbasic.nl/frameload.htm?ht ... mandos.htm

reddevil · Bericht door **reddevil** » vr 24 okt 2008, 21:24

Ik heb me vergist, sorry. Draai die dingen altijd om.