Afficheur lcd

Soyez le premier à donner votre avis sur cette source.

Vue 8 336 fois - Téléchargée 1 255 fois

Description

Afficheur LCD

Source / Exemple :


'dans le Zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
88
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
24 février 2006

Pas mal pour un début... Mais pour ceux qui veulent plus simple, il existe deux polices qui font la même chose (LCD et Quartz). Mais bravo pour l'effort!
Messages postés
4
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
28 mai 2002

Merci pour les petits conseils d'optimisation. Je suis débutant alors ca m'aide beaucoup.
@+
Messages postés
78
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
7 septembre 2006

Il y a encore moyen d'optimiser un peu plus :

Private Sub cmdGo_Click()
Dim x As Integer 'contient l'index de l'image(pic0)
Dim chiffre As Integer 'contient un chiffre seulement
If Text1.Text "" Then Text1.Text "0" 'si le texte = rien, on met 0 par defaut
For x = 1 To len(text1.text)
pic0(x-1).Picture = LoadPicture(App.Path + "" & mid(Text1.Text,x,1) & ".bmp")
Next x
End Sub
Messages postés
78
Date d'inscription
jeudi 4 janvier 2001
Statut
Membre
Dernière intervention
2 mars 2012

salut, pas trop mal ton lcd, mais pas tres optimiser, c'est pas grave le code n'est pas complexe. je te redonne ton code avec un peu plus d'optimisation.

Option Explicit

Private Sub cmdGo_Click()
Dim x As Integer 'contient l'index de l'image(pic0)
Dim nbChiffres As Integer
Dim chiffre As Integer 'contient un chiffre seulement
If Text1.Text "" Then Text1.Text "0" 'si le texte = rien, on met 0 par defaut
nbChiffres = Len(Text1.Text) 'contient le nombre de chiffres écrit
For x = 0 To nbChiffres - 1
If nbChiffres - (x + 1) < 0 Then Exit Sub 's'il n'y a plus de chiffres, on sort
Text1.SelStart = nbChiffres - (x + 1) 'selectionne le
Text1.SetFocus 'dernier chiffre, ensuite le
Text1.SelLength = 1 'suivant....jusqu'au premier
pic0(x).Picture = LoadPicture(App.Path + "" & Text1.SelText & ".bmp")
Next x
Text1.SelStart = 0 'place le curseur au début du texte
Text1.SetFocus 'met le focus
End Sub

Private Sub Text1_Click()
Dim x As Integer 'contient l'index de l'image(pic0)
Text1.Text = "" 'efface le texte lorsqu'on click
'efface toutes les images pour recommencer a nouveau
For x = 0 To 5
Set pic0(x).Picture = Nothing
Next
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
'pour empecher que l'usager entre autre chose que des chiffres
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 ' Cancel le caractere.
Beep ' Son d'erreur.
End If
End Sub

A+
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

heu... un peu space, ton lcd mais bon, ya un effort...
8/10 !

A+

shivan

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.