[pspic]

Le délimiteur est OK sans " "
Je suppose que tu l'as prévu dans SendTextToPic.
Par contre, le LCD ne veut pas des accents ni avec ton soft ni avec Serial.

OK n'est pas impératif, tu peux changer le délimiteur (chaine de 10 caractères maxi).
Dans le programme que j'ai posté ce jour, j'utilise le délimiteur ETX. (Rien à voir avec STX ETX)
Dans l'appli SendTextToPic j'utilise OK, mais tout ceci peut être adapté.

DelimOk.jpg

Concernant les caractères accentués lire ceci : https://www.aurel32.net/elec/lcd.php
Pour créer des Apps je te conseille d'utiliser AppInventor qui est plus puissant que bluetooth electronics.
Ou Delphi 10 version gratuite et qui est encore plus intéressant.
Exemple développé avec Delphi :

AppDelp.jpg

[paulfjujo]

Ou Delphi 10 version gratuite et qui est encore plus intéressant.
Exemple développé avec Delphi :
AppDelp.jpg

bonsoir PSPIC,

tu veux dire , appli pour Android developpée avec Delphi10 ?
ou seulement appli PC ?

[pspic]

Bonjour Paul,
Application VCL pour PC et multi-périphériques Android, iOS et MacOS.

[Gérard]

Pierre,
Dans AppInventor, tu dessines d'abord l'aspect de l'appli et après tu donnes une fonction à chaque module. C'est ça?

[pspic]

C'est bien cela, voici un exemple :

Api1.jpg

[Gérard]

C'est bien cela, voici un exemple :
Api1.jpg

Maintenant faut que j'étudie ça.

[paulfjujo]

bonsoir PsPic , et à tous ,

Bonjour Paul,
Application VCL pour PC et multi-périphériques Android, iOS et MacOS.

peripherique Android ...
Pour etre plus précis dans ma demande , peux-tu generer une appli android executable *.apk avec Delphi 10 ?

[pspic]

Bonjour Paul,

Pour etre plus précis dans ma demande , peux-tu generer une appli android executable *.apk avec Delphi 10 ?

Oui bien sur, voir ici :
http://docwiki.embarcadero.com/RADStudi ... et_Android)

[Gérard]

Bonjour à tous,

Je suis très content que texte et bluetooth ont bien voulu de moi et c'est grâce à vous. Encore
Dans cette discussion, je parle de mon horloge à matrices. Le programme est écrit en Basic Proton. Comme maintenant je sais me servir du bluetooth mais avec MikroBasic, je me suis dit, faut juste traduire...
Vite dit.
Hier soir j'ai déjà accroché lors de l'initialisation des MAX7219. En effet, il faut envoyer des valeurs de 16 bit et avec MikroBasic, je ne sais pas faire.
Ci-dessous, la procedure d'écriture SPI, dois-je l'appeler 2 fois pour 2 octets?

Code : Tout sélectionner


sub procedure SPIx_Write(dim wrdata as byte)


Ci-dessous, un extrait du programme en Proton qui tourne

Code : Tout sélectionner


    SHOut DATA,CLK,MsbFirst,[REGISTRE,VALEUR] ;DATA et CLK sont les ports de sortie SPI, registre et valeur sont les 16 bit à envoyer
    CS_H_SPI          = 1                     ;sélection de la matrice
    DelayUS 10
    CS_H_SPI          = 0


Pour le cas de SPI, les pins sont RC3 et RC5 (choisi en Proton, imposés en MikroE)

J'utilise aussi l'I2C, j'ai choisi RA3 et RA4 pour SCL et SDA ce que je ne sais pas faire en MikroE, la librairie impose des pins.

J'ai bien consulté l'aide mais elle n'aide pas beaucoup.

Merci pour vos idées.

[pspic]

Bonjour Gérard,
Tu peux dans un premier temps faire tourner ce code en MikroBasic, puis essayer de comprendre le fonctionnement :

Code : Tout sélectionner

program MatrLed2
'Commande matrice 8x8 LEDS PIC16f876A -> MAX7219 -> 1088HA
dim Chip_Select as sbit at RC0_bit
dim Chip_Select_Direction as sbit at TRISC0_bit
dim num as word
dim i, Cl,li,Pt1  as integer
Const CarAD as word[80]=           ‘Nbre de ligne x 8
(0,252,34,33,33,34,252,0,       'A  CarAD[0] = 0 (indice zéro)
0,255,129,129,129,66,60,0,      'D
0,255,9,25,41,73,134,0,          'R
0,0,129,255,129,0,0,0,          'I
0,255,137,137,137,137,129,0,     'E
0,255,4,8,16,32,255,0,          'N
0,255,4,8,16,32,255,0,          'N
0,255,137,137,137,137,129,0,     'E
85,170,85,170,85,170,85,170,     'Dessin
24,24,24,255,255,24,24,24)       '+

sub procedure max7219_init1()
 Chip_Select = 0             'Selection MAX7219
 SPI1_write(0x09)           ' BCD mode
 SPI1_write(0x00)
 Chip_Select = 1              'Désélection MAX 7219
 Chip_Select = 0
 SPI1_write(0x0A)
 SPI1_write(0x00)              'Luminosité
 Chip_Select = 1       
 Chip_Select = 0
 SPI1_write(0x0B)
 SPI1_write(0x07)                   'Display refresh
 Chip_Select = 1       
 Chip_Select = 0       
 SPI1_write(0x01)              'Mise à ON de la matrice
 Chip_Select = 1       
 Chip_Select = 0       
 SPI1_write(0x00)
 SPI1_write(0xFF)                'No test
 Chip_Select = 1       
end sub

sub procedure Write_Byte (dim Cl , Va as byte)
 Chip_Select = 0     'Selection du MAX7219
 SPI1_write(Cl)       'Envoi colonne (1 à 8)
 SPI1_write(Va)       'Envoi valeur colonne (0 à 255)
 Chip_Select = 1      'Déselction MAX7219
end sub

sub procedure Clear_Matrix()
dim x as byte
for x =1 to 8
Write_Byte(x,0x00)
next x
end sub

Main:
 Chip_Select_Direction = 0
 SPI1_Init()         ‘Init SPI
 max7219_init1()      ‘Init MAX7219
 Clear_Matrix()              ‘Efface matrice
 i = 0            ‘Compteur octets de la constante
 
 while true
    for li = 1 to 11                   'Boucle nombre de lignes
      for cl= 1 to 8                  'Boucle 8 colonnes
       Write_Byte (cl,CarAD[i])           'Procedure d'envoi
       inc(i)                     
      next cl
       delay_ms(500)
       Clear_Matrix()                          'Raz de la matrice
       delay_ms(50)
    next li
    i=0
  wend
end.


BranchMatrLed8x8.JPG