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
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.