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...


.

Read More

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...


.

Read More

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.

.

Read More