begin process at 2012 02 17 11:01:23
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > UNE HORLOGE À AIGUILLE DANS UN CONTRÔLE FRAME OU PICTURE

UNE HORLOGE À AIGUILLE DANS UN CONTRÔLE FRAME OU PICTURE


 Information sur la source

Note :
Aucune note
Catégorie :Control Classé sous :horloge, frame, heure Niveau :Initié Date de création :13/11/2007 Vu / téléchargé :9 959 / 947

Auteur : aldyno

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Petite horloge sans prétention, mais qui à le mérite de pouvoir être placée dans un contrôle Frame ou Picture, dans une feuille MDI ou Fille. Le code est structuré et documenté.

Source

  • Option Explicit
  • 'couleur des aiguilles
  • Private mnHourHand As Integer
  • Private mnMinuteHand As Integer
  • Private mnSecondHand As Integer
  • '--- variable
  • Private mnHnum As Integer
  • Private mnMnum As Integer
  • Private mnSnum As Integer
  • Private mfHlen As Single
  • Private mfMlen As Single
  • Private mfSlen As Single
  • Public gnHourHandColor As Integer
  • Public gnMinuteHandColor As Integer
  • Public gnSecondHandColor As Integer
  • '--- variable
  • Private Const Pi = 3.14159265358979
  • Private Const TwoPi = Pi + Pi
  • Private Const HalfPi = Pi / 2
  • Private Sub cmdSetTime_Click()
  • Dim sPrompt As String
  • Dim sTitle As String
  • Dim sDefault As String
  • Dim sStartTime As String
  • Dim sTim As String
  • Dim sMsg As String
  • 'Demander la nouvelle heure à l'utilisateur
  • sPrompt = "Entrez l'heure en format 00:00:00"
  • sTitle = "Horloge"
  • sDefault = Time$
  • sStartTime = sDefault
  • sTim = InputBox$(sPrompt, sTitle, sDefault)
  • 'Tester si l'utilisateur a cliqué sur Annuler ou sur OK sans changement
  • If sTim = "" Or sTim = sStartTime Then
  • Exit Sub
  • End If
  • 'Mettre à la nouvelle heure
  • On Error GoTo ErrorTrap
  • Time$ = sTim
  • Exit Sub
  • ErrorTrap:
  • 'Récupération de l'erreur
  • sMsg = "L'heure que vous avez entrée n'est pas valide. " + sTim
  • MsgBox sMsg, 48, "Horloge"
  • Resume Next
  • End Sub
  • Private Sub tmrClock_Timer()
  • Dim dHang As Double
  • Dim dMang As Double
  • Dim dSang As Double
  • Dim dHx As Double
  • Dim dHy As Double
  • Dim dMx As Double
  • Dim dMy As Double
  • Dim dSx As Double
  • Dim dSy As Double
  • 'Garder trace de la seconde en cours
  • Static LastSecond
  • 'Tester pour voir si c'est une nouvelle seconde
  • If Second(Now) = LastSecond Then
  • Exit Sub
  • Else
  • LastSecond = Second(Now)
  • End If
  • 'Mettre à jour les variables de l'heure
  • mnHnum = Hour(Now)
  • mnMnum = Minute(Now)
  • mnSnum = Second(Now)
  • 'Calculer les angles des aiguilles
  • dHang = TwoPi * (mnHnum + mnMnum / 60) / 12 - HalfPi
  • dMang = TwoPi * (mnMnum + mnSnum / 60) / 60 - HalfPi
  • dSang = TwoPi * mnSnum / 60 - HalfPi
  • 'Calculer les extrémités de chaque aiguille
  • dHx = mfHlen * Cos(dHang)
  • dHy = mfHlen * Sin(dHang)
  • dMx = mfMlen * Cos(dMang)
  • dMy = mfMlen * Sin(dMang)
  • dSx = mfSlen * Cos(dSang)
  • dSy = mfSlen * Sin(dSang)
  • 'Restaurer l'image de fond
  • picBackGround.Cls
  • 'Restaurer les couleurs et formes
  • picBackGround.Line (0, 0)-(dMx, dMy), QBColor(gnMinuteHandColor)
  • picBackGround.Line (0, 0)-(dHx, dHy), QBColor(gnHourHandColor)
  • picBackGround.Line (0, 0)-(dSx, dSy), QBColor(gnSecondHandColor)
  • End Sub
  • Private Sub Form_Load()
  • picBackGround.Scale (-2, -2)-(2, 2)
  • picBackGround.DrawWidth = 2
  • 'Définir la longueur des aiguilles
  • mfHlen = 0.8
  • mfMlen = 1.4
  • mfSlen = 1.6
  • 'définition de la couleur des auguilles
  • gnHourHandColor = (mnHourHand + 4)
  • gnMinuteHandColor = (mnMinuteHand + 4)
  • gnSecondHandColor = (mnSecondHand + 8)
  • 'Affiche la date du jour dans le contrôle lbldate
  • Dim D As String
  • D = Date
  • lbldate.Caption = D
  • End Sub
