CALCUL DU TAUX D'ALCOOLEMIE

' 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

Télécharger le zip