Sabtu, 30 Juni 2012

Kontes SEO Channelbola.com 2012

Kontes SEO Channelbola.com 2012 - Kontes SEO kian marak di tahun 2012 ini, apalagi dengan adanya perhelatan Piala Eropa 2012 yang sudah mencapai titik puncaknya alias Final. Di final euro 2012 ini akan mempertemukan Juara Bertahan Spanyol melawan Italia. Nah untuk itu banyak agen bola resmi piala eropa 2012 yang mengadakan semacam kontes SEO. Seperti halnya yang dilakukan oleh ChannelBola.com. Mereka mengadakan sebuah kontes SEO dengan keyword "Channelbola.com Agen Bola Resmi Piala Eropa 2012".

Piala Eropa 2012

Hadiah yang disediakan panitia untuk kontes seo channelbola ini sungguh sangat besar nilainya. Juara I mendapatkan hadiah sebesar 10 juta rupiah. Juara II sebesar 5 juta rupiah. dan untuk juara III mendapatkan hadiah sebesar 2,5 Juta rupiah. Tidak hanya Juara I,II,dan III saja yang mendapatkan hadiah. Juara IV-XX pn mendapatkan hadiah. Jadi Total hadiah bisa dibilang mencapai 2 juta rupiah. 

Dan hari ini merupakaan hari terakhir bagi para peserta kontes SEO dalam mengoptimasi artikel mereka yang kebanyakan berjudul Channelbola.com Agen Bola Resmi Piala Eropa 2012. Tepat besok pukul 00:00 kontes ini akan ditutup. Semoga saja artikel dari BLOGNYA SI IMIN bisa menjadi juaranya. Amiin

Jumat, 29 Juni 2012

Fairbet88.com Dukung Fairplay EURO 2012

Fairbet88.com Dukung Fairplay EURO 2012 - Salam Olahraga! Dalam rangka perhelatan terakbar pentas sepakbola di daratan benua biru, sebagai agen bola sekaligus bandar bola, fairbet88.com ikut serta dalam upaya menjaga dan menegakkan fairplay seperti apa yang telah tercantum pada judul diatas. Fairbet88.com Dukung Fairplay EURO 2012 terus berupaya mendukung dan menjaga fairplay guna tetap berjalannya sepakbola dijalurnya sebagai olahraga yang bukan hanya untuk mencari  sebuah kemenangan semata aka tetapi sportifitas sebagai jalanya.  Sportifitas dan fairplay adalah jalan yang memang harus selalu dipatuhi dan tetap dijaga apalagi untuk sepakbola sebuah olahraga yang mempertemukan sebelas pemain dilapangan. Sepakbola sebagai olah raga sebelah lawan sebelas dilapangan akan sangat terbuka bagi terciptanya kecurangan akan akan banyak gesekan antar pemain sepakbola tersebut.


Kecurangan bukan hanya terjadi dilapangan saja tetapi juga diluar lapangan kerap sekali terjadi. Maka dari itu sebagai situs judi bola dan taruhan bola, fairbet88.com sadar untuk tetap ikut serta menjaga fairplay dan sportifitas sesuai dengan apa yang telah tercantum Fairbet88.com dukung fairplay EURO 2012. Kecurangan yang masih sangat popular terjadi pada periode 2006 tepatnya di serie A italia. Skandal pengaturan skor yang melibatkan klub besar atau akhirnya popular disebut calico poli menyeret muka persepakbolaan italia kepada titik nadir bahkan setelah skandal pengaturan skor tersebut sepakbola italia kalah pamor dari para Negara tetangga seperti spanyol juga inggris. Bahakan tragisnya pamor sepakbola italia juga kalah dari pamor sepakbola jerman yang sebelumnya bukanlah sebuah ajang yang digemari. Akan tetapi akan faktor skandal pengaturan tersebut italia seperti punya kekauatan berlipat saat berlaga di piala dunia 2006 yang akhirnya mereka mampu berdiri tegak sebagai juara dunia kala itu.

Pada ajang EURO 2012 edisi ke 14 kali ini, fairplay tetaplah menjadi  hal yang paling penting untuk tetap dijaga dan ditegakan. Apalagi pada ajang ini merupakan ajang terakhir EURO dengan format 14 negara peserta. Maka tidaklah salah jika Fairbet88.com dukung fairplay EURO 2012 sebagai salah satu bukti nyata untuk ikut serta menjaga dan menegakkan fairplay. Sepakbola memang olahraga yang dipenuhi unsure drama sehingga kerap kali fairplay menjadi garis kuning yang kerap dilanggar oleh Negara peserta EURO.  Apalagi kali ini EURO 2012 telah memasuki  fase terakhir dengan mempertemukan spanyol dan italia dipartai puncak. Maka sportifitas dan fairplay seharus tetap menjadi pemenang sejati dalam ajang ini.

Mereka yang pantas berdiri tegak  sebagai juara adalah mereka juga yang tetap menjaga berdiri tegaknya sportifitas dan fairplay sebagai jargon utama. Apalagi mereka yang bertemu dipartai final adalah tim yang krap kali memainkan sedikit trik dalam upaya meraih kemenangan. Namun, alangkah baiknya jika gelar juara yang mereka dapat adalah gelar dengan tetap menjaga fairplay dan sportifitas.

Mari bersama fairbet88.com menjaga dan menegakkan sportifitas dalam EURO 2012 dan ajang-ajang berukutnya bersama Fairbet88.com dukung fairplay EURO 2012.

Kontes SEO Cyberbola.com 2012

