VB Ular
source codenya adalah:
Private Declare Function GetTickCount Lib "kernel32" () As Long 'this function lets us not use timer
'timers are bad :)
'main body... each part of the snake has X and Y
Private Type Part
X As Integer
Y As Integer
End Type
'Dynamic array to store part coordinates
Dim Part() As Part
'Velocity in X and Y direction of the snake
Dim vX As Integer, vY As Integer
Dim i As Integer 'for loops
Dim CS As Single 'cell size
Dim FX As Integer, FY As Integer 'food coordinates
Dim X As Integer, Y As Integer
Dim bRunning As Boolean, died As Boolean
Private Sub Form_Load()
Randomize 'random generation
'Initialize controls******************
Picture1.BackColor = vbWhite
Picture1.ScaleMode = 3 'pixels
CS = 20 'cell size in pixels
X = Int(Picture1.ScaleWidth / CS)
Y = Int(Picture1.ScaleHeight / CS)
Picture1.AutoRedraw = True
Picture1.ScaleWidth = X * CS
Picture1.ScaleHeight = Y * CS
Me.WindowState = 2
Me.Show
DrawGrid Picture1, CS
'*************************************
died = False
'set up the game
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
'go to main loop
bRunning = True
MainLoop
End Sub
Sub MainLoop()
Do While bRunning = True
Update
Draw
WAIT (50) 'increasing this number makes game slower
Loop
Unload Me
End Sub
Sub Update()
'MOVE PARTS
For i = UBound(Part) To 1 Step -1
Part(i).X = Part(i - 1).X
Part(i).Y = Part(i - 1).Y
Next i
'MOVE HEAD
Part(0).X = Part(0).X + vX
Part(0).Y = Part(0).Y + vY
'HAS HE GONE OUT OF BOUNDS ?
If Part(0).X <>= X Or Part(0).Y <>= Y Then
died = True
End If
'HAS HE CRASHED INTO HIMSELF ?
For i = 1 To UBound(Part)
If Part(i).X = Part(0).X And Part(i).Y = Part(0).Y Then
died = True
End If
Next i
'DID HE EAT FOOD ?
If Part(0).X = FX And Part(0).Y = FY Then
ReDim Preserve Part(UBound(Part) + 1)
Part(UBound(Part)).X = -CS
Part(UBound(Part)).Y = -CS
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
Form1.Caption = "Parts: " & UBound(Part)
End If
'IS HE DEAD ?
If died = True Then NewGame
End Sub
Sub Draw()
'DRAW WHITENESS
Rectangle 0, 0, X * CS, Y * CS, vbWhite
'DRAW SNAKE. PARTS IN BLUE, HEAD IN GREEN
For i = 1 To UBound(Part)
Rectangle Part(i).X * CS, Part(i).Y * CS, Part(i).X * CS + CS, Part(i).Y * CS + CS, vbBlue
Next i
Rectangle Part(0).X * CS, Part(0).Y * CS, Part(0).X * CS + CS, Part(0).Y * CS + CS, vbGreen
'DRAW FOOD
Rectangle FX * CS, FY * CS, FX * CS + CS, FY * CS + CS, vbRed
DrawGrid Picture1, CS
End Sub
Sub Rectangle(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, color As Long)
Picture1.Line (X1, Y1)-(X2, Y2), color, BF
End Sub
Sub NewGame()
'SET UP NEW GAME
died = False
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
vX = 0
vY = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
End Sub
Sub DrawGrid(Pic As Control, CS As Single)
'**************************************************************************
'DRAW GRID
'**************************************************************************
Dim i As Integer, Across As Single, Up As Single
Across = Pic.ScaleWidth / CS
Up = Pic.ScaleHeight / CS
For i = 0 To Across
Pic.Line (i * CS, 0)-(i * CS, Up * CS)
Next i
For i = 0 To Up
Pic.Line (0, i * CS)-(Across * CS, i * CS)
Next i
End Sub
Sub WAIT(Tim As Integer)
'**************************************************************************
'WAIT FUNCTION
'**************************************************************************
Dim LastWait As Long
LastWait = GetTickCount
Do While Tim > GetTickCount - LastWait
DoEvents
Loop
End Sub
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'USER KEYPRESSES HANDLED HERE
Select Case KeyCode
Case vbKeyRight
vX = 1
vY = 0
Case vbKeyLeft
vX = -1
vY = 0
Case vbKeyUp
vX = 0
vY = -1
Case vbKeyDown
vX = 0
vY = 1
End Select
End Sub
Private Sub Picture1_KeyPress(KeyAscii As Integer)
'27 is ESC. IF user presses ESC, QUIT
If KeyAscii = 27 Then bRunning = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
'This function can be left out
End
End Sub
VB kalender
source code calendernya adalah:
Option Explicit
Dim days As Long '<-Stores the number of days elapsed from 1/1/1900 to current month and year
Dim i As Integer
Private Sub cmdGenerate_Click()
On Error GoTo Error_handle 'On error, goto to end of function
days = 0
For i = 0 To 34
Label1(i).Caption = "" 'Clear all the labels
Next i
For i = 1900 To txtYear.Text - 1
If i Mod 4 = 0 Then 'If leap year then count 366 days
days = days + 366
Else 'else 365 days
days = days + 365
End If
Next i
For i = 1 To txtMonth.Text - 1
If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then 'For January,March,May....,December count 31 days
days = days + 31
ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then 'For April,June,September,November count 30 days
days = days + 30
ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then 'If month is February and year is leap year count 29 days
days = days + 29
Else 'If month is February and year is not a leap year, count 28 days
days = days + 28
End If
Next i
If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then
show_calender 31 'Show calender with 31 days
ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then
show_calender 30 'Show calender with 30 days
ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then
show_calender 29 'Show calender with 29 days
Else
show_calender 28 'Show calender with 28 days
End If
Error_handle:
End Sub
Private Function show_calender(n As Integer) '//<- n stores the number of days to display
Dim i, k As Integer
k = days Mod 7 'Divide days with 7, the remainder give the current day
For i = 1 To n
Label1(k).Caption = i 'Display the number in calender format
k = k + 1
If k = 35 Then k = 0
Next i
End Function
VB Calculator
VB Chapter 3 Calculator
Script dapat di dapatkan setelah Anda menekan tombol Selengkapnya..
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9
Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
Source : www.planetsourcecode.com
Script dapat di dapatkan setelah Anda menekan tombol Selengkapnya..
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9
Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
Source : www.planetsourcecode.com
VB chapter 1
Private Sub Command1_Click()
Label5.Caption = "Luas Segi3 nya adalah"
Text4 = Val(Text1.Text) * Val(Text2.Text) * 0.5
End Sub
Private Sub Command2_Click()
Label5.Caption = "Volumenya adalah"
Text4 = 4 / 3 * Val(Text3.Text) ^ 3 * 3.14
End Sub
Manfaat Permen Karet
Permen KareT bErmanFaaT lhO..
Hobi mengunyah permen karet bisa menjadi gaya khas seseorang. Di balik permen karet ternyata terdapat khasiat, yakni penangkal stres.
Siapa yang tak kenal permen karet? Bahkan, jenis makanan manis ini bisa dikatakan sebagai jajanan populer segala usia. Mulai anak-anak hingga dewasa pasti menggemari permen karet. Terlebih dengan variasi rasa yang semakin banyak. Tak hanya mint yang mampu mengatasi bau mulut, juga aneka rasa buah yang menyegarkan.
Namun, siapa menyangka dibalik bentuknya yang tipis, permen karet punya banyak manfaat. Salah satunya, meningkatkan konsentrasi. Pasti kita semua mengenal bintang olahraga basket Amerika, Michael Jordan. Ternyata rahasia kemenangannya selama ini adalah mengunyah permen karet sesaat sebelum pertandingan.
Bintang NBA tersebut percaya, mengunyah permen karet akan meningkatkan konsentrasinya selama bermain. Begitu pula dengan Baron Davis, yang juga pemain NBA. Saat bermain, Davis selalu terlihat mengunyah permen karet. Hanya, berbeda dengan Jordan yang tak punya rasa permen karet favorit, Davis justru sangat fanatik dengan permen karet rasa buah.
Tidak hanya di dunia basket. Kebiasaan mengunyah permen karet meluas di cabang olahraga lain di Amerika. Terutama di jajaran pelatih. Saat suatu pertandingan berlangsung, bukan lagi pemandangan aneh melihat seorang pelatih berdiri gelisah di pinggir lapangan sembari mengunyah permen karet. Beberapa di antaranya adalah pelatih American Football Bill Cowher juga pelatih Chicago Bears serta mantan pemain Super Bowl Mike Ditka.
Kepopuleran permen karet pun semakin meluas. Serial animasi terkenal The Simpson bahkan pernah menayangkan satu episode yang menceritakan serba-serbi permen karet. Dave Grohl, pendiri dan vokalis Foo Fighter punya kebiasaan mengunyah permen karet saat pertunjukan. Dia mengatakan, hal itu akan membuat mulutnya terasa lembap sekaligus menjaga kestabilan pita suaranya.
Indonesia pun tak ketinggalan. Permen karet pernah jadi ikon gaul anak muda semasa Lupus sedang booming. Awalnya, permen karet dipasarkan hanya sebagai makanan ringan semata. Kemudian, ditambah berbagai rasa dan warna agar dapat lebih diterima pasar. Sejak itu, permen karet terkenal akan manfaatnya. Contohnya, mint untuk menghilangkan bau mulut ataupun licorice yang mampu melegakan tenggorokan.
Namun, rupanya para peneliti belum cukup puas. Mereka menemukan fakta baru mengenai permen karet, yakni dapat mengurangi risiko cavities pada gigi, membantu menurunkan berat badan, meningkatkan konsentrasi, sekaligus meredakan stres.
Lalu, apa yang membuat permen karet menjadi begitu hebat? Dibalik rasanya dan bentuknya yang manis, permen karet ternyata mengandung berbagai zat yang menyehatkan. Salah satunya xylitol, yang terbukti mampu mengurangi pembentukan cavities pada gigi. Tak hanya itu, selama proses mengunyah, mulut memproduksi lebih banyak air ludah yang membantu menetralisasi asam akibat makanan yang dapat merusak gigi.
Proses mengunyah pun ternyata memiliki manfaat. Seorang psikolog asal Inggris menyebutkan orang yang terbiasa mengunyah permen karet akan memiliki ingatan yang lebih kuat sebanyak 25%. Hal ini secara tidak langsung berkaitan dengan kerja jantung dan pembuluh darah yang membawa oksigen lebih cepat ke otak saat kita mengunyah. Ini juga yang membuat para atlet lebih bertenaga saat pertandingan
selamat mengunyah buat semuanya,
awas jgn permen semua di kantong...
Hobi mengunyah permen karet bisa menjadi gaya khas seseorang. Di balik permen karet ternyata terdapat khasiat, yakni penangkal stres.
Siapa yang tak kenal permen karet? Bahkan, jenis makanan manis ini bisa dikatakan sebagai jajanan populer segala usia. Mulai anak-anak hingga dewasa pasti menggemari permen karet. Terlebih dengan variasi rasa yang semakin banyak. Tak hanya mint yang mampu mengatasi bau mulut, juga aneka rasa buah yang menyegarkan.
Namun, siapa menyangka dibalik bentuknya yang tipis, permen karet punya banyak manfaat. Salah satunya, meningkatkan konsentrasi. Pasti kita semua mengenal bintang olahraga basket Amerika, Michael Jordan. Ternyata rahasia kemenangannya selama ini adalah mengunyah permen karet sesaat sebelum pertandingan.
Bintang NBA tersebut percaya, mengunyah permen karet akan meningkatkan konsentrasinya selama bermain. Begitu pula dengan Baron Davis, yang juga pemain NBA. Saat bermain, Davis selalu terlihat mengunyah permen karet. Hanya, berbeda dengan Jordan yang tak punya rasa permen karet favorit, Davis justru sangat fanatik dengan permen karet rasa buah.
Tidak hanya di dunia basket. Kebiasaan mengunyah permen karet meluas di cabang olahraga lain di Amerika. Terutama di jajaran pelatih. Saat suatu pertandingan berlangsung, bukan lagi pemandangan aneh melihat seorang pelatih berdiri gelisah di pinggir lapangan sembari mengunyah permen karet. Beberapa di antaranya adalah pelatih American Football Bill Cowher juga pelatih Chicago Bears serta mantan pemain Super Bowl Mike Ditka.
Kepopuleran permen karet pun semakin meluas. Serial animasi terkenal The Simpson bahkan pernah menayangkan satu episode yang menceritakan serba-serbi permen karet. Dave Grohl, pendiri dan vokalis Foo Fighter punya kebiasaan mengunyah permen karet saat pertunjukan. Dia mengatakan, hal itu akan membuat mulutnya terasa lembap sekaligus menjaga kestabilan pita suaranya.
Indonesia pun tak ketinggalan. Permen karet pernah jadi ikon gaul anak muda semasa Lupus sedang booming. Awalnya, permen karet dipasarkan hanya sebagai makanan ringan semata. Kemudian, ditambah berbagai rasa dan warna agar dapat lebih diterima pasar. Sejak itu, permen karet terkenal akan manfaatnya. Contohnya, mint untuk menghilangkan bau mulut ataupun licorice yang mampu melegakan tenggorokan.
Namun, rupanya para peneliti belum cukup puas. Mereka menemukan fakta baru mengenai permen karet, yakni dapat mengurangi risiko cavities pada gigi, membantu menurunkan berat badan, meningkatkan konsentrasi, sekaligus meredakan stres.
Lalu, apa yang membuat permen karet menjadi begitu hebat? Dibalik rasanya dan bentuknya yang manis, permen karet ternyata mengandung berbagai zat yang menyehatkan. Salah satunya xylitol, yang terbukti mampu mengurangi pembentukan cavities pada gigi. Tak hanya itu, selama proses mengunyah, mulut memproduksi lebih banyak air ludah yang membantu menetralisasi asam akibat makanan yang dapat merusak gigi.
Proses mengunyah pun ternyata memiliki manfaat. Seorang psikolog asal Inggris menyebutkan orang yang terbiasa mengunyah permen karet akan memiliki ingatan yang lebih kuat sebanyak 25%. Hal ini secara tidak langsung berkaitan dengan kerja jantung dan pembuluh darah yang membawa oksigen lebih cepat ke otak saat kita mengunyah. Ini juga yang membuat para atlet lebih bertenaga saat pertandingan
selamat mengunyah buat semuanya,
awas jgn permen semua di kantong...
Air Putih , aJA!!
Hidup Lebih Sehat - Dr. Don Colbert
Jadwal yang disarankan untuk meminum dua liter air setiap hari :
30 menit sebelum makan pagi : 1 gelas
2,5 jam setelah makan pagi : 1 gelas
30 menit sebelum makan siang : 1 gelas
2,5 jam setelah makan siang : 1 gelas
30 menit sebelum makan malam : 2 gelas
2,5 jam setelah makan malam : 1 gelas
30 menit sebelum tidur : 1 gelas
Minum air sebelum makan memiliki dua kepentingan :
1. Akan mengurangi nafsu makan karena perut anda terasa penuh.
2. Memberikan manfaat positif bagi pencernaan anda.
Menghindari sikap negatif untuk hidup yang lebih sehat :
Perasaan-perasaan mematikan berpengaruh terhadap kesehatan tubuh kita.
Dampak-dampak dari perasaan-perasaan mematikan yang tidak pernah terpikir oleh kita sebelumnya adalah :
KEMARAHAN, dapat menyebabkan :
-Rheumatoid arthritis
-Serangan jantung
-Penyakit jantung
-Gagal jantung
-Kanker
-Tekanan darah tinggi
-Stroke
-Tukak lambung
Dr. Robert Eliot, seorang ahli kardiologi ternama, menemukan bahwa ketika "para pereaksi panas" itu memendam perasaan-perasaan mereka, itu pada akhirnya berubah menjadi permusuhan dan kemarahan.
Ketika itu terjadi, tekanan darah meningkat tajam, resiko serangan jantung dan stroke akan lebih tinggi. Maka, lepaskan kemarahan dan mintalah pengampunan, jangan menyimpan kemarahan sampai matahari terbenam.
KEBENCIAN dan IRI HATI, dapat menyebabkan :
-Tekanan darah tinggi
-Sakit kepala migran
-Penyakit jantung
-Tukak lambung
-Kanker.
Ketika seseorang mengalami kemarahan yang berlebihan, kekhawatiran dan stress yang diakibatkan oleh kebencian,
tingkat adrenalinnya meningkat, tekanan darah juga meningkat dan dengan begitu jantung-khususnya serangan jantung- bertambah bagi mereka yang hidup dalam kemarahan.
Orang-orang itu menghadapi resiko penyakit jantung dua kali lebih tinggi dibanding orang lain.
Sebagai tambahan, ketika seseorang mengalami kekecewaan, kemarahan atau ketakutan saat makan, perasaan-perasaan
negatif ini merangsang system saraf simpatiknya, yang pada gilirannya menyebabkan berkurangnya pengeluaran enzim-enzim pancreas, yang menciptakan kesulitan dalam pencernaan makanan.
Ini menyebabkan perut kembung, adanya gas, sakit ulu hati, dan masalah pencernaan lainnya.
Stress yang berlebihan yang disebabkan oleh perasaan-perasaan negatif cukup berbahaya karena itu meningkatkan tingkat kortisol kita, yang kemudian menekan system kekebalan tubuh kita. Ketika system kekebalan kita tertekan, sel kanker mulai terbentuk dan berkembang.
Kebencian dan iri hati merupakan perasaan-perasaan yang merusak.
KESOMBONGAN, dapat menyebabkan :
-Penyakit mental
-Stroke
-Serangan jantung
-Kematian
Menurut pandangan saya, perasaan yang paling mematikan adalah kesombongan.
Kerendahan hati dan ucapan syukur kepada Pencipta akan melindungi anda dari perasaan yang paling mematikan - kesombongan .
KETAKUTAN dan KEKHAWATIRAN (ANXIETY), dapat menyebabkan :
-Penyakit jantung
-Penyakit mental
-Kepanikan
-Depresi
-Serangan jantung
-Fobia.
Tubuh anda bisa menanggapi ketakutan dan kekhawatiran dengan memicu pelepasan hormon adrenalin secara berlebihan,
yang menyebabkan percepatan denyut jantung, penigkatan ventilasi paru yang abnormal, telapak tangan berkeringat, dan meningkatnya kontraksi system pencernaan. Ketakutan dan kekhawatiran yang berkesinambungan dapat menyebabkan keadaan peningkatan ini terjadi terlalu lama, dan dapat menyebabkan kelelahan adrenalin, kelelahan, kegelisahan dan kepanikan, gejala sulit buang air besar dan sakit kepala
karena ketegangan. Kelelahan fisik dan emosional dan kelemahan system kekebalan tubuh anda dapat terjadi, dan hasil akhirnya adalah penyakit.
DEPRESI, dapat menyebabkan :
-Kanker
Penelitian telah menunjukkan bahwa pria memiliki kecenderungan untuk melepaskan kemarahan mereka, sementara wanita cenderung menyembunyikannya.
Adalah benar bahwa kanker dapat menyerang semua orang, tetapi salah satu factor yang paling umum yang ditemukan para
peneliti sebelum kanker menyerang adalah 'kurangnya penyaluran emosi'.
Ibu rumah tangga memiliki peluang 54% lebih besar terkena kanker dibanding populasi pada umumnya dan 157% lebih besar dibanding dengan para wanita yang bekerja di luar rumah.
Langkah-langkah untuk mengembangkan hati yang gembira untuk menghasilkan kesehatan yang baik dan jauh dari penyakit:
-Mengampuni
-Mengendalikan lidah
-Bersahabatlah dengan orang-orang yang positif
-Berilah makanan yang sehat ke dalam pikiran anda
-Kehidupan berohani yang akan mengubah kehidupan anda
Jadwal yang disarankan untuk meminum dua liter air setiap hari :
30 menit sebelum makan pagi : 1 gelas
2,5 jam setelah makan pagi : 1 gelas
30 menit sebelum makan siang : 1 gelas
2,5 jam setelah makan siang : 1 gelas
30 menit sebelum makan malam : 2 gelas
2,5 jam setelah makan malam : 1 gelas
30 menit sebelum tidur : 1 gelas
Minum air sebelum makan memiliki dua kepentingan :
1. Akan mengurangi nafsu makan karena perut anda terasa penuh.
2. Memberikan manfaat positif bagi pencernaan anda.
Menghindari sikap negatif untuk hidup yang lebih sehat :
Perasaan-perasaan mematikan berpengaruh terhadap kesehatan tubuh kita.
Dampak-dampak dari perasaan-perasaan mematikan yang tidak pernah terpikir oleh kita sebelumnya adalah :
KEMARAHAN, dapat menyebabkan :
-Rheumatoid arthritis
-Serangan jantung
-Penyakit jantung
-Gagal jantung
-Kanker
-Tekanan darah tinggi
-Stroke
-Tukak lambung
Dr. Robert Eliot, seorang ahli kardiologi ternama, menemukan bahwa ketika "para pereaksi panas" itu memendam perasaan-perasaan mereka, itu pada akhirnya berubah menjadi permusuhan dan kemarahan.
Ketika itu terjadi, tekanan darah meningkat tajam, resiko serangan jantung dan stroke akan lebih tinggi. Maka, lepaskan kemarahan dan mintalah pengampunan, jangan menyimpan kemarahan sampai matahari terbenam.
KEBENCIAN dan IRI HATI, dapat menyebabkan :
-Tekanan darah tinggi
-Sakit kepala migran
-Penyakit jantung
-Tukak lambung
-Kanker.
Ketika seseorang mengalami kemarahan yang berlebihan, kekhawatiran dan stress yang diakibatkan oleh kebencian,
tingkat adrenalinnya meningkat, tekanan darah juga meningkat dan dengan begitu jantung-khususnya serangan jantung- bertambah bagi mereka yang hidup dalam kemarahan.
Orang-orang itu menghadapi resiko penyakit jantung dua kali lebih tinggi dibanding orang lain.
Sebagai tambahan, ketika seseorang mengalami kekecewaan, kemarahan atau ketakutan saat makan, perasaan-perasaan
negatif ini merangsang system saraf simpatiknya, yang pada gilirannya menyebabkan berkurangnya pengeluaran enzim-enzim pancreas, yang menciptakan kesulitan dalam pencernaan makanan.
Ini menyebabkan perut kembung, adanya gas, sakit ulu hati, dan masalah pencernaan lainnya.
Stress yang berlebihan yang disebabkan oleh perasaan-perasaan negatif cukup berbahaya karena itu meningkatkan tingkat kortisol kita, yang kemudian menekan system kekebalan tubuh kita. Ketika system kekebalan kita tertekan, sel kanker mulai terbentuk dan berkembang.
Kebencian dan iri hati merupakan perasaan-perasaan yang merusak.
KESOMBONGAN, dapat menyebabkan :
-Penyakit mental
-Stroke
-Serangan jantung
-Kematian
Menurut pandangan saya, perasaan yang paling mematikan adalah kesombongan.
Kerendahan hati dan ucapan syukur kepada Pencipta akan melindungi anda dari perasaan yang paling mematikan - kesombongan .
KETAKUTAN dan KEKHAWATIRAN (ANXIETY), dapat menyebabkan :
-Penyakit jantung
-Penyakit mental
-Kepanikan
-Depresi
-Serangan jantung
-Fobia.
Tubuh anda bisa menanggapi ketakutan dan kekhawatiran dengan memicu pelepasan hormon adrenalin secara berlebihan,
yang menyebabkan percepatan denyut jantung, penigkatan ventilasi paru yang abnormal, telapak tangan berkeringat, dan meningkatnya kontraksi system pencernaan. Ketakutan dan kekhawatiran yang berkesinambungan dapat menyebabkan keadaan peningkatan ini terjadi terlalu lama, dan dapat menyebabkan kelelahan adrenalin, kelelahan, kegelisahan dan kepanikan, gejala sulit buang air besar dan sakit kepala
karena ketegangan. Kelelahan fisik dan emosional dan kelemahan system kekebalan tubuh anda dapat terjadi, dan hasil akhirnya adalah penyakit.
DEPRESI, dapat menyebabkan :
-Kanker
Penelitian telah menunjukkan bahwa pria memiliki kecenderungan untuk melepaskan kemarahan mereka, sementara wanita cenderung menyembunyikannya.
Adalah benar bahwa kanker dapat menyerang semua orang, tetapi salah satu factor yang paling umum yang ditemukan para
peneliti sebelum kanker menyerang adalah 'kurangnya penyaluran emosi'.
Ibu rumah tangga memiliki peluang 54% lebih besar terkena kanker dibanding populasi pada umumnya dan 157% lebih besar dibanding dengan para wanita yang bekerja di luar rumah.
Langkah-langkah untuk mengembangkan hati yang gembira untuk menghasilkan kesehatan yang baik dan jauh dari penyakit:
-Mengampuni
-Mengendalikan lidah
-Bersahabatlah dengan orang-orang yang positif
-Berilah makanan yang sehat ke dalam pikiran anda
-Kehidupan berohani yang akan mengubah kehidupan anda
KETAHUI UMUR KAMU DARI JUMLAH FREKUENSI MAKAN KAMU DI LUAR RUMAH.....
Jangan beritahu saya usia kamu berapa, tetapi pelayan restoran pasti tau brp umur kamu saat ini....perhitungan umur matematisnya cukup unik.... kalo pingin benar" tau jangan
CURANG !!!!!!!!!
hanya butuh waktu kira" 1 menit sambil anda baca ini.pastikan jangan baca bagian bawah sampai anda selesai mengerjakan ini...
PASTI SERU D
1. Pilih berapa kali seminggu Anda akan makan di luar rumah (lebih dari satu kali tapi kurang dari 10)
2. Kalikan 2 (supaya genap)
3. Tambah 5
4. Kalikan dengan 50
5. Kalau Anda sudah merayakan HUT Anda tahun ini, tambah 1758
6. Kalau belum, tambah 1757
7. Sekarang dikurangi dengan 4 digit tahun kelahiran Anda
8. Hasilnya harus angka 3 digitDigit pertama adalah angka awal yang Anda pilih (berapa kali Anda akan makan di luar rumah dalam seminggu)
DAN 2 DIGIT BERIKUTNYA MERUPAKAN ANGKA USIA ANDA SAAT INI..... hehehehe....
benar nga?
CURANG !!!!!!!!!
hanya butuh waktu kira" 1 menit sambil anda baca ini.pastikan jangan baca bagian bawah sampai anda selesai mengerjakan ini...
PASTI SERU D
1. Pilih berapa kali seminggu Anda akan makan di luar rumah (lebih dari satu kali tapi kurang dari 10)
2. Kalikan 2 (supaya genap)
3. Tambah 5
4. Kalikan dengan 50
5. Kalau Anda sudah merayakan HUT Anda tahun ini, tambah 1758
6. Kalau belum, tambah 1757
7. Sekarang dikurangi dengan 4 digit tahun kelahiran Anda
8. Hasilnya harus angka 3 digitDigit pertama adalah angka awal yang Anda pilih (berapa kali Anda akan makan di luar rumah dalam seminggu)
DAN 2 DIGIT BERIKUTNYA MERUPAKAN ANGKA USIA ANDA SAAT INI..... hehehehe....
benar nga?