1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Divers
  5. Code pour afficher des nombres en format digital -- avec des barres...

Code pour afficher des nombres en format digital -- avec des barres...

Soyez le premier à donner votre avis sur cette source.

Vue 6 527 fois - Téléchargée 344 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
10 janv. 2002 à 20:44
ca va, t'as pas mal au cul Overdark2 ? ;-p
(c pour rire, pas d'insultes !!!)

$hîv@n
OverDarck2
Messages postés
15
Date d'inscription
vendredi 2 novembre 2001
Statut
Membre
Dernière intervention
18 janvier 2002
10 janv. 2002 à 18:20
Ouai c vrai pas mal mais le mien est mieux
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
10 janv. 2002 à 08:36
pas mal !! c cool !
FScorpion
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 janvier 2002
10 janv. 2002 à 05:44
Court et bon code.

Bon travail!
S'inscrire maintenant

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.

Du même auteur (PatrickRoyer)