Inrarouge sur PICAXE AXE091

Zegzel57 · Nov 29, 2013

Bonjour les Picaxiens,
Je voudrais avec 3 BP envoyé un signal par une led infrarouge IRL à un phototransistor IRR qui éclairerait 3 leds (Verte - Rouge - Jaune).
J'ai fait le petit programme en basic ci-dessous.
Il ne fonctionne pas avec la led IRL, mais très bien avec la télécommande.
Comment transformer ce programme pour que la transmission IR se fasse par la led ?
Merci de vos réponses.

symbol sw1= pin1
symbol sw2= pin2
symbol sw3= pin3
symbol ledverte = 1
symbol ledjaune = 2
symbol ledrouge = 3
symbol appuye = 1
symbol donneeInfra = b0

main:
' Emetteur
if sw1 = appuye then appuiSw1
if sw2 = appuye then appuiSw2
if sw3 = appuye then appuiSw3
goto main:
appuiSw1:
donneeInfra = 0
goto emissionInfra
appuiSw2:
donneeInfra = 1
goto emissionInfra
appuiSw3:
donneeInfra = 2
goto emissionInfra
emissionInfra:
infraout 1, donneeInfra
pause 45

' Recepteur
infrain2 'Le problème à resoudre est ici
branch infra, (vert, jaune, rouge)
pins = 0
goto main
vert:
pins=1
goto main
jaune:
pins =2
goto main
rouge:
pins = 3
goto main

PieM · Nov 29, 2013

Merci d'utiliser les balises de code quand vous donnez un programme:

Code:

symbol sw1= pin1
symbol sw2= pin2
symbol sw3= pin3
symbol ledverte = 1
symbol ledjaune = 2
symbol ledrouge = 3
symbol appuye = 1
symbol donneeInfra = b0

main:
' Emetteur
if sw1 = appuye then appuiSw1
if sw2 = appuye then appuiSw2
if sw3 = appuye then appuiSw3
goto main:
appuiSw1:
donneeInfra = 0
goto emissionInfra
appuiSw2:
donneeInfra = 1
goto emissionInfra
appuiSw3:
donneeInfra = 2
goto emissionInfra
emissionInfra:
infraout 1, donneeInfra
pause 45

' Recepteur
infrain2 'Le problème à resoudre est ici
branch infra, (vert, jaune, rouge)
pins = 0
goto main
vert:
pins=1
goto main
jaune:
pins =2
goto main
rouge:
pins = 3
goto main

Vous dites que le récepteur fonctionne avec une télécommande, mais pas avec votre émetteur.
Dans le programme vous dites que le problème vient du récepteur ! Je ne comprends pas la logique de la chose...
D'autre part, quel Picaxe utilisez vous ? Les commandes infraout et infrain2 sont obsolètes.

Première chose, vous êtes vous assuré que la led d'émission envoie bien quelque chose ? vous pouvez voir l'infra rouge avec un APN ou votre appareil photo sur téléphone.
ça vous permettrait de voir déjà que votre programme se bloque après la pause 45 !... (visible aussi par une simple simulation)

GM39 · Nov 29, 2013

Tel que c'est présenté j'ai l'impression qu'il n'y a qu'un seul picaxe... J'espère qu'il y en a bien deux

PieM · Nov 30, 2013

GM39 said:
Tel que c'est présenté j'ai l'impression qu'il n'y a qu'un seul picaxe... J'espère qu'il y en a bien deux

Oui effectivement, bonne remarque ! suis inquiet ...

Zegzel57 · Nov 30, 2013

Bonjour,
Merci de vos réponses.
Effectivement j'utilise la carte Axe091 avec un picaxe 18M2.
Effectivement j'utilise un seul picaxe.
Effectivement je n'ai pas utilisé les balises code.
Je rectifie.
Une image de la carte, et le code balisé.

; *******************************
; ***** Transmission infra rouge *****
; *******************************
; Nom du fichier : InfraRouge emission-reception
; Date : 25/11/2013
; N° Version : 1.0
; Ecrit par : Zegzel57
; Fonction:
; Dernière révision:
; Type de PICAXE: 18M2 sur AXE091
; *******************************

symbol sw1= pin1
symbol sw2= pin2
symbol sw3= pin3
symbol ledverte = 1
symbol ledjaune = 2
symbol ledrouge = 3

symbol appuye = 1
symbol donneeInfra = b0

main:
' Emetteur
if sw1 = appuye then appuiSw1
if sw2 = appuye then appuiSw2
if sw3 = appuye then appuiSw3
goto main:

appuiSw1:
donneeInfra = 0
goto emissionInfra

appuiSw2:
donneeInfra = 1
goto emissionInfra

appuiSw3:
donneeInfra = 2
goto emissionInfra

emissionInfra:
infraout 1, donneeInfra 'Effectivement le problème vient d'ici
pause 45

' Recepteur 'il reçoit les code télécommande
infrain2
branch infra, (vert, jaune, rouge)
pins = 0
goto main

vert:
pins=1
goto main

jaune:
pins =2
goto main