Option Explicit
'couleur des aiguilles
Private mnHourHand As Integer
Private mnMinuteHand As Integer
Private mnSecondHand As Integer
'--- variable
Private mnHnum As Integer
Private mnMnum As Integer
Private mnSnum As Integer
Private mfHlen As Single
Private mfMlen As Single
Private mfSlen As Single
Public gnHourHandColor As Integer
Public gnMinuteHandColor As Integer
Public gnSecondHandColor As Integer
'--- variable
Private Const Pi = 3.14159265358979
Private Const TwoPi = Pi + Pi
Private Const HalfPi = Pi / 2

Private Sub cmdSetTime_Click()
    Dim sPrompt As String
    Dim sTitle As String
    Dim sDefault As String
    Dim sStartTime As String
    Dim sTim As String
    Dim sMsg As String
'Demander la nouvelle heure à l'utilisateur
    sPrompt = "Entrez l'heure en format 00:00:00"
    sTitle = "Horloge"
    sDefault = Time$
    sStartTime = sDefault
    sTim = InputBox$(sPrompt, sTitle, sDefault)
'Tester si l'utilisateur a cliqué sur Annuler ou sur OK sans changement
    If sTim = "" Or sTim = sStartTime Then
        Exit Sub
    End If
'Mettre à la nouvelle heure
    On Error GoTo ErrorTrap
    Time$ = sTim
    Exit Sub

ErrorTrap:
'Récupération de l'erreur
    sMsg = "L'heure que vous avez entrée n'est pas valide. " + sTim
    MsgBox sMsg, 48, "Horloge"
    Resume Next
End Sub

Private Sub tmrClock_Timer()
    Dim dHang As Double
    Dim dMang As Double
    Dim dSang As Double
    Dim dHx As Double
    Dim dHy As Double
    Dim dMx As Double
    Dim dMy As Double
    Dim dSx As Double
    Dim dSy As Double
'Garder trace de la seconde en cours
    Static LastSecond
'Tester pour voir si c'est une nouvelle seconde
    If Second(Now) = LastSecond Then
        Exit Sub
    Else
        LastSecond = Second(Now)
    End If
'Mettre à jour les variables de l'heure
    mnHnum = Hour(Now)
    mnMnum = Minute(Now)
    mnSnum = Second(Now)
'Calculer les angles des aiguilles
    dHang = TwoPi * (mnHnum + mnMnum / 60) / 12 - HalfPi
    dMang = TwoPi * (mnMnum + mnSnum / 60) / 60 - HalfPi
    dSang = TwoPi * mnSnum / 60 - HalfPi
'Calculer les extrémités de chaque aiguille
    dHx = mfHlen * Cos(dHang)
    dHy = mfHlen * Sin(dHang)
    dMx = mfMlen * Cos(dMang)
    dMy = mfMlen * Sin(dMang)
    dSx = mfSlen * Cos(dSang)
    dSy = mfSlen * Sin(dSang)
'Restaurer l'image de fond
    picBackGround.Cls
'Restaurer les couleurs et formes
    picBackGround.Line (0, 0)-(dMx, dMy), QBColor(gnMinuteHandColor)
    picBackGround.Line (0, 0)-(dHx, dHy), QBColor(gnHourHandColor)
    picBackGround.Line (0, 0)-(dSx, dSy), QBColor(gnSecondHandColor)