Kontes SEO Cyberbola.com 2012 - Makin mendekati final Piala Eropa 2012 antara Spanyol vs Italia hari senin dini hari besok, makin besar pula saingan untuk memenangkan kontes seo bertajuk Cyberbola.com Say No To Racism Piala Eropa 2012. Bagi kalian yang belum mengikuti kontes SEO dari cyberbola.com ini, masih ada waktu kok untuk mengikutinya. Lihat syarat dan peraturannya di bawah ini:
sbobet
  • Menyetujui seluruh syarat dan ketentuan lomba tanpa terkecuali.
    Peserta harus memposting/menulis artikel dengan tema dan kata kunci Cyberbola.com Say No To Racism Piala Eropa 2012 di blog/web masing masing dan kemudian gunakan url tersebut untuk mendaftarkan diri sebagai kontestan SEO Cyberbola.com.
  • Judul artikel bebas dan boleh menggunakan target kata kunci.
  • Peserta harus mencantumkan alamat url postingannya atau url artikelnya, dan bukan nama domain web atau blognya pada saat mendaftarkan diri untuk mengikuti kontes.
  • Artikel atau postingan yang semata-mata hanya berisikan atau memberikan informasi berita kontes tidak akan dimasukan dalam lomba. Jadi seandainya pada akhir batas perlombaan terdapat artikel berita kontes yang masuk dalam 10 besar, artikel atau postingan tersebut tidak termasuk pemenangnya. Dan akan digantikan oleh artikel pada urutan berikutnya.
  • Blog atau artikel yang mengikuti kontes tidak boleh berbau pornografi.
  • Pemenang kontes adalah peserta yang blog atau situs webnya (url postingan dan bukan nama domainnya saja) tercantum di Google.co.id dengan kata kunci  Cyberbola.com Say No To Racism Piala Eropa 2012 atau bisa anda klik disini untuk klasemen sementara.pada tgl 01 Juli 2012 pukul 23.00 WIB,  jika pada peringkat 1 sampai 20 terdapat situs lain yang tidak ikut berpartisipasi dalam kontes SEO cyberbola.com, maka situs tersebut bukanlah termasuk sebagai pemenang, posisinya akan digantikan oleh situs/blog yang ikut berpartisipasi dalam lomba pada urutan berikutnya/dibawahnya.
  • Panitia berhak meninjau ulang peraturan seperti menambah, mengurangi peraturan menyesuaikan dengan perkembangan kontes lomba.
  • Peserta wajib memasang banner kontes seo cyberbola.com di blog/website masing-masing.
info selengkapnya mengenai kontes SEO dari Cyberbola.com ini, silahkan kunjungi http://cyberbola.com/seo-contest-cyberbola-com.php

Kamis, 28 Juni 2012

Membuat Form Login dengan Database di Visual Basic

Membuat Form Login dengan Database di Visual Basic - Setelah sebelum-sebelumnya saya pernah memposting mengenai Membuat Menu Login di Visual Basic, kali ini saya akan membagi tips tentang pemrograman lagi namun kini dalam membuat menu loginnya itu memakai database, dalam hal ini saya memakai Microsoft Access 2007. Sambil menanti pertandingan semifinal piala eropa 2012 antara Jerman vs Italia alangkah baiknya jika saya membagi tips ini kepada kalian pembaca setia BLOGNYA SI IMIN. Bagaimana caranya? Simak di bawah ini:

1. Buat dulu database di Microsoft Access 2007 dan save dengan nama sewa_studio.mdb
2. Buatlah tabel dengan nama login dan masukan field-field berikut ini:


3. Setelah itu, buka Microsoft Visual Basic 6.0 di komputer anda.
4. Buatlah sebuah project dan form loginnya. Kira-kira seperti ini tampilannya:


5. Gambar di atas terdapat beberapa component, yaitu

Label ada 2 buah : USER ID dan PASSWORD
Text ada 2 buah : txtusername dan txtpassword
CommandButton ada 2 buah: LOGIN dan CANCEL
ADODC ada 1 buah: Adodc1



6. Tambahkan Module. Caranya, klik menu Project lalu pilih Add Module. Kemudian klik Open.
7. Taruh coding di bawah ini di dalam Module tersebut:

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset


8. Kemudian masuk Form lagi, lalu tambahkan coding di bawah ini di dalam tombol LOGIN. Caranya tinggal klik dua kali di tombol LOGIN tersebut.

If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sewa_studio.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where user_id= '" & txtusername.Text & "' And password = '" & txtpassword.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Form3.Show
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End If



9. Coding yang bercetak tebal itu adalah koneksi ke database Access. Itu tergantung kita meletakkan database sewa_studio.mdb itu dimana. Untuk koneksi ke database sewa_studio.mdb caranya, klik kanan di Adodc1 itu lalu klik ADODC properties.



10. Maka muncul kotak di bawah ini:


11. Klik tombol Build lalu muncul kotak di bawah ini:



12. Lalu pilih "Microsoft Jet 4.0 OLE DB Provider" dan klik Next lalu muncul kotak di bawah ini:


13. Lalu klik tombol yang diarahkan oleh panah di atas. Lalu pilih database yang sudah dibuat tadi. Kalau sudah klik Open. Terus klik OK. Maka muncul kotak di bawah ini: Coba klik gambar di bawah ini:

14. Silahkan copy yang di blok biru seperti di gambar atas. lalu Pastekan ke coding yang bercetak tebal tadi (langkah 8)

15. Untuk tombol CANCEL silahkan tambahkan coding seperti di bawah ini:

Unload Me

16. Selesai.

Semoga Bermanfaat dan Selamat Mencoba ^^



Selasa, 26 Juni 2012

Perjalanan Creating History Together with ArenaBetting

Perjalanan Creating History Together with ArenaBetting - Selamat Pagi!. Kali ini BLOGNYA SI IMIN akan mengulas tentang lika-liku perjalanan artikel BLOGNYA SI IMIN dalam kontes bertajuk Creating History Together with ArenaBetting Piala Eropa 2012. Saya sebenarnya sangat optimis menang dalam kontes SEO ini. Tapi itu terjadi ketika pertama kali artikel saya yang berjudul Creating History Together with ArenaBetting Piala Eropa 2012 di publish. Soalnya, waktu pertama kali diposting artikel saya langsung menempati posisi pertama. Tapi ketika esok harinya, entah mengapa posisi berubah jadi ke posisi ketiga di google. Dan begitupun seterusnya, artikel saya menurun hingga sampai sekarang di page 4 Google.co.id. 

Ya itu sedikit cerita dari saya mengenai Perjalanan Creating History Together with ArenaBetting ini. Walaupun masih di page 4 google tapi saya tetap berharap semoga saja ada keajaiban yang membuat artikel saya meluncur ke page 1 paling tidak. hehe

Minggu, 24 Juni 2012

Channelbola.com Agen Bola Resmi Piala Eropa 2012

Channelbola.com Agen Bola Resmi Piala Eropa 2012 - Jelang pergelatan akbar putaran final piala eropa 2012 sebagai agen bola, agen bola sbobet dan ibcbet, Channelbola.com agen bola resmi piala eropa 2012 akan menghadirkan sejumlah Informasi menarik seputar perhelatan akbar piala eropa 2012 kali ini. Channelbola.com agen bola resmi piala eropa 2012 sadar bahwa piala eropa adalah salah satu event yang paling dinanti setiap peyelenggaraannya, apalagi untuk Euro 2012 kali ini akan digelar di 2 negara sekaligus yaitu polandia dan ukraina. Channelbola.com yang dijuluki sebagai agen bola resmi piala eropa 2012 melihat bahwa sebagai agen bola, agen sbobet maupun ibcbet mereka tak hanya sekedar menyediakan sarana untuk menguji ketangkasan maupun keberuntungan para pelanggannya melalui agen bola, agen bola sbobet dan ibcbet tetapi juga keharusan untuk menyediakan informasi secara cepat maupun akurat tentang perhelatan Euro 2012.

Piala Eropa 2012

Channelbola.com Agen Bola Resmi Piala Eropa 2012. Pada pegelaran kali ini tuan tumah polandia ukraina akan berbagi peran segabagai tuan rumah. Keharusan menjadi tuan rumah yang baik akan membuat polandia dan ukraina berusaha semaksimal mungkin menyediakan sarana maupun prasana demi kenyamanan serta keamanan para konstetan Euro 2012 pada khususnya dan juga untuk para penikmati sikulit bundar ini pada umumnya. Keberhasilan tuan rumah untuk menjadi tuan rumah yang baik jelas akan meningkatkan harkat serta martabat Negara tersebut. Namun, diluar keharusan untuk menjadi tuan rumah yang baik polandia ukraina jelas tidak mau hanya berperan sebagai tim pelengkap pada even Euro 2012 ini. Apalagi ajang ini akan diselenggarakan di rumah mereka. Polandia ukraina akan berjuang semaksimal mungkin untuk dapat lolos dari fase group sambil berharap dapat melanjutkan perjuangan hingga mendapatkan posisi yang terbaik. Diluar polandia dan ukraina yang akan berjuang mati-matian demi menjaga harga diri didepan bangsanya sendiri, tim-tim unggulan semacam spanyol sebagai juara bertahan, jerman sebagai runner up tahun lalu masih akan jadi unggulan teratas untuk ajang kali ini. Namun sayangnya, jerman harus melewati group neraka terlebih dahulu untuk dapat melenggang ke babak berikutnya. Jerman harus tergabung dengan tim kuat semacam belanda, Portugal serta tim yang selalu bisa menghadirkan kejutan denmark. Ini jelas akan menjadi pekerjaan yang jelas tidak mudah, kuncinya jika jerman mampu meredam perlawanan denmark dilaga pertama mereka maka peluang untuk dapat lolos dari group neraka akan terbuka, melihat dilaga selanjutnya mereka harus bertemu Portugal dan belanda yang siap menghadang.

Channelbola.com Agen Bola Resmi Piala Eropa 2012. Sebagai juara bertahan spanyol mungkin banyak dijagokan oleh berbagai kalangan. Mulai dari pengamat sepakbola atau bahkan mungkin hanya sekedar penikmat sepakbola. Ini wajar karena konsep permainan yang diterapkan spanyol 2 tahun silam memang masih sulit diredam. Mengandalkan pasing-pasing pendek dengan pemain yang selalu aktif bergerak membuat tim lawan nyaris tidak dapat menguasai bola. Namun belakangan tiki taka ala spanyol mulai bisa diredam lawan-lawan yang seolah sudah hafal bagaiman cara permainan spanyol tersebut. Bukti terakhir, bagaiman Chelsea mampu menyudahi perlawanan Barcelona di semi final UCL 2012 kemarin. Dengan menggunakan pertahan ketat dan bergrendel ala cathenachio Italia Chelsea membuktikan bahwa  tiki taka yang diusung Barcelona juga dapat dikalahkan. Pertanyaanya sekarang? Mampukah cesare prandelli sebagai pelatih Italia menerapkan konsep reman sejawatnya roberto di matteo di Chelsea saat mengalahkah Barcelona ? Masih akan sangat menarik di tunggu hasilnya.

Channelbola.com Agen Bola Resmi Piala Eropa 2012. Diluar tim-tim tersebut tim kuat lainya pun masih akan jadi unggulan semisal prancis dan inggris. Mereka akan masih sangat berpeluang jadi juara diakhir laga jika mampu menunjukan performa terbaik mereka. Kejutan juga masih sangat mungkin terjadi, tim semacam irlandia, swedia dan dua tuan rumah masih mungkin mendatangkan kejutan. Jika mereka mampu memanfaatkan situasi saling tikam antara tim unggulan. Mari bersama nikmati ketegangan yang terjadi di Euro 2012 polandia ukraina bersama channelbola.com agen resmi piala eropa 2012. (WINCBCVIII)

Cyberbola.com Say No To Racism Piala Eropa 2012

Cyberbola.com Say No To Racism Piala Eropa 2012 - Selamat datang kembali di BLOGNYA SI IMIN. Kali ini saya sebagai admin BLOGNYA SI IMIN akan memposting mengenai cyberbola.com say no to racism piala eropa 2012. Cyberbola.com sebagai salah satu satu agen bola sbobet dalam rangka piala eropa 2012 kali ini mengusung slogan cyberbola.com say no to racism piala eropa 2012. Sebagai salah satu situs ibcbet cyberbola tetap konsisiten membela anti rasis pada gelaran piala eropa tahun  ini. Piala eropa kali ini memang menjadi salah satu gelaran piala eropa yang terindikasi akan banyak terjadi kasus rasisme. Apalagi sang tuan rumah polandia ukraina memang menjadi tempat kerap banyak terjadi kasus rasisme.

sbobet

Cyberbola.com yang mendukung anti rasisme pada edisi piala eropa ke 14 polandia ukraina ini etrlihat jelas pada slogan yang mereka usung cyberbola.com say no to racism piala eropa 2012. Mungkin memang banyak pihak yang menyangsikan apakah sepakbola bisa terlepas dari unsure rasisme ? akan tetapi, sudah selayaknya kita untuk terus mendukung gerakan anti rasis seperti apa yang sudah menjadi slogan di situs ibcbet sekaligus agen bola sbobet cyberbola.com ini.

Agen sbobet sadar bahwa sepakbola sebagai salah satu olahraga paling digemari jelas tidak dapat terlepas dari unsur-unsur manusiawi berupa rasis. Akan tetapi, jika kita hanya berdiam saja tanpa usaha untuk sedikit mengurangi isu rasisme ini maka kedepanya pun isu rasis akan terus berkembang hangat dan terus berkembang. Untuk itu, sebagai salah satu situs ibcbet cyberbola.com maka mereka mengusung tema cyberbola.com say no to racism piala eropa 2012.

Namun, jika slogan itu hanya slogan dan tanpa ada upaya kita untuk mencegah juga mengurangi isu dan kasus rasis maka semua itu akan jadi sia-sia. Kita sebagai salah penikmat gelaran piala eropa merupakan tonggak terdepan untuk dapat mengurangi dan mencegah isu dan kasus rasis. Maka, hanya dengan bukti dan dukungan nyata maka slogan cyberbola.com say no to racism piala eropa 2012 dapat terwujud manfaatnya. 

ibcbet

