V.O. 21 juillet 2015
last update 03 Fev. 2018

Carte Clicker2 PIC18F87J50

Le materiel d'étude et de démonstration
Liaison USB au MikroE HID Terminal
Liaison UART2 RS232 avec Terminal PC (Vbray, ou Mikroe UART terminal, ...)
4 Liaisons de COM concomitantes : UART1, UART2 , UART3 et USB
Afficheur OLED C click 96x96 65K couleurs , mode SPI
Afficheur LCD 2119 2x16 car , direct I2C
Generation d'un nombre pseudo-aleatoire : ex 1 a 4
Usage version de carte Clicker2 degradée = Survivor

Autres liens :
Liaison WIFI3-click ESP8266
Surveillance via Carte GSM2 click

Carte de developement MikroE Clicker2 for PIC18F87J50
+ plugin carte Bornier

But :
Tester les possibilites de la carte Clicker2 PIC18F87J50 et
la fonction Mikro bootloader via USB

HARDWARE :
La carte est alimentée via la liaison USB 5V -> regulateur de tension => 3,3V alim
Datasheet du PIC18F87J50
Doc MikroE sur cette carte


detail bornier carte MikroE Clicker2	le MCU 18F87J50	MikroE_Bornier 938

Schema de la carte


schema elec	Liaisons et Fonctions

2 Emplacements pour carte fille Click mikroBus

Configuration Oscillateur FOSC:
Un peu complexe sur ce MCU
La PLL est ici de 16x au lieu de 4x habituellement.
Le but est de fournir 48MHz pour la partie USB .. depuis le quartz utilisé, ICI Q= 8MHz
La valeur de FOSC utile pour le programme , est ensuite derivée de ce 48MHz
en divisant par 1,2,3,6 ...
utilisé a 48Mhz..


Diagram parametrage FOSC	FOSC for USB

Software :
Usage de MikroC Pro 6.50 (enregistré!)
il est facile de charger de le programme qui vient juste d'etre compilé
surtout avec un PIC USB contenant un bootloader .
Appui sur BP reset de la carte => passe en mode bootloader pendnat 5 secondes
et click sur Connect , pour rentrer dans ce mode.
le bootloader renvoi un message comme quoi la carte Clicker 2 est reconnue
On selectionne alors le fichier HEX a charger (Browse for Hex)
et Begin uploading
quelques secondes apres ,le programme est chargé
"completed successfully"
et se lance ..

La Liaison USB HID Terminal
usage du Mikroe USB HID Terminal
repéré ici via : PIC18F87J Clicker2

pas de probleme particulier .
faire un reset apres le chargement du Hex avec MikroBootloader HID
et selectionner , dans Terminal USB HID , le bon device descriptor
La liaison n'est effective que SI le bon choix de device descriptor est fait ,

//Product string descriptor const struct{ char bLength; char bDscType; unsigned int string[22]; }strd3={ 42, //sizeof this descriptor string was 46 0x03, {'P','I','C','1','8','F','8','7','J','5','0',' ','C','l','i','c','k','e','r','2'} };

sinon blocage programe en attente de liaison USB. (comportement voulu)
Ensuite, dans la boucle de fond principale , la tempo (Timer interrupt) sur 1sec permet
de sortir de l'attente caractere liaison USB .

Cdes via clavier des 2 leds de la carte LD1 (RD4) et LD2( RE4):
LD1 ON, LD1 OFF, LD2 ON, LD2 OFF
en echo: Fire ou Shutdown Led

source : Clicker2_18F87J50_ADC_USB_HID_Term_150712.c
chargeur : PIC18FJ_USB_HID_Terminal_150713.hex
USB decriptor : USBdsc_1507.c
fichier log de compilation : PIC18FJ_USB_HID_Terminal.log
config bits : P18F87J50_PLL_8_to_48MHz.cfgsch

Test UART2 liaison RS232 avec PC Win8.1
Nota: mon PC ASUS CM6431 (sous WIN 8.1) n'a pas de port COM RS232
donc, usage d'un cordon convertisseur RS23/USB