End Sub

Private Sub Form_Load()
    picBackGround.Scale (-2, -2)-(2, 2)
    picBackGround.DrawWidth = 2
'Définir la longueur des aiguilles
    mfHlen = 0.8
    mfMlen = 1.4
    mfSlen = 1.6
'définition de la couleur des auguilles
    gnHourHandColor = (mnHourHand + 4)
    gnMinuteHandColor = (mnMinuteHand + 4)
    gnSecondHandColor = (mnSecondHand + 8)
'Affiche la date du jour dans le contrôle lbldate
Dim D As String
    D = Date
    lbldate.Caption = D
End Sub

 Conclusion

Cette horloge à aiguille, peut être placé facilement dans une application.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture L'HEURE DE PLUSIEUR PAYS - HORLOGE MONDIALE par zulrigh
Source avec Zip Source avec une capture CALENDRIER VB6 ET HORLOGE ANALOGIQUE par enzo68290
Source avec Zip Source avec une capture Source .NET (Dotnet) DAMDATE : HORLOGE ANALOGIQUE & DIGITAL par damienpasqualinotto
Source avec Zip Source avec une capture HORLOGE-RÉVEIL MATIN + OPTIONS par Noiretulipe
Source avec Zip Source avec une capture CLMSYNCHEURE : ÊTRE À L'HEURE GRÂCE AUX HORLOGES ATOMIQUES D... par clementio

Commentaires et avis

Commentaire de jack le 13/11/2007 15:16:11 administrateur CS

Il y avait longtemps qu'on n'avait eu d'horloge !
Code bien présenté.
Pour info : Saisie de l'heure sans clavier : http://www.codes-sources.com/code.aspx?ID=43070

Idées de développement :
- rendre cette horloge "resizable"
- gérer les affichages en temps universel/fuseau horaire

Commentaire de aldyno le 13/11/2007 22:55:44

Merci pour l'info. Idées sympas pour la suite de son développement. Je m'y mets.

Commentaire de brechnelle le 18/09/2008 12:42:15

SVP est ce que vous pouvez me fournir le code qui sera reconnu sous VB.NET parce qu'en fait quand je l'ouvre dans la fenêtre d'exécution il me présente 19 erreurs je veu pouvoir l'afficher dans la fenêtre principale de mon code un MDIParentINFO dans il ne reconnait pas par exp toute les déclarations kil se charge de souligné en rouge j'ai placé un picturebox1 dans ma fenêtre je vous donne un peu mon code et la façon dont je l'ai insérer dedans pour ke vous puissiez m'aider

Option Explicit On
'couleur des aiguilles
Imports System.Windows.Forms
Private mnHourHand As Integer
Private mnMinuteHand As Integer
Private mnSecondHand As Integer
'--- variable
Private mnHnum As Integer
Private mnMnum As Integer
Private mnSnum As Integer
Private mfHlen As Single
Private mfMlen As Single
Private mfSlen As Single
Public gnHourHandColor As Integer
Public gnMinuteHandColor As Integer
Public gnSecondHandColor As Integer
'--- variable
Private Const Pi = 3.14159265358979
Private Const TwoPi = Pi + Pi
Private Const HalfPi = Pi / 2
Private Sub cmdSetTime_Click()

    Dim sPrompt As String
    Dim sTitle As String
    Dim sDefault As String
    Dim sStartTime As String
    Dim sTim As String
    Dim sMsg As String
    'Demander la nouvelle heure à l'utilisateur
    sPrompt = "Entrez l'heure en format 00:00:00"
    sTitle = "Horloge"
    sDefault = Timer$
    sStartTime = sDefault
    sTim = InputBox$(sPrompt, sTitle, sDefault)
    'Tester si l'utilisateur a cliqué sur Annuler ou sur OK sans changement
    If sTim = "" Or sTim = sStartTime Then
        Exit Sub
    End If
    'Mettre à la nouvelle heure
    On Error GoTo ErrorTrap
    Time$ = sTim
    Exit Sub
