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 ---
- 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 ---
Bluetooth Electronics et envoi de texte
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é.
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 :
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bluetooth Electronics et envoi de texte
Bonjour Paul,
Oui bien sur, voir ici :
http://docwiki.embarcadero.com/RADStudi ... et_Android)
paulfjujo a écrit :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)
Bluetooth Electronics et envoi de texte
- Gérard
Expert- Messages : 1644
- Âge : 65
- Enregistré en : septembre 2015
- Localisation : Alsace - Haut-Rhin
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?
Ci-dessous, un extrait du programme en Proton qui tourne
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.
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.
Bluetooth Electronics et envoi de texte
Bonjour Gérard,
Tu peux dans un premier temps faire tourner ce code en MikroBasic, puis essayer de comprendre le fonctionnement :
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.
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.
Retourner vers « Coin Fourre-tout »
Qui est en ligne
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 41 invités