envoyer des donnee de pic vers pc par port serie

[invite7cb641da]

bonjour ,
j'ai des donnéees en en 7 addresses que je veux les transmettre du pic 16f877 vers le pc par le port serie
si quelqu'un a un programme qui fait ça qu'il me le l'envoi ,je serai tres reconaissant
merci d'avance
-----

[lebaron71]

pour quel micro, quelle vitesse, quel standard ????

[invite7cb641da]

pour le 16f877 , vitesse=9600

voila le programme que j fais ,mais le probleme c quand je l'execute sur ISIS pour afficher le caractere que je veux envoyer du pic ,il s'affiche 8 fois ::



list p=16F877,r=dec
include<p16F877.inc>
__CONFIG H'3F39'

unite_seconde EQU 0x021

org 0x0000
movlw 0x41
MOVWF 0x021




bsf STATUS,RP0 ;Passage à la bank 1
bsf TRISC,6 ;RC6/TX en entrée
movlw b'00100101' ;(mode 8 bits, valider transmission,asynchrone, BRGH)
movwf TXSTA
movlw b'10000001'
movwf SPBRG

bcf STATUS,RP0 ;Revenir à la bank 0
bsf RCSTA,SPEN ;Valider le port
call test


movfw unite_seconde ;la donnee à transmettre
movwf TXREG
call test



test btfss PIR1,TXIF
goto $-1
return

end

[lebaron71]

aprés le "call test", ajouter
boucle: goto boucle
sinon isis a chaque "return" dépile et s'arrete quand la pile est vide...

[A voir en vidéo sur Futura]

[invite7cb641da]

merci,
j'ai resolu le probleme , mais j'ai rencontré un autre , j'ai modifié ce programme pour qu'il puisse afficher des chiffre en decimal qui sont stocker sur des @ quelquonque ,mais ça ne s'affiche pas sur le terminal qu'on je le simule par ISIS proteus meme si je le convertie en ASCII ,quelqu'un peur m'aider?? voila le programme 'dans ce programme je veux afficher 48):

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;
list p=16F877,r=dec
include<p16F877.inc>
__CONFIG H'3F39'

variable1 EQU 0x021
variable2 EQU 0x022

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;

org 0x0000
clrf TXREG
movlw d'4'
MOVWF variable1

movlw d'8'
MOVWF variable2




NOP ; Required for ICD mode

BANKSEL TRISD ; Select bank 1
CLRF TRISD ; Display outputs
BCF TXSTA,TX9 ; Select 8-bit transmission
BCF TXSTA,TXEN ; Disable transmission initially
BCF TXSTA,SYNC ; Asynchronous mode
BSF TXSTA,BRGH ; High baud rate




MOVLW D'25' ; Baud rate counter value ..
MOVWF SPBRG ; .. for 9600 baud, 4MHz clock
BSF TXSTA,TXEN ; Enable transmission

BANKSEL RCSTA ; Select bank 0
BSF RCSTA,SPEN ; Enable serial port


movlw d'48'
addwf variable1,f ; convertir '4' en code ASCII
addwf variable2,f ; convertir '8' en code ASCII


MOVF variable1,f
MOVWF TXREG ; afficher '4' sur virtual terminal
call waitot


MOVF variable2,f
MOVWF TXREG ; afficher '8' sur virtual terminal
call waitot
call readin

waitot BTFSS PIR1,TXIF ; sent?
GOTO waitot ; no
RETURN ; yes

readin sleep
end