Controler votre lcd sur port paralelle compatible hd44780 en 4 ou 8 bit avec plein de parametres

Télécharger le projet
Commenter

Description

Ca fait longtemp que je cherché un code en VB me permettant d'afficher le texte que je voulais... malheureusement, dans la plupart des cas, rien de fonctionné... Heureusement je suis tombé sur un site d'un allemand ( www.hobbyelektronik.org ) qui proposé un module permettant le controle de n'importe quel LCD (compatible HD44780 ) branché sur port paralelle.

Ma partie de code est simple, il montre juste l'initialisation de mon LCD 4 lignes et affiche "TEST LCD" sur la 2eme ligne.

J'ai ajouté l'explication venant du site d'origine de toute les commandes, par contre désolé c'est en allemand...

Source / Exemple : 


Private Sub Form_Load()

' 888 = LPT1
' 632 = LPT2
Port = 888

'Functionset(Interface8Bit As Boolean, Multiline As Boolean, Controller As DspContr = cUp)
Functionset True, True

' m8bit, m4bit, mdefault
Mode = m8Bit

'Init(ShowCursor As Boolean, CursorBlink As Boolean, Controller As DspContr = cUp, Mode As DspMode = mDefault)
Init False, False

'ClearDisplay(Controller As DspContr = cUp)
ClearDisplay cBoth

'Possibilité: s2x08, s2x16, s2x20, s2x24, s2x40, s1x16, s4x16, s4x20, s4x27,s4x40
Size = s4x20

MONtexte = "TEST LCD"
LARGEURduLCD = 20

'SetPos(LcdRow As Long, LcdColumn as Long)
SetPos 2, ((LARGEURduLCD - Len(MONtexte)) / 2)

'WriteText(LcdText As String)
WriteText MONtexte

End

End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (KaFarD)