Codage pour serrure codée

[mag1]

Une fois le pilote installé, W10 le place dans un répertoire spécial. A chaque branchement du périphérique, il recharge le pilote. Note ce qui a été dit sur un éventuel remplacement pour RESTAURER ce pilote.
J'ai un typon sur carte à pastilles (env 50x50 mm) sous le coude, fais le tien si tu veux.
Nouveau schéma:


Nouveau code, en deux fois:

;serrure4digeco MM 17/01/21
;clavier matriciel 12 ou 16 touches 
;picaxe 20M2 => le n° de colonne clavier= n° de brohe µC
;Entrées:
     ;ILS ou poussoir sur C.6
     ;potar tempo sur C.4
     ;clavier sur B.0,B.1,B.2,B.3 pour un 16 touches
;Sorties:
     ;buzzer sur C.0     
     ;relais sur C.1            
#picaxe 20M2
symbol pousC=pinC.6    'cotact ILS NouveauCode
symbol pousT=pinC.5
symbol relais=pinC.1
symbol ledB=pinC.4
symbol buz=pinC.0
symbol potar =C.7
symbol rsbit=bit0
symbol car=b1
symbol lig=b2
symbol col=b3
symbol dat=b4
symbol cpt=b5        
symbol rang=b6        'compteur rang décodage
symbol ch0=b7
symbol ch1=b8
symbol ch2=b9
symbol ch3=b10
symbol th0=b11
symbol th1=b12
symbol th2=b13
symbol th3=b14
symbol tempo=w13     'compteur attente
	setfreq M16			;horloge à 16MHz (pause 1000=1s)	
	dirsB=%1110000    	;
	dirsC=%10011                
	pullup %111000000011111        ;pullup sur B0,à B3 ,C.6,C.5,C.4
	hi2csetup i2cmaster,%01001110, i2cslow_32, i2cbyte        
; Initialisation LCD 4 bits*********
	for cpt=0 to 5
	  lookup cpt,($33,$32,$28,$c,$6,$01),car
	  gosub EnvoiByteCommInit
	next
	pause 100    ;temps init du LCD 
;*******************************************  
	car=1 : gosub EnvoiByteComm 	;effacement LCD   
	buz=1:pause 200:buz=0     'signal passage init    
	read 0,ch0,ch1,ch2,ch3,tempo    'lecture du code en mémoire EEPROM    
	ledB=0  	
	rang=0  			'init rang
	time=0			;init compteur attente	
;********************************************************
	car=128 : gosub EnvoiByteComm 'curseur en 130 ligne 1
	for cpt=0 to 19
		lookup cpt,(" ENTREZ VOTRE CODE  "),car
		GOSUB EnvoiByteData	
	next		
	car=200 : gosub EnvoiByteComm 'curseur ligne2	
	do        ;boucle principale
		if pousC=0 then nouvcode    'Si appui sur le pousoir, on entre un nouveau code
		if pousT=0 then regtempo		
		if time >9 and rang <>0 then
			buz=1:pause 200:buz=0     'touche pressée			
		   	reset	
		endif 				         
		for col=0 to 3   ;n° de broche (B.0 à B.3)=> 4 colonnes			
			readadc col,lig    ;col est le n° de colonne, lig donne la valeur ligne              
		   if lig <= 225 then
				gosub clav    ;on a appuyé! recherche valeur ligne
				if rang=0 then						
   					th0=car
				elseif rang=1 then					
					th1=car
				elseif rang=2 then					 
					th2=car
				elseif rang=3 then					 
					th3=car
				endif
				gosub EnvoiByteData               
				inc rang      ;on avance dans la séquence				      
				if rang>=4 then	;fin de séquence
					if th0=ch0 and th1=ch1 and th2=ch2 and th3=ch3 then  sortie
					rang=0	
					buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0 
					car=150:gosub EnvoiByteComm	;position curseur
					for cpt=0 to 15
						lookup cpt,("C'est pas le bon"),car
						GOSUB EnvoiByteData
					next
					buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0 'signal passage   
					pause 8000
					reset  	             
		      	endif
		   	endif        
		next        
 	loop