La liaison RS232 :
RG1(Tx) et RG2 (Rx) sur connecteur carte fille MikroBus 1 =E/S TTL UART2 (niveau 3,3V !)
-> adaptateur 2TR TTL/RS232 -> DB9M
adaptateur raccord DB9F/DB9F
DB9M -> Cordon adaptateur TREND TUS9 -> USB
Nota: L'alim 3,3V pour l'interface 2TR est prise sur la connectique MikroBUS
Avant de lancer le terminal VBRAY, il faut connaitre quel est le port COM affecté a l'interface USB TUS9

le montage de test

Gestion de peripheriques -> PORT (COM et LPT)
on repere ici facilement le PORT Prolific COM22
Ouvrir le terminal VBRAY avec le PORT COM22 et parametres 19200,8,N,1
Let's GO!

Le programme :
gestion de l'UART #2 en mode interruption
Mesure Analogique sur RA0 = ADC0
Etat des 2 BP de la carte
Timer0 calé sur 1 sec pour cadencer le programme
Affichage en Echo du buffer de reception

Source : Clicker2_18F87J50_ADC_UART2_150723.c
Chargeur : PIC18FJ_USB_HID_Terminal_150713.hex

Nota1:
test similaire avec un VRAI port RS232 ( necessite quand meme l'interface 2TR !)
donne exactement le mem resultat avec VBRAY COM1 ..port RS232 sur PC Win XP
Nota 2: L'interface 2TR fonctionne aussi bien en niveaux UART 3,3V ou 5V
si on l'alimente , respectivement en 3,3 ou 5V
Dans le cas present , le PIC18F87J50 est alimenté en 3,3V..

Clicker2 et 3,5 ou 4 Liaisons de COM

UART1 Rs232+ UART2 RS232 + HID Terminal USB
UART3 TX seulement 100% software
ou UART3 TX et RX 100% software si RB0 est dispo

Hardware :

//Nota: interface 2TR alimenté en 3,3V repris sur clicker2
// RG1 = TX2 ---- interface 2TR TTL/RS232 ------ cable interface Trend TUS9 RS232/USB -- PC Win 8.1
// RG2 = Rx2 ---- interface 2TR TTL/RS232 ------
// RC6 = TX1 ---- interface 2TR TTL/RS232 ------ DB9 --- COM1 PC Win XP
// RC7 = RX1 ---- interface 2TR TTL/RS232 ------

SOFTWARE :
Directory : C:\_MikroC\_MesProjets_MikroC\__18F87J50_Clicker2\
Project name: PIC18F87J50_UART1_UART2_HID_ADC0_test.mcppi
Source ; Clicker2_18F87J50_ADC_UART1_UART2_HID_150729.c
USB descriptor USBdsc_Cliker2.c
MCU: PIC18F87J50 on Pick Click2
Oscillator: HS-PLL 32.0000 MHz, 8.0000 MHz Crystal

Source : Clicker2_18F87J50_ADC_UART1_UART2_HID_150729.c
Chargeur : PIC18F87J50_UART1_UART2_HID_ADC0_test_150729.hex
Config bits : P18F87J50_PLL_8_to_48MHz.cfgsch

Resultats :
dialogues sur 3 Terminaux de COM:

VBRAY terminal COM1 (Vrai port RS232 sur PC Win XP) 10:38:46.156> Version : 24-07-2015 a 10:38:46.156> UART1 Test ADC0 with Clicker2 PIC18F87J50 10:38:46.218> Init ADC0 10:38:47.156> Init ADC0 10:38:47.156> Arme IT UART1 .. Boucle principale 10:38:47.218> EAO= 226 10:38:48.656> EAO= 196 10:38:50.343> EAO= 197 10:43:11.328> UART1 Recu : GREEN_ON 10:43:13.015> EAO= 198 10:43:14.703> EAO= 198 10:43:14.703> UART1 Recu : GREEN_OFF 10:43:16.390> EAO= 197 10:43:16.390> UART1 Recu : U;15;04;15;03;19;02;# 10:43:18.015> EAO= 198 10:43:19.703> EAO= 197	VBRAY Terminal COM22 (* COM22 car via converter USB/RS232 avec PC ASUS WIN 8.1!) Terminal log file Date: 29/07/2015 - 10:45:25 ----------------------------------------------- 10:45:41.041, Version : 24-07-2015 a 10:45:41.041, UART2 & ADC Tests with Clicker2 PIC18F87J50 10:45:41.041, Init Timer0 IT 10:45:41.265, Arme IT UART2 ...Boucle principale 10:45:41.265, Etat de BP1= 1 BP2 = 1 10:45:42.685, Etat de BP1= 1 BP2 = 1 10:45:44.430, Etat de BP1= 1 BP2 = 1 10:45:46.076, Etat de BP1= 0 BP2 = 1 10:45:47.715, Etat de BP1= 1 BP2 = 1 10:45:49.467, Etat de BP1= 1 BP2 = 0 10:45:51.108, Etat de BP1= 1 BP2 = 0 10:45:52.747, Etat de BP1= 1 BP2 = 1 10:45:54.387, Etat de BP1= 1 BP2 = 0 10:45:56.139, Etat de BP1= 0 BP2 = 0 10:45:57.775, Etat de BP1= 0 BP2 = 0 10:45:59.417, Etat de BP1= 1 BP2 = 1 10:46:01.166, Etat de BP1= 1 BP2 = 1 10:46:01.166, UART2 Recu : U;05;07;21;02;17:45# 10:46:02.805, Etat de BP1= 1 BP2 = 1 10:46:04.447, Etat de BP1= 1 BP2 = 1 10:46:06.200, Etat de BP1= 1 BP2 = 1 10:46:06.200, UART2 Recu : OK	Mikroe HID terminal Fosc (Khz) avec PLL=1 48000 Reception de: blabla Reception de: LD2_ON Fire LD2 Reception de: LD2_OFF Shutdown LD2 Reception de: LD1_ON Fire LD1 Reception de: LD1_OFF Shutdown LD1
Vbray Terminal COM1 RS232	VBray Terminal COM22	Mikroe HID Terminal USB

Un port UART3 en mode Transmit Seulement
pour Spy/debuging echanges de communication
Routine d'ecriture sur une sortie queconque d'un PORT PIC
100% en assembleur
Testé a 38400 bauds et FOSC=48Mhz
voir fil de discussion ICI.

j'ai testé un (demi : car on n'utilise pas RX ) UART3 TX 100% asm , sortie sur RA2
(pin libre sur mon montage) , donc en transmission seulement !

