Unser Office-UDFler hat Geburtstag.
Herzlichen Glückwunsch!
Füße hoch, der kommt flach:D:
Pass auf, dass du nach der Party nicht wie ein Schluck Wasser in der Kurve hängst.
lg chess
Unser Office-UDFler hat Geburtstag.
Herzlichen Glückwunsch!
Füße hoch, der kommt flach:D:
Pass auf, dass du nach der Party nicht wie ein Schluck Wasser in der Kurve hängst.
lg chess
Alles Gute zum Burzelsdach, water.
Bruce Lee sagte: "Be water, my friend", hrhrhrh
Alles Gute und feier' schön
Der Witz kam übrigens nicht flach, sondern seeehr tief
Alles gute
Hey water alles Gute zum 53. Geburtstag (Ich hoffe ich habe mich nicht verrechnet)! Genieß den Tag!
Happy Birthday tooo youuuu, happy birthday toooo youuuuuu *sing*
Alles jute zum Burzeltag!
Surfy
Alles gute zum Geburtstag :).
Alles Gute auch von mir zum B-Day!!!
Vielen Dank für Eure Geburtstagswünsche!
Ich werde mir heute auf jeden Fall etwas Wasser - Lebenswasser - in Form von Whisky einflössen. Ein paar gute Flaschen stehen in Sichtweite rum.
Skripte, die ich heute oder morgen schreibe, könnt Ihr daher getrost in die Tonne treten
chesstiger : 02:51 - stehst Du so früh auf oder warst Du noch gar nicht im Bett
Auch ich wünsche dir alles gute
Alles gute!
Hallo water,
auch von mir Alle Gute.
Und als Schmankerl gibt es eine Simulation deiner Geburtstagsparty, mußt nur noch deine Daten anpassen.
#include "AutoItObject.au3"
[/autoit] [autoit][/autoit] [autoit]_AutoItObject_Startup()
[/autoit] [autoit][/autoit] [autoit]$o_water = _BirthdayPartyCreate('water')
[/autoit] [autoit][/autoit] [autoit]$o_water.Gender = 'm'
$o_water.Gewicht = 75
Local $sTimeLast, $indexDrink
Local $Glas_Bier = 250, $ProzAlcBier = 5
Local $Korn = 20, $ProzAlcKorn = 38
Local $aDrink[2][2] = [[$Glas_Bier,$ProzAlcBier], [$Korn,$ProzAlcKorn]]
; es geht los: ein Bier, hinterher ein Korn
$o_water.Drink($Glas_Bier, $ProzAlcBier, '20:00')
$o_water.Drink($Korn, $ProzAlcKorn, '20:05')
$o_water.AnzahlBier = $o_water.AnzahlBier +1
$o_water.AnzahlKorn = $o_water.AnzahlKorn +1
$sTimeLast = '20:05'
; und nun steigt die Party, Runde für Runde, alle 10 - 20 min wird getrunken
; mal ein Bier, mal ein Korn, rein zufällig -- aber bei 2,5 Promille ist Schluß
While $o_water.Promille <= 2.5
$sTimeLast = _TimeAdd($sTimeLast, Random(10, 20, 1))
$indexDrink = Random(0, 1, 1)
$o_water.Drink($aDrink[$indexDrink][0], $aDrink[$indexDrink][1], $sTimeLast)
If $indexDrink = 0 Then
$o_water.AnzahlBier = $o_water.AnzahlBier +1
Else
$o_water.AnzahlKorn = $o_water.AnzahlKorn +1
EndIf
WEnd
MsgBox(0, 'Feierabend', 'Die Party ist beendet' & @CRLF & @CRLF & _
'Die letzte Runde gab es um: ' & $sTimeLast & ' Uhr' & @CRLF & @CRLF & _
'Pegelstand: ' & StringFormat('%.2f', $o_water.Promille) & ' ' & Chr(137) & @CRLF & @CRLF & _
'getrunken wurden:' & @CRLF & _
'Bier: ' & $o_water.AnzahlBier & @CRLF & _
'Korn: ' & $o_water.AnzahlKorn )
Func _BirthdayPartyCreate($sName)
Local $self = _AutoItObject_Create()
_AutoItObject_AddProperty($self, 'Name', $ELSCOPE_READONLY, $sName)
_AutoItObject_AddProperty($self, 'Gender', $ELSCOPE_PUBLIC, 'm')
_AutoItObject_AddProperty($self, 'Gewicht', $ELSCOPE_PUBLIC, 85)
_AutoItObject_AddProperty($self, 'tLastDrink', $ELSCOPE_PUBLIC, 0)
_AutoItObject_AddProperty($self, 'Promille', $ELSCOPE_PUBLIC, 0)
_AutoItObject_AddProperty($self, 'AnzahlBier', $ELSCOPE_PUBLIC, 0)
_AutoItObject_AddProperty($self, 'AnzahlKorn', $ELSCOPE_PUBLIC, 0)
_AutoItObject_AddMethod($self, 'Drink', "_DrinkAlc")
Return $self
EndFunc
Func _DrinkAlc(ByRef $self, $iMenge_ml, $iProzAlc, $iUhrZeit)
#cs
Widmark'sche Formel:
A Flüssigkeit in ml * Alkoholgehalt in % * 0.81
/
B Körpergewicht * 0.7 [w=0.6]
C - Resorptionsdefizit
D - Alkoholabbau
= Blutalkoholgehalt in ‰
#ce
If $self.tLastDrink = 0 Then $self.tLastDrink = $iUhrZeit
Local $iTimeDiff = _TimeDiff($self.tLastDrink, $iUhrZeit)
Local $iFactor = 0.7
If $self.Gender = 'w' Then $iFactor = 0.6
Local $A, $B, $C, $D
$A = $iMenge_ml * $iProzAlc / 100 * 0.81
$B = $self.Gewicht * $iFactor
$C = 0.2 * $A / $B
$self.Promille = $self.Promille + ($A / $B - $C)
$D = $iTimeDiff * 0.15
If $D > 0 Then
$self.Promille = $self.Promille - $D
If $self.Promille < 0 Then $self.Promille = 0
EndIf
$self.tLastDrink = $iUhrZeit
EndFunc
Func _TimeDiff($t1, $t2)
Local $iPos = StringInStr($t1, ':')
If $iPos Then $t1 = StringLeft($t1, $iPos-1) + StringTrimLeft($t1, $iPos) * 1/60
$iPos = StringInStr($t2, ':')
If $iPos Then $t2 = StringLeft($t2, $iPos-1) + StringTrimLeft($t2, $iPos) * 1/60
Local $iDiff = $t2 - $t1
If $iDiff < 0 Then $iDiff = ($t2 + 24) - $t1
Return $iDiff
EndFunc
Func _TimeAdd($t1, $iDiff)
Local $iPos = StringInStr($t1, ':')
If $iPos Then $t1 = StringLeft($t1, $iPos-1) + StringTrimLeft($t1, $iPos) * 1/60
$t1 += ($iDiff * 1/60)
If $t1 >= 24 Then $t1 -= 24
Local $iHour = Int($t1), $iMin = Ceiling(($t1 - $iHour) * 60)
Return $iHour & ':' & StringFormat('%02d', $iMin)
EndFunc
Alles Gute!
Alles Gute, Water .
Danke für das Schmankerl!
Meine Größe hast Du fast richtig erwischt: 184
Die Party endet so gegen 02:00 nachts nach gut 15 Bier und 12 Korn. Mann bin ich breit
Also erst mal ausschlafen um den Alk wieder auf das normale Niveau (0,5%%) zu bringen.
water
Ich bleibe immer solange auf, damit ich direkt als erster den AutoIt.de-Mitgliedern zum Geburtstag gratulieren kann.
Nee, ich war noch wach. Hab sozusagen in die Ferien reingefeiert.
lg chess
Auch auf dieser Seite ein Happy Birthday und alles Gute!
Gruß,
UEZ