Kredit tersendiri sekaligus acungan jempol karena sebagai agen bola dan situs agen ibcbet cyberbola mampu dan sanggup sekaligus mau untuk eksis dijalur pencegahan rasis di piala eropa 2012 kali ini. Apalagi gelaran piala eropa kali ini merupakan gelaran piala eropa terakhir dengan jumlah konstetan 14 negara. Karena di edisi 15 mendatang tepatnya digelaran piala eropa prancis jumlah konstetan akan bertambah menjadi 24 negara. Yang artinya maka, resiko akan terjadinya kasus dan tindak terjadinya rasisme akan lebih terbuka lebar.

Sepakbola merupakan ajang 11 lawan 11 dengan segala bentuk perbedaan di dalamnya. Maka apakah pantas jika akhirnya sepakbola juga yang membuat pembeda diantara kita ? Kalau sepakbola dapat menyatukan 11 orang yang berbeda untuk menjadi satu visi dan misi maka kenapa sepakbola yang akhirnya menjadi pembeda?. Maka tidak salah jika agen bola sekaligus situs ibcbet cyberbola mengusung tema cyberbola.com say no to racism piala eropa 2012

Sabtu, 23 Juni 2012

Kostum Jersey Tim Euro 2012

Kostum Jersey Tim Euro 2012 - Di Piala Eropa 2012 yang sedang berlangsung ini tentunya akan terlihat lebih menarik jika jersey atau kostum tim peserta juga terlihat enak dipandang di lapangan hijau. Banyak dari negara-negara peserta EURO 2012 yang memakai jersey unik dalam EURO kali ini. nah untuk itu BLOGNYA SI IMIN akan memberikan informasi mengenai jersey-jersey yang dipakai negara peserta untuk EURO 2012 ini. Mau tahu kostum atau jersey tim Piala Eropa 2012 ? lihat di bawah ini:

Kostum / Jersey Tim BELANDA di Piala Eropa 2012
seragam / kostum resmi

Kostum / Jersey Tim DENMARK untuk EURO 2012
jersey Denmark EURO Cup 2012
 
Kostum / Jersey Tim INGGRIS di Piala Eropa 2012
Jersey / Seragam Inggris EURO 2012
 
Kostum / Jersey Tim IRLANDIA untuk EURO 2012
jersey republik Irlandia untuk Piala Eropa 2012
 
Kostum / Jersey Tim ITALIA di Piala Eropa 2012
Jersey kit Italy EURO 2012
 
Kostum / Jersey Tim JERMAN untuk EURO 2012
Jersey / Kostum tim Jerman di EURO 2012
 
Kostum / Jersey Tim KROASIA di Piala Eropa 2012
jersey resmi kroasia euro 2012
 
Kostum / Jersey Tim PERANCIS untuk EURO 2012
Jersey / baju Perancis EURO 2012
 
Kostum / Jersey Tim POLANDIA di Piala Eropa 2012
Jersey Polandia EURO 2012
 
Kostum / Jersey Tim PORTUGAL untuk EURO 2012
Jersey Portugal Piala ERopa 2012
 
Kostum / Jersey Tim CEKO di Piala Eropa 2012
Jersey Ceko untuk EURO 2012
 
Kostum / Jersey Tim RUSIA untuk EURO 2012
jersey rusia euro cup 2012
 
Kostum / Jersey Tim SPANYOL di Piala Eropa 2012
jersey kit spain euro 2012
 
Kostum / Jersey Tim SWEDIA untuk EURO 2012
Jersey Swedia euro 2012
 
Kostum / Jersey Tim UKRAINA di Piala Eropa 2012
Jersey Ukraina di Piala Eropa 2012
 
Kostum / Jersey Tim YUNANI untuk EURO 2012
Jersey Yunani EURO 2012

Semoga Bermanfaat ^^


Kamis, 21 Juni 2012

Program Absensi Menggunakan Visual Basic

Program Absensi Menggunakan Visual Basic - Selamat Pagi! Di hari yang cerah ini, BLOGNYA SI IMIN 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 Sub
Pada 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 Sub
Terakhir 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

Rabu, 20 Juni 2012

Lomba Blog Juni Juli 2012

Lomba Blog Juni Juli 2012 - Selamat Malam semua! Kembali BLOGNYA SI IMIN akan memberikan informasi terbaru bagi pembaca sekalian. Postingan ini mungkin sangat ditunggu-tunggu oleh para blogger yang suka ikut lomba blog. Bukan hanya Kontes SEO seperti creating history together with arenabetting piala eropa 2012 ini saja yang sedang rame, tapi lomba blog juga sedang ramai-ramainya bulan ini. Nah, lomba blog kali ini datang dari situs halalismylife.blogdetik.com  . Lomba kali ini bertemakan tentang "Susu Inovasi Yang Sehat dan Halal Untuk Pertumbuhan Anak". Hadiah yang akan diberikan kepada para pemenang sangatlah bermacam, sepert 1 Buah Sepeda Motor, 1 Ipad, 1 Samsung Galaxy, dan beberapa Merchandise dari Frisian Flag. Oh iya untuk syarat dan ketentuan yang berlaku bisa dilihat di bawah ini:

 

1. Platform bebas! Namun jika menggunakan BLOGdetik akan dimasukkan di HOT BLOG
2. Tulisan dalam bahasa Indonesia (minimal 500 kata )
3. Tulisan yang mengandung kata:
* blog wajib di hyperlink ke http://blogdetik.com
* halal wajib di hyperlink ke http://halalmui.org
* susu wajib di hyperlink ke http://frisianflag.com
* inovasi wajib di hyperlink ke http://ibudanbalita.com
4. Wajib menggunakan tag/label/kategori “Susu Inovasi Yang Sehat dan Halal Untuk Pertumbuhan Anak
5. Wajib memasang memasang banner di antara postingan atau di sidebar (widget)
6. Wajib follow @blogdetik
7. Share judul dan shortlink postinganmu di twitter dengan mention @blogdetik dan menggunakan hashtag #SusuHalal
8. Tulisan tidak boleh copy-paste atau plagiat milik orang lain!
9. Jika memang mengutip, harap mencantumkan sumber kutipan atau referensinya (jika ada).
10. Pendaftaran Terakhir 4 Juli 2012 pukul 23:59 WIB dan Pengumuman pemenang pada tanggal 6 Juli 2012

Info lebih lengkap kunjungi http://halalismylife.blogdetik.com/, Semoga bermanfaat dan selamat berlomba...

Minggu, 17 Juni 2012

Sahabat atau Cinta?

Sahabat atau Cinta? - Akhir minggu ini BLOGNYA SI IMIN sedikit galau, pasalnya dua artikel kontes yaitu Agenliga Sebagai Agen Bola Online Untuk Euro 2012 dan Creating History Together With ArenaBetting Piala Eropa 2012 naik turun posisinya di search engine Google. Tapi mungkin itu efek dari si Pinguin. Tak apalah. Dan masih tentang galau, kali ini postingan BLOGNYA SI IMIN akan bercerita mengenai cinta. Ya cinta itu datang secara tiba-tiba. Entah datang dari mana, dari teman, sahabat atau orang yang baru kita kenal sekalipun. Bicara tentang Sahabat, tentunya kalian pernah dengar lagu dari sebuah band yang judulnya Sahabat jadi Cinta. Ya! Persabahatan yang erat antara pria dan wanita tak jarang berujung dengan kebingungan atau istilah jaman sekarangnya GALAU. Ada perhatian lebih yang ditunjukkan, namun masih belum bisa menerka apa maksud di balik hubungan tersebut. Jika Anda bingung dibuatnya, lihat ulasan di bawah ini:


Sahabat atau Cinta? Mungkin inilah yang kerap menjadi tanya bagi pria dan wanita yang menjalin persahabatan. Kedekatan dan kemesraan yang hadir cenderung berada di area abu-abu atau tidak ada kejelasan. Perhatian dan kasih sayang antara sahabat pria dan wanita juga tak jarang disalahartikan. Bukan tidak mungkin akhirnya salah satu pihak merasa tersakiti, sementara pihak lain tidak merasa bersalah karena memang hanya mengganggapnya sebagai teman biasa.

Bila Anda sedang bingung mengartikan hubungan persahabatan Anda saat ini, simak beberapa tanda berikut, seperti dikutip Healthy and Beloved.

Kirimkan sinyal
Jangan membuat asumsi dia menyukai Anda hanya karena menelefon dan merangkul bahu Anda. Bila Anda berpikir dia menyukai Anda dalam cara yang romantis, maka cobalah untuk merayunya. Bila dia membalasnya, hal ini mungkin berarti baik. Sentuhlah tangan atau lengannya saat berbicara, kemudian lihatlah bagaimana dia bereaksi. Selain itu, Anda juga dapat meluangkan waktu lebih bersamanya untuk menonton atau minum kopi bersama. Cobalah untuk menelefon, berkirim e-mail, atau pesan singkat dengannya, lebih sering dari biasanya. Bila sahabat Anda membalas dengan antusias, besar kemungkinan dia juga menyukai Anda.

Angkat topik romantis
Anda mungkin berpikir bahwa perasaan yang dimiliki sudah jelas, namun sahabat Anda belum tentu menyadarinya. Pada beberapa kesempatan, Anda dapat memunculkan topik ini dan menjelaskan bagaimana perasaan Anda. Setelah Anda mengirimkan sinyal, ketahuilah waktu yang tepat untuk membicarakan hal ini. Jangan membicarakan ini saat dia baru saja putus hubungan dengan kekasihnya.

Tempat yang tepat


Saat mengajak sahabat pergi, pastikan tempat yang akan Anda kunjungi tepat. Dengan pemilihan tempat yang menunjang, rencana Anda untuk mengetahui perasaannya secara serius dapat terlihat.

Bila dia menolak

Selalu ada risiko bahwa sahabat mungkin tidak menganggap Anda lebih dari sekadar teman. Sahabat Anda bisa jadi memang tidak tertarik untuk menjalin cinta dengan Anda, atau mungkin dia pernah menjalin hubungan seperti ini namun gagal. Bila hal ini terjadi, jangan lantas pergi dan mengambil jarak. Hal ini mungkin akan membuat hubungan Anda canggung. Namun, bila Anda berhasil melewatinya, Anda akan tetap berteman dengannya.

Semoga Bermanfaat ^^

sumber: yafi20.blogspot.com

Lirik Lagu Air Supply - Making Love Out of Nothing at All

Lirik Lagu Air Supply - Making Love Out of Nothing at All. Jika kalian tadi malam melihat acara Indonesian Idol di RCTI, pastilah kalian tidak asing dengan kata 'Making Love Out of Nothing at All'. Ya ! Itu merupakan lagu yang dibawakan oleh Musisi Luar Negeri 'Air Supply'. Dan tadi malam di acara Indonesian Idol, lagu Making Love Out of Nothing at All dibawakan secara duet oleh Regina dan Judika. Duet antara kontestan dan mantan kontestan Indonesian Idol itu membuat ketiga juri Indonesian Idol, yaitu Anang, Agnes, dan Ahmad Dani, standing applause. Saya pun sebagai admin BLOGNYA SI IMIN, merinding mendengar mereka berdua bernyanyi. Nah untuk itu bagi kalian yang masih penasaran dengan lagunya, bisa lihat liriknya di bawah ini: 



I know just how to whisper
And I know just how to cry
I know just where to find the answers
And I know just how to lie
I know just how to fake it
And I know just how to scheme
I know just when to face the truth
And then I know just when to dream

And I know just where to touch you
And I know just what to prove
I know when to pull you closer
And I know when to let you loose
And I know the night is fading
And I know the time's gonna fly
And I'm never gonna tell you
Everything I gotta tell you
But I know I gotta give it a try

And I know the roads to riches
And I know the ways to fame
I know all the rules
And I know how to break 'em
And I always know the name of the game

But I don't know how to leave you
And I'll never let you fall
And I don't know how you do it
Making love out of nothing at all

Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all

Everytime I see you all the rays of the sun
Are streaming through the waves in your hair
And every star in the sky is taking aim at your eyes
Like a spotlight

The beating of my heart is a drum and it's lost
And it's looking for a rhythm like you
You can take the darkness from the pit of the night
And turn into a beacon burning endlessly bright

I've gotta follow it 'cause everything I know
Well it's nothing till I give it to you

I can make the runner stumble
I can make the final block
And I can make every tackle at the sound of the whistle
I can make all the stadiums rock
I can make tonight forever
Or I can make it disappear by the dawn
I can make you every promise that has ever been made
I can make all your demons be gone

But I'm never gonna make it without you
Do you really want to see me crawl
And I'm never gonna make it like you do
Making love out of nothing at all

Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all
Making love, Out of nothing at all

Semoga Bermanfaat ^^

Jumat, 15 Juni 2012

Evan Dimas, Pemain Indonesia ke Barcelona

Evan Dimas, Pemain Indonesia ke Barcelona - Sungguh sangat membanggakan. Anak muda Indonesia ada yang berkesempatan berlatih di Barcelona. Dia bernama Evan Dimas Darmono. Evan merupakan kapten Timnas Indonesia U-17 saat Indonesia memenangi turnamen di Hongkong januari 2012 lalu. Evan Dimas menjadi wakil dari Indonesia di Nike The Chance Regional Asia Tenggara yang berkesempatan berlatih di Barcelona.

 

