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
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.