This is default featured post 1 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.
This is default featured post 2 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.
This is default featured post 3 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.
This is default featured post 4 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.
This is default featured post 5 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.
Selasa, 04 Oktober 2011
CARA MEMBUAT BLOG
Untuk share za Gan,
bagi yang belum punya Blog dan minat menjadi seorang Blogger...
Walaupun ane jaga masih Newbe n belajar..hihihi
mudah-mudahan bisa membantu...
Apa itu Blog ?
Kita ulas dulu sedikit Gan …
Blog merupakan singkatan dari "web log" adalah bentuk aplikasi web yang menyerupai tulisan-tulisan (yang dimuat sebagai posting) pada sebuah halaman web umum. Tulisan-tulisan ini seringkali dimuat dalam urut terbalik (isi terbaru dahulu baru kemudian diikuti isi yang lebih lama), meskipun tidak selamanya demikian. Situs web seperti ini biasanya dapat diakses oleh semua pengguna Internet sesuai dengan topik dan tujuan dari si pengguna blog tersebut.
Sejarah
Media blog pertama kali dipopulerkan oleh Blogger.com, yang dimiliki oleh PyraLab sebelum akhirnya PyraLab diakuisi oleh Google.Com pada akhir tahun 2002 yang lalu. Semenjak itu, banyak terdapat aplikasi-aplikasi yang bersifat sumber terbuka yang diperuntukkan kepada perkembangan para penulis blog tersebut.
Blog mempunyai fungsi yang sangat beragam,dari sebuah catatan harian, media publikasi dalam sebuah kampanye politik, sampai dengan program-program media dan perusahaan-perusahaan. Sebagian blog dipelihara oleh seorang penulis tunggal, sementara sebagian lainnya oleh beberapa penulis, . Banyak juga weblog yang memiliki fasilitas interaksi dengan para pengunjungnya, seperti menggunakan buku tamu dan kolom komentar yang dapat memperkenankan para pengunjungnya untuk meninggalkan komentar atas isi dari tulisan yang dipublikasikan, namun demikian ada juga yang yang sebaliknya atau yang bersifat non-interaktif.
Situs-situs web yang saling berkaitan berkat weblog, atau secara total merupakan kumpulan weblog sering disebut sebagai blogosphere. Bilamana sebuah kumpulan gelombang aktivitas, informasi dan opini yang sangat besar berulang kali muncul untuk beberapa subyek atau sangat kontroversial terjadi dalam blogosphere, maka hal itu sering disebut sebagai blogstorm atau badai blog.
Komunitas Blogger
Komunitas blogger adalah sebuah ikatan yang terbentuk dari [para blogger] berdasarkan kesamaan-kesamaan tertentu, seperti kesamaan asal daerah, kesamaan kampus, kesamaan hobi, dan sebagainya. Para blogger yang tergabung dalam komunitas-komunitas blogger tersebut biasanya sering mengadakan kegiatan-kegiatan bersama-sama seperti kopi darat.
Untuk bisa bergabung di komunitas blogger, biasanya ada semacam syarat atau aturan yang harus dipenuhi untuk bisa masuk di komunitas tersebut, misalkan berasal dari daerah tertentu.
Jenis-jenis blog
• Blog politik: Tentang berita, politik, aktivis, dan semua persoalan berbasis blog (Seperti kampanye).
• Blog pribadi: Disebut juga buku harian online yang berisikan tentang pengalaman keseharian seseorang, keluhan, puisi atau syair, gagasan jahat, dan perbincangan teman.
• Blog bertopik: Blog yang membahas tentang sesuatu, dan fokus pada bahasan tertentu.
• Blog kesehatan: Lebih spesifik tentang kesehatan. Blog kesehatan kebanyakan berisi tentang keluhan pasien, berita kesehatan terbaru, keterangan-ketarangan tentang kesehatan, dll.
• Blog sastra: Lebih dikenal sebagai litblog (Literary blog).
• Blog perjalanan: Fokus pada bahasan cerita perjalanan yang menceritakan keterangan-keterangan tentang perjalanan/traveling.
• Blog riset: Persoalan tentang akademis seperti berita riset terbaru.
• Blog hukum: Persoalan tentang hukum atau urusan hukum; disebut juga dengan blawgs (Blog Laws).
• Blog media: Berfokus pada bahasan kebohongan atau ketidakkonsistensi media massa; biasanya hanya untuk koran atau jaringan televisi
• Blog agama: Membahas tentang agama
• Blog pendidikan: Biasanya ditulis oleh pelajar atau guru.
• Blog kebersamaan: Topik lebih spesifik ditulis oleh kelompok tertentu.
• Blog petunjuk (directory): Berisi ratusan link halaman website.
• Blog bisnis: Digunakan oleh pegawai atau wirausahawan untuk kegiatan promosi bisnis mereka
• Blog pengejawantahan: Fokus tentang objek diluar manusia; seperti anjing
• Blog pengganggu (spam): Digunakan untuk promosi bisnis affiliate; juga dikenal sebagai splogs (Spam Blog)
Budaya populer
Ngeblog (istilah bahasa Indonesia untuk blogging) harus dilakukan hampir setiap waktu untuk mengetahui eksistensi dari pemilik blog. Juga untuk mengetahui sejauh mana blog dirawat (mengganti template) atau menambah artikel. Sekarang ada lebih 10 juta blog yang bisa ditemukan di Internet.[rujukan?] Dan masih bisa berkembang lagi, karena saat ini ada banyak sekali software, tool, dan aplikasi Internet lain yang mempermudah para blogger (sebutan pemilik blog) untuk merawat blognya.selain merawat dan terus melakukan pembaharuan di blognya, para blogger yang tergolong baru pun masih sering melakukan blogwalking, yaitu aktivitas dimana para blogger meninggalkan link di blog atau situs orang lain seraya memberikan komentar. Beberapa blogger kini bahkan telah menjadikan blognya sebagai sumber pemasukan utama melalui program periklanan AdSense, posting berbayar, jualan link, afiliasi dan lain-lain. Sehingga kemudian muncullah istilah profesional blogger, atau problogger, orang yang menggantungkan hidupnya hanya dari aktivitas ngeblog.[rujukan?] karena memang faktanya banyak chanel-chanel pendapatan dana baik berupa dolar maupun rupiah dari aktivitas ngeblog ini.
Resiko kejahatan
Karena blog sering digunakan untuk menulis aktivitas sehari-hari yang terjadi pada penulisnya, ataupun merefleksikan pandangan-pandangan penulisnya tentang berbagai macam topik yang terjadi dan untuk berbagi informasi - blog menjadi sumber informasi bagi para hacker, pencuri identitas, mata-mata, dan lain sebagainya. Banyak berkas-berkas rahasia dan penulisan isu sensitif ditemukan dalam blog-blog. Hal ini berakibat dipecatnya seseorang dari pekerjaannya, diblokir aksesnya, didenda, dan bahkan ditangkap.
Cukup dulu Basa - Basinya...
Sekarang saatnya membuat Blognya Gan..!?!
CheckidoZzz…
Langsung ke Tekape Gan…
KLIK DISINI
Mari kita mulai...
Langkah1. Silahkan langsung Click sesuai Gambar diatas Gan…
Akan muncul Gambar seperti berikut :
Lengkapi Pendaftaran Agan2
Setelah Agan klik tanda panah besar yang bertuliskan CIPTAKAN BLOG AGAN, maka akan muncul formulir seperti yang ada pada gambar dibawah ini.
Proses ini akan menciptakan account Google yang dapat Agan gunakan pada layanan Google lainnya. Jika Agan sudah memiliki sebuah account Google mungkin dari Gmail, Google Groups, atau Orkut.
Satu account Google bisa digunakan untuk mengakses semua fasilitas yang disediakan oleh Google.
Jika Agan sudah memiliki accout google, Agan bisa langsung login (masuk). Untuk login ke Google, Agan harus login dengan menggunakan alamat email.
Silahkan lengkapi.
1. Alamat email yang Agan masukan harus sudah ada sebelumnya. Agan akan dikirim konfirmasi ke email tersebut. Jika Agan menggunakan email palsu atau email yang baru rencana akan dibuat, maka pendaftaran bisa gagal. Agan tidak perlu menggunakan email gmail.com. Email apa saja bisa.
2. Lengkapi data yang lainnya.
3. Tandai “Saya menerima Persyaratan dan Layanan” sebagai bukti bahwa Agan setuju. BTW Agan sudah membacanya?
Setelah lengkap, klik tanda panah yang bertuliskan lanjutkan.
Langkah 3: Membuat Blog
Memilih Nama Blog dan URL Blog
Jika Agan berhasil, Agan akan dibawa ke halaman seperti pada gambar dibawah. Jika gagal? Gagal biasanya karena verifikasi kata Agan salah. Itu wajar karena sering kali verifikasi kata sulit dibaca. Yang sabar saja, ulangi sampai benar. Saya sendiri sampai mengulang 3X.
Setelah Agan berhasil mendaftar, Agan akan dibawa ke halaman seperti yang ada pada gambar dibawah. Sekarang Agan mulai membuat blog dengan mengisi nama dan alamat blog Agan.
Sebagai contoh, saya menamakan blog tersebut dengan nama Hasna Zahidah. Sssst, jangan curiga, Hasna adalah putri saya. Saya memilih alamat blog dengan alamat http://www.gcoz.blogspot.com
sebagai alaternatif, bisa juga http://indrayusuf.blogspot.com.
Jika Agan membuat lensa dengan tujuan mempromosikan produk Agan atau produk afiliasi, maka dalam memilih nama, harus berisi nama produk atau jasa yang akan Agan tawarkan. Misalnya jika Agan ingin menjual ebook saya, Agan bisa memilih kata kunci seperti motivasi, sukses, berpikir positif, dan kata-kata kunci lainnya yang sesuai.
Agan juga bisa meneliti kata kunci yang paling banyak dicari orang (tentu harus berhubungan dengan produk yang Agan jual) di
https://adwords.google.com/select/KeywordToolExternal
Agan bisa mengecek ketersediaan alamat blog yang Agan pilih. Jika tersedia bisa Agan lanjutkan. Jika tidak tersedia, maka Agan harus kreatif mencari nama lain atau memodifikasi alamat yang sudah ada, misalnya ditambahkan abc, xzy, 101, dan bisa juga dengan menyisipkan nama Agan.
Lanjutkan dengan klik tanda panah bertuliskan LANJUTKAN.
Langkah ke 4 Blog Template
Pilih desain yang sesuai dengan selera Agan.
Berhasil? Tentu saja berhasil, memang mudah koq. Jika berhasil, Agan akan diarahkan ke halaman seperti yang ada pada gambar dibawah.
Pilihlah tema yang sesuai dengan selera Agan. Jika tidak ada yang sesui dengan selera Agan, jangan khawatir, nanti masih banyak pilihan tema yang bisa Agan install sendiri. Sekarang pilih saja tema agar proses pembuatan blog bisa diselesaikan. Agan bisa preview tema dengan klik gambarnya.
Untuk Memilih tema Anda klik (tandai) bulatannya o seperti pada gambar dibawah. Lihat yang saya tunjuk dengan panah merah buatan saya.
Setelah itu Agan klik tanda panah yang bertuliskan LANJUTKAN
Setelah itu akan tampil gbr berikut :
Finish Gan...
Hasilnya akan Seperti ini :
Belajar Membuat Blog Selesai
Sekarang tinggal posting, pengaturan, dan tata letak
Selamat, sekarang Agan2 sudah memiliki sebuah blog. Sekarang Agan sudah mulai bisa memposting pemikiran Agan di blog dan berbagi ke seluruh dunia.
Sample Blog Berandanya Gan :
gimana? mudah bukan cara membuatnya..
Selamat Mencoba...
Mari kita Budayakan Blogger..haha....
siapa tau jadi Jutawan nanti,lewat adSense gara2 Blog Gan.. Amiien
.
Minggu, 18 September 2011
Rabu, 01 Juni 2011
Form Login VB.Net
MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form
• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "indrayusuf" And PasswordTextBox.Text = "dicoba" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “indrayusuf” dan password “dicoba”
• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……
.
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form
• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "indrayusuf" And PasswordTextBox.Text = "dicoba" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “indrayusuf” dan password “dicoba”
• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……
.
TAMPILAN MENU (MDI Farent Form)
MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini
• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.
• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut
• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……
.
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini
• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.
• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut
• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……
.
CRISTAL REPORT DALAM VB.NET
LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET
Untuk membuat cristal report langkah2nya sebagai berikut :
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut :
• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)
• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next
• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish
• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next
• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next
• Kemudian next
• Klik next lagi
• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish
• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”
• Maka hasil akan tampil seperti ini :
• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”
• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :
Terima kasih…
Selamat Mencoba……………..
.
Untuk membuat cristal report langkah2nya sebagai berikut :
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut :
• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)
• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next
• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish
• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next
• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next
• Kemudian next
• Klik next lagi
• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish
• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”
• Maka hasil akan tampil seperti ini :
• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”
• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :
Terima kasih…
Selamat Mencoba……………..
.
Jumat, 27 Mei 2011
Program5. Vb.Net (Latihan Materi)
Dalam membuat program kita biasa menggunakan database.
Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database
Sintaxnya sebagai berikut :
Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String
Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module
Tampilan formnya sebagai berikut :
Kemudian membuat sintaxnya sebagai berikut :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bukakoneksi()
End Sub
Sub Jurusan()
Call bukakoneksi()
Tampil2.Connection = database
Tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil2.ExecuteReader
If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Jurusan()
End Sub
End Class
Kemudian buat tampilan form ke-2 sebagai berikut :
dan sintaxnya sebagai berikut :
Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub
End Class
jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000.
untuk data yang kita ambil nantinya..
demikian program yang kita buat kali ini...
dilanjutkan nanti ke program cristal report di pertemuan selanjutnya
untuk pembuatan laporannya...
selamat mencoba...
.
Rabu, 11 Mei 2011
Baru Aku tahu, Istriku.... ??? (maafkan aku sayang)
HIDUP BERUMAH TANGGA
Sebuah kisah…
Semoga ada pelajaran yang dapat kita petik hikmah didalamnya…
kiriman dari temen, ane share kembali disini..
Berikut kisahnya :
Tujuh tahun usia pernikahanku dengan Maya (maaf namanya ane samarkan) sungguh masa yang sulit. Semakin hari semakin tidak ada kecocokan diantara kami. Kami bertengkar karena hal-hal kecil. Karena Maya lambat membukakan pagar saat aku pulang kantor. Karena meja makan di ruang keluarga yang ia beli tanpa membicarakannya denganku, bagiku itu hanya membuang uang saja.
Kemarin, 26 Januari 2011 adalah ulang tahun Maya. Kami bertengkar paginya karena Maya kesiangan membangunkanku. Aku kesal dan tak mengucapkan selamat ulang tahun padanya, kecupan di keningnya yang biasa kulakukan di hari ulang tahunnya tak mau kulakukan. Malam itu sekitar pukul 7, Maya sudah 3 kali menghubungiku untuk memintaku segera pulang dan makan malam bersamanya, tentu saja permintaannya tidak kuhiraukan.
Malam itu aku memilih untuk ikut latihan futsal bareng teman-teman sekantor. Tanpa terasa waktu sudah menunjukkan pukul 10 malam. Hujan turun sangat deras, sehingga aku memutuskan untuk santai sejenak di cafe sambil melepas penat. Sudah larut malam, tapi hujan masih turun dengan lebatnya. Seperti biasanya, kalau sudah hujan seperti ini, tiap sudut kota pasti banjir. Aku benar-benar dibuat kesal oleh keadaan. Membayangkan pulang dan bertemu dengan Maya membuatku semakin kesal! Akhirnya aku sampai juga di rumah pukul 12 malam, 1 jam perjalanan kutempuh yang biasanya aku hanya membutuhkan waktu 20 menit untuk sampai di rumah.
Kulihat Maya tertidur di sofa ruang tamu. Sempat aku berhenti di hadapannya dan memandang wajahnya. "Ia sungguh cantik" kataku dalam hati, "Wanita yang menjalin hubungan denganku selama 10 tahun sejak duduk di bangku kuliah yang kini telah kunikahi selama 7 tahun, tetap saja cantik". Aku menghela nafas dan meninggalkannya pergi, aku ingat kalau aku sedang kesal sekali dengannya.
Aku langsung masuk ke kamar. Di meja rias istriku kulihat buku itu, buku coklat tebal yang dimiliki oleh istriku. Bertahun-tahun Maya menulis cerita hidupnya pada buku coklat itu. Sejak sebelum menikah, tak pernah ia ijinkan aku membukanya. Inilah saatnya! Aku tak mempedulikan Maya, kuraih buku coklat itu dan kubuka halaman demi halaman secara acak.
14 Februari 2000.
Terima kasih Tuhan atas pemberianMu yang berarti bagiku, Agung, pacar pertamaku yang akan menjadi pacar terakhirku.
Hmm… aku tersenyum, Maya yakin sekali kalau aku yang akan menjadi suaminya.
14 Februari 2003,
Agung melamarku di hari jadi kami yang ke-3. Tuhan apa yang harus kulakukan? Berikan aku tanda untuk keputusan yang harus kuambil.
6 Juni 2004,
Hari minggu yang luar biasa, aku telah menjadi Nyonya Agung Aditya Purnama. Terima kasih Tuhan!
18 Juli 2004,
Pertengkaran pertama kami sebagai keluarga. Aku harap aku tak kemanisan lagi membuatkan teh untuknya. Tuhan, bantu aku agar lebih berhati-hati membuatkan teh untuk suamiku.
6 Juni 2008,
Tak sengaja kubaca pesan singkat di Hp Agung dari seorang wanita. Tiap kata dan kalimat yang aku baca menunjukkan kalau Agung sangat dekat dengan wanita itu. Tuhan, aku mohon agar Agung tidak pindah ke lain hati.
Jantungku serasa mau berhenti...
25 Oktober 2008,
Aku menemukan surat ucapan terima kasih di kemeja Agung, atas candle light dinner di hari ulang tahun seorang wanita dengan nama Ayu. Siapakah dia Tuhan? Bukakanlah mataku untuk apa yang Kau kehendaki agar aku ketahui…
Jantungku benar-benar mau berhenti. Selama aku dinas di Jogja, aku memang sempat menjalin hubungan dengan seorang wanita yang bernama Ayu. Ayu datang disaat usia pernikahanku dengan Maya telah mencapai 4 tahun. Ayu, yang karenanya aku hampir saja mau memutuskan pernikahanku dengan Maya karena kejenuhanku. Aku telah memutuskan untuk tidak bertemu dengan Ayu lagi setelah dekat dengannya selama 8 bulan, dan memutuskan untuk tetap setia kepada Maya. Aku sungguh tak menduga kalau Maya mengetahui hubunganku dengan Ayu.
4 Maret 2009,
Aku dihampiri wanita bernama Ayu, Ia menghinaku dan mengatakan Agung telah selingkuh dengannya. Tuhan, beri aku kekuatan yang berasal daripadaMu.
Bagaimana mungkin Maya sekuat itu, ia tak pernah mengatakan apapun atau menangis di hadapanku setelah mengetahui aku telah menghianatinya. Aku tahu Ayu, dia pasti telah membuat hati Maya sangat terluka dengan kata-kata tajam yang keluar dari mulutnya. Nafasku sesak, tak mampu kubayangkan apa yang Maya rasakan saat itu.
23 Maret 2010,
Agung marah padaku, aku tertidur pulas saat ia pulang kantor sehingga ia menunggu di depan rumah agak lama. Seharian aku berada di mall mencari jam idaman Agung, aku ingin membelikan jam itu di hari ulang tahunnya yang tinggal 2 hari lagi. Tuhan, beri kedamaian di hati Agung agar ia tidak marah lagi padaku, aku tak akan tidur di sore hari lagi kalau Agung belum pulang walaupun aku lelah.
Aku mulai menangis , Maya mencoba membahagiakanku tapi aku malah memarahinya tanpa mau mendengarkan penjelasannya. Jam itu adalah jam kesayanganku yang kupakai sampai hari ini, tak kusadari ia membelikannya dengan susah payah.
15 Mei 2009,
Agung butuh meja untuk menaruh kopi di ruang keluarga, dia sangat suka membaca di sudut ruang itu. Tuhan, bantu aku menabung agar aku dapat membelikan sebuah meja, hadiah Anneversary Pernikahan kami untuk Agung.
Aku tak dapat lagi menahan tangisanku , Maya tak pernah mengatakan meja itu adalah hadiah Anneversary Pernikahan untukku. Ya, ia memang membelinya di malam Anneversary Penikahanku dengan dia dan menaruhnya hari itu juga di ruang keluarga.
Aku sudah tak sanggup lagi membuka halaman berikutnya. Maya sungguh diberi kekuatan dari Tuhan untuk mencintaiku tanpa syarat. Aku berlari keluar kamar, kukecup kening Maya dan ia terbangun…
"Maafkan aku Sayang, Aku mencintaimu, Selamat ulang tahun…"
Baru aku tau ternyata Maya begitu Mencintaiku..
Baru aku tau ternyata Maya begitu Menyayangiku..
Baru aku tau ternyata Maya begitu Pengertian kepadaku..
Baru aku tau ternyata Maya begitu Sabar kepadaku....
Baru aku tau ternyata Maya adalah ISTRI YANG SETIA..
Aku mencintaimu selamanya sayang...
.
Sebuah kisah…
Semoga ada pelajaran yang dapat kita petik hikmah didalamnya…
kiriman dari temen, ane share kembali disini..
Berikut kisahnya :
Tujuh tahun usia pernikahanku dengan Maya (maaf namanya ane samarkan) sungguh masa yang sulit. Semakin hari semakin tidak ada kecocokan diantara kami. Kami bertengkar karena hal-hal kecil. Karena Maya lambat membukakan pagar saat aku pulang kantor. Karena meja makan di ruang keluarga yang ia beli tanpa membicarakannya denganku, bagiku itu hanya membuang uang saja.
Kemarin, 26 Januari 2011 adalah ulang tahun Maya. Kami bertengkar paginya karena Maya kesiangan membangunkanku. Aku kesal dan tak mengucapkan selamat ulang tahun padanya, kecupan di keningnya yang biasa kulakukan di hari ulang tahunnya tak mau kulakukan. Malam itu sekitar pukul 7, Maya sudah 3 kali menghubungiku untuk memintaku segera pulang dan makan malam bersamanya, tentu saja permintaannya tidak kuhiraukan.
Malam itu aku memilih untuk ikut latihan futsal bareng teman-teman sekantor. Tanpa terasa waktu sudah menunjukkan pukul 10 malam. Hujan turun sangat deras, sehingga aku memutuskan untuk santai sejenak di cafe sambil melepas penat. Sudah larut malam, tapi hujan masih turun dengan lebatnya. Seperti biasanya, kalau sudah hujan seperti ini, tiap sudut kota pasti banjir. Aku benar-benar dibuat kesal oleh keadaan. Membayangkan pulang dan bertemu dengan Maya membuatku semakin kesal! Akhirnya aku sampai juga di rumah pukul 12 malam, 1 jam perjalanan kutempuh yang biasanya aku hanya membutuhkan waktu 20 menit untuk sampai di rumah.
Kulihat Maya tertidur di sofa ruang tamu. Sempat aku berhenti di hadapannya dan memandang wajahnya. "Ia sungguh cantik" kataku dalam hati, "Wanita yang menjalin hubungan denganku selama 10 tahun sejak duduk di bangku kuliah yang kini telah kunikahi selama 7 tahun, tetap saja cantik". Aku menghela nafas dan meninggalkannya pergi, aku ingat kalau aku sedang kesal sekali dengannya.
Aku langsung masuk ke kamar. Di meja rias istriku kulihat buku itu, buku coklat tebal yang dimiliki oleh istriku. Bertahun-tahun Maya menulis cerita hidupnya pada buku coklat itu. Sejak sebelum menikah, tak pernah ia ijinkan aku membukanya. Inilah saatnya! Aku tak mempedulikan Maya, kuraih buku coklat itu dan kubuka halaman demi halaman secara acak.
14 Februari 2000.
Terima kasih Tuhan atas pemberianMu yang berarti bagiku, Agung, pacar pertamaku yang akan menjadi pacar terakhirku.
Hmm… aku tersenyum, Maya yakin sekali kalau aku yang akan menjadi suaminya.
14 Februari 2003,
Agung melamarku di hari jadi kami yang ke-3. Tuhan apa yang harus kulakukan? Berikan aku tanda untuk keputusan yang harus kuambil.
6 Juni 2004,
Hari minggu yang luar biasa, aku telah menjadi Nyonya Agung Aditya Purnama. Terima kasih Tuhan!
18 Juli 2004,
Pertengkaran pertama kami sebagai keluarga. Aku harap aku tak kemanisan lagi membuatkan teh untuknya. Tuhan, bantu aku agar lebih berhati-hati membuatkan teh untuk suamiku.
6 Juni 2008,
Tak sengaja kubaca pesan singkat di Hp Agung dari seorang wanita. Tiap kata dan kalimat yang aku baca menunjukkan kalau Agung sangat dekat dengan wanita itu. Tuhan, aku mohon agar Agung tidak pindah ke lain hati.
Jantungku serasa mau berhenti...
25 Oktober 2008,
Aku menemukan surat ucapan terima kasih di kemeja Agung, atas candle light dinner di hari ulang tahun seorang wanita dengan nama Ayu. Siapakah dia Tuhan? Bukakanlah mataku untuk apa yang Kau kehendaki agar aku ketahui…
Jantungku benar-benar mau berhenti. Selama aku dinas di Jogja, aku memang sempat menjalin hubungan dengan seorang wanita yang bernama Ayu. Ayu datang disaat usia pernikahanku dengan Maya telah mencapai 4 tahun. Ayu, yang karenanya aku hampir saja mau memutuskan pernikahanku dengan Maya karena kejenuhanku. Aku telah memutuskan untuk tidak bertemu dengan Ayu lagi setelah dekat dengannya selama 8 bulan, dan memutuskan untuk tetap setia kepada Maya. Aku sungguh tak menduga kalau Maya mengetahui hubunganku dengan Ayu.
4 Maret 2009,
Aku dihampiri wanita bernama Ayu, Ia menghinaku dan mengatakan Agung telah selingkuh dengannya. Tuhan, beri aku kekuatan yang berasal daripadaMu.
Bagaimana mungkin Maya sekuat itu, ia tak pernah mengatakan apapun atau menangis di hadapanku setelah mengetahui aku telah menghianatinya. Aku tahu Ayu, dia pasti telah membuat hati Maya sangat terluka dengan kata-kata tajam yang keluar dari mulutnya. Nafasku sesak, tak mampu kubayangkan apa yang Maya rasakan saat itu.
23 Maret 2010,
Agung marah padaku, aku tertidur pulas saat ia pulang kantor sehingga ia menunggu di depan rumah agak lama. Seharian aku berada di mall mencari jam idaman Agung, aku ingin membelikan jam itu di hari ulang tahunnya yang tinggal 2 hari lagi. Tuhan, beri kedamaian di hati Agung agar ia tidak marah lagi padaku, aku tak akan tidur di sore hari lagi kalau Agung belum pulang walaupun aku lelah.
Aku mulai menangis , Maya mencoba membahagiakanku tapi aku malah memarahinya tanpa mau mendengarkan penjelasannya. Jam itu adalah jam kesayanganku yang kupakai sampai hari ini, tak kusadari ia membelikannya dengan susah payah.
15 Mei 2009,
Agung butuh meja untuk menaruh kopi di ruang keluarga, dia sangat suka membaca di sudut ruang itu. Tuhan, bantu aku menabung agar aku dapat membelikan sebuah meja, hadiah Anneversary Pernikahan kami untuk Agung.
Aku tak dapat lagi menahan tangisanku , Maya tak pernah mengatakan meja itu adalah hadiah Anneversary Pernikahan untukku. Ya, ia memang membelinya di malam Anneversary Penikahanku dengan dia dan menaruhnya hari itu juga di ruang keluarga.
Aku sudah tak sanggup lagi membuka halaman berikutnya. Maya sungguh diberi kekuatan dari Tuhan untuk mencintaiku tanpa syarat. Aku berlari keluar kamar, kukecup kening Maya dan ia terbangun…
"Maafkan aku Sayang, Aku mencintaimu, Selamat ulang tahun…"
Baru aku tau ternyata Maya begitu Mencintaiku..
Baru aku tau ternyata Maya begitu Menyayangiku..
Baru aku tau ternyata Maya begitu Pengertian kepadaku..
Baru aku tau ternyata Maya begitu Sabar kepadaku....
Baru aku tau ternyata Maya adalah ISTRI YANG SETIA..
Aku mencintaimu selamanya sayang...
.
Sabtu, 07 Mei 2011
ICE CREAM
.................... mm.... LEEZAAAAT....%^$%#$=&!* ?........................
Ice cream rasa apa yang paling Anda suka? Vanilla, cokelat, strawberry, durian, nanas, pisang atau mixed?
Ice cream, dari namanya saja terbayang sejuta kelezatannya. Setiap anak pasti suka nikmatnya ice cream. Bahkan anak-anak merengek dengan sekuat tenaga saat ingin dibelikan ice cream. Namun banyak juga orang tua yang melarang anaknya makan ice cream hanya karena sedang flu atau takut anaknya terlalu gemuk.
Anda berpikir ice cream membuat flu Anda semakin parah? Atau Anda menghindari ice cream karena takut gemuk? Wah, kalau begitu Anda rugi sekali. Baca artikel ini sampai habis, karena ice cream sangat baik untuk kesehatan Anda
ASAL ICE CREAM
ice cream dikenal sejak zaman Romawi, yaitu pada 400 tahun Sebelum Masehi. Produksi ice cream secara komersial mulai dilakukan pada abad ke-18, menyusul ditemukannya mesin freezer pada tahun 1846. Pabrik ice cream pertama dibangun di Baltimore, Amerika Serikat, pada tahun 1851.
ice cream dapat dikatakan sebagai jenis hidangan paling populer di dunia. Pada tahun 2003, produksi ice cream dunia mencapai lebih dari satu miliar liter dan dikonsumsi oleh miliaran konsumen per tahun.
Menurut Standar Nasional Indonesia, ice cream adalah sejenis makanan semi padat yang dibuat dengan cara pembekuan tepung es cream atau campuran susu, lemak hewani maupun nabati, gula, dan dengan atau tanpa bahan makanan lain yang diizinkan. Di pasaran, ice cream digolongkan atas kategori economy, good average dan deluxe.
Perbedaan utama dari ketiga jenis ice cream tersebut terletak pada kandungan lemak susunya. Saat ini di pasaran juga dikenal ice cream rendah lemak, yaitu ice cream yang direduksi kandungan lemaknya per takaran saji. Reduksi yang dilakukan umumnya sebesar 25 hingga 50% dari jumlah normal. Jadi, kandungan lemak dalam ice cream rendah lemak hanya sekitar 2-6%.
MANFAAT ICE CREAM
1. Kandungan kalsium pada ice cream bermanfaat untuk menjaga kepadatan massa tulang, pencegahan osteoporosis, kanker, serta hipertensi.
2. Bergizi tinggi dan tidak membuat gemuk
ice cream memang mengandung lemak, terutama lemak jenuh. Hal itu menyebabkan banyak orang menghindari ice cream karena takut gemuk. Padahal, kontribusi energi ice cream per takaran saji (satu cangkir) hanya sekitar 10% dari total kebutuhan energi dan kontribusi lemaknya sekitar 15% dari total kebutuhan lemak per hari. Jumlah tersebut termasuk kecil, sehingga kurang pas jika ice cream dituduh sebagai biang keladi penyebab kegemukan atau obesitas.
3. Tak Menyebabkan Pilek
Ice cream bukan penyebab batuk pilek. Sebab, ketika masuk ke mulut, ice cream dengan segera akan meleleh. Pelelehan ice cream dengan cepat dipacu oleh pengaruh suhu tubuh, sehingga saat ice cream masuk ke kerongkongan suhunya sudah tidak sedingin air ice.
4. Antitumor dan HIV
25%-30% kandungan ice cream adalah susu. Susu tersusun dari Laktoferin, yang memiliki peran sebagai zat pertahanan tubuh non-spesifik terhadap patogen. Laktoferin juga memiliki aktivitas Antiviral, terutama terhadap cytomegalovirus, influenza, dan HIV.
Manis, lezat, bergizi tinggi pula. Apakah Anda masih ragu untuk makan ice cream? Jangan lupa sajikan ice cream sebagai kudapan sehat Anda.
.
Kamis, 14 April 2011
4 Rahasia Peningkat Memori Otak
Saat ini tidak hanya orang tua yang bermasalah dengan memorinya. Tapi orang-orang yang masih muda pun bisa cepat sekali lupa. Untuk itu ketahui 4 rahasia peningkat memori.
Beberapa penyakit
terkait dengan memori seperti Alzheimer atau demensia yang membuat seseorang kehilangan memorinya. Untuk itu ada beberapa cara yang bisa dilakukan dalam membantu meningkatkan memori seseorang.
ada 4 rahasia yang bisa meningkatkan memori, yaitu:
Permen karet
Percaya atau tidak, permen karet sebenarnya bisa meningkatkan kewaspadaan dan memori menjadi lebih baik. Hal ini berdasarkan hasil dua penelitian yang dilaporkan dalam jurnal Appetite tahun 2002 dan 2004.
Dalam studi ini, orang yang mengunyah permen karet selama tahap pembelajaran tes tertentu memberikan hasil yang lebih baik. Kondisi ini kemungkinan karena mengunyah permen karet dapat meningkatkan denyut jantung yang kemudian meningkatkan aliran darah ke otak.
Latihan atau berolahraga
Selama ini orang melakukan olahraga agar bisa mendapatkan tubuh yang sehat dan kuat, tapi ternyata olahraga juga bisa memiliki rahasia sebagai penambah memori. Bahkan dengan mengurangi beberapa kalori di dalam tubuh bisa membantu seseorang mengingat dimana ia meletakkan kunci.
Olahraga yang dilakukan tak perlu mahal atau berat, tapi dengan berjalan kaki, naik tangga atau bersepeda bisa menjadi penambah ingatan yang lebih baik dibanding tidak sama sekali.
kalo catur lebih paten kayanya
Kafein
Meskipun banyak yang memperdebatkan keuntungan dan bahaya dari kafein, tapi tidak ada yang bisa membantah efek kafein terhadap kewaspadaan dan penambah memori. Berbagai studi yang dilakukan dalam 5 tahun terakhir menunjukkan kafein dapat meningkatkan memori jangka pendek dan melindungi perempuan dari kehilangan memori.
Agar bisa mendapatkan manfaat yang optimal dari kafein, usakahan untuk mengonsumsinya dalam jumlah yang aman dan tidak berlebihan. Hal ini untuk menghindari efek negatif dari kafein bagi tubuh.
Tidur siang
Rahasia yang satu ini mungkin belum banyak diketahui oleh masyarakat. Padahal tidur siang bisa meningkatkan memori deklaratif (memori yang berguna untuk menyimpan fakta-fakta). Jika sudah bekerja keras seharian, jangan ragu untuk tidur siang sejenak. Tapi pastikan untuk tidak tidur lebih dari 45 menit, hal ini untuk menghindari tidur yang terlalu dalam sehingga menghilangkan manfaatnya bagi memori.
Sumber : Vera Farah Bararah - detikHealth
.