;***************************************************************
clav: 	
	select case lig    ;sélection ft valeur ligne		
		case 175 to 225  	; pour 4 Volt
		   lookup col,("123A"),car        ;ligne 4
		case 125 to 174   ; pour 3 Volts
		   lookup col,("456B"),car        ;ligne 3            
		case 75 to 124  	; pour 2 Volts
		   lookup col,("789C"),car        ;ligne 2
		case 25 to 74  	; pour 1 Volts
		   lookup col,("*0#D"),car   		 ;ligne 1        
	endselect  	
	do            
		readadc col,lig        ;attente relâchement touche            
	loop while lig <= 225
	buz=1:pause 200:buz=0     'touche pressée 
	time=0
	return
;******************************************************
sortie:        ;activation gache
	relais=1
	ledB=1 	
	buz=1:pause 1000:buz=0:pause 100:buz=1:pause 1000:buz=0
	for cpt= tempo to 0 step -1
		car=157: gosub EnvoiByteComm
		lookup cpt, ("0123456789"),car
		GOSUB EnvoiByteData
		pause 4000		;=1s pour M16 
	next	
	ledB=0
	car=1: gosub EnvoiByteComm		;effacement LCD
	car=131: gosub EnvoiByteComm
	for cpt=0 to 12		
		lookup cpt, ("Arret complet"),car
		GOSUB EnvoiByteData
	next
	car=196: gosub EnvoiByteComm
	for cpt=0 to 10		
		lookup cpt, ("appuyez sur"),car
		GOSUB EnvoiByteData
	next
	car=157: gosub EnvoiByteComm
	car="#"
		GOSUB EnvoiByteData
	car=217: gosub EnvoiByteComm
	for cpt=0 to 9		
		lookup cpt, ("du clavier"),car
		GOSUB EnvoiByteData
	next		
	do 
		readadc B.2,lig
	loop while lig > 75	;appui sur #
	relais=0	
	reset

-----

[mag1]

Seconde partie:

;***************************************************************
nouvcode:        'Sous programme mémo d'un nouveau code    
	do loop while pousC=0  ;ttente relachement poussoir
	buz=1:pause 500:buz=0:pause 100:buz=1:pause 50:buz=0
	car=1 : gosub EnvoiByteComm 	;effacement LCD  
	car= 128	:gosub EnvoiByteComm'curseur col 131		
	for cpt=0 to 19
		lookup cpt,("    NOUVEAU CODE     "),car
		GOSUB EnvoiByteData	
	next	
	rang=0
	time=0	
	ch0=0:ch1=0:ch2=0:ch3=0
	car=200:	gosub EnvoiByteComm ;ligne 2
	do
		for col=0 to 3    ;n° de broche (B.1 à B.4)=> 4 colonnes
			readadc col,lig    ;col est le n° de colonne, lig donne la valeur ligne			
			if time>9 then
				buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0    ;buzz abandon procédure
				reset
			endif                   
			if lig <= 225 then
				gosub clav    ;on a appuyé! valeur=>ligne
				if rang=0 then					
					ch0=car
					gosub EnvoiByteData
				elseif rang=1 then
					ch1=car
					gosub EnvoiByteData			
				elseif rang=2 then
				  	ch2=car
					gosub EnvoiByteData	
				elseif rang=3 then
				  	ch3=car
					gosub EnvoiByteData	
				endif    
				inc rang                               
				if rang>= 4 then
					write 0,ch0,ch1,ch2,ch3
					buz=1:pause 1000:buz=0:pause 100:buz=1:pause 100:buz=0    ; buzz mémorisation nouvelle clé
					reset
				endif    
			endif
		 next
loop
;**********************************************************
regtempo:
	do loop while pousT=0
	car=128: gosub EnvoiByteComm
	for cpt=0 to 18		
		lookup cpt, ("  REGLAGE TEMPO    "),car
		GOSUB EnvoiByteData
	next	
	do
		readadc C.7,tempo
		tempo= 9*tempo/240
		car=157: gosub EnvoiByteComm	
		lookup tempo,("0123456789"),car		
		GOSUB EnvoiByteData
	loop while pousT=1	
	write 4,tempo
	reset
;*********************************************************
; Sub envoi vers LCD via I2C *************
EnvoiByteCommInit:
    pause 15
EnvoiByteComm:
    rsbit=0
EnvoiByteData:
;1ère moitié
    dat=car & $F0 | %1000 | rsbit ;%1000 pour l'éclairage
    hi2cout (dat)
    pause 2        
    dat=dat | %1100
    hi2cout (dat)      ;pulse sur E cad P2
    pause 2            ;pause 2 pour 32 MHz
    dat=dat | %1000    ;fin pulse
    hi2cout (dat)
    pause 2    
