Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketUuummmm, kafffe

 Besvar Besvar
Forfatter
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470
Direkte link til dette indlæg Emne: Uuummmm, kafffe
    Sendt: 28.Mar.2014 kl. 13:12
Jeg tænkte, at jeg ville gøre mit overdrevne kaffe drikkeri lidt lettere...
Sub Drink_From_Mug(ByVal Contents As Liquid, ByVal Mug As Container)

      If Contents Is Not Liquid Then Exit Sub
      
      Do Until Mug Is Empty
            Action = Drink(Contents, Mug)
            SystemBladder = SystemBladder + Mug.Value
            If SystemBladder >= 90% Then GoTo Toilet:
      Loop

      SystemEnergy = SystemEnergy + Contents.Caffeine
      
      If SystemEnergy < 100% Then
            Call Drink_From_Mug
      Else
            Clean Mug   '  Must do this before go to Toilet
      End If

Toilet:
      Do Until SystemBladder Is Empty
            SystemBladder Release
      Loop

End Sub

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top



Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg Sendt: 28.Mar.2014 kl. 13:33
LOL lidt griner - men skulle den ikke også lave en spand i ny og næ Tongue
Hygge - Kim
Excel 365 DK user
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470
Direkte link til dette indlæg Sendt: 28.Mar.2014 kl. 14:09
Du er velkommen til selv at bygge videre på koden - den er ubeskyttet Tongue
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk