Digiafficheur

Soyez le premier à donner votre avis sur cette source.

Vue 2 933 fois - Téléchargée 221 fois

Description

C'est juste une reproduction toute conne d'un afficheur LCD 6 chiffres...
En fait c'est juste pour montrer qu'il existe une methode beaucoup plus simple de rendre cet effet sans utiliser et fair tout se que j'ai vu dans une certaine source.
Je ne dit pas que c pas bien au contraire c'est tres bien mais il vous faus savoir que la et la methode plus simple et je pense qu'il en existe des plus simple encore.

Vous avec besoin :
D'une form (Form1)
1 textbox (text1)
2 commandbutons command1 & command2
42 line (a, b, c, d, e, f, g ; a1, b1, Etc jusqu'a g5)

Source / Exemple :


Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
Call Un(Left(Text1.Text, 1))
Call Deux(Right(Left(Text1.Text, 2), 1))
Call Trois(Right(Left(Text1.Text, 3), 1))
Call Quatre(Right(Left(Text1.Text, 4), 1))
Call Cinq(Right(Left(Text1.Text, 5), 1))
Call Six(Right(Text1.Text, 1))
End Sub
Private Sub Un(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A.Visible = True
B.Visible = True
C.Visible = True
D.Visible = False
E.Visible = True
F.Visible = True
G.Visible = True
Case 1
A.Visible = False
B.Visible = False
C.Visible = True
D.Visible = False
E.Visible = False
F.Visible = True
G.Visible = False
Case 2
A.Visible = True
B.Visible = False
C.Visible = True
D.Visible = True
E.Visible = True
F.Visible = False
G.Visible = True
Case 3
A.Visible = True
B.Visible = False
C.Visible = True
D.Visible = True
E.Visible = False
F.Visible = True
G.Visible = True
Case 4
A.Visible = False
B.Visible = True
C.Visible = True
D.Visible = True
E.Visible = False
F.Visible = True
G.Visible = False
Case 5
A.Visible = True
B.Visible = True
C.Visible = False
D.Visible = True
E.Visible = False
F.Visible = True
G.Visible = True
Case 6
A.Visible = True
B.Visible = True
C.Visible = False
D.Visible = True
E.Visible = True
F.Visible = True
G.Visible = True
Case 7
A.Visible = True
B.Visible = False
C.Visible = True
D.Visible = False
E.Visible = False
F.Visible = True
G.Visible = False
Case 8
A.Visible = True
B.Visible = True
C.Visible = True
D.Visible = True
E.Visible = True
F.Visible = True
G.Visible = True
Case 9
A.Visible = True
B.Visible = True
C.Visible = True
D.Visible = True
E.Visible = False
F.Visible = True
G.Visible = True
End Select
End Sub
Private Sub Deux(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A1.Visible = True
B2.Visible = True
C1.Visible = True
D1.Visible = False
E1.Visible = True
F1.Visible = True
G1.Visible = True
Case 1
A1.Visible = False
B1.Visible = False
C1.Visible = True
D1.Visible = False
E1.Visible = False
F1.Visible = True
G1.Visible = False
Case 2
A1.Visible = True
B1.Visible = False
C1.Visible = True
D1.Visible = True
E1.Visible = True
F1.Visible = False
G1.Visible = True
Case 3
A1.Visible = True
B1.Visible = False
C1.Visible = True
D1.Visible = True
E1.Visible = False
F1.Visible = True
G1.Visible = True
Case 4
A1.Visible = False
B1.Visible = True
C1.Visible = True
D1.Visible = True
E1.Visible = False
F1.Visible = True
G1.Visible = False
Case 5
A1.Visible = True
B1.Visible = True
C1.Visible = False
D1.Visible = True
E1.Visible = False
F1.Visible = True
G1.Visible = True
Case 6
A1.Visible = True
B1.Visible = True
C1.Visible = False
D1.Visible = True
E1.Visible = True
F1.Visible = True
G1.Visible = True
Case 7
A1.Visible = True
B1.Visible = False
C1.Visible = True
D1.Visible = False
E1.Visible = False
F1.Visible = True
G1.Visible = False
Case 8
A1.Visible = True
B1.Visible = True
C1.Visible = True
D1.Visible = True
E1.Visible = True
F1.Visible = True
G1.Visible = True
Case 9
A1.Visible = True
B1.Visible = True
C1.Visible = True
D1.Visible = True
E1.Visible = False
F1.Visible = True
G1.Visible = True
End Select
End Sub
Private Sub Trois(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A2.Visible = True
B2.Visible = True
C2.Visible = True
D2.Visible = False
E2.Visible = True
F2.Visible = True
G2.Visible = True
Case 1
A2.Visible = False
B2.Visible = False
C2.Visible = True
D2.Visible = False
E2.Visible = False
F2.Visible = True
G2.Visible = False
Case 2
A.Visible = True
B2.Visible = False
C2.Visible = True
D2.Visible = True
E2.Visible = True
F2.Visible = False
G2.Visible = True
Case 3
A2.Visible = True
B2.Visible = False
C2.Visible = True
D2.Visible = True
E2.Visible = False
F2.Visible = True
G2.Visible = True
Case 4
A2.Visible = False
B2.Visible = True
C2.Visible = True
D2.Visible = True
E2.Visible = False
F2.Visible = True
G2.Visible = False
Case 5
A2.Visible = True
B2.Visible = True
C2.Visible = False
D2.Visible = True
E2.Visible = False
F2.Visible = True
G2.Visible = True
Case 6
A2.Visible = True
B2.Visible = True
C2.Visible = False
D2.Visible = True
E2.Visible = True
F2.Visible = True
G2.Visible = True
Case 7
A2.Visible = True
B2.Visible = False
C2.Visible = True
D2.Visible = False
E2.Visible = False
F2.Visible = True
G2.Visible = False
Case 8
A2.Visible = True
B2.Visible = True
C2.Visible = True
D2.Visible = True
E2.Visible = True
F2.Visible = True
G2.Visible = True
Case 9
A2.Visible = True
B2.Visible = True
C2.Visible = True
D2.Visible = True
E2.Visible = False
F2.Visible = True
G2.Visible = True
End Select
End Sub
Private Sub Quatre(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A3.Visible = True
B3.Visible = True
C3.Visible = True
D3.Visible = False
E3.Visible = True
F3.Visible = True
G3.Visible = True
Case 1
A3.Visible = False
B3.Visible = False
C3.Visible = True
D3.Visible = False
E3.Visible = False
F3.Visible = True
G3.Visible = False
Case 2
A3.Visible = True
B3.Visible = False
C3.Visible = True
D3.Visible = True
E3.Visible = True
F3.Visible = False
G3.Visible = True
Case 3
A3.Visible = True
B3.Visible = False
C3.Visible = True
D3.Visible = True
E3.Visible = False
F3.Visible = True
G3.Visible = True
Case 4
A3.Visible = False
B3.Visible = True
C3.Visible = True
D3.Visible = True
E3.Visible = False
F3.Visible = True
G3.Visible = False
Case 5
A3.Visible = True
B3.Visible = True
C3.Visible = False
D3.Visible = True
E3.Visible = False
F3.Visible = True
G3.Visible = True
Case 6
A3.Visible = True
B3.Visible = True
C3.Visible = False
D3.Visible = True
E3.Visible = True
F3.Visible = True
G3.Visible = True
Case 7
A3.Visible = True
B3.Visible = False
C3.Visible = True
D3.Visible = False
E3.Visible = False
F3.Visible = True
G3.Visible = False
Case 8
A3.Visible = True
B3.Visible = True
C3.Visible = True
D3.Visible = True
E3.Visible = True
F3.Visible = True
G3.Visible = True
Case 9
A3.Visible = True
B3.Visible = True
C3.Visible = True
D3.Visible = True
E3.Visible = False
F3.Visible = True
G3.Visible = True
End Select
End Sub
Private Sub Cinq(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A4.Visible = True
B4.Visible = True
C4.Visible = True
D4.Visible = False
E4.Visible = True
F4.Visible = True
G4.Visible = True
Case 1
A4.Visible = False
B4.Visible = False
C4.Visible = True
D4.Visible = False
E4.Visible = False
F4.Visible = True
G4.Visible = False
Case 2
A4.Visible = True
B4.Visible = False
C4.Visible = True
D4.Visible = True
E4.Visible = True
F4.Visible = False
G4.Visible = True
Case 3
A4.Visible = True
B4.Visible = False
C4.Visible = True
D4.Visible = True
E4.Visible = False
F4.Visible = True
G4.Visible = True
Case 4
A4.Visible = False
B4.Visible = True
C4.Visible = True
D4.Visible = True
E4.Visible = False
F4.Visible = True
G4.Visible = False
Case 5
A4.Visible = True
B4.Visible = True
C4.Visible = False
D4.Visible = True
E4.Visible = False
F4.Visible = True
G4.Visible = True
Case 6
A4.Visible = True
B4.Visible = True
C4.Visible = False
D4.Visible = True
E4.Visible = True
F4.Visible = True
G4.Visible = True
Case 7
A4.Visible = True
B4.Visible = False
C4.Visible = True
D4.Visible = False
E4.Visible = False
F4.Visible = True
G4.Visible = False
Case 8
A4.Visible = True
B4.Visible = True
C4.Visible = True
D4.Visible = True
E4.Visible = True
F4.Visible = True
G4.Visible = True
Case 9
A4.Visible = True
B4.Visible = True
C4.Visible = True
D4.Visible = True
E4.Visible = False
F4.Visible = True
G4.Visible = True
End Select
End Sub
Private Sub Six(nb As Long)
Select Case nb
Case 0
'a b c d e f g
A5.Visible = True
B5.Visible = True
C5.Visible = True
D5.Visible = False
E5.Visible = True
F5.Visible = True
G5.Visible = True
Case 1
A5.Visible = False
B5.Visible = False
C5.Visible = True
D5.Visible = False
E5.Visible = False
F5.Visible = True
G5.Visible = False
Case 2
A5.Visible = True
B5.Visible = False
C5.Visible = True
D5.Visible = True
E5.Visible = True
F5.Visible = False
G5.Visible = True
Case 3
A5.Visible = True
B5.Visible = False
C5.Visible = True
D5.Visible = True
E5.Visible = False
F5.Visible = True
G5.Visible = True
Case 4
A5.Visible = False
B5.Visible = True
C5.Visible = True
D5.Visible = True
E5.Visible = False
F5.Visible = True
G5.Visible = False
Case 5
A5.Visible = True
B5.Visible = True
C5.Visible = False
D5.Visible = True
E5.Visible = False
F5.Visible = True
G5.Visible = True
Case 6
A5.Visible = True
B5.Visible = True
C5.Visible = False
D5.Visible = True
E5.Visible = True
F5.Visible = True
G5.Visible = True
Case 7
A5.Visible = True
B5.Visible = False
C5.Visible = True
D5.Visible = False
E5.Visible = False
F5.Visible = True
G5.Visible = False
Case 8
A5.Visible = True
B5.Visible = True
C5.Visible = True
D5.Visible = True
E5.Visible = True
F5.Visible = True
G5.Visible = True
Case 9
A5.Visible = True
B5.Visible = True
C5.Visible = True
D5.Visible = True
E5.Visible = False
F5.Visible = True
G5.Visible = True
End Select
End Sub
Private Sub Command2_Click()
A.Visible = False
B.Visible = False
C.Visible = False
D.Visible = False
E.Visible = False
F.Visible = False
G.Visible = False
A1.Visible = False
B1.Visible = False
C1.Visible = False
D1.Visible = False
E1.Visible = False
F1.Visible = False
G1.Visible = False
A2.Visible = False
B2.Visible = False
C2.Visible = False
D2.Visible = False
E2.Visible = False
F2.Visible = False
G2.Visible = False
A3.Visible = False
B3.Visible = False
C3.Visible = False
D3.Visible = False
E3.Visible = False
F3.Visible = False
G3.Visible = False
A4.Visible = False
B4.Visible = False
C4.Visible = False
D4.Visible = False
E4.Visible = False
F4.Visible = False
G4.Visible = False
A5.Visible = False
B5.Visible = False
C5.Visible = False
D5.Visible = False
E5.Visible = False
F5.Visible = False
G5.Visible = False
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbEnter Then
Call Command1_Click
ElseIf (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then KeyAscii = 0  ' commande n'autorisant que les chiffres de 0 à 9,
End If
End Sub

Conclusion :


Je vous conseil tres fortement de telecharger le zip pk sinon vous risquez d'avoir des probleme de disposition des lines sur la form
Wala !!
Bonne prog a tous !!!
@+
OverDarck2 alias OverDarck
Za511@aol.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

OverDarck2
Messages postés
15
Date d'inscription
vendredi 2 novembre 2001
Statut
Membre
Dernière intervention
18 janvier 2002

Ouai je sais mon code ets tres pourrit mais bon je lai fait sur un coup de tete comme sa dans un moment perdu donc SVP Un peu de respect car moi meme je l'avou, C'est NUL par raport a ce qui pourrait etre fait mais en 1 ou 2 H avouer que c'est dur de faire mieu mais bon certain veron un interer a faire mieu moi je men fou complet de faire un truc nul comme sa, vu que c t juste pour montre a qq qu'il y avait une otre maniere de proceder, voila mintenant c dit
C nul et Sans pretantion !!
cs_joker
Messages postés
49
Date d'inscription
vendredi 11 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2004

c'est vrai que ce code manque singulièrement d'optimisation ... surtout en comparaison de ce qui a déjà été écrit !
En plus, y'a une erreur, me semble-t-il !!! Ca mérite d'être testé mais je pense que si tu ne complète pas entièrement ta textbox, tu répète le dernier chiffre jusqu'au bout !
...
...
Après test, c confirmé : t'es nul ! T'aurais pu testé ton code !
PatrickRoyer
Messages postés
2
Date d'inscription
jeudi 10 janvier 2002
Statut
Membre
Dernière intervention
23 mai 2002

Tu viens écrire sur mon code que le tiens est meilleur et il prend, à peu près,
300 LIGNES de plus que moi pour le même résultats. Si c se que tu crois, tant mieux...
http://www.vbfrance.com/article.asp?Val=3163
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

personnellement je trouve ce code tres long pour rien...
yauré de l'optimisation a faire !
FScorpion
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 janvier 2002

C'est bien mais il y'a beaucoup de code répétitif. Il faudrait regrouper chacun des segments( A, B, C, D, E, F, G ) dans des fonctions séparés afin de les appeler dans tes "case"( de tes select case ). Ce qui minimiserai de beaucoup le code...

Ce que je trouve bien aussi de ton code c'est ta facon d'extraire chacun des caractères( avec Left et Right ). Malheuresement, lorsque j'ai réaliser mon programme, je débutais et ne connaissait pas les fonctions de chaines de caractere... J'ai donc du y aller avec des calcul mathématique pour extraire la positiion( pour ceux qui ne savent pas de quoi je parle, aller voir mon code sur
http://www.vbfrance.com/article.asp?Val=3137 ).

Bref, on voit qu'il y'a toujours plusieurs moyen d'arriver au même résultat et c'est ce qui fait de la programmation quelque chose de si passionnant( wow ... c'était une bonne fin ca:) je sais pas comment j'ai fait pour sortir ca.... : )

Alp

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.