Coffee
From Wikipedia, the free encyclopedia
| Coffee | |
|---|---|
| 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:
it's agreat morningcoffe help u think before act
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
Post a Comment