Private Sub cmd_Ausgabe_Click()
Dim ml As Double
Dim prozent As Double
Dim Gewicht As Double
Dim Faktor As Double
ml = Val(txt_ml.Text)
prozent = Val(txt_Prozent.Text)
Gewicht = Val(txt_Gewicht.Text)
If rb_m Then Faktor = 0.7
If rb_w Then Faktor = 0.6
ergebnis1 = ml * prozent / 100 * 0.8
lbl_menge = ergebnis1
ergebnis2 = ergebnis1 / (Gewicht * Faktor)
lbl_konzentration = ergebnis2
ergebnis3 = lbl_konzentration / 0.12
lbl_nüchtern = ergebnis3
If ergebnis2 = 0 Then
lbl_bemerkung = "Absolut Nüchtern"
ElseIf ergebnis2 > 0 And ergebnis2 <= 0.3 Then
lbl_bemerkung = " Alkohol leicht spürbar"
ElseIf ergebnis2 > 0.3 And ergebnis2 <= 0.5 Then
lbl_bemerkung = " Spürbares Wärmegefühl-Leichte Müdigkeit"
ElseIf ergebnis2 > 0.5 And ergebnis2 <= 0.8 Then
lbl_bemerkung = "Eingeschränkte Reaktionsfähigkeit- Scooter lieber stehen lassen"
ElseIf ergebnis2 > 0.8 And ergebnis2 <= 1 Then
lbl_bemerkung = " Koordinierungsschwierigkeiten, erste Sprachstörung"
ElseIf ergebnis2 > 1 And ergebnis2 <= 1.5 Then
lbl_bemerkung = " Starke Betrunkenheit"
ElseIf ergebnis2 > 1.5 And ergebnis2 <= 2 Then
lbl_bemerkung = " Unkontrolliertes Torkeln, Vollrausch, Torkeln"
ElseIf ergebnis2 > 2 And ergebnis2 <= 2.5 Then
lbl_bemerkung = " Ab hier Lebensgefahr"
ElseIf ergebnis2 > 2.5 And ergebnis2 <= 3 Then
lbl_bemerkung = " Bewusstseinverlust; man kann sich nicht mehr aufrecht halten "
ElseIf ergebnis2 >= 3 Then
lbl_bemerkung = "Tödliche Dosis"
End If
End Sub
Private Sub cmd_ende_Click()
End
End Sub
Private Sub rb_m_Click()
If rb_m Then Faktor = 0.7
End Sub
Private Sub rb_w_Click()
If rb_w Then Faktor = 0.6
End Sub
Per averlo in italiano basta cambiare le sigle^^
© by Lölle
Clicca qui----->
Hacking,Msn,Download e tanto altro...