Compte a rebours (chenillard) !

[mag1]

J'oubliais:


http://www.conrad.fr/ce/fr/product/1...f=searchDetail

Et il a même une table de caractères chinois, comme l'autre...

MM
-----

[dje8269]

Merci pour les liens, exactement ce qu'il me faut . y'a-t-il des caractéristiques particulières a regarder ? il faut que j'achète un autre 20M2 alors j'en ai commander qu'un seul .

[mag1]

Bonjour,

Hélas oui, il en faut un pour se fabriquer soi-même un LCD série.
Comme quoi, un petit cahier des charges précis permet de grouper les achats.

Il existe aussi tout fait:
http://www.gotronic.fr/art-afficheur...e133-17935.htm

Mais je propose ceci:
http://electromag1.wifeo.com/fabriqu...un-picaxe-.php

Pour le dessin, l'ergonomie n'est pas bonne...

MM

[freepicbasic]

Attention !
il n 'y a qu'une ligne sur l'afficheur Ebay ...

[mag1]

Non, non, LCD 1602 = 2 lignes de 16 caractères

MM

[freepicbasic]

ok j ai confondu le 1 x LCD display , il y a 1 seul display

Vous avez vu les autres produits ?
5 à 10 fois moins cher qu'ici...

On est pas près de refaire de l'électronique dans ces conditions avec une concurrence aussi déloyale...

J'ai commandé des servos sur un site en Hollande à 1.5€ .
Le colis est arrivé direct de Honk kong...

[mag1]

ok j ai confondu le 1 x LCD display , il y a 1 seul display

Vous avez vu les autres produits ?
5 à 10 fois moins cher qu'ici...

On est pas près de refaire de l'électronique dans ces conditions avec une concurrence aussi déloyale...

J'ai commandé des servos sur un site en Hollande à 1.5€ .
Le colis est arrivé direct de Honk kong...

Eh oui, je sais, j'ai acheté une horloge temps réel DS1307 avec sa batterie de sauvegarde moins de 1,86 euro, port gratuit.
Ça fait peur, mais c'est un autre débat...

MM

[chimere322]

Hello,

Je dispose de plusieurs servos avec une course de 0-180° qui fonctionne à merveille avec le système picaxe.Je souhaiterais étendre les possibilités avec des servos genre 2x45,2x60 etc. Pour les servos a rotation continus aucun soucis. Quel est ce site en hollande?

[mag1]

Mise à jour répondant demandes de dje8269.

[dje8269]

Je pense que je devrais ouvrir un autre post pour ce projet non ? car la je termine par les photos et une vidéo sur celui la .

J'ai plein de question mag1 en plus je viens de recevoir le 20M2 . j'en commande un autre pour le LCD . plus 1 20M2 en RABE, plus un 28M2 au cas ou un 28X2 je sais pas lequel va mieux ?

[electrique10]

pour les écran LCD
http://www.aliexpress.com/item/Whole...541927024.html
ou la
http://www.aliexpress.com/item/free-...175161139.html
en pack de 5 il faut cherché un peu sur le site pour un achat a l'unité autrement il fonctionnent bien j'en n'ai fait tous un stock

[dje8269]

Voila la fin !!! Nous avons réussis, Un grand merci à tous ( je ne peux pas tous vous citer tellement vous avez été nombreux), et un grand bravo .

Les ampoules 4 à 9 son de 5 Watts seulement c'est pourquoi elles s'allument moins que les autres . J'ai réglé la tempo du klaxon quasiment au minimum, car il hurle très fort , même si ça rend pas trop bien sur la vidéo .

valise2.jpg
valise.jpg
valise3.jpg
inter.jpg
inter2.jpg

[dje8269]

Voila désolé pour la pub au milieu j'ai télécharger une version de AVS vite fait et donc ils mettent de la pub .

Encore une fois

MERCI

[mag1]

Je pense que je devrais ouvrir un autre post pour ce projet non ? car la je termine par les photos et une vidéo sur celui la .

J'ai plein de question mag1 en plus je viens de recevoir le 20M2 . j'en commande un autre pour le LCD . plus 1 20M2 en RABE, plus un 28M2 au cas ou un 28X2 je sais pas lequel va mieux ?

Un 28M2 ? si tu veux un 28 pattes, c'est plutôt un 28X2, il remplace le 28X1. (je n'ai jamais utilisé de 28X2, trop gros pour moi). Commence doucement....