voici le code de test :
il n'est pas optimisé pour un 18F évolué .. peut tourner meme sur un 16F84 !
le point clé est de bien regler la duree d'un bit
a 19200 bauds duree d'un bit=52?S

un GROS PIEGE a IONS .. data complementé ! car niveau 1 au repos
je me suis fait piegé en testant avec 0x55 et 0xAA .. qui donne inversé 0xAA 0X55 ...me semblait OK
alors qu"en ascci en envoyant "bonjour" , j'affichais n'importe quoi.

Avec le debugger et la fenetre watch on "voit" exactement le nb de cycles donc de ?S ecoulées dans RS_Delay.
conditions : FOSC =8MHz
a adapter si FOSC est different
de meme la sortie RA2 ..

Inconvenient de cette solution bit-bang
sensible aux interruptions activées (Timer..ou autre perturbation)
mais on peut toujours desactiver GIE_bit avant et apres l'envoi d'un car.
Dans le cas present, l'envoi d'un char bouffera 52*10=520 ?S minimum ! 10 cars 5,2mS , 100 cars 52mS
reste possible de l'utilser la ou on met habituellement des Delay_ms(xx);
il n'y a pas photo, un UART Hardware est le must.

#define OSCILLATEUR_INTERNE unsigned char c1; unsigned char TEXTE[80]; unsigned char * txt; unsigned char RS_Count; unsigned char RS_tmp; unsigned char RS_Delay ; //temporisation de la durée d'un bit // --- Copie le texte depuis ROM vers RAM void strConstRamCpy(char *dest, const char *source) { while(*source) *dest++ = *source++ ; *dest = 0 ; // terminateur } void UART3_Write_Text(unsigned char *T) { while(*(T)>0) // verif sur VBRAY en mode ASCII { c3=*(T++); // complement du caractere ! Send_Char_on_RA2(c3); // c1 variable globale } } void Send_Char_on_RA2(unsigned char cx) { c3=~cx; _asm{ RSsend: movlw 8 ; 8 bits movwf _RS_Count ; compteur de bits envoyés bcf LATA,2 ; bit de start call RSdelai1 ; tempo // rrf _c1,f ; on recupere dans C le bit a envoyer // syntaxe a revoir en fonction du PIC utilisé L0: rrcf _c3,1 ; on recupere dans C le bit a envoyer btfsc STATUS,C ; bit a envoyer = 1 ? goto L1 ; oui bsf LATA,2 ; sinon 0 goto L2 ; on continue sur la tempo L1: bcf LATA,2 ; bit a 1 L2: call RSdelai1 ; tempo decfsz _RS_Count,1 ; on decremente le compteur de bits envoyés goto L0 ; on continue sur les bits suivants bcf LATA,2 ; bit de stop call RSdelai1 ; tempo pour bit de stop bsf LATA,2 call RSdelai1 ; tempo intercaractere call RSdelai1 ; tempo intercaractere goto LA RSdelai1: // duree d'un bit a 19200 bauds movf _RS_Delay,0 ; // parametrable via une variable C ou //MOVLW 31 ; 51?s // en dur dans le code asm MOVWF _RS_tmp ; RS0: DECFSZ _RS_tmp,F ; GOTO RS0 ; RETURN ; LA: nop; } } void main() { #ifdef OSCILLATEUR_INTERNE OSCCON=0x72; // 8Mhz OSCTUNE=0; OSCTUNE.PLLEN=0; // 0 =sans PLL => 1,2,4,8 ou Q= 8,10 ou 20MHz //OSCTUNE.PLLEN=1; // 1= avec PLL => FOSCx4 #endif TRISA2_bit=0; LATA2_bit=1; while(1) { txt=&TEXTE[0]; strConstRamCpy(txt,"Bonjour, TEST UART SOFT on RA2\r\n"); // UART sortie sur RA2 19200,8,N,1 while(*(txt)>0) // verif sur VBRAY en mode ASCII { c1=~(*(txt++)); // complement du caractere ! Send_Char_on_RA2(c1); } // 1er while Delay_ms(500); // a r }// 2em while }

