Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: qbkiller101 on June 02, 2020, 10:04:22 am

Title: Working Motto
Post by: qbkiller101 on June 02, 2020, 10:04:22 am
This is my motto :
DIM Coffee as cup of 20% caffeine
CLS
   DO
     DRINK Coffee AND StayAwake()
   LOOP UNTIL Code(Successful)
This is it working :)
Code: QB64: [Select]
  1. DIM Coffee AS LONG
  4.     _LIMIT 1
  5.     Drink "Coffee"
  6.     StayAwake
  7.     CodeSuccessfulornot
  8. LOOP UNTIL Code()
  9.  
  10.  
  11.  
  12. SUB Drink (WhatToDrink$)
  13.     PRINT "Coffee Supply Over"
  14.     PRINT
  16.  
  17. SUB StayAwake ()
  18.     PRINT "Dying from lack of sleep"
  19.     PRINT
  21.  
  22. SUB CodeSuccessfulornot
  23.     PRINT "You know that it never will work, don't you?"
  24.     PRINT
Title: Re: Working Motto
Post by: _vince on June 02, 2020, 10:14:49 am
Is your coffee 20% caffeine?
Title: Re: Working Motto
Post by: johnno56 on June 02, 2020, 11:27:00 am
Fascinating.

Logic dictates that, whatever the caffeine level may be, coffee is a superior beverage that is 'far' from reproach and conclusively incapable of causing error.

My suggestion would be to look elsewhere for the causal effect.

How can anyone, in reasonable command of their faculties, even consider questioning the involvement of coffee in regards to being 'unsuccessful'. Highly illogical.

Side note: (factoid)

May I also suggest that, one switches to tea, as it contains only 11mg of caffeine per 100gms of tea.
Both the U.S Department of Agriculture and the European Food Safety Authority define 'a safe caffeine intake' as up to 400 mgs per day, 200 mgs per single dose, or 3mgs per kilo of body weight. One cup of coffee can contain 47mg of caffeine but can contain as much as 90mg. Whereas tea contains 20-45gms per cup.
Title: Re: Working Motto
Post by: qbkiller101 on June 02, 2020, 11:54:55 am
@_vince @johnno56
lol lol
I don't drink coffee I'm 12 years old and its 20% caffeine cuz that's the average
Title: Re: Working Motto
Post by: johnno56 on June 03, 2020, 10:25:38 am
qbkiller101,

12... Interesting.

When I was 12 (1968), we didn't have any computers in the home, that wouldn't happen for another 17 years.
You are SO lucky to be learning how to program at your age. Enjoy it and have fun...

J
Title: Re: Working Motto
Post by: bplus on June 03, 2020, 12:19:57 pm
20% caffeine in coffee is definitely killer! ;-))

80 mg in 8oz Red Bull.
https://www.google.com/search?client=opera&hs=f5t&sxsrf=ALeKk00-lOCWD05c25a6BG9kaEI61IxeLw%3A1591200862699&ei=XszXXumcKpaStAbWsZyYDQ&q=percent+caffine+in+red+bull&oq=percent+caffine+in+red+bull&gs_lcp=CgZwc3ktYWIQAzIGCAAQFhAeOgQIABBHOgYIABANEB46CgghEBYQChAdEB5Qr8YLWNbrC2Cy9gtoAXABeACAAYsBiAH7B5IBAzAuOZgBAKABAaoBB2d3cy13aXo&sclient=psy-ab&ved=0ahUKEwjpw7-RhebpAhUWCc0KHdYYB9MQ4dUDCAs&uact=5

Quote
How many milligrams are in a fluid ounce?
Ounces to Milligrams table
Ounces   Milligrams
0 oz   0.00 mg
1 oz   28349.52 mg
2 oz   56699.05 mg
3 oz   85048.57 mg
https://www.google.com/search?client=opera&sxsrf=ALeKk03Ao_P7Og1nsXDjDTH1nZStmyyvNQ%3A1591201059321&ei=I83XXqP5Etj0tAavgqjICg&q=mg+to+ounces&oq=mg+to+o&gs_lcp=CgZwc3ktYWIQARgBMggIABCxAxCRAjIFCAAQkQIyAggAMgIIADICCAAyAggAMgIIADICCAAyAggAMgIIADoECAAQRzoHCCMQsAIQJzoGCAAQFhAeOgQIIxAnOgoIABCxAxAUEIcCOgUIABCxAzoFCAAQgwE6BAgAEEM6BwgAELEDEEM6BwgjEOoCECdQ_YsDWKbSA2D9_QNoAXABeAGAAZUBiAGaGJIBBTIyLjEwmAEAoAEBqgEHZ3dzLXdperABCg&sclient=psy-ab
Text Only | Text with Attachments