Bonne idée, le changement de post.

MM

[dje8269]

Bonjour a tous ,

Ce matin retour de la rampe de lumiére , pour panne .

En effet, suite à changement de batterie, plus aucun fonctionnement . Aprés avoir verifier le cablage , j'ai sauté sur ma diode qui est censée protéger mon circuit . Ben ca as marché , car la diode avait claquée . Je pense donc qu'ils ont dus inverser les polarités lors du branchement de la batterie . J'ai donc remplacé la diode en question par une diode plus "baraquée" . j'avais mis une 1N4148 qui as un courant max de 450mA et un If de 200mA . Je la trouvais un peu juste . J'ai donc mis une diode avec un If de 1A .

[dje8269]

Bonsoir à tous ,

Voila comme promis après quelques semaines de taf , Un chenillard fais avec des micro contrôleurs PICAXES .

Ça change la vie ces petites bêtes ......



Vos remarquerez les multitudes d'options disponibles !!!

[dje8269]

Schéma chenillard 28X2.jpg

schéma emetteur chenillard.jpg

[chimere322]

Bonjour dje8269,

Après avoir douté de toi je constate que c'est un très beau travail. Félicitation. Ce qui serait sympa ,c'est que tu fournisse le code pour l’émetteur et pour le reste. Non pas pour te copier ton projet,mais par curiosité pour le fonctionnement. Encore bravo pour un débutant.

[dje8269]

Bonjour ,

Même moi j'ai douté de moi !!!!! lol .



Voici les codes :Emetteur, recepteur , et chenillard .
Si vous avez des questions me MP.

#PICAXE 08M2				'definition du type de PICAXE

dirC.1=1					'Déclare C.1 comme une sortie				
pinC.1=0					'initialise la sortie a zéro
	
'#############################  ##############################  ###########################
'				Programme principal
'#############################  ##############################  ###########################				
do
	Readadc C.4,b1					'Lis la valeur sur C.4 et la stock dans b1
	
	Select b1
	
	Case > 140
		b3="L"					
		gosub Emission
	
	Case > 40
		b3="R"
		gosub Emission
				
	End Select
	
Inc b6							'Permet de faire clignoter le Led de fonctionnement
	If b6> 250 then
		high C.2
		pause 100
		low C.2
		b6=0
	end if

loop

'#############################  ################
'		Sous-Programme Emission

Emission:
	for b2= 0 to 5					'action si BP1 appuyé
		Serout C.1,0,($55,$55,$55,$55)    	'trame anglaise
		Pause 16                                         '
		Serout C.1,0,("X","Y",b3)           'X et Y sont les identifiants b3 le corps du message         '	
	next b2						'Boucle pour envoyer 6 trames
return

Recepteur :

#PICAXE 08M2

dirC.2=0					'Déclare C.2 comme entrée (trigger)

do
	Serin C.2,0,("X","Y"),b1	'Rentre la valeur dans b1 si les qualifiers recus sont "X" et "Y"

		if b1 = 76 then		'Si b1 = "L"
			high c.1		'Met à l'état haut C.0 correspondant à la fonction Launch . brocheC.0 du 28X2
			pause 500		'Met à l'état haut pendant 500ms 
			low c.1
		end if
	 
		if b1= 82 then		'Si b0 = "R"
		      high c.4		'Met à l'état haut C.1 correspondant à la fonction Reset . brocheC.1 du 28X2
			pause 500
			low c.4
		end if
		
loop      					'Reboucle

[dje8269]

Chenillard:

Chenillard :

	
	
#PICAXE 28X2

' Explication .
' 		Un appui long est detecté quand b4 tempoBP est strictement superieur a 3 
'		si appui long sur BPmode cela rentre dans la boucle de reglage, jouez avec A0(moins) et A2(plus) pour augmenter ou diminuer les valeurs
'		apres appuyez sur sur A1(BPmode)  pour rentrer dans le reglage suivant  ETC.....
' 		Mettre C.4 en sortie LCD dans options/simultaion/simuler un LCD



