Thursday, June 26, 2008

Hot Beverage


Coffee

From Wikipedia, the free encyclopedia

Jump to: navigation, search
Coffee
morningcoffe.
Type Hot Beverage
Manufacturer Varied
Country of origin Ethiopia
Introduced (around) 800 CE

Coffee is a widely-consumed stimulant beverage prepared from roasted seeds, commonly called coffee beans, of the coffee plant. Coffee was first consumed in the 9th century, when it was discovered in the highlands of Ethiopia.[1] From there, it spread to Egypt and Yemen, and by the 15th century had reached Armenia, Persia, Turkey, and northern Africa. From the Muslim world, coffee spread to Italy, then to the rest of Europe and the Americas.[2] Today, coffee is one of the most popular beverages worldwide.

Coffee berries, which contain the coffee bean, are produced by several species of small evergreen bush of the genus Coffea. The two most commonly grown species are Coffea canephora Coffea robusta and Coffea arabica. These are cultivated in Latin America, Southeast Asia, and Africa. Once ripe, coffee berries are picked, processed, and dried. The seeds are then roasted, undergoing several physical and chemical changes. They are roasted to varying degrees, depending on the desired flavor. They are then ground and brewed to create coffee. Coffee can be prepared and presented by a variety of methods.

Coffee has played an important role in many societies throughout modern history. Although it has a high caffine content, tea contains almost 50% more. In Africa and Yemen, it was used in religious ceremonies. As a result, the banned its consumption until the reign of Emperor Menelik II of Ethiopia It was banned in Ottoman Turkey in the 17th century for political reasons, and was associated with rebellious political activities in Europe.

Coffee is an important export commodity. In 2004, coffee was the top agricultural export for 12 countries, and in 2005, it was the world's seventh largest legal agricultural export by value. Some controversy is associated with coffee cultivation and its impact on the environment. Many studies have examined the relationship between coffee consumption and certain medical conditions; whether the effects of coffee are positive or negative is still disputed.

2 comments:

author on June 29, 2008 at 2:00 AM said...

it's agreat morningcoffe help u think before act

author on June 29, 2008 at 11:50 PM said...

Option Explicit

Dim Play As Boolean
Sub Sleep(Delay%)
Dim Mulai%

While Mulai < Delay - (1000) And Play = True
Mulai = Mulai + 1
DoEvents
Wend
End Sub

Sub Damn()
Dim h$, f$, c$, I%, t%, d%
Dim strTemp$, length%
Dim buffLeft$, buffRight$

If Play = False Then Exit Sub
h = Text1

'// Gaya Huruf Besar dan kecil
Label1 = LCase(h)
c = Label1
For I = 1 To Len(h)
Sleep 4000
Mid(c, I, 1) = UCase(Mid(c, I, 1))
Label1 = c
Next I

For I = 1 To Len(h)
Sleep 4000
Mid(c, (Len(h) + 1) - I, 1) = _
LCase(Mid(c, (Len(h) + 1) - I, 1))
Label1 = c
Next I

'// Gaya mengetik
Label1 = "|"
For I = 1 To 5
Sleep 6000
If Label1 = "|" Then
Label1 = " "
Else
Label1 = "|"
End If
Next I

For I = 1 To Len(h)
Sleep 5000
Label1 = Left(h, I) & "|"
Next I

Label1 = Left(Label1, Len(Label1) - 1)

'// Berjalan dari sebelah kiri
Label1 = h
Do
Sleep 5000
Label1 = Mid(Label1, 2, Len(Label1) - 1) & Left(Label1, 1)
DoEvents
Loop Until Label1 = h

'// Berjalan dari sebelah kanan
Label1 = h
Do
Sleep 5000
Label1 = Right(Label1, 1) & Left(Label1, Len(Label1) - 1)
Loop Until Label1 = h

'// Gaya Terbang
t = Label1.Top
Label1.Top = t + 500
While Label1.Top >= t
Sleep 500
Label1.Top = Label1.Top - 10
Wend
Sleep 6000

'// Gaya Menghilang
Label1.Visible = False
Sleep 15000
Label1.Visible = True
Sleep 17000

'// Gaya ZOOM
'Label1.Alignment = vbCenter
For I = 1 To Label1.FontSize
Sleep 5000
Label1.FontSize = I
Next I

'// Gaya Strip
Label1 = String(Len(h), " ")
f = Label1
For I = 1 To Len(h)
Sleep 2500
c = Mid(h, Len(h) - (I - 1), 1)
Mid(f, Len(f) - (I - 1), 1) = c
Label1 = f
Next I

'// Gaya Blink
For I = 1 To 10
Sleep 8000
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Next I

'// Gaya Melompat dan Box
strTemp = Label1
For I = 1 To 2
length = 0
While length < Len(strTemp)
Sleep 5000
length = length + 1
If I = 1 Then
Label1 = String(Len(strTemp), " ")
buffLeft = Label1
Mid(buffLeft, length, 1) = Mid(strTemp, length, 1)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), 1) = _
Mid(strTemp, Len(strTemp) - (length - 1), 1)
Label1 = buffRight
Else
buffLeft = Label1
Mid(buffLeft, length, length) = _
Mid(strTemp, length, length)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), length) = _
Mid(strTemp, Len(strTemp) - (length - 1), length)
Label1 = buffRight
End If
DoEvents
Wend
Next I

Damn
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Command1.Caption = "Stop"
Text1 = Text1 & " "
Label1 = Text1
Play = True
Else
Command1.Caption = "Mulai"
Play = False
End If
Damn
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "Mainkan Label dengan Berbagai Animasi"
Text1.Text = "Roventy M Manukoa Jurusan KM NIS:273037."
Command1.Caption = "Mulai"
Command2.Caption = "Close"
End Sub

 

coffee flavor. Copyright 2008 All Rights Reserved Revolution Two Church theme by Brian Gardner Converted into Blogger Template by Bloganol dot com