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

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


.

Read More

Program5. Vb.Net (latihan materi)

Membuat program VB
Toolnya menggunakan : Combobox,textbox, label, button, dan listview.

"combobox" yaitu kolom untuk input data, disertai pilihan yang telah disedikan. User tinggal klik tanda panah ke bawah, maka akan muncul pilihan ..

Tampilan form sebagai berikut :

Syntax Programnya sebagai berikut :

Public Class Form1
Dim isitex(4) As String
Dim Item As ListViewItem
Sub isi()
ComboBox1.Items.Add("Teknik Informatika")
ComboBox1.Items.Add("Sistem Informatika")
ComboBox1.Items.Add("Komputer akutansi")
ComboBox1.Items.Add("Manajemen Informatika")
ComboBox1.Items.Add("Teknik Komputer")
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isi()
Call Tabel()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = "Teknik Informatika"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
ElseIf Button1.Text = "Simpan" Then
isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 100)
Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)
End If
Button1.Focus()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Batal" Then
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
TextBox1.Focus()
Else
Button4.Text = "Keluar"
Me.Close()
End If
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Focus()
End If
End Sub

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub

Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Hasil Runningnya :

Tinggal memasukan data sesuai yg di inginkan kawan...

Program ini menggunakan "Combobox" yaitu kolom untuk input data, disertai pilihan yang telah disedikan. User tinggal klik tanda panah ke bawah, maka akan muncul pilihannya. Sehingga kita tidak perlu repot2 mengetiknya .

Selamat mencoba...


.

Read More

Lowongan Kerja PT. Cahaya Prima Sentosa (31'March'2011)

Siapa tau ada yg berminat...
saya cuman sekedar menginformasikan kawan,
semoga turut membantu khususnya bagi para pencari kerja...

Perusahaan:
PT Cahaya Prima Sentosa
Industri:
Percetakan dan Kemasan
Nama kontak:
HRD

Deskripsi singkat perusahaan:
We are a Printing industries, and during our rapid growth and expansion, we need high and motivate person to fullfill an important position in our company, we are expecting a professional person to join and grow with us together

Jabatan: Pemula
Fungsi kerja: Manufaktur dan Produksi
Posisi: PPIC Staff
Lokasi kerja: Cikarang
Jenjang pendidikan: Diploma
Jurusan: Apa saja
Pengalaman kerja: Paling sedikit 1 tahun
Gaji yang ditawarkan: Tidak disebutkan
Persyaratan: - Pria/wanita, usia maksimal 30 tahun

- Pendidikan minimal D3
- Mempunyai pengalaman kerja di bidangnya minimal 1 tahun
- Memahami system manajemen ISO9001 dan ISO14001
- Dapat mengoperasikan komputer
- Dapat bekerjasama dalam team
- Dapat bekerja di bawah tekanan

Tanggal pemasangan: 30 Maret 2011
Tanggal penutupan: 06 April 2011


.

Read More

Lowongan PT. Packaging Company (31'March'2011)

Siapa tau ada yg berminat...
saya cuman sekedar menginformasikan kawan,
semoga turut membantu khususnya bagi para pencari kerja...

Rincian Lowongan dan Lamar

Informasi Perusahaan
Perusahaan:
Packaging Company
Industri:
Percetakan dan Kemasan
Nama kontak:
HRD


Deskripsi singkat perusahaan:
We are a very fast growing manufacturing company in Cibitung, Bekasi specialize in providing packaging for International company


Informasi Lowongan

Jabatan: Pemula
Fungsi kerja: Manufaktur dan Produksi
Posisi: Operator Produksi
Lokasi kerja: Bekasi
Jenjang pendidikan: SLTA
Jurusan: Apa saja
Pengalaman kerja: Paling sedikit 1 tahun
Gaji yang ditawarkan: Tidak disebutkan
Persyaratan: - Pria, usia maksimal 30 tahun

- Lulusan SMU/SMK
- Tidak buta warna
- Bekerja shift
- Tinggi Badan min. 170 cm
- Diutamakan mempunyai pengalaman dipercetakan
- Bersedia ditempatkan di wilayah Bekasi

"Hanya kandidat yang memenuhi kualifikasi saja yang dikenankan melamar"

Tanggal pemasangan: 30 Maret 2011
Tanggal penutupan: 13 April 2011


.

Read More