symbol BPplus = PinA.0
symbol BPmode = PinA.1
symbol BPmoins= PinA.2
symbol Launch = PinC.0
symbol RST = PinC.1
symbol PinLCD = C.4
symbol Appui_long = bit0
symbol save = bit1
symbol Bip = bit2
symbol demande_arret = bit3
symbol T_klax = b1
symbol T_Amp = b2
symbol tempoBP = b4
symbol compteur = b5
symbol clignot = b6
symbol mode = b10
symbol varT_klax = w11
symbol varT_Amp = w10
symbol varT_Amp2 = w9
symbol baud = N2400
symbol tempo = 3							'durée de l'appui long
symbol vrai = 1
symbol faux = 0
symbol Mini_Bip = 20							
save = 1								'met le oui pour enregistrement, par defaut
Bip = 1								'met le oui pour Bip, par defaut
RST = 0								'Initialise le reset à 0
setint off								'désarme l'interruption

read 8,demande_arret 						'lecture de la memoire EEPROM temporaire
	
	if demande_arret = faux then
		read 0,demande_arret,mode,T_Amp,T_klax 	'Si flag=0 alors lecture de l'EEPROM sauvegarde
	else
		read 8,demande_arret,mode,T_Amp,T_klax	'si flag=1 alors lecture de l'EEPROM temporaire
	end if
	
demande_arret = faux						'ecriture du flag a 0 pour re-initialiser le reset
write 8,demande_arret	

		
'#########################################################################################################################################
								'programme principal (surveillance d'appui launch ou BPmode)
'#########################################################################################################################################
debut:
pause 800
gosub LCD							'Mise a jour de l'ecran LCD
do
	if launch = 1 then				'si reception d'un signal haut par le recepteur lancement des lumieres
		gosub lancement
		low 7,6,5,4,3,2,1,0,C.7,C.6,C.5 	'Apres une chenille eteint tout
		demande_arret = faux			
	end if

	if BPmode = 1 then				'Si BPmode est appuyé, va tester l'appui
		gosub Test_appuilong
		if appui_long = vrai then 		'verification s'il est long ou court , si long va reglage si court allume retroeclairage ( en option)
			gosub reglage
			gosub sauvegarde
			gosub LCD
		'else						effectue un retroceclairage, mais je connais pas la commande encore
		end if
	end if
loop
	
'#########################################################################################################################################
								'Sous-programme Test_appuilong
'#########################################################################################################################################
Test_appuilong:

tempoBP=0					'remise à zero du compteur de tempoBP à chaque nouvel appui

	do while BPmode =1		'Distinction appui court ou appui long
		inc tempoBP
		pause 100			'mettre tempo a 100 pour 1s d'appui
		
		if tempoBP > tempo then
			appui_long = vrai
			exit
			else
			appui_long = faux
		end if
	loop
 
		
return
'#########################################################################################################################################
								'Sous-programme LCD
'#########################################################################################################################################
LCD:
serout PinLCD,baud,(254,1)
serout PinLCD,baud,(254,128,"mode:")
if mode = 0 then
	serout PinLCD,baud,(254,134,"chenille")				'Choisis le mode à afficher
	end if 							
if mode = 1 then
	serout PinLCD,baud,(254,134,"ON 1 a 1")
	end if
if mode = 2 then
	serout PinLCD,baud,(254,134,"Off 1 a 1")
	end if
