Bonjour,
merci beaucoup pour la réponse rapide, je vais éplucher votre code pour voir s'il me manque quelque chose :)
merci beaucoup pour la réponse rapide, je vais éplucher votre code pour voir s'il me manque quelque chose :)
Bienvenue au Forum de discussion Électro-Bidouilleur! Inscrivez-vous pour participer aux discussions!:
https://forum.bidouilleur.ca/index.php?action=signup Les demandes d'inscription sont révisées quotidiennement.
Cette section vous permet de consulter les contributions (messages, sujets et fichiers joints) d'un utilisateur. Vous ne pourrez voir que les contributions des zones auxquelles vous avez accès.
Voir les contributions Menugosub initialisation ;aller au sous programme init
pause 200 ;pause de 200ms
main:
let b1 = 84 ;envoie 87 ("T", ASCII) dans la variable b1
gosub sendchar
pause 500
let b1 = 69 ;envoie "E"
gosub sendchar
pause 500
let b1 = 101 ;envoie "e"
gosub sendchar
pause 500
let b1 = 115 ;envoie "s"
gosub sendchar
pause 500
let b1 = 116 ;envoie "t"
gosub sendchar
pause 4000
let b1 = 2 ;return home
gosub sendinstr
pause 2000
goto main
initialisation: ;sous programme d'initialisation
pause 500
let b1 = 56 ;indique à l'afficheur que l'on veut travailler avec 8 bits sur 2 lignes
gosub sendinstr
pause 50
let b1 = 14 ;active l'affichage
gosub sendinstr
pause 50
let b1 = 6 ;incremente l'adresse
gosub sendinstr
pause 50
return
sendchar: ;sous programme d'envoi d'un caractere
pause 10
high C.0 ;RS = 1
let pinsB = b1
high C.1 ;E = 1
pause 10
low C.1 ;E = 0
pause 10
return
sendinstr: ;sous programme d'envoi d'une instruction
pause 10
low C.0 ;RS = 0
let pinsB = b1
high C.1 ;E = 1
pause 10
low C.1 ;E = 0
pause 10
return