Calcul du taux d'alcoolemie

Soyez le premier à donner votre avis sur cette source.

Vue 28 360 fois - Téléchargée 696 fois

Description

Calcul du taux d'alcoolemie en fonction du sexe et du poids du sujet et nombre d'heure de récupération

Source / Exemple :


' Conçu avec SharpDevelop 2.2.1
' Programmeur : DODICH
' Date : Décembre 2007
'
'
Imports System.Math
Imports System.DateTime
Imports System.Drawing.Color

Public Partial Class MainForm
	
	Dim ToolTip1 As New ToolTip
	Dim A, B, C, D, E As Decimal  'Variable alcool et total
	Dim K As Decimal 'Homme = 0.7 / Femme = 0.6
	Dim M As Integer  'Poids
	Dim T, R As Decimal  'T: Taux, R:  Récup
	
	Public Sub New()
		
		Me.InitializeComponent()
		'Affichage des infos sur les images
		ToolTip1.SetToolTip(Me.PictureBox1, "Calculer le taux d'alcoolémie")
		ToolTip1.SetToolTip(Me.PictureBox2, "Ajouter une bière")
		ToolTip1.SetToolTip(Me.PictureBox3, "Ajouter un verre de vin")
		ToolTip1.SetToolTip(Me.PictureBox4, "Ajouter un verre de vin")
		ToolTip1.SetToolTip(Me.PictureBox5, "Ajouter une dose d'alcool fort")
		ToolTip1.SetToolTip(Me.PictureBox6, "Ajouter une dose d'alcool doux")
		ToolTip1.SetToolTip(Me.PictureBox7, "Ajouter une dose d'alcool fort")
		ToolTip1.SetToolTip(Me.PictureBox10, "Afficher l'aide")
		K = 0.7
		M = 80
		
	End Sub
	
	Sub PictureBox1Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		Alcoolemie()
		
	End Sub
	
	Sub Alcoolemie
		
		On Error Resume Next
		
		E = A + B + C + D  'Total des consommation
		TextBox5.Text = E
		If radioButton1.Checked = True Then K = 0.7  'Homme
		If radioButton2.Checked = True Then K = 0.6  'Femme
		
		TextBox6.Text = (E * 0.8) / (K * M)  'Formule alcoolemie
		T = TextBox6.Text
		Label14.Text = Math.Round(T, 2)  'Arrondi 2 chiffres après la virgule
		
		R = Label14.Text - 0.5
		TextBox7.Text = R / 0.15 * 60  'Alcool à évacuer
		If TextBox7.Text < 0 Then TextBox7.Text = 0
		
		Dim Heure As String
        Heure = Int(TextBox7.Text / 60) & " heure(s) et " & TextBox7.Text Mod 60 & " minute(s)"
		Label17.Text = Heure  'Affichage du nombre d'heure(s) pour récupérer
		
		If TextBox7.Text < 0.5 Then
			'Affichage du texte en bleu ou en rouge
			Label14.ForeColor = System.Drawing.Color.SteelBlue
			Label15.ForeColor = System.Drawing.Color.SteelBlue
			Label17.Visible = False
		Else
			Label14.ForeColor = System.Drawing.Color.Firebrick
			Label15.ForeColor = System.Drawing.Color.Firebrick
			Label17.Visible = True
		End If
		
	End Sub
	
	Sub NumericUpDown4ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox1.Text = (numericUpDown4.Value * 250) * (numericUpDown7.Value / 100)
		A = TextBox1.Text  'valeur de 25cl de bière
		
	End Sub
	
	Sub NumericUpDown7ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox1.Text = (numericUpDown4.Value * 250) * (numericUpDown7.Value / 100)
		A = TextBox1.Text
		
	End Sub
	
	Sub NumericUpDown6ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox2.Text = (numericUpDown6.Value * 20) * (numericUpDown5.Value / 100)
		B = TextBox2.Text
		
	End Sub
	
	Sub NumericUpDown5ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox2.Text = (numericUpDown6.Value * 20) * (numericUpDown5.Value / 100)
		B = TextBox2.Text
		
	End Sub
	
	Sub NumericUpDown1ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		M = NumericUpDown1.Value
		
	End Sub
	
	Sub Timer1Tick(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		Label2.Text = Now.ToLongTimeString  'Affichage de l'heure
		
	End Sub
	
	Sub NumericUpDown9ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox3.Text = (numericUpDown9.Value * 100) * (numericUpDown8.Value / 100)
		C = TextBox3.Text
		
	End Sub
	
	Sub NumericUpDown8ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox3.Text = (numericUpDown9.Value * 100) * (numericUpDown8.Value / 100)
		C = TextBox3.Text
		
	End Sub
	
	Sub NumericUpDown11ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox4.Text = (numericUpDown11.Value * 60) * (numericUpDown10.Value / 100)
		D = TextBox4.Text
		
	End Sub
	
	Sub NumericUpDown10ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		TextBox4.Text = (numericUpDown11.Value * 60) * (numericUpDown10.Value / 100)
		D = TextBox4.Text
		
	End Sub
	
	Sub PictureBox2Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown4.Value = numericUpDown4.Value + 1
		
	End Sub
	
	Sub PictureBox3Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown9.Value = numericUpDown9.Value + 1
		
	End Sub
	
	Sub PictureBox4Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown9.Value = numericUpDown9.Value + 1
		
	End Sub
	
	Sub PictureBox5Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown6.Value = numericUpDown6.Value + 1
		
	End Sub
	
	Sub PictureBox7Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown6.Value = numericUpDown6.Value + 1
		
	End Sub
	
	Sub PictureBox6Click(ByVal sender As Object, ByVal e As EventArgs)
		
		On Error Resume Next
		
		numericUpDown11.Value = numericUpDown11.Value + 1
		
	End Sub
	
	Sub PictureBox10Click(ByVal sender As Object, ByVal e As EventArgs)
		
		PictureBox8.Visible = True  'Affichage de l'aide
		
	End Sub
	
	Sub PictureBox8Click(ByVal sender As Object, ByVal e As EventArgs)
		
		PictureBox8.Visible = False  'Masquer l'aide
		
	End Sub
	
End Class

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_antonio22
Messages postés
1
Date d'inscription
mardi 29 mars 2011
Statut
Membre
Dernière intervention
29 mars 2011
-
Bonjour,
Serais-ce possible d'avoir ce code en java ? Merci d'avance
alaingarot
Messages postés
1
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
17 décembre 2007
-
Pas mal du tout, bravo !
(Même si je l'avais déjà...)
jjc_Mtl
Messages postés
2
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
17 décembre 2007
-
précision linguistique:
alcoolémie = taux d'alcool dans le sang
taux d'alcoolémie = taux de taux?
jjc_Mtl
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Faut souffler où ? J'ai pas trouvé le ballon ^^
cs_leretour1
Messages postés
1
Date d'inscription
dimanche 26 novembre 2006
Statut
Membre
Dernière intervention
14 décembre 2007
-
Bonjour à tous.
C'est sympa pour un débutant.
moi,je n'en suis même pas à ce niveau là.
?????
J'espère y arriver un jour.

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.