Alimentation transitor

[manu225]

Bonjour,

Après quelques tests voila les différentes teintes que j'ai pu obtenir :


Plutôt pas mal je trouve
-----

[mag1]

Bonjour,

Présentation de la proposition picaxe.
Il y a 3 générateurs PWM, fréquence 4kHz env. avec 255 paliers de 0 à 100% et retour de 100% à 0%, chaque rampe a un temps par paliers aléatoires entre 1 et 2s (si il y a vidéo, les temps seront divisés par 100).
Donc, des variations de temps pour chaque couleur et chaque rampe croissante et décroissante entre 4 et 8 minutes (je pense plus artistique de faire des variations lentes, mais ce n'est que mon avis...).
Schéma du test:



Le programme est en pseudo multitâche : Les variations s'exécutent en parallèle:

Projet non testé:

;aléa 3 leds
start0:
#picaxe 14M2
symbol tB=w13	;(b27;b26)=w13
symbol tV=w12
symbol tR=w11	;partie de w12
symbol varB=b1
symbol varV=b2
symbol varR=b3
	pwmout B.2,63,0
	pwmout B.4,63,0 
	pwmout C.0,63,0
	do
		tB=time
		random tB
		tB=tB//1000 + 1000	;variable de 1000 à 2000  		
		for varB = 250 to 0	step-1
			pause tB
			pwmduty B.2,varB	;augmentation RC à 100% palier de tb ms (1s à 2s)
		next
		tB=time
		random tB
		tB=tB//1000 + 1000	;variable de 1000 à 2000
		for varB = 0 to 255
			pause tB
			pwmduty B.2,varB	;augmentation RC à 100% palier de tb ms (1s à 2s)
		next
	loop
start1:
	do
		tV=time + 15000	; pour initialisations différentes des tâches
		random tV			; tV aléatoire entre 0 et 65535
		tV=tV//1000 + 1000	;variable de 1000 à 2000 ms
		for varV = 0 to 255				
			pause tV
			pwmduty B.4,varV	;augmentation RC de 0 à 100% palier de tV ms (1s à 2s)
		next
		tV=time
		random tV
		tV=tV//1000 + 1000	;variable de 1000 à 2000
		for varV = 255 to 0	step-1
			pause tV
			pwmduty B.4,varV	;augmentation RC à 100% palier de tV ms (1s à 2s)
		next
	loop
start2:
	do
		tR=time + 35000
		random tR
		tR=tR//1000 + 1000	;variable de 1000 à 2000
		for varR = 0 to 255
			pause tR
			pwmduty C.0,varR	;augmentation RC à 100% palier de tV ms (1s à 2s)
		next
		tR=time
		random tR
		tR=tR//1000 + 1000	;variable de 1000 à 2000
		for varR = 255 to 0	step-1
			pause tR
			pwmduty C.0,varR	;augmentation RC à 100% palier de tV ms (1s à 2s)
		next
	loop

MM

[Qristoff]

Bonjour,

Après quelques tests voila les différentes teintes que j'ai pu obtenir :


Plutôt pas mal je trouve

Très chouette, bravo !

[manu225]

Bonjour,

Je reviens ici car j'ai terminé ce projet (ça a été un peu long de trouver un conteneur pour le circuit).
Voila le résultat final :
socle9.jpg
socle10.jpg

Merci à tous pour votre aide