Calcul imc

Soyez le premier à donner votre avis sur cette source.

Vue 3 888 fois - Téléchargée 416 fois

Description

Cette source permet juste de calculer son IMC et de voir quel comportement adopter.
je sais que ça existe déjà sur ce site.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
120
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

ok ADN56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
nan ok avec If Not (IsNumeric)..exit sub, ce que je veux dire c'est que l'user ne pigera pas forcément si par exmemple j'écris 78.5 ou 78,5 ou encore 78.5k enfin bref l'affichage ne se réinitialise pas. Et je trouve que le plus simple reste de faire comme ça : (ou alors avec une masquedbox)
bonne lecture ;)
#Region "Séparateur décimal selon les regionals settings"
Private Const LOCALE_SDECIMAL As Integer = &HE
Private Declare Auto Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String, ByVal cchData As Integer) As Integer
Private Declare Auto Function GetUserDefaultLCID Lib "kernel32" () As Integer

''' <summary>
''' Renvoie le séparateur décimal correspondant au Regional Settings propres au poste client
''' </summary>
''' <value></value>
''' <returns>Caractère séparateur, type Char</returns>
''' <remarks>Propriété en lecture seule</remarks>
Public ReadOnly Property Separator() As Char
Get
'vérifié à chaque usage
Dim sSeparator As String = " "
GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDECIMAL, sSeparator, 1)
Return sSeparator(0)
End Get
End Property

#End Region '(code de PCPT)

Private Sub txt_credit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_credit.KeyPress, txt_debit.KeyPress
'interdit le coller
If e.KeyChar.Equals(Convert.ToChar(22)) Then
e.Handled = True
Else
Dim sAccept As String = "0123456789.," & Convert.ToChar(Keys.Back).ToString
Dim bFound As Boolean = False
For i As Integer = 0 To sAccept.Length - 1
If sAccept(i) = e.KeyChar Then
'virgule = point, ou l'inverse
If (e.KeyChar.Equals("."c) And Me.Separator.Equals(","c)) _
Or (e.KeyChar.Equals(","c) And Me.Separator.Equals("."c)) _
Then
e.KeyChar = Me.Separator
End If

bFound = True
Exit For
End If
Next

If Not bFound Then
e.Handled = True
Else
'exception quand même pour le multipoints
If DirectCast(sender, System.Windows.Forms.TextBox).Text.Contains(Me.Separator) AndAlso e.KeyChar.Equals(Me.Separator) Then
e.Handled = True
End If
End If
End If

End Sub 'gére la saisie des textbox crédit et débit (code de PCPT)
Messages postés
120
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Si tu tapes des lettre tu auras un message d'erreur !
"Entrez une valeur numérique pour le poids" ou "Entrez une valeur numérique pour la taille"
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
aie aie !
si je tape des lettres il se passe quoi ?
Messages postés
120
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Merci à toi ALPHAS
Afficher les 6 commentaires

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 (KIPRE74)