Setelah melalui berbagai macam tes, akhirnya terpilihlah 4 pemain muda yang mewakili Asia Tenggara untuk pergi ke Barcelona dan merasakan tangan dingin Pep Guardiola. Mereka adalah Evan Dimas Darmono dari Indonesia, Napapon Srpratheep dari Thailand, Rahmat Che Hasim dari Malaysia, dan Muhammad Faris bin Ramli dari Singapura.

Sebenarnya Evan Dimas sempat masuk dalam program SAD Indonesia yang berlatih di Uruguay, namun akibat urusan administrasi akhirnya Evan gagal bergabung. Berikut Biodata dari Evan Dimas:
Nama Lengkap : Evan Dimas Darmono
Tempat Lahir : Surabaya
Tanggal Lahir : 13 Maret 1995
Kebangsaan : Indonesia
Posisi : Gelandang
Bermain di Klub : Timnas U-17
Semoga akan selalu lahir bibit-bibit muda baru harapan Indonesia yang bisa mengaharumkan nama Indonesia di kancah persepakbolaan Dunia.



Kumpulan Kata Romantis Terbaru

Kumpulan Kata Romantis Terbaru - Bagi yang merasa kurang romantis dengan pasangannya mungkin perlu baca postingan di bawah ini. Ya! kali ini BLOGNYA SI IMIN akan membagikan kata-kata romantis terbaru  untuk para pembaca sekalian. Tentunya agar pasangan kalian terkagum-kagum akan sisi keromantisan kalian. Kumpulan kata-kata romantis ini saya dapatkan dari berbagai sumber terpercaya. Saya harap kumpulan kata romantis terbaru ini bisa bermanfaat bagi pembaca sekalian.


Satu hal yg tak aku suka ttg cinta: semakin aku menyangkalnya, semakin kau membuatku jatuh cinta.

Aku Bukanlah Pujangga Yang Pintar Merangkai Kata, Namun Aku Hanya Punya Cinta Yang Kupersembahkan Hanya Untukmu.

Jika engkau langit yang mendung, akulah matahari yang menunggu, bersama gerimis yang melukis pelangi cinta.

Mendekatlah, sandarkan kepalamu dibahuku. Luapkan segala sedihmu, akan ada pelukan dari diriku yang siap meredakan segala sedihmu.

Akan ku hancurkan keraguan yg kau punya,, dengan keyakinan cinta ini, dari hatiku.

Bila kangen dapat dijadikan sebuah buku, aku tak akan mampu menghitung jumlah halamannya.

Bunga dan lebah mengajarkanku bagaimana cara memberi dan menerima dalam satu kata bahagia.

Aku bisa menemukan kamu ditengah keramaian hanya dgn telinga & mata tertutup. Itu karena aku mencarimu menggunakan hatiku.

Mencintaimu adalah inginku. memilikimu adalah dambaku. meski jarak jadi pemisah, hati tak akan bisa terpisah

Aku mencintaimu bukan karena kamu cantik, baik ataupun juga kaya. Aku mencintaimu karena hati ini lah yg telah memilihmu.♥

Aku menangis memilikimu,bukan karena ak sedih memilikimu,karena aku bangga mempunyai kekasih sepertimu hingga hti ini terharu.

Kamu memang bukan satu-satunya orang yg ada dunia ini. tapi kamulah satu-satunya orang yang ada di hati ku !!

Saat angin membasuh jiwa raga ku terbang mencari cintamu. dimataku terlukis wajahmu, dihatiku jadikan aku terbaik untukmu.

Cinta itu sprti angin tak dpt dilihat, tp sangat menyejukkan bila dirasakan. cinta itu sprt aliran sungai yg slalu tau dmn akan bermuara.

Di saat aku rapuh kamu datang untuk tenangkan aku dan temani aku di setiap waktu.

Kamu tak perlu berusaha jadi sempurna. cukup berusahalah jadi pacarku.

Kenalilah aku lebih dekat, Kamu akan tahu betapa inginnya membahagiakan Kamu.

Walau kamu sering bohongin Aku, Cinta Aku sama Kamu mengalahkannya.

Suatu saat kamu telah tiada, aku pengen kamu tau sesuatu, kalau sampai kapanpun di hati aku cuman ada kamu.

Jika mencintaimu dimulai dengan senyuman, tumbuh dengan dekapan dan akan kuakhiri dengan sebuah pelaminan.

Aku gak mungkin bisa membaca pikiranmu, tapi satu yg bisa kulakukan: mencintaimu segenap hatiku.

Aku akan tetap menjaga indahnya cinta kita meski suatu saat pelangi tak lagi sanggup menjaga indahnya goresan warnanya.

Cukup kau katakan pada semua orang, bahwa yang tulus mencintaimu hanya aku!

Saat kita jauh, sebenarnya hanya raga kita yang jauh. Namun hati kita selalu dekat, karena hatiku ada di hatimu.

Ketika aku tak berada di samping mu, bukan berarti aku tidak bersamamu, ingat hatiku selalu bersamamu.

Waktu yang mempertemukan kita , Waktu yg membuktikan besarnya cinta kita untuk bersama.

Tak salah hati ini memilihmu sebagai hati yg pantas tuk memiliki cinta ini, krn hanya dirimulah yg mampu memberikan bahagia yg ku cari.

Sering aku memenjara waktu di tatap matamu. Sebab aku bisa terperangkap selamanya disana, tanpa merasa ada sedetikpun yang terlewat.

Aku mendamba pelangi utk matamu, jd berhentilah menghiasnya dgn hujan, yakinkan dirimu akulah yg lbih bisa membahagiakanmu dibanding dia.

Mencintaimu, tak habis-habisnya hati mengucap namamu dlm detak jantungku. Memilikimu, tak habis-habisnya jg hati ini merindumu.

Rindu itu kamu, seseorang yang tak mampu kusentuh dengan tangan, namun dapat kutemani dalam asa dan impian. 

Semoga Bermanfaat ^^

Rabu, 13 Juni 2012

Bambang Pamungkas Muncul di Situs Resmi FIFA

Bambang Pamungkas Muncul di Situs Resmi FIFA - Bambang Pamungkas. Pastilah semua orang yang suka dengan sepakbola di Indonesia mengenal sosoknya. Dia sudah malang melintang di persepakbolaan Indonesia bahkan dunia. Penyerang Persija Jakarta yang berusia 32 tahun ini bisa jadi sangat bangga, karena sosoknya di angkat oleh situs resmi FIFA (Fédération Internationale de Football Association) pada hari ini. Setelah postingan sebelumnya di BLOGNYA SI IMIN mengangkat tentang Andik Vermansyah yang muncul di website resmi Inter Milan, kini gilirannya Bambang Pamungkas. Lihatlah screenshot di bawah ini:


Kalau pembaca setia BLOGNYA SI IMIN masih penasaran dengan gambar di atas, coba cek di untuk memastikannya http://www.fifa.com/worldfootball/news/newsid=1648391.html. Kalau kalian kesulitan dalam mengartikannya ke dalam bahasa Indonesia, kalian bisa kok pakai jasa google translate. hehe

Semoga Bermanfaat ^^

Selasa, 12 Juni 2012

Video Orang Membaca Al Quran Saat Koma

Video Orang Membaca Al Quran Saat Koma - Berita ini sungguh menakjubkan. Subhanallah! Orang yang benar-benar sedang koma dan seharusnya tidak bisa apa-apa, tiba-tiba dia membaca ayat-ayat Al Quran yang sangat menyentuh. Bagaimana bisa orang yang koma, bisa membaca Al Quran dengan begitu indahnya?
Dia salah satu remaja Jordan yang setiap harinya bertugas sebagai Imam. Dia mengalami kecederaan dalam satu kemalangan. Subhanallah! Dia membaca Al-Quran Al-Karim dalam keadaan yang tidak sedarkan diri atau koma setelah keluar daripada bilik pembedahan. Subhanallah! Apa jua kelakuan atau perkataan yang kita gerakkan semasa kita sedar diri, Allah SWT akan gerakkan secara automatik apabila kita dalam keadaan tidak sedar.

Klik Gambar di bawah ini untuk melihat videonya:







Inilah maksud kata-kata Imam Al-Ghazali yang mengatakan ”Apa sahaja perbuatan kita di dunia adalah gambaran perbuatan kita di alam Akhirat nanti“. Betapa malunya kita dihadapan Allah SWT apabila kita berkelakuan tidak senonoh dihadapan Allah SWT di Akhirat nanti.

Semoga Allah SWT memberi semangat kepada kita semua untuk melakukan ibadat dan menjauhkan kita semua daripada melakukan kejahatan, agar kita berkelakuan dan berkata-kata dengan perkataan terbaik dihadapan Allah SWT nanti, Amin Ya Rabbal Alamin.

sumber: http://www.speedytaqwa.com/video/detail/74/lelaki-membaca-al-quran-dalam-keadaan-koma.html

Senin, 11 Juni 2012

Download DBDesigner dan Tutorialnya

Download DBDesigner dan Tutorialnya - Bagi kalian yang sedang kuliah di bidang informatika, seperti Bina Sarana Informatika, mungkin software ini sangat perlu untuk kaluan miliki. DBdesigner merupakan software yang digunakan untuk mendesain tabel dengan mudah secara visual karena kita bisa mengatur relasinya dengan mudah. DBdesigner telah terintegrasi dengan MySQL, sehingga kita bisa langsung men-generate model yang telah dibuat melalui DBdesigner kedalam database MySQL.

DBdesigner sangat mudah untuk digunakan. Namun tidak juga semudah yang dibayangkan. Ketika kita ingin menggunakan tabel yang dihasilkan DBdesigner, kita perlu meng-ekspornya dulu kedalam database MySQL karena tabel yang dihasilkan oleh DBdesigner masih dalam format .xml.

Untuk yang mau download software ini, bisa klik di bawah ini:




Nah untuk kalian yang mau mempelajari tutorial mengenai DBDesigner, bisa juga klik link di bawah ini:


Selamat Download dan Semoga Bermanfaat ^^

Download Apache2Triad

Download Apache2Triad - Berhubung saya sebagai admin BLOGNYA SI IMIN sedang kuliah di bidang informatika, jadi kali ini saya akan memberikan informasi kepada kalian pembaca setia blog ini tempat dimana mendownload software Apache2Triad. Apache2Triad merupakan distributor perangkat lunak webserver. Kenapa? karena Apache2Triad menyediakan semua kebutuhan aplikasi web. Agar platform windows dapat dijalankan kita harus menggunakan web server (Internet explore, firefox, mozila, dll). Apache2Triad yang akan kita bahas saat ini adalah versi 1.5.4. Paket PHP tersebut sudah mendukung PHP 5, MySQL 5, dan Apache 2 serta phpMyadmin yang akan digunakan sebagai tools pembuat database.



Jadi, hanya sekali menginstal paket lengkap dari Aphace2Triad, anda akan mendapatkan beberapa fasilitas pendukung sebagai berikut :

    Webserver          : Aphace2
    Programming      : PHP, Perl dan Python
    Database            : MySQL dan PostgreSQL Server
    Tools Database   : phpMyAdmin, pgMyAdmin

Bagi kalian yang mau download software ini, silahkan klik di bawah ini:


Semoga Bermanfaat ^^

Minggu, 10 Juni 2012

Hasil Pertandingan EURO 2012

Hasil Pertandingan EURO 2012 - Tepat kemarin tanggal 8 juni 2012, pesta piala eropa 2012 dibuka. Tentunya para pembaca setia BLOGNYA SI IMIN yang tidak melihat EURO 2012 secara langsung juga menanti-nantinya. Nah pada postingan BLOGNYA SI IMIN kali ini, saya akan memposting tentang Hasil Pertandingan EURO 2012 secara lengkap dan up to date. Makanya selalu stay terus di BLOGNYA SI IMIN untuk mendapatkan informasi mengenai hasil pertandingan EURO 2012. Berikut hasil pertandingan EURO 2012:


Grup A

