Bienvenue aux nouveaux arrivants sur FantasPic !

- Pensez à lire les règles durant votre visite, il n'y en a pas beaucoup, mais encore faut-il les respecter .
- N’hésitez pas à faire des remarques et/ou suggestions sur le Forum, dans le but de l'améliorer et de rendre vos prochaines visites plus agréables.
- Vous pouvez regarder votre "panneau de l'utilisateur" afin de configurer vos préférences.
- Un passage par "l'utilisation du forum" est recommandé pour connaître les fonctionnalités du forum.

--- L’équipe FantasPic ---
Tout ce qui n'a pas de catégorie !
MAX7219 et texte défilant
patou149
Débutant
Débutant
Messages : 35
Enregistré en : octobre 2015

#31 Message par patou149 » mar. 15 nov. 2016 20:47

Bonsoir,

Ne pas oublier quand on utilise plusieurs MAX en série de répéter X fois les commandes, peut être la raison de la différence de luminosité.
J'ai fait faire un tour de 90° à mes deux MAX (pas simple avec des versions en DIP) et j'ai repris le programme :

Code : Tout sélectionner

dim aff_buffer_1 as byte[8]
dim aff_buffer_2 as byte[8]
const table as byte[56]=(
$
3C, $42, $42, $42, $42, $42, $42, $3C,        ' 0
$18, $28, $48, $08, $08, $08, $08, $7E,       '
 1
$3C, $42, $02, $0C, $10, $20, $40, $7E,        ' 2
$3C, $42, $42, $42, $7E, $42, $42, $42,        '
 A
$7C, $42, $42, $7E, $42, $42, $42, $7C,        ' B
$3E, $40, $40, $40, $40, $40, $40, $3E,         '
 C
$3C, $42, $66, $42, $5A, $42, $24, $18)        '


et la routine d'affichage (des améliorations sont surement possible)

Code : Tout sélectionner

sub procedure aff_defilant(dim data1, vitesse as byte)
 dim cpt, m,,ee as byte
     m 
= $80
     for cpt 
= 0 to 7
         for i 
= 0 to 7
             if table
[i+(data1 * 8)] and m > 0 then
                aff_buffer_1
[i] = aff_buffer_1[i] or 1
             end if

             ecr_7219_def
(i+1,aff_buffer_1[i],aff_buffer_2[i])
             aff_buffer_2[i] = aff_buffer_2[i] <<1
             if aff_buffer_1
[i] and $80 > 0 then
                aff_buffer_2
[i] = aff_buffer_2[i] or 1
             end if
             aff_buffer_1
[i] = aff_buffer_1[i] <<1
          next i
         for i 
= 0 to vitesse
             delay_ms
(1)
         next i
         m 
= m >> 1
     next cpt
 end sub


Pour moi cela semble fonctionner.
A+

MAX7219 et texte défilant
patou149
Débutant
Débutant
Messages : 35
Enregistré en : octobre 2015

#32 Message par patou149 » mar. 15 nov. 2016 20:57

Bonsoir,

Le fichier qui me sert pour les tests.

Normalement avec une fonte de caractères en 7*5 il suffit , peut être, de modifier la table de caractères.
A+
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.

MAX7219 et texte défilant
Gérard
Avatar de l’utilisateur
Expert
Expert
Messages : 1640
Âge : 65
Enregistré en : septembre 2015
Localisation : Alsace - Haut-Rhin

#33 Message par Gérard » mar. 15 nov. 2016 22:37

Merci ! Patou pour ton implication. Je ne sais pas si j'aurai le temps pour tester cette semaine. A partir de mardi je peux souffler, donc plus de temps.

Edit : Patou, peux-tu m'expliquer un peu le S/P d'affichage? Il y a des choses qui m'échappent, merci d'avance.
Le 18/04/19 je suis devenu papy de jumeaux, le 01/09/23 une petite cousine des jumeaux est née.

MAX7219 et texte défilant
Gérard
Avatar de l’utilisateur
Expert
Expert
Messages : 1640
Âge : 65
Enregistré en : septembre 2015
Localisation : Alsace - Haut-Rhin

#34 Message par Gérard » mer. 30 nov. 2016 22:36

Patou... Help Merci !
Le 18/04/19 je suis devenu papy de jumeaux, le 01/09/23 une petite cousine des jumeaux est née.

