Code pour afficher des nombres en format digital -- avec des barres...
Soyez le premier à donner votre avis sur cette source.
Vue 6 269 fois - Téléchargée 315 fois
Description
Ce code sert a afficher des nombres au format Digital
_ _ _ _ _ _ _ _
| | | _| _| |_| |_ |_ | |_| |_|
|_| | |_ _| | _| |_| | |_| |
_ _ _ _ _ _ _ _
| | | _| _| |_| |_ |_ | |_| |_|
|_| | |_ _| | _| |_| | |_| |
Source / Exemple :
Private Sub Command1_Click()
Text1.Text = GetLCD(Text2.Text)
End Sub
Public Function GetLCD(strNombre As String) As String
'*******************
'Data pour le LCD
Dim TableauLCD_Ligne1(0 To 9) As String
TableauLCD_Ligne1(0) = " _ "
TableauLCD_Ligne1(1) = " "
TableauLCD_Ligne1(2) = " _ "
TableauLCD_Ligne1(3) = " _ "
TableauLCD_Ligne1(4) = " "
TableauLCD_Ligne1(5) = " _ "
TableauLCD_Ligne1(6) = " _ "
TableauLCD_Ligne1(7) = " _ "
TableauLCD_Ligne1(8) = " _ "
TableauLCD_Ligne1(9) = " _ "
Dim TableauLCD_Ligne2(0 To 9) As String
TableauLCD_Ligne2(0) = "| |"
TableauLCD_Ligne2(1) = " |"
TableauLCD_Ligne2(2) = " _|"
TableauLCD_Ligne2(3) = " _|"
TableauLCD_Ligne2(4) = "|_|"
TableauLCD_Ligne2(5) = "|_ "
TableauLCD_Ligne2(6) = "|_ "
TableauLCD_Ligne2(7) = " |"
TableauLCD_Ligne2(8) = "|_|"
TableauLCD_Ligne2(9) = "|_|"
Dim TableauLCD_Ligne3(0 To 9) As String
TableauLCD_Ligne3(0) = "|_|"
TableauLCD_Ligne3(1) = " |"
TableauLCD_Ligne3(2) = "|_ "
TableauLCD_Ligne3(3) = " _|"
TableauLCD_Ligne3(4) = " |"
TableauLCD_Ligne3(5) = " _|"
TableauLCD_Ligne3(6) = "|_|"
TableauLCD_Ligne3(7) = " |"
TableauLCD_Ligne3(8) = "|_|"
TableauLCD_Ligne3(9) = " |"
'**************
Dim Tmp As Integer
Dim strLCDLigne1 As String
Dim strLCDLigne2 As String
Dim strLCDLigne3 As String
For x = 1 To Len(strNombre)
Tmp = Val(Mid(strNombre, x, 1))
strLCDLigne1 = strLCDLigne1 & TableauLCD_Ligne1(Tmp)
strLCDLigne2 = strLCDLigne2 & TableauLCD_Ligne2(Tmp)
strLCDLigne3 = strLCDLigne3 & TableauLCD_Ligne3(Tmp)
Next x
GetLCD = strLCDLigne1 & vbCrLf & strLCDLigne2 & vbCrLf & strLCDLigne3
End Function
Codes Sources
A voir également
- Code pour afficher des nombres en format digital -- avec des barres...
- C / C++ / C++.NET : Afficher un nombre en binaire - CodeS SourceS - Guide
- ColdFusion : Livecounter :: affiche le nombre de connectés à votre site - CodeS Source - Guide
- Afficher un nombre avec des dels - Codes sources - Visual Basic / VB.NET (Graphique)
- Outil pour afficher des help au format txt ou rtf - Codes sources - Visual Basic / VB.NET (Modules)
- Programme permetant d'afficher le nombre de discontinuite de valeur d'un tableau - Codes sources - C / C++ / C++.NET (Maths & Algorithmes)
Commentaires
(c pour rire, pas d'insultes !!!)
$hîv@n
Bon travail!
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.