bintoascii T_klax,b27,b26,b25							'Mise dans w11 de la valeur klaxon pour afficher les virgules
serout PinLCD,baud,(254,192,"Lum:",#T_Amp,"s ","Bip:",b26,",",b25,"s")

return
		
'#########################################################################################################################################
								'Sous-programme Reglage
'#########################################################################################################################################

reglage:
'##########################################################
do
'reglage du mode
serout PinLCD,baud,(254,1)							'Affichage du mode en cours de reglage
Pause 30
serout PinLCD,baud,(254,132,"? mode ?")
do loop while BPmode = 1
	do while BPmode = 0
		if mode = 0 then
			serout PinLCD,baud,(254,196,"chenille")		'affichage du mode avec clignotement
		end if 								'l'affichage du mode se fait par condition car 3 possibilités
		if mode = 1 then
			serout PinLCD,baud,(254,196,"ON 1 a 1")		'A regler suivant la vitesse de reaction du LCD avec une pause
		end if
		if mode = 2 then
			serout PinLCD,baud,(254,195,"Off 1 a 1")
		end if
		
		Inc clignot								'Incremente la valeur clignot pour compter
			if clignot = 12 then 					'Si le compteur arrive a 12 alors il va effacer la deuxieme ligne
				gosub clignotement
			end if
		
		if BPplus=1 then							'Si BP+ appuyé cela incremente de 1 le mode		
			mode = mode+1
			if mode=3 then						'boucle entre les modes 0->1->2->0->1->2->0
				mode=0
			end if
			pause 200
		end if

		if BPmoins=1 then							'Si BP- appuyé cela decremente de 1 le mode
			mode=mode-1			
			if mode=255 then						'boucle entre les modes 2->1->0->2->1->0->2
				mode=2
			end if
			pause 200
		end if
	loop
	
 gosub Test_appuilong								'verifie si appui long pour sortir du reglage ou court pour changer de reglage
 
 if appui_long = vrai then exit						'Si appui long est long sort de la boucle du reglage

'##########################################################
'reglage tempo des ampoules
serout PinLCD,baud,(254,1)							'Efface l'ecran
serout PinLCD,baud,(254,129,"? tempo lum. ?")				'Affichage du reglage en cours

	do while BPmode = 0							'Boucle tant que BPmode n'est pas appuyé
		serout PinLCD,baud,(254,198,#T_Amp," s")			'Affichage du temps de reglage en cours pour clignotement
			
		Inc clignot
			if clignot = 12 then 
				gosub clignotement
			end if			
			
			if BPplus = 1 then
				T_Amp= T_Amp+1 max 30				'Si BPplus appuyé Augmente de 1 secondes jusqu'a 30 secondes maximum
				pause 200
			end if
		
			if BPmoins = 1 then					
				T_Amp=T_Amp-1 min 5				'si appui sur le BP- diminue la tempo de 1 seconde minimum 5
				pause 200
			end if			
		loop
	
gosub Test_appuilong								'verifie si appui long pour sortir du mode reglage, ou si court pour changer de reglage

if appui_long = vrai then exit						'Si appui long est long retourne au main sinon continue au prochain  reglage


'##########################################################
'reglage tempo du klaxon
serout PinLCD,baud,(254,1)			
serout PinLCD,baud,(254,129,"? tempo BIP ?")	
	
	do while BPmode = 0							'tant que BPmode n'est pas appuyé, il attend une valeur en rebouclant
		bintoascii T_klax,b27,b26,b25					'bintoascii utilisé pour affiché des chiffres avec virgules
		serout PinLCD,baud,(254,197,b26,",",b25," s")		'Affichage du temps de reglage en cours pour clignotement
			
		Inc clignot
			if clignot = 12 then 
				gosub clignotement
			end if
			
			if BPplus = 1 then					
				T_klax=T_klax+5 max 50				'si appui sur le BP+ augmente la tempo de 1/2 seconde max 5 secondes
				pause 200
			end if
			
			if BPmoins = 1 then					'si appui sur le BP- diminue la tempo de 1/2 seconde minimum 0.5 secondes
				T_klax=T_klax-5 min 5				
				pause 200
			end if
		loop
	
gosub Test_appuilong								'verifie si appui long pour sortir du reglage ou court pour changer de reglage

if appui_long = vrai then exit						'Si appui long est long retourne au main sinon continue au prochain  reglage
	
'##########################################################
'reglage des Bip
serout PinLCD,baud,(254,1)							'Efface l'ecran
serout PinLCD,baud,(254,131,"?  Bip  ?")					'Affichage du reglage en cours

	do while BPmode = 0
	
	Inc clignot
		if clignot = 12 then 
			gosub clignotement
		end if
											'Boucle tant que BPmode n'est pas appuyé
		if Bip = vrai then
			serout PinLCD,baud,(254,198,"Oui")
		else
			serout PinLCD,baud,(254,198,"Non")
		end if								'Affichage du en cours pour clignotement
		if BPplus = 1 or BPmoins = 1 then				'change la valeur de save si appui sur + ou -
			Bip = Bip+1							'en travaillant avec des bit 1+1=0, 0+1=1 , 1-1=0 et 0-1=1 
			pause 200							'Petite pause pour eviter les doubles pression								
		end if
	loop
	
gosub Test_appuilong								'verifie si appui long pour sortir du mode reglage, ou si court pour changer de reglage

if appui_long = vrai then exit						'Si appui long est long retourne au main sinon continue au prochain  reglage
	
loop
return										' retour au debut des reglages, si pas d'appui long.

'#########################################################################################################################################
								'Sous-programme clignotement
'#########################################################################################################################################
clignotement:
serout PinLCD,baud,(254,192,"               ")				'effacement de la deuxiéme ligne pour clignotement
	Pause 100
	b6 = 0
return


'#########################################################################################################################################
								'Sous-programme Pause
'#########################################################################################################################################

interrupt:									'Si le BPmode est appuyé pendant une chenille fais une pause

demande_arret = faux							'met la demande de reset a zero
			
do while Launch =1			
loop

do while Launch = 0
	if RST =1 then							'Si le Bp reset est appuyé pendant une pause
		demande_arret = vrai					'Met le flag demande d'arret a 1
		write 8,demande_arret,mode,T_Amp,T_klax,Bip	'enregistre en EEPROM temporaire le flag etles valeurs des reglages
		Low 7,6,5,4,3,2,1,0,C.7,C.6,C.5
		reset								'Effectue un reset du µC
	end if				'
loop

do while Launch =1		
loop

setint 1,1,C								'Ré-Armement de l'interruption
return
			
'#########################################################################################################################################
								'Sous-programme Tempo Mini_Bip
'#########################################################################################################################################
Tempo_mini_bip:

if Bip = vrai then			'Si l'option sound est sur ON alors prise en compte du temps modifié
	high C.5
	pause Mini_Bip
	low c.5		
	pause varT_Amp2			
else						'Si l'option sound est sur OFF alors pas de prise BIP sans prise en compte du temps modifié		
	pause varT_Amp
end if

return

'#########################################################################################################################################
								'Sous-programme sauvegarde
'#########################################################################################################################################		

sauvegarde:
'Si appui long demande d'enregistremeent des valeurs
serout PinLCD,baud,(254,1)
serout PinLCD,baud,(254,129,"? sauvegarde ?")				'affichage de la partie sauvegarde
do loop while BPmode= 1				
	do while BPmode=0	
	
	Inc clignot
		if clignot = 12 then 
			gosub clignotement
		end if
											'reboucle en attente de valeur
		if save = vrai then
			serout PinLCD,baud,(254,198,"OUI")			'affichage de OUI si save = 1
		else
			serout PinLCD,baud,(254,198,"NON")			'affichage de NON si save = 0
		end if
			
		if BPplus = 1 or BPmoins = 1 then				'change la valeur de save si appui sur + ou -
			save = save+1						'en travaillant avec des bit 1+1=0, 0+1=1 , 1-1=0 et 0-1=1 
		pause 200
		end if
		
	loop
	
do loop while BPMODE = 1
	
If save = vrai then
	write 0,demande_arret,mode,T_Amp,T_klax,Bip 			'ecriture en EEPROM des valeurs pour memorisation si save = 1
	serout PinLCD,baud,(254,1)
	serout PinLCD,baud,(254,131,"sauvegarde")
	serout PinLCD,baud,(254,196,"en cours")
	pause 1000
end if
		
return
	

'#########################################################################################################################################
								'Sous-programme Launch (lancement lumiere+klaxon)
'#########################################################################################################################################

lancement:
do loop while Launch =1				'Attend que le BP soit relaché pour ne pas considéré une interruption si appui trop long

varT_Amp = T_Amp*100				' entre chaque allumage marque une pause determiné par le temps definie
varT_Amp2= varT_Amp-Mini_Bip			' calcul du temps global moins le temps du BIP pour le temps d'allumage
varT_klax = T_klax*100

setint 1,1,C					'Armement de l'interruption						

if mode = 0 then gosub chenille   		'selection du lancement suivant le mode en memoire
if mode = 1 then gosub allume
if mode = 2 then gosub extinction

Setint off						'Desarmement de l'interuption

return

'#################
chenille:

for b5= 7 to 0 step -1				'allume les ampoules facon chenillard de 1 a 9
	high b5
	gosub Tempo_mini_bip
	low b5
next
	low 0
	high C.7
	gosub Tempo_mini_bip	 
	low C.7
	high C.6,C.5
	pause varT_klax
return

'################
allume:

for b5=7 to 0 step -1
	high b5
	gosub Tempo_mini_bip
next
	high C.7
	gosub Tempo_mini_bip
	high C.6,C.5
	pause varT_klax	
return

'################
extinction:

high 7,6,5,4,3,2,1,0,C.7,C.6			'Allumage de toutes les ampoules
for b5=7 to 0 step -1
	low b5
	gosub Tempo_mini_bip
next
	Low C.7
	gosub Tempo_mini_bip
	low C.6					'extinction de la derniere ampoule + allumage du klaxon
	high C.5
	pause varT_klax
return