ErrorTrap:
    'Récupération de l'erreur
    sMsg = "L'heure que vous avez entrée n'est pas valide. " + sTim
    MsgBox(sMsg, 48, "Horloge")
    Resume Next
End Sub
Private Sub tmrClock_Timer()
    Dim dHang As Double
    Dim dMang As Double
    Dim dSang As Double
    Dim dHx As Double
    Dim dHy As Double
    Dim dMx As Double
    Dim dMy As Double
    Dim dSx As Double
    Dim dSy As Double
    'Garder trace de la seconde en cours
    Static LastSecond
    'Tester pour voir si c'est une nouvelle seconde
    If Second(Now) = LastSecond Then
        Exit Sub
    Else
        LastSecond = Second(Now)
    End If
    'Mettre à jour les variables de l'heure
    mnHnum = Hour(Now)
    mnMnum = Minute(Now)
    mnSnum = Second(Now)
    'Calculer les angles des aiguilles
    dHang = TwoPi * (mnHnum + mnMnum / 60) / 12 - HalfPi
    dMang = TwoPi * (mnMnum + mnSnum / 60) / 60 - HalfPi
    dSang = TwoPi * mnSnum / 60 - HalfPi
    'Calculer les extrémités de chaque aiguille
    dHx = mfHlen * Cos(dHang)
    dHy = mfHlen * Sin(dHang)
    dMx = mfMlen * Cos(dMang)
    dMy = mfMlen * Sin(dMang)
    dSx = mfSlen * Cos(dSang)
    dSy = mfSlen * Sin(dSang)
    'Restaurer l'image de fond
    picBackGround.Cls()
    'Restaurer les couleurs et formes
    picBackGround.Line (0, 0)-(dMx, dMy), QBColor(gnMinuteHandColor)
    picBackGround.Line (0, 0)-(dHx, dHy), QBColor(gnHourHandColor)
    picBackGround.Line (0, 0)-(dSx, dSy), QBColor(gnSecondHandColor)
End Sub
Private Sub MDIParentINFO_Load()
    picBackGround.Scale (-2, -2)-(2, 2)
    picBackGround.DrawWidth = 2
    'Définir la longueur des aiguilles
    mfHlen = 0.8
    mfMlen = 1.4
    mfSlen = 1.6
    'définition de la couleur des auguilles
    gnHourHandColor = (mnHourHand + 4)
    gnMinuteHandColor = (mnMinuteHand + 4)
    gnSecondHandColor = (mnSecondHand + 8)
    'Affiche la date du jour dans le contrôle lbldate
    Dim D As String
        D = Date
    lbldate.Caption = D
End Sub


Public Class MDIParentINFO
    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
        ' Créez une nouvelle instance du formulaire enfant.
        Dim ChildForm As New System.Windows.Forms.Form
        ' Configurez-la en tant qu'enfant de ce formulaire MDI avant de l'afficher.
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Fenêtre " & m_ChildFormNumber

        ChildForm.Show()
    End Sub

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripButton.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO : ajoutez le code ici pour ouvrir le fichier.
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName
            ' TODO : ajoutez le code ici pour enregistrer le contenu actuel du formulaire dans un fichier.
        End If
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Global.System.Windows.Forms.Application.Exit()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
        ' Utilisez My.Computer.Clipboard pour insérer les images ou le texte sélectionné dans le Presse-papiers
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
        ' Utilisez My.Computer.Clipboard pour insérer les images ou le texte sélectionné dans le Presse-papiers
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
        'Utilisez My.Computer.Clipboard.GetText() ou My.Computer.Clipboard.GetData pour extraire les informations du Presse-papiers.
    End Sub

    Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
        Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
    End Sub

    Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
        Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticleToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        ' Fermez tous les formulaires enfants du parent.
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub

    Private m_ChildFormNumber As Integer = 0

    Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click

    End Sub

    Private Sub MatérielToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MatérielToolStripMenuItem.Click
        FormEMPLOYE.MdiParent = Me
        FormEMPLOYE.Show()

    End Sub

    Private Sub EmployésToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployésToolStripMenuItem.Click
        FormNEWEMPLOY.MdiParent = Me
        FormNEWEMPLOY.Show()
    End Sub

    Private Sub PeriphériquesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeriphériquesToolStripMenuItem.Click
        FormNEWPeriph.MdiParent = Me
        FormNEWPeriph.Show()
    End Sub

    Private Sub OrdinateurToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdinateurToolStripMenuItem.Click
        FormNEWORDIN.MdiParent = Me
        FormNEWORDIN.Show()
    End Sub

    Private Sub AccessoiresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccessoiresToolStripMenuItem.Click
        FormNEWACCESSOIR.MdiParent = Me
        FormNEWACCESSOIR.Show()
    End Sub

    Private Sub AffectationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AffectationToolStripMenuItem.Click

    End Sub

    Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
        FormENREGPANNE.MdiParent = Me
        FormENREGPANNE.Show()
    End Sub

    Private Sub RetraitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RetraitToolStripMenuItem.Click
        FormRETRAITMAT.MdiParent = Me
        FormRETRAITMAT.Show()
    End Sub

    Private Sub ContrôleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrôleToolStripMenuItem.Click
        FormMAINTENANCEPREVENT.MdiParent = Me
        FormMAINTENANCEPREVENT.Show()
    End Sub

    Private Sub MDIParentINFO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class