rouge:
pins = 3
goto main

Merci de votre aide.
Z57

Zegzel57 · Nov 30, 2013

Erreur !!
Je n'ai pas utilisé les bonnes balises.
Comment faire ?
Vous préférez en fichier joint peut-être.

Merci

Zegzel57 · Nov 30, 2013

Bonjour,
Je ne matrise pas encore tous les paramètres de cette discussion.
Je vous transmet l'image de la carte AXE091 et le code.
Effectivement j'utilise un seul Picaxe 18M2.
Effectivement le problème ne vient pas du recepteur IRR mais de l'émetteur IRL (voir image)

Le code

Code:

; *******************************
; ***** Transmission infra rouge  *****
; *******************************
;    Nom du fichier :  	InfraRouge emission-reception	
;    Date : 25/11/2013			
;    N° Version : 1.0	
;    Ecrit par : Zegzel57	
;    Fonction:	Allumer des led avec des BP (transmission par IR)	
;    Dernière révision:
;    Type de  PICAXE:	18M2 sur AXE091
; ******************************* 

symbol sw1= pin1
symbol sw2= pin2
symbol sw3= pin3
symbol ledverte = 1
symbol ledjaune = 2
symbol ledrouge = 3

symbol appuye = 1
symbol donneeInfra = b0

main:
	' Emetteur
	if sw1 = appuye then appuiSw1
	if sw2 = appuye then appuiSw2
	if sw3 = appuye then appuiSw3
	goto main:

appuiSw1:
	donneeInfra = 0
	goto emissionInfra

appuiSw2:
	donneeInfra = 1
	goto emissionInfra

appuiSw3:
	donneeInfra = 2
	goto emissionInfra
	
emissionInfra:			'le problème vient d'ici
	infraout 1, donneeInfra
	pause 45
	
	' Recepteur 
	infrain2
	branch infra, (vert, jaune, rouge)
	pins = 0
	goto main
	
vert:
	pins=1
	goto main
	
jaune:
	pins =2
	goto main
	
rouge:
	pins = 3
	goto main

Je crois avoir réussi mon message.
Merci encore à vous
Z57.

jojojo · Nov 30, 2013

Ben, somme toute, moi, j'aime bien le code entre balises de citation.
Je trouve ça bien lisible.
D'accord, ça ralonge la page, mais ...

GM39 · Nov 30, 2013

Le récepteur doit être à l'écoute de l'émetteur avanr même le début de l'émission. C'est donc impossible avec un seul picaxe puisque les commandes d'émission et de réception ne fonctionnent pas en tâche de fond.

Il faut un picaxe pour l'émetteur et un picaxe pour le récepteur.

Le deuxième peut être également un 18M2 à condition de le mettre sur la plaque d'essai après programmation, ou un 20 sur un autre des 3 supports

Zegzel57 · Nov 30, 2013

Bonjour,
Effectivement j'ai oublié de mentionner - le Picaxe (18M2)
Effectivement je n'utilise qu'un picaxe - Problème ?
Effectivement je n'ai pas utilisé les balises code - Ne savait pas !
Effectivement le problème ne vient pas du recepteur IRR - mais de l'émetteur IRL
Rectifions
Photo de la carte et du programme en code.

Code:

; *******************************
; ***** Transmission infra rouge  *****
; *******************************
;    Nom du fichier :  	InfraRouge emission-reception	
;    Date : 25/11/2013			
;    N° Version : 1.0	
;    Ecrit par : Zegzel57
;    Fonction:		
;    Dernière révision:
;    Type de  PICAXE:	18M2 sur AXE091
; ******************************* 

symbol sw1= pin1
symbol sw2= pin2
symbol sw3= pin3
symbol ledverte = 1
symbol ledjaune = 2
symbol ledrouge = 3

symbol appuye = 1
symbol donneeInfra = b0

main:
	' Emetteur
	if sw1 = appuye then appuiSw1
	if sw2 = appuye then appuiSw2
	if sw3 = appuye then appuiSw3
	goto main:

appuiSw1:
	donneeInfra = 0
	goto emissionInfra

appuiSw2:
	donneeInfra = 1
	goto emissionInfra

appuiSw3:
	donneeInfra = 2
	goto emissionInfra
	
emissionInfra:
	infraout 1, donneeInfra
	pause 45
	
	' Recepteur 
	'Problème à resoudre
	infrain2
	branch infra, (vert, jaune, rouge)
	pins = 0
	goto main
	
vert:
	pins=1
	goto main
	
jaune:
	pins =2
	goto main
	
rouge:
	pins = 3
	goto main

GM39 · Nov 30, 2013

Zegzel57 said:
Effectivement je n'utilise qu'un picaxe - Problème ?

Lire plus haut

Inrarouge sur PICAXE AXE091

Zegzel57

New Member

PieM

Senior Member

GM39

Senior Member

PieM

Senior Member

Zegzel57

New Member

Zegzel57

New Member

Attachments

Zegzel57

New Member

jojojo

Senior Member

GM39

Senior Member

Zegzel57

New Member

GM39

Senior Member