Pertandingan I
Polandia vs Yunani = 1-1 (Lewandowski 17' - Salpingidis 51')
Rusia vs Ceko = 4-1 (Dzagoev 15' 79', Shirokov 24', Pavlyuchenko 82' - Pilar 40')

Pertandingan II
Rusia vs Polandia = 1-1 (Dzagoev 37' -  Blaszczykowski 57')
Ceko vs Yunani = 2-1 ( Jiracek 3' , Pilar 6' - Gekas 53')

Pertandingan III
Polandia vs Ceko = 0-1 (Jiracek 72')
Rusia vs Yunani =  0-1 (Karagounis 90') 

Negara Yang Telah Lolos ke Perempat Final  adalah Ceko dan Yunani

Grup B 

Pertandingan I
Belanda vs Denmark = 0-1 (Krohn 24')
Jerman vs Portugal =1-0 (Gomez 73')

Pertandingan II
Denmark vs Portugal = 2-3 ( Bendtner 41' 80' - Pepe 24', Postiga 36', Varela 87')
Jerman vs Belanda = 2-1 ( Gomez 23' 37' - Van Persie 76')

Pertandingan III
Denmark vs Jerman = 1-2 ( Khron 24' - Podolksi 19' , Bender 80')
Portugal vs Belanda = 2-1 ( Ronaldo 24' 74', Van der Vart 11')

Negara Yang Telah Lolos ke Perempat Final  adalah Portugal dan Jerman

Grup C

Pertandingan I
Spanyol vs Italia = 1-1 ( Fabregas 64' - Di Natale 61')
Irlandia vs Kroasia = 1-3 ( Ledger 19' - Mandzukic 3' 48', Jelavic 43)

Pertandingan II
Italia vs Kroasia = 1-1 ( Pirlo 39' - Mandzukic 72') 
Spanyol vs Irlandia = 4-0 ( Torres 4' 70', Silva 49', Fabregas 83')

Pertandingan III 
Spanyol vs Kroasia = 1-0 ( Navas 87' )
Italia vs Irlandia = 2-0 (Cassano 35' , Balotelli 90')

Negara Yang Telah Lolos ke Perempat Final adalah Spanyol dan Italia

Grup D 


Pertandingan I
Perancis vs Inggris = 1-1 ( Nasri 39' - Lescott 30' )
Ukraina vs Swedia = 2-1 ( Yarmalenko 54', Sevchenko 61' - Ibrahimovic 52' ) 

Pertandingan II
Ukraina vs Perancis = 0-2 ( Munez 53', Cabaye 56')
Inggris vs Swedia = 3-2 ( Caroll 23', Walcott 63' , Welbeck 77' - Johnson (OG) 43', Mellberg 58')

Pertandingan III
Ukraina vs Inggris = 0-1 ( Rooney 48')
Perancis vs Swedia = 0-2 (Ibrahimovic 54', Larson 90')


Perempat Final

Ceko vs Portugal = 0-1
Jerman vs Yunani = 4-2
Spanyol vs Perancis = 2-0
Italia vs Inggris = 0-0 (Adu Pinalti 4-2)

Semi Final

Spanyol vs Portugal = 0-0 (Adu Pinalti 4-2)
Jerman vs Italia =

Final

Spanyol vs ?

Nantikan update selanjutnya mengenai Hasil Pertandingan EURO 2012 lainnya..

Semoga Bermanfaat ^^

Sabtu, 09 Juni 2012

Creating History Together With ArenaBetting Piala Eropa 2012

Creating History Together With ArenaBetting Piala Eropa 2012 - ArenaBetting.com merupakan agen sbobet dan ibcbet dalam menyambut gelaran piala eropa 2012 polandia- ukraina edisi ke 14 akan memberikan keuntungan buat anda pecinta olah raga si kulit bundar. Pada gelaran piala eropa 2012 polandia-ukraina kali ini adalah format piala eropa terakhir yang diikuti oleh 16 negara karena pada edisi 15 mendatang piala eropa akan di ikuti oleh 24 negara. Creating history together with ArenaBetting piala eropa 2012. ArenaBetting.com  sebagai agen bola sbobet dan ibcbet pada piala eropa kali ini akan bersama sama dengan anda sebagai penikmat sepakbola akan jadi saksi lahirnya sebuah cacatan sejarah baru dalam event 4 tahunan ini. Sebuah event sepakbola terbesar di daratan benua biru akan tersaji dengan penuh ketegangan dan drama. Piala eropa kali ini akan di ikuti 16 oleh negara, 16 negara dengan pemain penuh talenta serta skil menawan akan mencoba beradu strategi untuk satu tujuan yaitu kemenangan dan gelar juara di akhir laga.

Creating History Together With ArenaBetting Piala Eropa 2012. Piala eropa 2012 di polandia ukraina akan menghadirkan sebuah drama ketat yang terbalut dalam piala eropa 2012 kali ini. Terbagi dalam 4 group akan menghadirkan persaingan ketat ditiap groupnya. Apalagi persaingan sudah dimulai sejak babak penyesihan group. Peta persaingan di group A misal, di isi oleh tuan rumah polandia, yunani, rusia dan republik ceko akan meyajikan persaingan yang merata karena kekuatan tiap negara di group tersebut sama ratanya dan tidak ada yang terlalu menonjol. Keempat negara sama-sama punya peluang untuk melaju ke babak berikutnya. Keuntungan mungkin lebih di miliki oleh tuan rumah polandia karena dukungan publik sendiri akan menjadi nilai plus tersendiri.

Creating History Together With ArenaBetting Piala Eropa 2012. Digroup B yang banyak kalangan disebut sebagai group neraka akan menyajikan sebuah persaingan yang lebih ketat karena diisi oleh tim-tim unggulan semacam belanda, jerman, portugal dan tim sarat kejutan denmark. Pada piala eropa 2012 kali ini mungkin group B akan menjadi group yang paling diminati.  Meski di huni oleh tim-tim unggulan akan tetapi denmark jelas tidak dapat diremehkan, mereka sering kali menghadirkan kejutan dan batu sandungan bagi tim mapan. Andai denmark mampu memanfaatkan kondisi dan mencuri poin bisa jadi mereka yang akan melenggang mulus kebabak berikutnya.

Creating History Together With ArenaBetting Piala Eropa 2012. Persaingan ketat di group B juga dapat anda ikuti melalui ArenaBetting.com sebagai agen bola sbobet dan ibcbet. Sedangkan pada persaingan di group C pada piala eropa kali ini akan melibatkan sang juara bertahan spanyol dengan juara dunia 4 kali italia. Pertahanan ketat cathenachio milik italia akan mencoba menantang tiki taka yang di usung oleh spanyol. Hilang charles puyol dan absennya David Villa akan jadi sedikit problem bagi spanyol. Tidak dapat dipungkiri meski mulai uzur dimakan umur Charles Puyol adalah satu bek tertangguh dan susah dilewati yang dimiliki spanyol. Sedangkan hilangnya David Villa dilini depan dan belum maksimalnya peran Fernando Torres jelas pe-er besar bagi spanyol. Dipihak lawan italia masih mencoba mencari solusi guna meredam permainan tiki taka milik spanyol. Andai Chesare Prandelli mampu menerapkan apa yang dilakukan Roberto Di Matteo di Chelsea saat mereka menjinakan barcelona mungkin hasil akhirnya akan berbeda.

Creating History Together With ArenaBetting Piala Eropa 2012. Di group D piala eropa ArenaBetting.com sebagai agen bola sbobet dan ibcbet juga akan membantu anda untuk mengetahui persaingan dan hasil akhir setiap laga di group tersebut, karena di group D dihuni oleh 2 tim unggulan prancis dan inggris yang akan saling sikut demi tiket kebabak selanjunya. Mari bersama ArenaBetting.com sebagai agen bola sbobet dan ibcbet nantikan sejarah dan kejutan yang mungkin akan tersaji dalam piala eropa kali ini. Creating history together with ArenaBetting piala eropa 2012.