AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 05 16:57:49
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

AFFICHER UN NOMBRE AVEC DES DELS


Information sur la source

Catégorie :Graphique Classé sous : afficher, nombre Niveau : Initié Date de création : 13/06/2001 Vu : 2 309
Auteur : Warning Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9,33 / 10 - par 6 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Un simple code :
 

Source

  • Type LedConst
  • L1 As Boolean
  • L2 As Boolean
  • L3 As Boolean
  • L4 As Boolean
  • L5 As Boolean
  • L6 As Boolean
  • L7 As Boolean
  • End Type
  • Function SetDiode(ThePicture As PictureBox, PosX As Long, PosY As Long, Optional Direction As Long = 1, Optional LedSize As Long = 400, Optional LedColor As Long = vbRed)
  • ThePicture.AutoRedraw = True
  • If Direction = 1 Then
  • For i = 1 To LedSize / 15
  • ThePicture.Line (PosX + i, PosY - i)-(PosX + i, PosY + LedSize + i), LedColor
  • Next i
  • For i = 1 To LedSize / 15
  • ThePicture.Line (PosX + (LedSize / 15) + i, PosY - (LedSize / 15) + i)-(PosX + (LedSize / 15) + i, PosY + LedSize + (LedSize / 15) - i), LedColor
  • Next i
  • Else
  • For i = 1 To LedSize / 15
  • ThePicture.Line (PosY + LedSize + i, PosX + i)-(PosY - i, PosX + i), LedColor
  • Next i
  • For i = 1 To LedSize / 15
  • ThePicture.Line (PosY + LedSize + (LedSize / 15) - i, PosX + (LedSize / 15) + i)-(PosY - (LedSize / 15) + i, PosX + (LedSize / 15) + i), LedColor
  • Next i
  • End If
  • End Function
  • Function DigitaleNumber(ThePicture As PictureBox, Number As Variant, PosX As Long, PosY As Long, Optional LedSize As Long = 500, Optional LedColor As Long = vbRed)
  • Dim LedNumber(0 To 9) As LedConst, Bold As Long, R As Long, V As Long, B As Long
  • LedNumber(0).L1 = True: LedNumber(0).L2 = True: LedNumber(0).L3 = True: LedNumber(0).L4 = True: LedNumber(0).L5 = True: LedNumber(0).L6 = False: LedNumber(0).L7 = True
  • LedNumber(1).L1 = False: LedNumber(1).L2 = False: LedNumber(1).L3 = True: LedNumber(1).L4 = True: LedNumber(1).L5 = False: LedNumber(1).L6 = False: LedNumber(1).L7 = False
  • LedNumber(2).L1 = False: LedNumber(2).L2 = True: LedNumber(2).L3 = True: LedNumber(2).L4 = False: LedNumber(2).L5 = True: LedNumber(2).L6 = True: LedNumber(2).L7 = True
  • LedNumber(3).L1 = False: LedNumber(3).L2 = False: LedNumber(3).L3 = True: LedNumber(3).L4 = True: LedNumber(3).L5 = True: LedNumber(3).L6 = True: LedNumber(3).L7 = True
  • LedNumber(4).L1 = True: LedNumber(4).L2 = False: LedNumber(4).L3 = True: LedNumber(4).L4 = True: LedNumber(4).L5 = False: LedNumber(4).L6 = True: LedNumber(4).L7 = False
  • LedNumber(5).L1 = True: LedNumber(5).L2 = False: LedNumber(5).L3 = False: LedNumber(5).L4 = True: LedNumber(5).L5 = True: LedNumber(5).L6 = True: LedNumber(5).L7 = True
  • LedNumber(6).L1 = True: LedNumber(6).L2 = True: LedNumber(6).L3 = False: LedNumber(6).L4 = True: LedNumber(6).L5 = True: LedNumber(6).L6 = True: LedNumber(6).L7 = True
  • LedNumber(7).L1 = True: LedNumber(7).L2 = False: LedNumber(7).L3 = True: LedNumber(7).L4 = True: LedNumber(7).L5 = True: LedNumber(7).L6 = False: LedNumber(7).L7 = False
  • LedNumber(8).L1 = True: LedNumber(8).L2 = True: LedNumber(8).L3 = True: LedNumber(8).L4 = True: LedNumber(8).L5 = True: LedNumber(8).L6 = True: LedNumber(8).L7 = True
  • LedNumber(9).L1 = True: LedNumber(9).L2 = False: LedNumber(9).L3 = True: LedNumber(9).L4 = True: LedNumber(9).L5 = True: LedNumber(9).L6 = True: LedNumber(9).L7 = True
  • ThePicture.AutoRedraw = True
  • ThePicture.Cls
  • Bold = LedSize / 15
  • R = Int(LedColor Mod 256)
  • V = Int((LedColor - R) / 256 Mod 256)
  • B = Int((LedColor - R) / 256 / 256)
  • If R > 0 Then R = 75
  • If V > 0 Then V = 75
  • If B > 0 Then B = 75
  • For i = 0 To Len(Number) - 1
  • If Not LedNumber(Mid(Number, i + 1, 1)).L1 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY, 1, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L2 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY + LedSize + Bold * 5, 1, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L3 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY, 1, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L4 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY + LedSize + Bold * 5, 1, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L5 Then Call SetDiode(ThePicture, PosY - Bold * 3, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L6 Then Call SetDiode(ThePicture, PosY + LedSize + Bold, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
  • If Not LedNumber(Mid(Number, i + 1, 1)).L7 Then Call SetDiode(ThePicture, PosY + LedSize * 2 + Bold * 6, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
  • Next i
  • For i = 0 To Len(Number) - 1
  • If LedNumber(Mid(Number, i + 1, 1)).L1 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY, 1, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L2 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY + LedSize + Bold * 5, 1, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L3 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY, 1, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L4 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY + LedSize + Bold * 5, 1, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L5 Then Call SetDiode(ThePicture, PosY - Bold * 3, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L6 Then Call SetDiode(ThePicture, PosY + LedSize + Bold, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
  • If LedNumber(Mid(Number, i + 1, 1)).L7 Then Call SetDiode(ThePicture, PosY + LedSize * 2 + Bold * 6, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
  • Next i
  • End Function 
Type LedConst
    L1 As Boolean
    L2 As Boolean
    L3 As Boolean
    L4 As Boolean
    L5 As Boolean
    L6 As Boolean
    L7 As Boolean
End Type

Function SetDiode(ThePicture As PictureBox, PosX As Long, PosY As Long, Optional Direction As Long = 1, Optional LedSize As Long = 400, Optional LedColor As Long = vbRed)
    ThePicture.AutoRedraw = True
    If Direction = 1 Then
      For i = 1 To LedSize / 15
       ThePicture.Line (PosX + i, PosY - i)-(PosX + i, PosY + LedSize + i), LedColor
      Next i
      For i = 1 To LedSize / 15
        ThePicture.Line (PosX + (LedSize / 15) + i, PosY - (LedSize / 15) + i)-(PosX + (LedSize / 15) + i, PosY + LedSize + (LedSize / 15) - i), LedColor
      Next i
    Else
      For i = 1 To LedSize / 15
       ThePicture.Line (PosY + LedSize + i, PosX + i)-(PosY - i, PosX + i), LedColor
      Next i
      For i = 1 To LedSize / 15
        ThePicture.Line (PosY + LedSize + (LedSize / 15) - i, PosX + (LedSize / 15) + i)-(PosY - (LedSize / 15) + i, PosX + (LedSize / 15) + i), LedColor
      Next i
    End If
End Function

Function DigitaleNumber(ThePicture As PictureBox, Number As Variant, PosX As Long, PosY As Long, Optional LedSize As Long = 500, Optional LedColor As Long = vbRed)
    Dim LedNumber(0 To 9) As LedConst, Bold As Long, R As Long, V As Long, B As Long
        
    LedNumber(0).L1 = True: LedNumber(0).L2 = True: LedNumber(0).L3 = True: LedNumber(0).L4 = True: LedNumber(0).L5 = True: LedNumber(0).L6 = False: LedNumber(0).L7 = True
    LedNumber(1).L1 = False: LedNumber(1).L2 = False: LedNumber(1).L3 = True: LedNumber(1).L4 = True: LedNumber(1).L5 = False: LedNumber(1).L6 = False: LedNumber(1).L7 = False
    LedNumber(2).L1 = False: LedNumber(2).L2 = True: LedNumber(2).L3 = True: LedNumber(2).L4 = False: LedNumber(2).L5 = True: LedNumber(2).L6 = True: LedNumber(2).L7 = True
    LedNumber(3).L1 = False: LedNumber(3).L2 = False: LedNumber(3).L3 = True: LedNumber(3).L4 = True: LedNumber(3).L5 = True: LedNumber(3).L6 = True: LedNumber(3).L7 = True
    LedNumber(4).L1 = True: LedNumber(4).L2 = False: LedNumber(4).L3 = True: LedNumber(4).L4 = True: LedNumber(4).L5 = False: LedNumber(4).L6 = True: LedNumber(4).L7 = False
    LedNumber(5).L1 = True: LedNumber(5).L2 = False: LedNumber(5).L3 = False: LedNumber(5).L4 = True: LedNumber(5).L5 = True: LedNumber(5).L6 = True: LedNumber(5).L7 = True
    LedNumber(6).L1 = True: LedNumber(6).L2 = True: LedNumber(6).L3 = False: LedNumber(6).L4 = True: LedNumber(6).L5 = True: LedNumber(6).L6 = True: LedNumber(6).L7 = True
    LedNumber(7).L1 = True: LedNumber(7).L2 = False: LedNumber(7).L3 = True: LedNumber(7).L4 = True: LedNumber(7).L5 = True: LedNumber(7).L6 = False: LedNumber(7).L7 = False
    LedNumber(8).L1 = True: LedNumber(8).L2 = True: LedNumber(8).L3 = True: LedNumber(8).L4 = True: LedNumber(8).L5 = True: LedNumber(8).L6 = True: LedNumber(8).L7 = True
    LedNumber(9).L1 = True: LedNumber(9).L2 = False: LedNumber(9).L3 = True: LedNumber(9).L4 = True: LedNumber(9).L5 = True: LedNumber(9).L6 = True: LedNumber(9).L7 = True
   
    ThePicture.AutoRedraw = True
    ThePicture.Cls
    
    Bold = LedSize / 15
    
    R = Int(LedColor Mod 256)
    V = Int((LedColor - R) / 256 Mod 256)
    B = Int((LedColor - R) / 256 / 256)
    
    If R > 0 Then R = 75
    If V > 0 Then V = 75
    If B > 0 Then B = 75
    
    For i = 0 To Len(Number) - 1
      If Not LedNumber(Mid(Number, i + 1, 1)).L1 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY, 1, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L2 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY + LedSize + Bold * 5, 1, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L3 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY, 1, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L4 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY + LedSize + Bold * 5, 1, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L5 Then Call SetDiode(ThePicture, PosY - Bold * 3, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L6 Then Call SetDiode(ThePicture, PosY + LedSize + Bold, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
      If Not LedNumber(Mid(Number, i + 1, 1)).L7 Then Call SetDiode(ThePicture, PosY + LedSize * 2 + Bold * 6, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, RGB(R, V, B))
    Next i
    
    For i = 0 To Len(Number) - 1
      If LedNumber(Mid(Number, i + 1, 1)).L1 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY, 1, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L2 Then Call SetDiode(ThePicture, i * 2 * LedSize + PosX, PosY + LedSize + Bold * 5, 1, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L3 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY, 1, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L4 Then Call SetDiode(ThePicture, i * 2 * LedSize + (PosX + LedSize + Bold * 5), PosY + LedSize + Bold * 5, 1, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L5 Then Call SetDiode(ThePicture, PosY - Bold * 3, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L6 Then Call SetDiode(ThePicture, PosY + LedSize + Bold, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
      If LedNumber(Mid(Number, i + 1, 1)).L7 Then Call SetDiode(ThePicture, PosY + LedSize * 2 + Bold * 6, i * 2 * LedSize + (PosX + Bold * 3), 2, LedSize, LedColor)
    Next i
End Function

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Afficher le résultat d'un COUNT d'une requete SQL dans un Label ou Txt [ par chamsy ] Sur un formulaire MDI, j'ai un Adodc relié à un DataGrid qui affiche un certain nombre de réponse. J'aimerai compter le nombre de lignes et afficher : Comment afficher un nombre correspondant à la variation de la barre de progression [ par bichoncanada ] Merci Hassen,Je voudrais savoir aussi comment afficher un nombre en dessous de ma barre de progression qui correspond à celle ci. C'est a dire pa Afficher le nombre de ligne dans vb [ par lezabour ] Voila quand je consulte les log, Vb me donne le numero de ligne, or dans mon code le numero de ligne ne s'affiche pas...comment faire pour les faire a afficher alerte si le nombre de la cellule est inferieur [ par mirmoleboss ] bonsoir,voila mon probleme:jai fais une application pour gerer les stocks et je voudrais que lorsque le stock indiquer dans une cellule soit inferieur créer un état en VBA [ par cherie_cheri ] Bonjour, je désirerais de l'aide concernant la création d'un état sous VBA. Les informations a afficher dans mon état vont provenir d'une requete que textbox a la volée [ par olden ] Bonjour,Dans le cadre d'un projet d'un jeu du pendu, je cherche à afficher des textbox à la volée, je récupère bien le nombre de caractère de mon mot, graphique et moyenne [ par papimcha ] Bonjour tout le monde, je voudrais afficher dans le coin en bas à droite (sous la légende) de mon graphique les valeurs de mes moyennes de mes données comment afficher un nombre entier [ par mythiac ] bonjour, je vous contacte pour un petit problème de nombre entier. je fais en sorte de calculer le nombre de jours entre 2 dates, selon la ligne, et afficher les tables d'une base de données dans la liste déroulante d'un formulaire [ par CCelia ] bonjour a tous,est ce que quelqu'un c'est comment faire pour afficher dans la liste déroulante d'un formulaire, la liste des tables de la base de donn afficher une photo [ par titioui ] Hattoummje prepare un petit projet pour la fac:edition des carte d'etudiantmon probleme c ke je ve afficher la photo de l'etdiant dans un form VB.la p


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,530 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.