;2ème moitié
    dat=car & $0F * 16 | %1000 | rsbit
    hi2cout (dat)
    pause 2
    dat=dat | %1100
    hi2cout (dat)
    pause 2  
    dat=dat | %1000 & %1011
    hi2cout (dat)    
    rsbit=1		;retour mode data au cas où rsbit=0
    return

On en reparlera
MM

[dudulle76120]

Salut mag1

Tu me dit, J'ai un typon sur carte à pastilles (env 50x50 mm) sous le coude.

Tu va te faire le module serrure codée ???

Sinon si tu a le typon fait sous (TCI4) justement je regardais comment ca fonctionne TCI mais il faut du temps

mais envoie moi svp si tu veux bien le fichier du typon TCI4

J'ai bien compris pour win10 et le driver picaxe.

je suppose que le programme basic est le nouveau et remplace donc l'ancien ???

Merci pour toutes ces infos, une bonne soirée a toi.

Cdlt Ray

[mag1]

Tu me dit, J'ai un typon sur carte à pastilles (env 50x50 mm) sous le coude.
Tu va te faire le module serrure codée ???

Non, j'ai ai une avec un clavier non matriciel.
J'ai longtemps utilisé TCI , simple et gratuit pour des typons simples faces, mais avec JLCPCB, il faut des Gerber complets pour du double face. J'ai adopté La partie PCB layout de DepTrace (sans schéma ni routage) pour les typons.
Mais TCI est toujours utile pour les circuits sur cartes pastilles:
J'ai fait une empreinte de 5 x 10 avec un papier peint de pastilles au pas de 2,54. Il sert de guide pour le placement des composants:


Sur les pastilles rondes utiles du papier peint, je place une pastille carrée.
MM

[mag1]

A tout moment, si on sélectionne une seule pastille de l'empreinte "papier peint", on les sélectionne toutes et ..."suppression"
Reste un typon plus clair:
Vue côté composants, cuivre en transparence:



On peut l'imprimer et s'en servir de sérigraphie pour placer les composants

MM

[dudulle76120]

RE mag1

Merci pour le typon, je vais utiliser également TCI4 pour les plaques pastilles c'est très bien

Tu a svp le typon en fichier.TCI j'ai enregistrer cette image sur mon bureau

je la renomme fichier TCI pour la modifier si besoin

Merci et bonne soirée

ca marche je suis content de ma journée grace a toi merci

Cdlt Ray

[mag1]

Une fois que tous les composants sont soudés à leur place, on peut faire un miroir H sur le typon pour avoir une vue côté soudure.
Et on peut réaliser le câblage facilement:



Si cela peut aider quelques bricoleurs...http://electromag1.wifeo.com/circuit...-avec-tci4.php
MM

[mag1]

Les fichier .TCI ne sont pas acceptés sur le forum.
Essai de contournement (sais pas si ça fonctionne)
Pour le fichier en PJ, le .TCI est remplacé par .TXT
Faudra renommer en .TCI

serrure 1701.txt

MM

[mag1]

Et ça fonctionne bien, je viens de voir que les fichiers .TCI sont en fait des fichiers textes. Suffit d'ouvrir le fichier renommé en .TXT pour le voir.
MM

[dudulle76120]

Salut mag1

Merci pour le fichier, renommer et essai ok ca fonctionne bien, plus qu'a continuer d'apprendre
j'ai récupérer la doc en Fr de TCI4

Peut être une modification a faire plus tard quand le module serrure fonctionnera a voir aux essais

--- Quels sont svp les autres picaxes les plus souvent utilisés, que je commande quelques uns.

Merci une bonne journée a toi je retourne sur TCI4

Cdlt Ray

[mag1]

--- Quels sont svp les autres picaxes les plus souvent utilisés, que je commande quelques uns.

Bonjour,
Difficile à dire, c'est fonction des projets.
Série M2 : 08M2 ; 14M2 ; 18M2; 20M2
Le 08M2 pour les projets utilisant peu de broches
Le 14M2 n'est intéressant que pour limiter la taille de la carte
Pour 0,30cts de plus, le 20M2 a 4 broches de plus
Ils ont l'avantage d'avoir la même config d'alim et de programmation. (même boite de tests)
Le 18M2 est moins performant que ceux ci dessus, alimentation au centre , je n'ai pas encore trouvé son intérêt.