voici les erreurs kil souligne en bleu en fait toutes les déclarations comme celle_ci et il affiche le SMS "instruction non valide dans un espace de nom"
Private mnHnum As Integer
Private Sub tmrClock_Timer()
Public gnMinuteHandColor As Integer
merci davavce pour votre aide


Commentaire de krakorg le 02/12/2008 20:52:24

bravo champion c'est super je micropro7 un débutant et je suis en cote d'ivoire .il n'y a pas assez de programmeur donc c'est avec vous que je peux apprendre mieux.merci de m'écrire .
mon mail est:micropro7@yahoo.fr

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Changer l'heure de l'horloge windows avec un vbscript [ par maxcode ] Bonjour à tous ,Comme le sujet l'indique je voudrais changer l'heure de l'horloge windows ou du systeme avec un vbscript.J'ai longtemps chercher sur I horloge [ par mouky66 ] salutje voudrai changer l'heure et la date de mon pc en passant par un programme.on ma indiquerdate = "ta/date/2005"time = "heure/minute/00"le truc c Afficher la fenêtre heure système [ par faucheuse ] Bonjour amis programmeurs et programmeuzes,Je me demandais si il était possible d'afficher la fenêtre de l'heure système (avec l'horloge et tout et to Une horloge dans un formulaire VB excel ? [ par Pdm59 ] Bonjour à tousJe ne suis pas complétement désespéré, ni au bord du suicide, mais j'ai quand meme un sérieux problem programmation en VB6: horloge graphique ki affich l'heure système [ par ltstam ] salut la communauté.j'ai besoin du code d'une horloge réalisée avec vb6.il faut kel soit graphique(faite à partir de circle et line).si possible il fa il manque l'heure sur mon horloge sur mon site [ par mani_nico ] bonjour, je ne suis + très jeune ;-( mais faisant des créations sur le web je me suis fait un Site L'aide de votre site m'a aidée bcp à le faire, m il manque l'heure sur mon horloge sur mon site [ par mani_nico ] bonjour, je ne suis + très jeune ;-( mais faisant des créations sur le web je me suis fait un Site L'aide de votre site m'a aidée bcp à le faire, m l'heure sur mon horloge n'apparait pas ? [ par mani_nico ] bonjour, je ne suis + très jeune ;-(  mais faisant des créations sur le web je me suis fait un Site L'aide de votre site m'a aidée Mon horloge sur mon site n'affiche pas l'heure ? [ par mani_nico ] bonjour, je ne suis + très jeune ;-(  mais faisant des créations sur le web je me suis fait un Site L'aide de votre site m'a aidée VBA => Convertir format heure en numeric et vis versa [ par narkott ] Bonjour, Je suis en train de dévellopé une application et j'ai un problème qui se pose. L'utilisateur doit pouvoir saisir dans un userf


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,621 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales