Tuesday, April 15, 2014

Makanan yang Membuat Ngantuk

Makanan yang Membuat Ngantuk - Anda sering mengantuk setelah makan? Itu mungkin dari karena makanan Anda. Makanan adalah sumber energi, tapi beberapa makanan justru bisa menyerap energi dan membuat kita merasa ngantuk. Cari tahu makanan apa saja yang membuat seseorang mengantuk. Jangan-jangan selama ini Anda sering ngantuk dan lelah karena terlalu sering mengonsumsi makanan tersebut.

Berikut ini adalah makanan yang membuat Anda tidak bisa berhenti menguap:

1. Sarapan manis-manis

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGt5010YS5TSGZFJamPMSn_zBThXtdQegMrbp7n2Ufbwq_ZiB_WWL7A8bONdPKWEYVNO8bg68lGs-dcoJQrO1uW6C-TaCIis89iXU1d2rGulUAx_JPSr6pxPZjxQLQqn2BnoRWhXGxJM0/s400/KOlak.jpg

Gula dan karbohidrat sederhana mungkin bisa meningkatkan energi, tapi bisa menurunkannya juga dengan cepat. Penurunan gula dalam darah yang terlalu drastis mengakibatkan tubuh lemas dan sering menguap guna mendapatkan oksigen lebih banyak untuk pembakaran energi. Hindari makanan manis seperti donat atau kue-kue manis lainnya karena bisa menurunkan produksi zat kimia dalam otak yang berfungsi membuatnya tetap menyala.

2. Minuman berenergi

Minuman khusus seperti ini biasanya mangandung gula tinggi dan juga kafein. Beberapa lama setelah minum, gula darah kembali turun dan menyebabkan kehausan dan tenaga kosong. Lebih baik konsumsi air putih jika lain kali kehausan daripada minum minuman penambah energi tapi jadi malas dan mengantuk.

3. Makanan berlemak

http://finkscholar.files.wordpress.com/2008/12/kare500.jpg

Teorinya sederhana, lemak lebih susah dicerna. Organ pencernaan membutuhkan waktu 6 hingga 8 jam untuk mencernanya, oleh karena itu jika tubuh tidak punya persediaan energi yang lain kemungkinan Anda akan merasa lemas dan mengantuk. Makanan berlemak juga diketahui bisa menyebabkan kemampuan mengingat berkurang.

4. Makanan rendah zat besi

Zat besi adalah zat pembangun energi dan kalori. Anda akan merasa lelah jika kekurangan zat tersebut. Konsumsi paha ayam lebih baik dalam meningkatkan zat besi ketimbang bagian dadanya. Daging merah juga tinggi zat besi tapi lebih banyak kolesterol. Labu juga diketahui mengandung zat besi tinggi yang bisa dimakan sebagai camilan di sore hari.

5. Anggur merah

http://doktergiri.files.wordpress.com/2009/08/anggur_merah.jpg

Segelas anggur ketika makan malam mungkin terdengar enak bagi sebagian orang. Tapi asal tahu saja, alkohol bisa menyerap energi dari tubuh karena mengandung melatonin yang tinggi, yaitu hormon yang memproduksi rasa kantuk. Tapi jangan pernah gunakan alkohol sebagai obat tidur, cobalah susu untuk menggantinya

Semoga postingan mengenai Makanan yang Membuat Ngantuk di atas Bermanfaat....

sumber: http://blog-unik.blogspot.com/2009/10/makanan-yang-membuat-ngantuk.html
Selengkapnya...
Posted by at No comments:
Labels: , , ,

Monday, April 14, 2014

Program Absensi Menggunakan Visual Basic

Program Absensi Menggunakan Visual Basic - Selamat Pagi! Di hari yang cerah ini, akan memposting tentang pemrograman. Tentunya postingan ini saya tujukan kepada pembaca sekalian yang suka dengan pemrograman, seperti Visual Basic. Ya! Kita tahu Visual Basic merupakan software pemrograman yang sangat mudah digunakan untuk membuat sebuah program. Nah kali ini kita akan sama-sama belajar membuat sebuah program absensi menggunakan visual basic.

Langkah pertama yang harus kalian lakukan adalah membuat database di Ms Access dan sekaligus membuat tabelnya:

Nama Database : latihan.mdb
Nama Tabel       : Absen


Field Type Size
NRP Text 10
Nama Text 35
Jurusan Text 50
Matkul Text 50
Masuk Byte
Sakit Byte
Izin Byte
Alpa Byte
Total Byte

Setelah membuat database dan tabelnya, silahkan buat design formnya dengan menambahkan component:
Adodc dan DataGrid

Design Formnya seperti ini:



Lalu tambahkan coding di bawah ini di module. Untuk menambahkan module, caranya klik menu projet --> add module. Codingnya seperti ini:

Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset

Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "latihan.mdb"
End Sub
Lalu save Module nya... Nah untuk formnya silahkan masukan coding di bawah ini:


Private Sub Form_Activate()
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akuntansi"
Combo2.AddItem "Pemprograman Visual I"
Combo2.AddItem "Pemprograman Visual II"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub
Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :
Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp=" & Text1 & "", ConN
End Function

Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub
Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :
Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End SubPada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :
Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End SubTerakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :
Private Sub Command1_Click()   Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values (" & Text1 & "," & Text2 & "," & Combo1.Text & "," & Combo2.Text & ")"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub

Private Sub Command2_Click()     Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else

Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama=" & Text2.Text & "," & " matkul=" & Combo2.Text & "," & " jurusan=" & Combo1.Text & " where nrp=" & Text1 & ""
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub

Private Sub Command3_Click()    Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= " & Label11.Caption & "," & " sakit=" & Label12.Caption & "," & " izin=" & Label13.Caption & "," & " alpa=" & Label14.Caption & "," & " total=" & Label15.Caption & " where nrp=" & Text1 & ""
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub

Private Sub Command4_Click()    KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()    Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub

Private Sub Command6_Click()   Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub

Selamat Mencoba dan Semoga Bermanfaat ^^

sumber referensi: http://fadilcrows.blogspot.com/2012/04/contoh-program-absensi-sederhana-dengan.html
Selengkapnya...
Posted by at No comments:
Labels: , , , ,

Software Akuntansi Laporan Keuangan Terbaik Kena Sandbox

Software Akuntansi Laporan Keuangan Terbaik Kena Sandbox - Sungguh sangat disesalkan sekali. Artikel kontes yang sebentar lagi akan selesai malah terkana Google Sandbox. Entah apa yang terjadi. Padahal dari kemarin-kemarin belum sempat tak optimasi. Ini yang kedua kalinya artikel berjudul Software Akuntansi Laporan Keuangan Terbaik terkena SandBox. Sampai saat ini saya tidak apa maksud dan tujuan dari Google menghilangkan artikel kontes ini. Mungkin simbah lagi GALAU kali yah?? hehe

Kontes SEO dari Zahir Accounting ini sendiri akan selesai akhir bulan Februari ini. Mungkin sempat di awal-awal dimulainya kontes ini, artikel saya berada di urutan teratas Google. Tapii setelah beberapa minggu, pelan-pelan artikelku turun peringkat. Sampai-sampai sekarang terkena Google Sandbox. Itu mungkin disebabkan karena beberapa faktor, diantaranya:
1. Master SEO ikut kontes Software Akuntansi Laporan Keuangan Terbaik ini.
2. Tidak konsistennya saya dalam mengoptimasi artikel Software Akuntansi Laporan Keuangan Terbaik ini.
3. Salah perhitungan dalam memulai sebuah kontes, harusnya start ketika akan berakhir malah startnya dari awal. 

Mungkin masih banyak faktor lain yang memicu turunnya peringkat artikel kontesku ini. Itulah sedikit cerita atau bisa dibilang curahan hati seorang blogger newbie dimana artikel kontesnya yang berjudul Software Akuntansi Laporan Keuangan Terbaik terkena SandBox. 
Selengkapnya...
Posted by at No comments:
Labels: , , , , , ,
Subscribe to: Posts (Atom)