la série X2 : plus de mémoires, plus de variables directement accessibles, plus rapides (-> 64MHz)
20X2 ; 28X2 ; 40X2

Résumé, pour la plupart des besoins : le 08M2 et le 20M2
Faut quand même lire les docs, c'est mieux.

Pour revenir au projet actuel:
La carte à trois connecteurs 4 broches : LCD ; colonnes clavier ( 3 broches utiles pour un 12 touche) ; lignes clavier
Un connecteur 3 broches pour la programmation
3 connecteurs 2 broches : led bleue ; poussoir code (pousC) ; poussoir temporisation (pousT) ; plus un pour le buzzer si déporté
2 borniers à 2 connexions: alim 12V ; sortie relais
Je répète que l'impression du typon peut servir de sérigraphie, en le collant sur la plaque, positionné au début par deux épingles, remplacées ensuite par les composants qui passent à travers le papier. voir cette ancienne vidéo de portail coulissant : http://electromag1.wifeo.com/portail...utomatique.php
MM

[dudulle76120]

Salut mag1

Merci pour ta réponse,

T'inquiète pas pour le matos j'ai tout ce qu'il faut , je pourrais ouvrir un magasin Lol enfin presque

Je vais bosser tout ca et apprendre au passage, ha j'ai récupérer la doc quasi complète en FR de PE6

PS: pas mal le portail mon fils va surement être intérresser que je lui monte ça LOL

Bonne journée a toi et merci pour ton aide

Cdlt Ray

[dudulle76120]

Salut mag1,

les nouvelles sont bonnes mais plus lentes, je pédale dans TCI, PE6 etc etc

je m'en sors mais c'est pas violent, TCI4, c'est bien mais je merdouilles aussi j'ai voulu avancer et j'ai fini le
schéma couleur sur PAINT que je connais bien, je vais passer a la soudure des composants sur une plaque a pastilles.

Je posterai le résultat le montage va être rapide vu le peux de composants.

Voila affaire a suivre, je te souhaite un bon W-end et toujours un grand merci pour ta patience et ton savoir dans
le domaine des picaxes.

Bonne après a toi et merci.

Cdlt Ray

[mag1]

je m'en sors mais c'est pas violent, TCI4, c'est bien mais je merdouilles aussi j'ai voulu avancer et j'ai fini le
schéma couleur sur PAINT que je connais bien, je vais passer a la soudure des composants sur uneplaque a pastilles.

Bonjour,
Tu fais comme tu veux, mais je ne vois pas l’intérêt de passer par paint pour mettre de la couleur.
Par contre, on a intérêt à imprimer un typon (comme un PCB normal), et de le coller sur la plaque à pastilles en le positionnant par deux épingles en diagonal.
L'emplacement exacte des composants est parfaitement défini. On peut laisser le papier sous les composants et voir les liaisons entre composants.
Cartouche impression avec tous les éléments:
impTCI.JPG

Et un nouveau .tci renommé en .txt (petite modif au niveau des connecteurs poussoirs et led, moins serrés)
serrure2201.txt
MM

[dudulle76120]

Salut mag1,

Merci pour ta réponse hier,

Je suis passer par PAINT car j'avais très envi de voir fini le schéma et avec TCI4 je ne
maitrise pas encore assez bien.

J'ai bien récupérer le fichier (serrure2201.txt) qui fonctionne bien d'ailleurs, merci

Je continue entre deux, mes essais sur TCI4 mais je t'avoue qu'il ne me parait pas trop pratique
du moins c'est mon avis, ceci dit il est quand même utile.

Je fais tout sur Excel que je connais assez bien et ca fonctionne bien aussi.
Je peux sortir des calques transparents plastique ou papier.

Et par transparence tous les composants sont très bien alignés, niveau perçage.

Donc la je fini aujourd'hui et je câble les composants de la serrure.

Je voudrai quand l'USB est connecter avoir une led qui s'allume et je devrai la connecter ou précisément ???

Le tout va aller loger dans une boite situer au dessus de mon établi ou j'ai toujours mon ancienne alim, je bricole, soude etc etc etc

Bon dimanche a toi et merci.

Cdlt Ray

[mag1]

Je continue entre deux, mes essais sur TCI4 mais je t'avoue qu'il ne me parait pas trop pratique
du moins c'est mon avis, ceci dit il est quand même utile.
Je voudrai quand l'USB est connecter avoir une led qui s'allume et je devrai la connecter ou précisément ???

Bonjour,
Je peux t'assurer que TCI est, de loin, le logiciel le plus simple et le plus ergonomique de tous ceux que j'ai approchés.
Pour la led, suffit de la placer entre le plus 5V et le 0V sur l'inverseur, avec une R de 470 ohm (voire 1k) en série (s'allumera largement assez).
As tu déjà, utiliser l'impression avec TCI ? Le passage par Excel est tout aussi inutile (sinon nuisible) que pour Paint....
MM

[mag1]

Pour info, voici que tu obtiendrais si tu imprimais directement avec TCI, à coller sur la carte à pastilles:

MM

[dudulle76120]

Salut mag1

Merci pour tes conseils,

Je continue quand même avec TCI4, c'est juste que je voulais finir rapidement le montage pour la
serrure codée, la c'est bon je passe en mode vérification du circuit, puis je soude les composants.

Non, je n'ai pas encore imprimer avec TCI4, (PPP), Lol

Sinon, j'ai lu pas mal sur les picaxes hier et j'ai lu également des conseils dans un forum au hazard

1) J'ai ajouter un condo 0,1 µF de découplage au plus près du picaxe de la serrure.
2) j'ai ajouter une led sur l'inverseur du câble USB via PC

3) Un gars a ajouter également une led sur le connecteur programmation afin de visualiser le transfert
d'un programme vers le picase.

Je sais, tu va dire que ca sert a rien, mais j'aimerai tout de même mettre en place une led car je ne peux
pas forcément suivre le bon déroulement de la programmation, je tourne les dos a mon établi et ce n'ai pas
pratique pour moi.

4) Et un gars qui avait un soucis et on lui a répondu de faire un RESET du picaxe, donc en quoi consiste de faire
ce RESET et comment installer un poussoir pour effectuer le RESET ???

Merci a toi bon début de semaine.

Cdlt Ray

[mag1]

Bonjour,

Non, je n'ai pas encore imprimer avec TCI4, (PPP), Lol

Tu as tort, comme souvent...tu aurais gagné beaucoup de temps. TCI sert à fabriquer des typons, contrairement à Paint ou Excel...

Sinon, j'ai lu pas mal sur les picaxes hier et j'ai lu également des conseils dans un forum au hazard

Quel forum?
Sinon, pour les leds, tu peux en placer une en série avec la R de 1k de la branche "Serial In" de l'inverseur, tu devrais voir quelque chose.
A +
MM

[Janpolanton]

Bonjour,
A part faire du Jacky Tunning, les LED ne feront pas avancer le schmilblick.
Et malgré les bons conseils et la patience de @mag1, ça pédale toujours dans la choucroute.
12 pages et toujours rien à l'horizon...

[dudulle76120]

Salut mag1

Merci pour te réponse,

Ce n'ai pas la question d'avoir (Tu as tort, comme souvent) j'ai fait au plus vite car depuis le temps qu'on est dessus
j'avais hâte de voir tout fonctionner.

Et pour te faire plaisir je suis d'accord avec toi pour TCI4, mais voila faut le temps de l'apprendre pour l'avoir bien en main.

C'est toujours facile quand on sait, si tu veux je peux t'apprendre sur Excel Lol

Me voila près a souder la serrure, la vérification est bonne dû moins je l'espère

Pour le forum qui était en anglais je ne l'ai pas retrouver, pour le fameux RESET si je retrouve j'envoi le lien.

Bonne après midi a toi et merci

Cdlt Ray

[dudulle76120]

Salut Janpolanton,

Hé bien ce n'ai pas grave et puis je passe pas 22heures par jour sur le PC avec le fer a souder a la main et un manuel de l'autre.

Donc doucement le matin et pas trop vite l'après midi, surtout après la sieste

En plus, je découvre les picaxes et de toutes façons ca aurai été pareil si j'avais choisi Arduino

Mon drapeau est une tortue avec un frein a main.

Bonne journée a toi

Cdlt Ray

[mag1]

Ce n'ai pas la question d'avoir (Tu as tort, comme souvent) j'ai fait au plus vite car depuis le temps qu'on est dessus
j'avais hâte de voir tout fonctionner.
Et pour te faire plaisir je suis d'accord avec toi pour TCI4, mais voila faut le temps de l'apprendre pour l'avoir bien en main.

Justement, les conseils étaient pour gagner BEAUCOUP de temps, regarde #347, tout est là, simplement en cliquant sur "Fichiers/Imprimer".
Après, que tu le fasses ou pas, pour moi, c'est pareil...
A+
MM

[mag1]

Ah oui, le RESET...

Il y a reset et reset:

1) La commande "reset" que l'on place dans le programme, il y en a dans celui fourni au dessus. C'est une réinitialisation du programme, comme une interruption d'alimentation.
2) le "Hard Reset".
Pour qu'un µC programmé fonctionne, il faut que la broche "serial in" soit au potentiel 0V. Cette broche est testée en permanence et dès qu'elle n'est plus à 0V, le programme est interrompu et le µC attend une nouvelle programmation. C'est comme ça que l'on reprogramme un picaxe.
Mais, en cas de besoin, la commande basic "disconnect" supprime ce scan automatique pour utiliser cette broche comme une entrée. La commande "sertxd" utilise aussi cette broche pour communiquer avec un PC par ex.
Après la commande "disconnect" ou "sertxd", il n'est donc plus possible de reprogrammer le µC. Heureusement, il y le "hard reset"
C'est simple, il faut lancer la commande "Exécuter un programme" AVANT que le programme présent dans le µC ne se lance.
Il y a un temps de quelques secondes d'attente entre le lancement de la programmation et l'annonce de l'erreur "Matériel non trouvé".
Il faut donc: mettre le µC hors alimentation, lancer le programmation et alimenter le µC dans les secondes qui suivent.
Le but est que le scan automatique de "serial in" s'exécute AVANT la commande "disconnect" du programme.
C'est une procédure à suivre dès qu'une programmation "normale " échoue.
MM

[dudulle76120]

Salut mag1,

Merci pour toutes ces infos, c'est toujours bon a savoir.

J'ai retrouver le forum ou on parle dans plusieurs discutions du fameux RESET, tape dans recherche sur le forum (RESET)

Voir lien ci dessous
https://picaxeforum.co.uk/threads/re...2/#post-339803

Bonne après midi a toi

Cdlt Ray

[mag1]

J'ai retrouver le forum ou on parle dans plusieurs discutions du fameux RESET, tape dans recherche sur le forum (RESET)

Oui, je connais, il y a aussi un sous forum français, avec des intervenants très compétants (PieM, par ex).
Il y a bien une broche "RESET" sur les 28X2 et 40X2, il n'y en a pas sur la série M.
MM

[mag1]

Bonjour,

ça sent la fin, on ne sait pas où en est notre dudulle...
Je viens poster une vidéo avec les dernières modifs demandées: réglage tempo, affichage:
https://youtu.be/zbVwcXxyOsU

Le code suivra, et on passera à autre chose....
MM

[mag1]

Nouveau code, avec modifs:

;serrure4digeco MM 29/01/21
;clavier matriciel 12 ou 16 touches 
;picaxe 20M2 => le n° de colonne clavier= n° de brohe µC
;Entrées:
     ;ILS ou poussoir sur C.6
	  ;poussoir tempo sur C.5
     ;potar tempo sur C.7
	  ;ledB sur C.4
     ;clavier sur B.0,B.1,B.2,B.3 pour un 16 touches
;Sorties:
     ;buzzer sur C.0	  
     ;relais sur C.1            
#picaxe 20M2
symbol pousC=pinC.6    'cotact ILS NouveauCode
symbol pousT=pinC.5
symbol relais=pinC.1
symbol ledB=pinC.4
symbol buz=pinC.0
symbol potar =C.7
symbol rsbit=bit0
symbol car=b1
symbol lig=b2
symbol col=b3
symbol dat=b4
symbol cpt=b5        
symbol rang=b6        'compteur rang décodage
symbol ch0=b7 
symbol ch1=b8
symbol ch2=b9
symbol ch3=b10
symbol th0=b11
symbol th1=b12
symbol th2=b13
symbol th3=b14
symbol tempo=w13     'compteur attente
symbol delai=w12
	setfreq M16			;horloge à 16MHz (pause 1000=1s)	
	dirsB=%1110000    	;
	dirsC=%10011                
	pullup %111000000011111        ;pullup sur B0,à B3 ,C.6,C.5,C.4
	hi2csetup i2cmaster,%01001110, i2cslow_32, i2cbyte        
; Initialisation LCD 4 bits*********
	for cpt=0 to 5
	  lookup cpt,($33,$32,$28,$c,$6,$01),car
	  gosub EnvoiByteCommInit
	next
	pause 100    ;temps init du LCD 
;*******************************************  
	car=1 : gosub EnvoiByteComm 	;effacement LCD   
	buz=1:pause 200:buz=0     'signal passage init    
	read 0,ch0,ch1,ch2,ch3,tempo    'lecture de la clé en mémoire EEPROM    
	ledB=0  	
	rang=0  			'init rang
	time=0			;init compteur attente
	car=215:	gosub EnvoiByteComm
	for cpt=0 to 4
		lookup cpt,("TEMPO"),car
		gosub EnvoiByteData
	next
	car=221: gosub EnvoiByteComm 
	lookup tempo,("0123456789"),car
	gosub EnvoiByteData	;affichage tempo
;********************************************************
	car=128 : gosub EnvoiByteComm 'curseur en 130 ligne 1
	for cpt=0 to 19
		lookup cpt,(" ENTREZ VOTRE CODE  "),car
		GOSUB EnvoiByteData	
	next		
	car=200 : gosub EnvoiByteComm 'curseur ligne2	
	do        ;boucle principale
		if pousC=0 then nouvcle    'Si appui sur le pousoir, on entre un nouveau code
		if pousT=0 then regtempo		
		if time >9 and rang <>0 then
			buz=1:pause 200:buz=0     'touche pressée			
		   	reset	
		endif 				         
		for col=0 to 3   ;n° de broche (B.0 à B.3)=> 4 colonnes			
			readadc col,lig    ;col est le n° de colonne, lig donne la valeur ligne              
		   if lig <= 225 then
				gosub clav    ;on a appuyé! recherche valeur ligne
				if rang=0 then						
   					th0=car
				elseif rang=1 then					
					th1=car
				elseif rang=2 then					 
					th2=car
				elseif rang=3 then					 
					th3=car
				endif
				gosub EnvoiByteData               
				inc rang      ;on avance dans la séquence				      
				if rang>=4 then	;fin de séquence
					if th0=ch0 and th1=ch1 and th2=ch2 and th3=ch3 then  sortie
					rang=0	
					buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0 
					car=150:gosub EnvoiByteComm	;position curseur
					for cpt=0 to 15
						lookup cpt,("C'est pas le bon"),car
						GOSUB EnvoiByteData
					next
					buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0 'signal passage   
					pause 8000
					reset  	             
		      	endif
		   	endif        
		next        
 	loop
;***************************************************************
clav: ; on entre les codes ASCII tels qu'ils figurent sur le clavier	
	select case lig    ;sélection ft valeur ligne		
		case 175 to 225  	; pour 4 Volt
		   lookup col,("123A"),car        ;ligne 4
		case 125 to 174   ; pour 3 Volts
		   lookup col,("456B"),car        ;ligne 3            
		case 75 to 124  	; pour 2 Volts
		   lookup col,("789C"),car        ;ligne 2
		case 25 to 74  	; pour 1 Volts
		   lookup col,("*0#D"),car   		 ;ligne 1        
	endselect  	
	do            
		readadc col,lig        ;attente relâchement touche            
	loop while lig <= 225
	buz=1:pause 200:buz=0     'touche pressée 
	time=0
	return
;******************************************************
sortie:        ;activation gache	
	buz=1:pause 1000:buz=0:pause 100:buz=1:pause 1000:buz=0
	relais=1	
	if tempo<>0 then
		ledB=1 	
		for cpt= tempo to 1 step -1
			car=157: gosub EnvoiByteComm
			lookup cpt, ("0123456789"),car
			GOSUB EnvoiByteData
			pause 4000		;=1s pour M16 
		next
	endif	
	ledB=0
	car=1: gosub EnvoiByteComm		;effacement LCD
	car=131: gosub EnvoiByteComm
	for cpt=0 to 12		
		lookup cpt, ("Arret complet"),car
		GOSUB EnvoiByteData
	next
	car=196: gosub EnvoiByteComm
	for cpt=0 to 10		
		lookup cpt, ("appuyez sur"),car
		GOSUB EnvoiByteData
	next
	car=157: gosub EnvoiByteComm
	car="#"
		GOSUB EnvoiByteData
	car=217: gosub EnvoiByteComm
	for cpt=0 to 9		
		lookup cpt, ("du clavier"),car
		GOSUB EnvoiByteData
	next		
	do 
		readadc B.2,lig
	loop while lig > 75	;appui sur #
	relais=0	
	reset

;***************************************************************
nouvcle:        'Sous programme mémo d'un nouveau code    
	do loop while pousC=0  ;ttente relachement poussoir
	buz=1:pause 500:buz=0:pause 100:buz=1:pause 50:buz=0
	car=1 : gosub EnvoiByteComm 	;effacement LCD  
	car= 128	:gosub EnvoiByteComm'curseur col 131		
	for cpt=0 to 19
		lookup cpt,("    NOUVEAU CODE     "),car
		GOSUB EnvoiByteData	
	next	
	rang=0
	time=0	
	ch0=0:ch1=0:ch2=0:ch3=0
	car=200:	gosub EnvoiByteComm ;ligne 2
	do
		for col=0 to 3    ;n° de broche (B.1 à B.4)=> 4 colonnes
			readadc col,lig    ;col est le n° de colonne, lig donne la valeur ligne			
			if time>9 then
				buz=1:pause 100:buz=0:pause 100:buz=1:pause 100:buz=0    ;buzz abandon procédure
				reset
			endif                   
			if lig <= 225 then
				gosub clav    ;on a appuyé! valeur=>ligne
				if rang=0 then					
					ch0=car
					gosub EnvoiByteData
				elseif rang=1 then
					ch1=car
					gosub EnvoiByteData			
				elseif rang=2 then
				  	ch2=car
					gosub EnvoiByteData	
				elseif rang=3 then
				  	ch3=car
					gosub EnvoiByteData	
				endif    
				inc rang                               
				if rang>= 4 then
					write 0,ch0,ch1,ch2,ch3
					buz=1:pause 1000:buz=0:pause 100:buz=1:pause 100:buz=0    ; buzz mémorisation nouvelle clé
					reset
				endif    
			endif
		 next
loop
;**********************************************************
regtempo:
	buz=1:pause 200:buz=0
	do loop while pousT=0
	car=128: gosub EnvoiByteComm
	for cpt=0 to 18		
		lookup cpt, ("  REGLAGE TEMPO    "),car
		GOSUB EnvoiByteData
	next	
	do
		readadc C.7,tempo
		tempo= 9*tempo/240
		car=221: gosub EnvoiByteComm	
		lookup tempo,("0123456789"),car		
		GOSUB EnvoiByteData
	loop while pousT=1	
	write 4,tempo
	reset
;*********************************************************
; Sub envoi vers LCD via I2C *************
EnvoiByteCommInit:
    pause 15
EnvoiByteComm:
    rsbit=0
EnvoiByteData:
;1ère moitié
    dat=car & $F0 | %1000 | rsbit ;%1000 pour l'éclairage
    hi2cout (dat)
    pause 2        
    dat=dat | %1100
    hi2cout (dat)      ;pulse sur E cad P2
    pause 2            ;pause 2 pour 32 MHz
    dat=dat | %1000    ;fin pulse
    hi2cout (dat)
    pause 2    
;2ème moitié
    dat=car & $0F * 16 | %1000 | rsbit
    hi2cout (dat)
    pause 2
    dat=dat | %1100
    hi2cout (dat)
    pause 2  
    dat=dat | %1000 & %1011
    hi2cout (dat)    
    rsbit=1		;retour mode data au cas où rsbit=0
    return

Et si ça sert à rien, c'est pas grave
MM

[dudulle76120]

Salut mag1

Non, ca ne sert pas a rien, je suis en train de bosser et puis j'attends des composants et aussi occupations journalières.

En attendant, j'ai regarder pour le rétro éclairage, je vais faire un test, j'ai commander des LDR.

Devrais recevoir demain.

Ta vidéo ne fonctionne pas "fichier perso"

Je te remercie pour les modifications fichier installer dans PE6

Bonne journée a toi, et merci

Cdlt Raymond

[mag1]

Ta vidéo ne fonctionne pas "fichier perso"

Bonjour,
J'ai corrigé, la vidéo est publique maintenant.
MM