Avec FOSC=48Mhz
Routine intercalée en interception Reception UART2 RX en mode interruption
Pour visu sur terminal Display (TX3 sur RA2) des reponses recue par UART2 RX

2em test avec FOSC=48MHZ ( PLL activée et UART3 a 38400 bauds .. OK)

Send_char_on_RA2_inc.c

Exemple de surveillance par UART3 echange BlueTooth (géré par UART2)

on peut donc avoir en tout 3,5 liaison RS232 sur un PIC18F87J50 (2 UART Hardware, 1 /2 UART Softw , 1 USB/UART virtuel

La version UART3 complete , si RB0 est disponible pour UART3 Soft RX3
24/11/2016
Ce n'est pas la bibliotheque MikroC Soft UART qui est utilisée ici.
Pour pouvoir controler une bonne recepetion, il faut pouvoir réagir vite, donc travailler en mode interruption
Pour cela , j'utilise RB0 comme pin de reception ,pour me servir de l'interupt RB0
sur front montant
La partie reception est en assembleur integrée dans le code mikroC.
Plutot que tout decrire ici, je vous renvoie sur ce lien ,ou j'ai déposé le code

void UARTS_Write(unsigned char c) { #ifdef Version_ASM Put_RsByte=c; _asm {// ------------------------------ // le caractere a envoyer doit se trouver en Put_RsByte Send_Char: Movlw 8 ;correspond . un byte de 8 bits Movwf _RsCount ;place dans RsCount BCF LATB, 2 ;bit start . 0 Call delay_RS ;wait valeur 1bit at 9600 Bauds (8Mhz) Send0: rrcf _Put_RsByte,F ;shift droite dans carry (rrf avec 16F) Btfsc STATUS,C ;si carry 0 alors saute // Goto $+3 ; usage de saut relatif pas possible avec mikroC Goto Send1 ; il faut utiliser des etiquettes de branchement BCF LATB, 2 ;Tx =0 // Goto $+2 Goto Send2 Send1: BSF LATB, 2 // TX=1 Send2: Call delay_RS Decfsz _RsCount,F ;RsCount =RsCount -1 Goto Send0 BSF LATB, 2 Call delay_RS ;byte envoyé return ;--------------- //special pour routine d'attente bit 9600 Bauds =>1000000/9600=104?S // ;3+ 67*3*3=207cycles at 8Mhz => 203* 0.5?S => 103.5 ?S delay_RS: MOVLW 67 ; .67 pour 9600bds at 8Mhz MOVWF _Count1 ; 1000000/9600=104?S delay1: DECFSZ _Count1,F ; 1 cycle si pas de saut GOTO delay1 ; // $-1 =>2cycles NOP NOP Return } //------ fin asm ------------------------ #else unsigned int i,j; unsigned int a; a=0; LATB.B2=0, Delay_us(102); LATB.B2=1, sc=c; // les 8 bits data for (i=0;i<8;i++) { a=sc & Poids[i]; if (a>0) LATB.B2=1; else LATB.B2=0; Delay_us(84); // au lieu de 104?S // Init_Timer0(); // 104?S //while(TMR0IF==0); } LATB.B2=1; // bit de stop Delay_us(102); //Init_Timer0; //104?S //while(TMR0IF==0); LATB.B2=1; // au repos #endif }

rev 02/02/2018

OLED C Click 96x96 65K couleurs en SPI

HARDWARE :


OLED C Click MikroE-1585	schema : adaptation connectique

Liaisons PIC18F87J50 et OLED_C_Click via MikroBus

Recapitulatif avec Datasheet SEPS114A

SOFTWARE :

Adaptation d'un exemple MikroE a ce MCU et Hardware.

C:\_MikroC\_MesProjets_MikroC\_Oled_click\Oled_C_18F87J50_150729.c
Imbrication LED1 et LED2 + Message via HID terminal ..pour tracage programme (debugging)
C:\_MikroC\_MesProjets_MikroC\_Oled_click\Oled_C_18F87J50_150729.c
1er essai .. NEGATIF .. rien ne se passe sur l'afficheur ..mais la liaison HID terminal est OK

2em essai.. OK
Le probleme etait dans le choix du support MikroBus #1 ou #2 pour la pin D/C
et l'inversion au niveau SPI MOSI , MISO correspondant a SDI Oled et SDO oled
Mon choix final est la socket MicroBus #2, car je veux garder RA0 comme entree ANA.(qui est sur socket #1)
le tout étant de bien se souvenir de la definition MOSI => Master Output (to) Slave Input donc Sortie MCU vers Entree Oled


OLED C Click	OLED monté sur socket #2 Clicker2

terminal HID :
31-07-2015 a OLED sur mikroBus #2 D2_OFFInt ADC ch0 EA0 = 242 EA0 = 198 EA0 = 198 EA0 = 199 EA0 = 199 EA0 = 199 EA0 = 199

Adaptation Exemple MikroE :
Source : Oled_C_18F87J50_150731.c
Chargeur : Oled_C_18F87J50_150731.hex
Projet complet : _18F87J50_Oled_click_150731.zip

Affichage (Dessin) de texte :

ATTENTION: l'ecran est positionné a l'envers par rapport au repere OLED de la carte microclick.
Il n'y a pas de generateur de caractere dans ce type d'afficheur grafique.
Il faut utiliser une matrice des caracteres a afficher .Ici table de 92 caracteres affichables
Espace=32 ..
L'index d'une letrre , dans la table de caractere (Font) est donc son code -32
La lettre est representée couchée horizontalement ..
il faut explorer la 1ere collonne de chaque caractere , et d'apres le poids de chaque bit , allumer l epixel correspondant
et ainsi pour les 8 lignes de chaque representation (1 octet par colonne)
La difficulté , pour cet afficheur est de bien connaitre la fonction de deplacement de position dans la memeoire ecran
Perdu beaucoup de temps avec la fonction
alors qu'il faut utiliser :
MEM_X1 X // twice the same value !
MEM_X2 X
MEM_Y1 Y
MEM_Y2 Y
ce qui n'est Surtout pas evident !

Des qu'on arrive a maitriser la position et la couleur d'un point sur l'ecran, le rest es uit facilement .. Line,rectangle,cercle ...
deja developpé avec un Nokia 96x96 N&B.. plus facile a mettre en oeuvre in fine.


OLED -C click sur Clicker2 + UART2 link RS232	detail afficheur

Projet: MikroC

Projet : Oled_C_Texte_18F87J50.mcppi
source : Oled_C_18F87J50_150804.c
Chargeur : Oled_C_Texte_18F87J50_150804.hex
Annexes:
* USBdsc_1507.c
* Oled_C_18FJ.h
config : Oled_C_Texte_18F87J50.cfg
nota: Case sensitive cochée !

J'ai utilisé l'UART2 comme outil de debugging , afin de tracer ce qui devait apparaitre sur l'ecran
de sorte a valider d'abord l'alogorytme de "dessin de texte" avant de me pencher sur les instructions de l' OLED C
j'obtiens d'ailleur ce resultat sur le terminal Vbray..

OLED_text_test_with_UART2.txt

Usage font 5x7
( la meme que pour le Nokia 3310 96x48) pour avoir 16 car par ligne.

16 cars par ligne et mode dilaté 2x et 3x vertical

A suivre : autres fonctions barregraph, indicateur ...

Afficheur LCD 2119 2x16 car , direct I2C
rev 15 sept 2015

voir aussi : Ready_For_PIC_18F45K22_Tests.htm

Hardware :


Test avec PIC18F87J50 Clicker2	connectique

ref du LCD : LCD_2x16_MC21605E6W-SPTLYI
récupération Docu sur farnell
Connecteur 6 pins :
Liaison 2 fils au LCD : I2C SDA, I2C SCL ,+ alim= +3,3V et Gnd
+ retro eclairage led Backlight A.K. alimentée en 3,3V via R=220 Ohms
Backlighting Colour: Yellow Green
Character Count x Line: 16 x 2
Display Area Height: 15.8mm
Display Area Width: 61mm

Software :
Trouver la bonne adresse I2C .. 0x74
Dialogue en I2C specifique .. ce n'est pas un traditionnel LCD 2x16 + circuit annexe interface I2C
La 1ere ligne debute en DDRAM 0x80
La 2em Ligne .. en 0xC0
les caractere imprimables a partir de 0x80H

voir docu : PCF2119X_rev12.pdf
Projet MikroC: 18F87J50_Uart_LCD_I2C_PCF2119.zip

19:30:55.687> Version : 03-09-2015 b
19:30:55.687> UART1 Test ADC0 with Clicker2 PIC18F87J50
19:30:55.750> Init ADC0
19:30:55.937> Init I2C1 100Khz
19:30:56.062> Device at adresse 74 found OK
19:30:56.062> Init Display LCD2119
19:30:56.687> Nb Step = 5
19:30:56.687> Write ABCDEF sur LCD2119

voir Notes_LCD_PCF2119_150906.txt
voir ce fil de discussion

Version modulaire : la partie LCD est dans un fichier include ..
donc plus facilement transposable sur un autre modele de PIC
18F87J50_LCD_2119_2x16c_I2C_h.zip

Generation nombre aleatoire

Exemple pour un nombre de 1 a 4 :
un compteur timer ex: Timer2 avec auto reload qui tourne tout seul dans son coin , sans activer d'interrupt!
PR2=255
avec T=1mS ou moins
on lit le timer2 et result=1 + (TMR2 >>6) => entre 1 et 4

Hardware:

carte Clicker2 PIC18F87J50

Software :

MikroC
pour 18F87J50 FOSC=48Mhz

sbit BP1 at RD7_bit; sbit BP1_Direction at TRISD7_bit; char Table_Alea[34]; char c1; int i; void Init_Timer2() // specifique 18F87J50 .. a verifier avec autre PIC { TMR2=255 ; // si FOSC=48MHZ Prescaler=1/4 Postscaler=1/8 Time=0,68mS // si FOSC=8MHz Prescaler=1/1 Postscaler=1/8 Time=1,02mS // prescaler =1/16 avec 48Mhz 00=>1/1 01=>1/4 10=>1/16 T2CON.T2CKPS1=0; T2CON.T2CKPS0=1; // PostScaler=>1/1 0000=>1/1 0011=> 1/4 0111=>1/8 1111=> 1/16 T2CON.T2OUTPS3 =0; T2CON.T2OUTPS2 =1; T2CON.T2OUTPS1 =1; T2CON.T2OUTPS0 =1; T2CON.TMR2ON=1; IPR1.TMR2IP =0; PIR1.TMR2IF=0; PIE1.TMR2IE=0; // no interrupt } void main() { // ...FOSC Hardware_Init(); UART1_Init(38400); UART1_Write(CLS); // ....etc Init_Timer2(); i=0; UART1_Write_CText("Appui successif ou appui suffisament long sur BP1 pour remplir la table Aleas :\r\n"); while(i<32) { while(BP1==1); if(BP1==0) // BP1=1 au repos { c1=(TMR2 >>6) +1 ; Table_Alea[i]= c1 ; i++; Delay_ms(147); } CRLF1(); } UART1_Write_CText(" Contenu Table Aleas :\r\n"); for (i=0;i<32;i++) { if (i%8==0) CRLF1(); c1=Table_Alea[i]; UART1_Write(c1+48); UART1_Write(' '); } CRLF1(); while(1);

Resultat:
chaque ligne correspond a une valeur stockée
avec plusieurs appui sur BP1 ! jusqu'a remplir les 32 valeurs

11:15:38.484> Appui successif ou appui suffisament long sur BP1 pour remplir la table Aleas : 11:15:44.796> 11:15:44.921> 11:15:45.921> 11:15:46.046> 11:15:46.234> 11:15:46.359> 11:15:47.546> 11:15:47.671> 11:15:47.796> 11:15:48.484> 11:15:48.609> 11:15:50.609> 11:15:50.734> 11:15:51.421> 11:15:51.921> 11:15:52.109> 11:15:52.734> 11:15:52.921> 11:15:53.359> 11:15:53.546> 11:15:53.671> 11:15:53.859> 11:15:54.484> 11:15:54.609> 11:15:55.109> 11:15:55.296> 11:15:55.421> 11:15:55.546> 11:15:55.734> 11:15:55.859> 11:15:56.484> 11:15:56.671> 11:15:56.671> Contenu Table Aleas : 11:15:56.671> 11:15:56.671> 4 3 4 1 1 1 1 1 11:15:56.671> 2 3 3 4 4 3 4 1 11:15:56.671> 4 4 4 4 4 4 3 3 11:15:56.671> 3 4 4 4 4 4 1 1

Finalement , en enlevant le Delay_ms(147);
on profite des 3rebonds" de BP1 pour augmenter les aleas !
pour obtenir en 1 seul appui <= 50mS une table presentant une meilleur distribution aleatoire

11:36:56.984> Appui successif ou appui suffisament long sur BP1 pour remplir la table Aleas : 11:36:58.234> 11:36:58.234> 11:36:58.234> 11:36:58.234> 11:36:58.234> 11:36:58.234> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> 11:36:58.296> Contenu Table Aleas : 11:36:58.296> 11:36:58.296> 1 2 4 3 2 1 4 2 11:36:58.296> 1 4 3 2 4 3 2 1 11:36:58.296> 4 3 1 4 3 2 1 3 11:36:58.296> 2 1 4 3 1 4 3 2

Il y a surement mieux ... a suivre !

retour a l'index

V.O. 21 juillet 2015 last update 03 Fev. 2018 Carte Clicker2 PIC18F87J50

V.O. 21 juillet 2015
last update 03 Fev. 2018

Carte Clicker2 PIC18F87J50