Pouvoir deviner l?avenir ?!? le biorythme peut vous donner des réponses?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 601 fois - Téléchargée 28 fois

Contenu du snippet

Savoir de quoi demain sera fait, c?est un vieux rêve enfin exhaussé. Le biorythme calcul une note entre 0 et 9 pour l?amour la réussite la change et l?énergie en fonction de votre date de naissance et de la date du jour.

Plus sérieusement c?est un petit exercice pour travailler sur les classes, les DateTimePicker et la récupération du jour mois année d?une variable de type Date.

Pour fonctionner il suffit de :
Deux DateTimePicker nommés DateNaissance et DateJour
Quatre ProgressBar nommées ProgressBarA ProgressBarC ProgressBarR ProgressBarE

Source / Exemple :


Public Class Form1
    Dim Bio As New ClassBio

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'modifie la valeur du DateTimePicker
        DateNaissance.Value = "02/11/1978"
    End Sub

    Private Sub DateJour_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateJour.ValueChanged
        Bio.CalculBio()
    End Sub

    Private Sub DateNaissance_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateNaissance.ValueChanged
        Bio.CalculBio()
    End Sub
End Class

Class ClassBio
    Private amour As Integer
    Private reussite As Integer
    Private chance As Integer
    Private energie As Integer

    Public JourNaissance As Integer
    Public MoisNaissance As Integer
    Public AnneeNaissance As Integer

    Public JourBio As Integer
    Public MoisBio As Integer
    Public AnneeBio As Integer

    Public Sub CalculBio()

        'Récupère et converti en Integer le jour, mois, année qui provient des DateTimePicker
        JourNaissance = Val(Format(Form1.DateNaissance.Value, "d"))
        MoisNaissance = Val(Format(Form1.DateNaissance.Value, "M"))
        AnneeNaissance = Val(Format(Form1.DateNaissance.Value, "yyyy"))
        JourBio = Val(Format(Form1.DateJour.Value, "d"))
        MoisBio = Val(Format(Form1.DateJour.Value, "M"))
        AnneeBio = Val(Format(Form1.DateJour.Value, "yyyy"))
        AnneeBio = Form1.DateJour.Value

        'Calcul scientifique du Biorythme ;-)
        amour = ((JourNaissance * 234) + (MoisNaissance * 45) + (AnneeNaissance * 7) + (JourBio * 367) + (MoisBio * 53) + (AnneeBio * 4)) Mod 10
        reussite = ((JourNaissance * 435) + (MoisNaissance * 73) + (AnneeNaissance * 9) + (JourBio * 745) + (MoisBio * 62) + (AnneeBio * 2)) Mod 10
        chance = ((JourNaissance * 879) + (MoisNaissance * 44) + (AnneeNaissance * 3) + (JourBio * 956) + (MoisBio * 36) + (AnneeBio * 5)) Mod 10
        energie = ((JourNaissance * 472) + (MoisNaissance * 93) + (AnneeNaissance * 2) + (JourBio * 174) + (MoisBio * 94) + (AnneeBio * 9)) Mod 10

        'Affichage du résultat dan sles progressBar 
        Form1.ProgressBarA.Value = amour
        Form1.ProgressBarR.Value = reussite
        Form1.ProgressBarE.Value = energie
        Form1.ProgressBarC.Value = chance

    End Sub

End Class

A voir également

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.