MAX7219 et texte défilant
Gérard
Avatar de l’utilisateur
Expert
Expert
Messages : 1640
Âge : 65
Enregistré en : septembre 2015
Localisation : Alsace - Haut-Rhin

#35 Message par Gérard » mar. 6 déc. 2016 14:00

patou149 a écrit :Source du message sub procedure aff_defilant(dim data1, vitesse as byte)
 dim cpt, m,i ,ee as byte
     m = $80
     for cpt = 0 to 7
         for i = 0 to 7
             if table[i+(data1 * 8)] and m > 0 then
                aff_buffer_1[i] = aff_buffer_1[i] or 1
             end if

             ecr_7219_def(i+1,aff_buffer_1[i],aff_buffer_2[i])
             aff_buffer_2[i] = aff_buffer_2[i] <<1
             if aff_buffer_1[i] and $80 > 0 then
                aff_buffer_2[i] = aff_buffer_2[i] or 1
             end if
             aff_buffer_1[i] = aff_buffer_1[i] <<1
          next i
         for i = 0 to vitesse
             delay_ms(1)
         next i
         m = m >> 1
     next cpt
 end sub


Bonjour,
Je me triture les quelques neurones qui restent mais je tourne en rond. Je vais finir par :mur: et :cry: .
Merci à toutes les âmes charitables qui passeront pas ici d'éclairer ma LED. (lanterne est dépassé)
Le 18/04/19 je suis devenu papy de jumeaux, le 01/09/23 une petite cousine des jumeaux est née.

MAX7219 et texte défilant
patou149
Débutant
Débutant
Messages : 35
Enregistré en : octobre 2015

#36 Message par patou149 » dim. 11 déc. 2016 16:59

Bonsoir,

Avec un peu de retard une tentative d'explication.
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.

MAX7219 et texte défilant
paulfjujo
Avatar de l’utilisateur
Expert
Expert
Messages : 2589
Âge : 73
Enregistré en : juillet 2015
Localisation : 01800
Contact :

#37 Message par paulfjujo » sam. 17 déc. 2016 17:38

bonsoir à tous,


Gerard , je viens tout juste de tester/modifier une version pour 2 matrices 8x8 , en MikroC pour un 18F46K22
qui affiche soit du texte en Flash "0123456789"
ou en RAM..
"J= 0 T°AMB= 48.10 Deg"
defilant donc de droite à gauche ..

si cela t'interesse ,Lien sur le code ici..
je vais , par la suite l'etendre à 4 matrices..
Aide toi, le ciel ou FantasPic t'aidera

MAX7219 et texte défilant
Gérard
Avatar de l’utilisateur
Expert
Expert
Messages : 1640
Âge : 65
Enregistré en : septembre 2015
Localisation : Alsace - Haut-Rhin

#38 Message par Gérard » sam. 17 déc. 2016 22:07

Bonjour tout le monde,
Merci à vous de vous inquiéter de mon petit souci. :bravo:

@Patou : j'ai du mal à comprendre ton document, je ne vois pas comment est codé le chiffre "1" avec les valeurs que tu donnes.
@Paul : je n'arrive pas à décompresser ton zip.

Décidément, je porte la poisse avec ces matrices qui ne veulent pas se laisser dompter. :sifflotte:
Mais je ne désespère pas, 2017 sera l'année de la réussite et comme dit la pub "Je l'aurai un jour, je l'aurai ..." :-D
Le 18/04/19 je suis devenu papy de jumeaux, le 01/09/23 une petite cousine des jumeaux est née.

MAX7219 et texte défilant
patou149
Débutant
Débutant
Messages : 35
Enregistré en : octobre 2015

#39 Message par patou149 » dim. 18 déc. 2016 15:48

bonjour,

pour créer un caractère j'utilise le logiciel disponibleICI

Un petit plan :


A+

Il est fort possible que j'ai ,entre-temps, modifié la fonte.
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.

MAX7219 et texte défilant
paulfjujo
Avatar de l’utilisateur
Expert
Expert
Messages : 2589
Âge : 73
Enregistré en : juillet 2015
Localisation : 01800
Contact :

#40 Message par paulfjujo » dim. 18 déc. 2016 19:37

bonsoir,

Effectivement,probleme avec le Zip..=> modifié

+ rajout version 4 digits
Aide toi, le ciel ou FantasPic t'aidera


Retourner vers « Coin Fourre-tout »

Qui est en ligne

Utilisateurs parcourant ce forum : cyril13110 et 42 invités