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

Soyez le premier à donner votre avis sur cette source.

Vue 14 915 fois - Téléchargée 1 348 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

mic1502
Messages postés
2
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
5 juin 2012
-
BONSOIR JE N'ARRIVE PAS A FAIRE FONCTIONNER le logiciel lcd il me réclame lcd ocx.que faire je suis debutant
merci
bastien62
Messages postés
6
Date d'inscription
mercredi 15 février 2006
Statut
Membre
Dernière intervention
16 août 2006
-
d'ailleurs si vous etes dans le Pas de calais et que vous debrouillez bien en PHP. l'asso. vous acceuillera les bras ouverts
bastien62
Messages postés
6
Date d'inscription
mercredi 15 février 2006
Statut
Membre
Dernière intervention
16 août 2006
-
(http://www.jackypc.com/articles/106/shema.gif)
on a meme creer les cablages et la carte pour relier votre Lcd à un port usb ou Lpt; on pourrait vous les fabriquer, prenez contact atelier_microlan sur laposte.net
kafard est comme moi chez Microlan association (http://www.micro-lan.info)
Orikata
Messages postés
8
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
11 juillet 2006
-
vous pouvez commander vos lcd sur www.lextronic.com, ils sont vraiment à de très bons prix et ils sont serieux.

pour les utilisateurs de win NT/200/Xp, il vous faudra sans doute juste installer (sans configurer) port95nt.

allez aussi jetter un oeil sur www.jalcd.de
Megawatt2000
Messages postés
28
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
2 février 2006
-
Il arrive aussi que des commandes groupées se fassent sur www.ixus.net (rubrique forums=>Ipcop). A l'origine c'est pour les faire fonctionner avec cette distrib linux qu'ils font ces commandes.

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.