Penggunaan Dataset dengan VB.Net

noreply@blogger.com (dipzt23) — Sun, 01 Jun 2014 04:33:00 +0000

Akhirnya Semester ini selese juga, Bener-bener butuh perjuangan keras. ..tiap hari tugas, tugas dan tugas. . .di buat tidur hanya 3 jam per hari, bahkan bisa melekan hingga 2 hari. . Gila !! ohya. .aku ada tugas VB.NET lagi ne, tentang dataset yang virtual dan yang dengan database. virtual itu maksudnya tidak menggunakan database jadi semua data-data yang kita inputkan pada saat program di running akan tersimpan pada memori komputer, dan jika di close tidak akan ada data yang tersimpan. tentu saja.!! Orang gak ada databasenya koc!

Sedangkan penggunaan dataset yang ada databasenya pada saat program dijalankan dataadapter akan mengambil struktur database kemudian akan disimpan di Dataset yang telah kita sediakan(Apikasi terputus). Sehingga semua perubahan yang dilakukan akan disimpan di dataset, kemudian saat aplikasi akan di close kita bisa menentukan apakah perubahan-perubahan/ manipulasi data akan disimpan ke database atau tidak.

1. Virtual

Public Class Form2

Dim xDs As New DataSet

Dim xDt As New DataTable("mhs")

Dim update1 As Boolean = False

Private Sub Tnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tnim.TextChanged

Dim txt1 As String = tnim.Text

If IsNumeric(Microsoft.VisualBasic.Right(txt1, 1)) Then

Else

If tnim.Text.Length = 0 Then

Else

tnim.Text = Microsoft.VisualBasic.Left(txt1, txt1.Length - 1)

End If

tnim.SelectionStart = tnim.Text.Length

End Sub

Sub isicombo()

With ComboBox1.Items

.Add("S1")

.Add("D3")

.Add("D4")

End With

With ComboBox3.Items

.Add("Baru")

.Add("Transfer")

End With

With ComboBox4.Items

.Add("Aktif")

.Add("Cuti")

.Add("Lulus")

End With

btambah.Enabled = False

bedit.Enabled = False

bhapus.Enabled = False

End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus

ComboBox2.Items.Clear()

If ComboBox1.Text = "S1" Then

With ComboBox2.Items

.Add("Sistem Informasi")

.Add("Sistem Komputer")

.Add("Desain Komunikasi Visual")

End With

ElseIf ComboBox1.Text = "D3" Then

With ComboBox2.Items

.Add("Manajemen Informatika")

.Add("Sekretaris")

.Add("Multi Media")

End With

ElseIf ComboBox1.Text = "D4" Then

With ComboBox2.Items

.Add("Multimedia")

End With

End If

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

isicombo()

xDs.Tables.Add(xDt)

xDt.Columns.Add("Nim")

xDt.Columns.Add("Nama")

xDt.Columns.Add("Alamat")

xDt.Columns.Add("Telp")

xDt.Columns.Add("Tmp_lhr")

xDt.Columns.Add("Tgl_lhr")

xDt.Columns.Add("Jurusan")

xDt.Columns.Add("Prodi")

xDt.Columns.Add("Stt_msk")

xDt.Columns.Add("Stt_mhs")

xDt.PrimaryKey = New DataColumn() {xDt.Columns("Nim")}

DataGridView1.DataSource = xDs.Tables("mhs")

End Sub

Sub kunci()

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

DataGridView1.Enabled = True

btambah.Enabled = True

bsimpan.Enabled = False

bbatal.Enabled = False

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

tnim.Enabled = False

TextBox2.Enabled = False

TextBox3.Enabled = False

TextBox4.Enabled = False

TextBox5.Enabled = False

DateTimePicker1.Enabled = False

ComboBox1.Enabled = False

ComboBox2.Enabled = False

ComboBox3.Enabled = False

ComboBox4.Enabled = False

Else

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

'GroupBox3.Enabled = False

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

End If

End Sub

Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

If update1 = False Then

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

xRow(0) = tnim.Text

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xDs.Tables("mhs").Rows.Add(xRow)

bbatal_Click(sender, e)

DataGridView1.DataSource = xDs.Tables("mhs")

kunci()

MsgBox("Data Tersimpan")

Else

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(tnim.Text)

If Not xRow Is Nothing Then

xRow.BeginEdit()

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xRow.EndEdit()

bbatal_Click(sender, e)

kunci()

tnim.Enabled = True

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terupdate")

End If

End Sub

Private Sub bedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bedit.Click

update1 = True

tnim.Text = DataGridView1.CurrentRow.Cells(0).Value

TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value

TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value

TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value

TextBox5.Text = DataGridView1.CurrentRow.Cells(4).Value

DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(5).Value

ComboBox1.Text = DataGridView1.CurrentRow.Cells(6).Value

ComboBox2.Text = DataGridView1.CurrentRow.Cells(7).Value

ComboBox3.Text = DataGridView1.CurrentRow.Cells(8).Value

ComboBox4.Text = DataGridView1.CurrentRow.Cells(9).Value

btambah_Click(sender, e)

tnim.Enabled = False

End Sub

Private Sub bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

xRow.Delete()

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terhapus")

End If

End Sub

Private Sub btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btambah.Click

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

DataGridView1.Enabled = False

End Sub

Private Sub bbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbatal.Click

tnim.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

kunci()

End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

bedit.Enabled = True

bhapus.Enabled = True

End Sub

Private Sub btutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btutup.Click

Me.Close()

End Sub

End Class

2. Dengan Database

Imports System.Data.SqlClient

Public Class Form3

Dim xDs As New DataSet

Dim xDt As New DataTable("mhs")

Dim xCn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\t07.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

Dim SqlCommandBuil As New SqlCommandBuilder

Dim xDa As New SqlDataAdapter

Dim update1 As Boolean = False

Private Sub Tnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tnim.TextChanged

Dim txt1 As String = tnim.Text

If IsNumeric(Microsoft.VisualBasic.Right(txt1, 1)) Then

Else

If tnim.Text.Length = 0 Then

Else

tnim.Text = Microsoft.VisualBasic.Left(txt1, txt1.Length - 1)

End If

tnim.SelectionStart = tnim.Text.Length

End Sub

Sub isicombo()

With ComboBox1.Items

.Add("S1")

.Add("D3")

.Add("D4")

End With

With ComboBox3.Items

.Add("Baru")

.Add("Transfer")

End With

With ComboBox4.Items

.Add("Aktif")

.Add("Cuti")

.Add("Lulus")

End With

btambah.Enabled = False

bedit.Enabled = False

bhapus.Enabled = False

End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus

ComboBox2.Items.Clear()

If ComboBox1.Text = "S1" Then

With ComboBox2.Items

.Add("Sistem Informasi")

.Add("Sistem Komputer")

.Add("Desain Komunikasi Visual")

End With

ElseIf ComboBox1.Text = "D3" Then

With ComboBox2.Items

.Add("Manajemen Informatika")

.Add("Sekretaris")

.Add("Multi Media")

End With

ElseIf ComboBox1.Text = "D4" Then

With ComboBox2.Items

.Add("Multimedia")

End With

End If

End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

isicombo()

xDa = New SqlDataAdapter("SELECT * FROM mhs", xCn)

xDt.PrimaryKey = New DataColumn() {xDt.Columns("nim")}

xDa.MissingSchemaAction = MissingSchemaAction.AddWithKey

xDa.Fill(xDs, "mhs")

DataGridView1.DataSource = xDs.Tables("mhs")

End Sub

Sub kunci()

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

If Not xRow Is Nothing Then

DataGridView1.Enabled = True

btambah.Enabled = True

bsimpan.Enabled = False

bbatal.Enabled = False

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

tnim.Enabled = False

TextBox2.Enabled = False

TextBox3.Enabled = False

TextBox4.Enabled = False

TextBox5.Enabled = False

DateTimePicker1.Enabled = False

ComboBox1.Enabled = False

ComboBox2.Enabled = False

ComboBox3.Enabled = False

ComboBox4.Enabled = False

Else

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

'GroupBox3.Enabled = False

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

End If

End Sub

Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

If update1 = False Then

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

xRow(0) = tnim.Text

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xDs.Tables("mhs").Rows.Add(xRow)

bbatal_Click(sender, e)

DataGridView1.DataSource = xDs.Tables("mhs")

kunci()

MsgBox("Data Tersimpan")

Else

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(tnim.Text)

If Not xRow Is Nothing Then

xRow.BeginEdit()

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xRow.EndEdit()

bbatal_Click(sender, e)

kunci()

tnim.Enabled = True

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terupdate")

End If

End Sub

Private Sub bedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bedit.Click

update1 = True

tnim.Text = DataGridView1.CurrentRow.Cells(0).Value

TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value

TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value

TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value

TextBox5.Text = DataGridView1.CurrentRow.Cells(4).Value

DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(5).Value

ComboBox1.Text = DataGridView1.CurrentRow.Cells(6).Value

ComboBox2.Text = DataGridView1.CurrentRow.Cells(7).Value

ComboBox3.Text = DataGridView1.CurrentRow.Cells(8).Value

ComboBox4.Text = DataGridView1.CurrentRow.Cells(9).Value

btambah_Click(sender, e)

tnim.Enabled = False

End Sub

Private Sub bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

xRow.Delete()

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terhapus")

End If

End Sub

Private Sub btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btambah.Click

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

DataGridView1.Enabled = False

End Sub

Private Sub bbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbatal.Click

tnim.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

kunci()

End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

bedit.Enabled = True

bhapus.Enabled = True

End Sub

Private Sub btutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btutup.Click

MessageBox.Show("Apakah Perubahan Data Akan disimpan " & vbCrLf & "Ke Database ?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)

If MsgBoxResult.Yes Then

'Dim SqlCommandBuil As New SqlCommandBuilder(xDa)

xDa.Fill(xDs, "mhs")

SqlCommandBuil = New SqlCommandBuilder(xDa)

xDa.Update(xDs, "mhs")

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.Deleted))

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.Added))

'MsgBox("Data Tersimpan ke Database!")

Me.Close()

Else

Me.Close()

End If

End Sub

End Class

Project lengkannya dapat di download di bawah ini. . semoga bermanfaat...! -_-'

Download Here !

Penerapan Just In Time pada Toko Online Perangkat Teknologi Informasi

noreply@blogger.com (dipzt23) — Wed, 16 Jan 2013 09:39:00 +0000

BAB I

PENDAHULUAN

1.1 Latar Belakang

Globalisasi adalah sebuah hal yang tidak dapat dihindarkan oleh pihak manapun. Dengan adanya globalisasi yang didukung oleh kemajuan teknologi yang sangat pesat, akan tercipta sebuah “dunia baru” yang lebih baik di mana jarak bukanlah menjadi sebuah masalah yang berarti. Dampak dari terbentuknya dunia baru ini adalah pemekaran pasar dengan persaingan yang sangat ketat dari perusahaan-perusahaan lain baik lokal maupun perusahaan asing.

Persaingan yang sangat ketat ini memaksa perusahaan untuk menjadi yang paling baik dari yang terbaik untuk dapat bertahan di era globalisasi ini. Salah satu cara yang dapat ditempuh oleh perusahaan untuk dapat menjadi yang terbaik adalah dengan memiliki corporate strategy yang baik sehingga dapat memperoleh competitive advantage. Heizer & Render (2005: 29) mengatakan bahwa “Competitive advantage implies the creation of a system that has a unique advantage over competitors. The Idea is to create customer value in an efficient and sustainable way”, sehingga dapat diartikan dalam membangun Competitive advantage atau yang biasa dikenal dengan keunggulan bersaing, perusahaan disarankan untuk membentuk sebuah sistem yang unik dan memiliki keunggulan dibandingkan dengan pesaing yang intinya adalah memberikan nilai yang baik bagi konsumen dengan efisien dan dapat dipertahankan.

Rumah Komputer (Ruter) yang berdiri pada tanggal 9 september 2009 dengan usaha ritel perangkat teknologi informasi diantaranya komputer, laptop, gadget, aksesoris, perangkat jaringan dan lain-lain membuka toko di RTC Gatsu jalan Gatot Subroto Denpasar. Setelah hampir 3 tahun Ruter akhirnya memutuskan untuk menutup toko tersebut dengan alasan permasalahan RTC Gatsu masih sangat sepi pengunjung, sehingga minim penjualan yang terjadi. Hal ini menyebabkan Ruter tidak mampu lagi menutupi biaya-biaya operasional yang harus dikeluarkan seperti biaya sewa toko, gaji karyawan, dan juga modal untuk pembelian barang yang harus terus up to date sudah menipis. Persediaan barang dagangan banyak karena perkembangan perangkat teknologi berkembang sangat pesat dan pembelian persediaan yang kurang diperhitungkan membuat pesediaan barang cepat out of date yang menjadi indikator lain penjualan semakin memburuk. Biaya sewa toko yang mahal berbanding terbalik dengan persaingan yang kurang kondusif dimana harus mampu menjual lebih murah karena toko lain diam-diam saling banting harga demi mendapatkan pembeli.

Pada September 2012 Ruter mencoba bangkit dengan kembali membuka toko namun bukan toko fisik melainkan toko secara online dengan alamat www.rumahkomputer.com. Ruter sekarang memiliki salah satu visi mampu memberikan solusi perangkat teknologi informasi (TI) yang paling murah dan cepat di Bali. Dengan konsep toko online Ruter mampu menawarkan harga yang jauh lebih murah karena biaya operasional dapat ditekan secara signifikan, bahkan biaya sewa toko yang dulunya mahal hampir tidak ada, karena pada toko online hanya diperlukan biaya alamat domain dan hosting dari website toko online yang dibangun. Masalah biaya sewa toko yang mahal memang dapat teratasi, namun tidak dengan permasalahan persediaan. Barang yang tawarkan belum tentu ada dalam persediaan dan sebaliknya barang dalam pesediaan belum tentu dipesan pengunjung web. Sering kali terjadi barang yang dipesan tidak ada dalam persediaan, dan ketika mencoba menghubungi pemasok ternyata barang tersebut juga lagi kosong. Sehingga menyebabkan pengunjung toko online atau calon pembeli kecewa dan menimbulkan cetra negatif bagi Ruter sendiri.

Untuk membantu Ruter mencari solusi dalam memecahkan permasalahan persediaannya, maka dibutuhkan model inventory management yang harus diterapkan. Penulis mencoba menawarkan solusi penerapan Model Just In Time (JIT). Dalam penerapannya nanti diharapkan mampu memberikan pelayanan yang lebih cepat, murah, dan jaminan atas ketersediaan barang yang diinginkan pengunjung toko online.

1.2 Perumusan Masalah

Dari apa yang telah dijelaskan pada latar belakang, maka dapat dirumuskan masalah “Bagaimana menerapkan JIT dalam mengelola persediaan pada toko online rumahkomputer.com”

BAB II

LANDASAN TEORI & PEMBAHASAN

2.1 Landasan Teori

2.1.1 Just In Time

Apa itu Just In Time (JIT)? Just In Time adalah sebuah filosofi manajemen yang berasal dari Jepang yang telah diaplikasikan secara nyata sejak awal tahun 1970 pada perusahaan manufaktur di Jepang. Pada awalnya di Toyota Motor, Taichii Ono dan tangan kanannya Shigeo Shingo mengadaptasi strategi Henry Ford yang disesuaikan dengan etos kerja masyarakat Jepang sehingga lahirlah sebuah filosofi yang disebut sebagai Just In Time. Terdapat banyak definisi JIT yang diungkapkan oleh para ahli, antara lain menurut Russell dan Taylor (2006: 685) “Just In Time is a concept minimizing inventory and smoothing the flow of materials so that material arrived just as it was needed” sehingga JIT dapat diartikan sebagai sebuah konsep meminimalkan jumlah persediaan dan memastikan kelancaran aliran bahan baku sehingga sampai tepat ketika dibutuhkan.

Senada dengan Russell dan Taylor, Meredith (1992: 549) mengatakan “The basic idea behind JIT is to make goods flow like water through the shop and not build up, or arrive eiither early or late.” Sedangkan menurut Zhu dan Meredith (1995), mengatakan bahwa “JIT defined as an approach to achieving excellence in a manufacturing company based on countinuing elimination of waste and consitent improvement in productivity.” yang dapat diartikan sebagai sebuah pendekatan untuk mencapai tingkat yang paling baik pada perusahaan manufaktur yang berdasarkan pada pengurangan waste secara terus menerus dan konsisten dalam meningkatkan produktivitas. Pendapat Zhu dan Meredith ini didukung oleh Heizer dan Render (2005: 470) yang mengetakan “Just In Time is a Philosophy of countinious and forced problems solving that drives out waste” pendapat Heizer dan Render ini dapat memberikan gambaran yang senada bahwa JIT adalah sebuah filosofi mengenai pemecahan masalah yang terus menerus yang akan menghilangkan waste. Pendapat dari Heizer dan Render diperkuat oleh definisi yang dipaparkan oleh service.eliteral.com. Pendapat para ahli dan web site di atas kemudian terangkum dalam definisi yang dicantumkan pada accuracybook.com. Sedangkan www.ifm.eng.ac.uk mendefinisikan JIT sebagai sebuah filosofi dalam produksi barang yang memenuhi customer demand (termasuk di dalamnya eksternal customer dan internal customer) tepat pada waktunya, tepat kualitas, dan tepat jumlah.

2.1.2 Toko Online (E-Commerce)

Apa itu e-commerce? E-commerce merupakan bagaian dari E-business dimana bisnis yang dilakukan dengan menggunakan electronic transmission. E-commerce adalah kegiatan- kegiatan bisnis yang menyangkut konsumen (consumers), manufaktur, service providers dan pedagang perantara (intermediaries) dengan menggunakan jaringan-jaringan komputer yaitu internet. Jualang Ding dalam bukunya E-commerce: Law & Practice, Mengemukakan bahwa e-commerce sebagai suatu konsep yang tidak dapat didefinisikan. E-commerce memiliki arti yang berbeda bagi orang yang berbeda.

Sedangkan Onno W. Purbo dan Aang Wahyudi yang mengutip pendapat David Baum, menyebutkan “E-commerce is a dynamic set of technologies, aplications, and business procces that link enterprises, consumers, and communities through electronic transaction and electronic exchange of goods, sevices, and informations” bahwa e-commerce suatu set dinamis teknologi, aplikasi, dan proses bisnis yang menghubungkan perusahaan, konsumen dan komunitas melalui transaksi elektronik dan perdagangan barang, pelayanan, dan informasi yang dilakukan secara elektronik. E-commerce digunakan sebagai transaksi bisnis amtara perusahaan yang satu dengan yang lain, antar perusahaan dengan pelanggan, atau antara perusahaan dengan institusi yang bergerak dalam pelayanan public.

2.2 Analisis

Permasalahan utama yang dihadapi oleh Ruter adalah tidak pengelolaan persediaan barang yang baik sehingga sering kali membuat calon pembeli kecewa dan tidak puas dengan pelayanan yang diberikan. Pengelolaan persediaan kurang baik juga menyebabkan Ruter tidak dapat menekan biaya-biaya yang berdampak Ruter tidak mampu menawarkan harga yang lebih murah dibandingkan pesaing. Perkembangan barang dagangan teknologi dewasa ini juga berkempang sangat pesat, membuat penurunan nilai barang lebih singkat. Semakin lama barang dalam persediaan menunggu untuk laku terjual, nilainya akan semakin turun. Dalam penerapan JIT pada toko online dapat dilihat dari dua sisi hubungan, yaitu dari sisi hubungan antara Ruter dengan supplier (Pemasok) dan hubungan antara Ruter dengan pelanggan.

1. 1. Rumah Komputer dengan Pemasok

Rumah Komputer disarankan mengutamakan menjalin kerja sama dengan pemasok yang berada dekat dengan gudang atau kantor toko online. Hal ini bertujuan mengurangi waktu pengiriman barang dan biaya yang dibutuhkan apalagi jika pemasok memberikan pelayanan mengantarkan ke kantor Ruter. Ruter juga sebaiknya mampu bekerja sama dengan pemasok jika barang yang dipesan ke pemasok berdasarkan pesanan dari pelanggan. Dimana barang tersebut bisa langsung diserahkan ke pelanggan tanpa perlu campur tangan Ruter terlebih dahulu seperti perakitan dan instalasi bisa dikirim langsung kepada pelanggan tanpa harus dikirim dulu ke gudang Ruter. Dengan catatan telah melakukan kerja sama dengan pemasok bahwa label pengirim barang diisikan dikirim oleh Rumah Komputer.

Dengan cara seperti ini terntu akan dapat menghemat biaya pengirim barang. Sedangkan untuk sistem pembayaran jika pelanggan memilih pembayaran transfer via bank, maka barang akan dikirim jika pembayaran sudah diterima oleh pihat Ruter. Setelah barang diantarkan ke palanggan oleh pemasok, ruter mengirimkan pembayaran ke pemasok sesuai harga reseller yang telah disepakati. Sedangkan jika pelanggan memilih pembayaran cash on delivery (COD) otomatis yang menerima pembayarn dari pelanggan adalah pemasok, maka pemasok wajib memberikan pembayaran ke ruter sesuai selisih harga yang dijual kepada pelanggan dengan harga reseller.

2. 2. Rumah Komputer dengan Pelanggan

Dalam hubungan dengan palanggan, toko online yang menjadi basis penjualan harus mampu memberikan jaminan ketersediaan barang yang dipajang di website dengan deskripsi barang yang jelas dan tentunya harga yang lebih kompetitif. Sehingga setiap hari harus dilakukan pengecekan update harga dan persediaan barang dari pemasok. Barang yang dikirim ke pelanggan juga harus sesuai dengan yang dijanjikan. Jika dijanjikan 1-2 hari kerja sampai maka itu harus diwujudkan atau pelanggan akan kecewa dan kapok. Ruter juga diharapkan dapat mengoptimalkan penjualan dengan lokasi pelanggan yang terjangkau oleh pemasok dan Ruter sebelum menyasar pasar yang lebih luas. Ruter juga sebaiknya melakukan pengecekan terhadap harga yang ditawarkan para kompetitor untuk mamastikan harga yang Ruter tawarkan mampu bersaing bahkan lebih murah. Perkembangan perangakat teknologi juga harus diketahui lebih cepat dari pesaing dan pelanggan dan menemukan distributor atau pemasoknya. Bisa juga dengan mendesak pemasok yang telah bekerja sama dengan kita untuk segera memiliki barang tersebut.

Apabila kedua pendekatan hubungan dalam penerapan JIT diatas dapat diterapkan, maka akan mendekatkan Ruter dengan visinya, yaitu mampu memberikan solusi perangkat teknologi informasi (TI) yang paling murah dan cepat di Bali. Namun dalam penerapan tersebut tidak akan segampang apa yang dijabarkan. Dibutuhkan kerja keras dan konsisten dari pihak Ruter dan juga pemasok untuk memastikan konsep dapat berjalan sesuai dengan yang telah direncanakan.

BAB III

PENUTUP

3.1 Kesimpulan

Kesimpulan yang dapat diambil berdasarkan hasil analisis yang dilakukan, maka penerapan model JIT pada toko online Rumah Komputer (Ruter) dapat menekan pengeluaran biaya pengiriman baik pengirim dari pemasok maupun pengiriman kepada pelanggan. Menekan biaya pesediaan sehingga ruter dapat menawarkan harga kepada pelanggan dengan lebih murah. Dengan menerapkan JIT juga dapat memberikan pelayanan lebih cepat kepada dalam hal pengiriman barang pesanan pelanggan.

Sekarang Era Internet Marketing

noreply@blogger.com (dipzt23) — Wed, 16 Jan 2013 09:17:00 +0000

Kemajuan teknologi informasi membuat informasi semakin cepat dan mudah diperoleh. Internet merupakan sumber informasi yang paling banyak digunakan oleh perusahaan, karena internet dapat menjangkau semua wilayah, potensial dan cepat untuk menyampaikan berbagai informasi secara universal, berkualitas, dan hampir tidak memerlukan cost.

Lalu apa peran Internet dalam dunia pemasaran (marketing)? Internet merubah beberapa elemen traditional marketing mix. Marketing mix melalui internet mengubah fokus dari yang sebelumnya hanya berfokus pada pandangan produsen menjadi situasi yang lebih interaktif melibatkan konsumen. Adanya internet marketing juga membawa beberapa keuntungan dalam bisnis suatu perusahaan, antara lain: kesempatan produk/jasa mereka dikenal seluruh dunia, pelanggan mendapat kesempatan untuk memutuskan apa yang mereka inginkan, dimana, dan kapan saja, menambah kemampuan perusahaan untuk mengidentifikasi pergantian produk dan tren pelanggan serta untuk mengetes nilai usulan atau tanggapan yang baru.

Paradigma baru pemasaran dikarakteristikkan sebagai pergantian aktivitas dari model komunikasi konvensional One-to-Many menjadi model komunikasi Many-to-Many. Pada model One-to-Many, perusahaan tunggal berusaha merebut perhatian banyak konsumen melalui cara tradisional dan media massa non-interaktif (non-interactive mass media) seperti TV dan surat kabar. Pada model Many-to-Many, informasi tidak mudah dikirim dari pengirim kepada penerima tetapi dimediasi oleh lingkungan yang dibentuk dari partisipasi dan harapan. Oleh karena itu, konsumen dapat berinteraksi dengan media komunikasi dan memberikan kontribusi pada isi komersial Kompetisi bisnis saat ini dalam usaha penciptaan nilai konsumen terdiri dari 2 (dua) macam dunia strategi pemasaran, yaitu pasar fisik (marketplace) dan pasar maya/virtual (marketspace).

Menggunakan internet memperbaiki keefektifan operasional yang tidak memberikan keunggulan kompetitif (competitive advantage). Competitive advantage di internet cenderung menjadi singkat karena pesaing mudah memonitor. Paradigma baru pemasaran dibangun berdasarkan 7 (tujuh) dimensi yang membedakan traditional marketing dan internet marketing, yaitu perspektif waktu (time perspective), fungsi pemasaran pendominasi (dominating marketing function), cara komunikasi (communication mode), penciptaan nilai (value creation), dasar kompetisi (competition base), kondisi pasar (market nature), dan pemikiran ekonomi (economic thinking)

Acer Iconia W510-27602G03i Tablet Windows 8 - 32 GB - Silver

noreply@blogger.com (dipzt23) — Wed, 16 Jan 2013 08:48:00 +0000

Acer Iconia W510-27602G03iss Tablet Windows 8 - 32 GB - Silver

Spesifikasi Acer Iconia W510-27602G03iss Tablet Windows 8 - 32 GB - Silver

SKU	AC016EL47MSUANID-46041
Model	Tablet
Berat (kg)	0.6 kg
Warna	Silver
Tipe	W510-27602G03iss
Ukuran Layar (in)	10.1
Hard Disk	32
RAM	2
Kapasitas Penyimpanan	32
Kecepatan CPU	1.50
Megapiksel	8.0
Sistem Operasi	Windows
Fitur Tampilan	HD
Fitur	Music Player\|Email\|Touchscreen\|MP3\|Internet Ready
Garansi produk	1 Tahun Garansi (Spare-part & Servis)
Input	USB
Output	3.5mm jack\|USB\|HDMI
Koneksi Nirkabel	Bluetooth\|WiFi
Tipe Grafis	Intel 3650
Kamera Belakang	8 MP
Kamera Depan	2 MP
USB Port	Ya
Resolusi Layar	1366 x 768
Tipe Baterai	Li-Po
Built in Memory	2 GB RAM
Tipe Memory Card	microSD
HDMI Port	Ya
Tipe Layar	LED
Kapasitas Penyimpanan	32 GB SSD
Kecepatan Processor	1.50 GHz
Tipe Processor	Intel Atom Z2760
Sistem Operasi	Windows 8

Megembangkan Sumber Daya Manusia Berbasis Kecerdasan Spiritual

noreply@blogger.com (dipzt23) — Wed, 12 Dec 2012 12:11:00 +0000

Akhir-akhir ini masalah sumber daya manusia dan ketenagakerjaan di Indonesia kembali menjadi topik hangat dibeberapa media. Hubungan antara pengusaha dan karyawan tidak terjalin sebagaimana mestinya, sehingga sering kali memicu konflik yang rumit dan hampir tidak terselesaikan. Pemerintah yang seharusnya menjadi penengah dua kubu tersebut juga tidak dapat menjalankan fungsinya dengan baik. Hampir tidak ada upaya saling memahami satu sama lainnya ketika mereka dipertemukan dalam forum. Apa yang sebenarnya menyebabkan itu terjadi dan apa solusi yang dapat menyelesaikan permasalahan tersebut?

Tentunya ada banyak faktor yang menyebabkan dan tersedia berbagai macam solusi yang dapat ditawarkan untuk menyelesaikan permasalahan tersebut. Namun yang perlu ditekankan adalah bagaimana memastikan solusi yang dipilih telah berjalan sesuai dengan yang diharapkan. Dalam makalah ini penulis akan mencoba membahas bagaimana mengembangkan sumber daya manusia berbasis kecerdasan spiritual dan mungkinkan menjadi solusi dalam menyelesaikan permasalahan kekinian dari sumber daya manusia di Indonesia.

Apa ituSumber daya manusia? Sumber daya manusia (SDM) didefinisikan sebagai keseluruhan orang-orang dalam organisasi yang memberikan kontribusi terhadap jalannya organisasi. Sebagai sumber daya utama organisasi, perhatian penuh terhadap sumber daya manusia harus diberikan terutama dalam kondisi lingkungan yang serba tidak pasti. Selain itu perlu diperhatikan pula bahwa penempatan pegawai yang tepat tidak selalu menyebabkan keberhasilan. Kondisi lingkungan yang cenderung berubah dan perencanaan karir dalam organisasi mengharuskan organisasi terus-menerus melakukan penyesuaian.

Pengembangan sumber daya manusia meliputi aktivitas-aktivitas yang diarahkan terhadap pembelajaran organisasi maupun individual. Pengembangan sumber daya manusia terwujud dalam aktivitas-aktivitas yang ditujukan untuk merubah perilaku organisasi. Pengembangan sumber daya manusia menunjukan suatu upaya yang disengaja dengan tujuan mengubah perilaku anggota organisasi atau paling tidak meningkatkan kemampuan untuk berubah. Jadi ciri utama pengembangan sumber daya manusia adalah aktivitas-aktivitas yang diarahkan pada perubahan perilaku.

A. Pengembangan Sumber Daya Manusia

Armstrong (1997:507) berpendapat pengembangan SDM berkaitan dengan tersedianya kesempatan dan pengembangan belajar, membuat program-program training yang meliputi perencanaan, penyelenggaraan, dan evaluasi atas program-program tersebut. McLagan dan Suhadolnik (Wilson, 1999:10) mengatakan pengembangan SDM adalah pemanfaatan pelatihan, pengembangan karir, dan pengembangan organisasi, yang terintegrasi antara satu dengan yang lain, untuk meningkatkan efektivitas individual dan organisasi. Sedangkan Harris and DeSimone (1999:2) mengatakan pengembangan SDM dapat didefinisikan sebagai seperangkat aktivitas yang sistematis dan terencana yang dirancang oleh organisasi dalam memfasilitasi para karyawannya dengan kecakapan yang dibutuhkan untuk memenuhi tuntutan pekerjaan, baik pada saat ini maupun masa yang akan datang.

Ada begitu banyak pengertian pengembangan SDM, namun dari pengertian-pengertian tersebut dapat dirangkum bahwa pengembangan SDM adalah segala aktivitas yang dilakukan oleh organisasi dalam memfasilitasi karyawannya agar memiliki pengetahuan, keahlian, dan/atau sikap yang dibutuhkan dalam menangani pekerjaan saat ini atau yang akan datang. Aktivitas yang dimaksud, tidak hanya pada aspek pendidikan dan pelatihan saja, akan tetapi menyangkut aspek karir dan pengembangan organisasi. Ini artinya pengembangan SDM berkaitan erat dengan upaya meningkatkan pengetahuan, kemampuan dan/atau sikap anggota organisasi serta penyediaan jalur karir yang didukung oleh fleksibilitas organisasi dalam mencapai tujuan organisasi. Tujuan pengembangan sumber daya manusia adalah untuk memastikan bahwa organisasi mempunyai orang-orang yang berkualitas untuk mencapai tujuan organisasi untuk meningkatkan kinerja dan pertumbuhan (Armstong, 1997:507).

B. Pengertian Kecerdasan Spiritual (Spiritual Quotient)

Apa itu Spiritual Quotient? Menurut penemu teori Spiritual Quotient seorang perempuan berbangsa Yahudi bernama Danah Zohar, inteligensi manusia itu terdiri atas tiga macam, yakni:

1. Intelligence Quotient (IQ), yaitu tatanan syaraf yang memungkinkan orang berpikir logis dan kritis. Inilah yang disebut kecerdasan kognitif

2. Emotional Quotient (EQ), yaitu tatanan syaraf yang memungkinkan orang berpikir dan berkebiasaan dengan pola emosi tertentu. Kecerdasan ini hamper bisa dipastikan merupakan bagian dari kecerdasan afektif

3. Spiritual Quotient (SQ), yaitu tatanan syaraf yang memungkinkan orang berpikir dengan pengertian yang mendalam dan bijaksana. Inilah yang menurut Zohar disebut kecerdasan spiritual.

SQ sebagai kecerdasan untuk menghadapi persoalan makna atau value, yaitu kecerdasan untuk menempatkan perilaku dan hidup kita dalam konteks makna yang lebih luas, kaya dan mendalam. Kecerdasan untuk menilai bahwa tindakan atau jalan hidup seseorang lebih bermakna dibandingkan dengan yang lain. SQ menjadi landasan yang diperlukan untuk memfungsikan dan mensinergikan IQ dan EQ secara integral, efektif dan menyeluruh. Kecerdasan spiritual menyadarkan kita akan tujuan hidup dan pemaknaan kehidupan yang kita jalani. Bahwa hidup memiliki arah dan tujuan hidup, bahwa setiap kehidupan memiliki pemaknaan yang tidak sekedar makna-makna bersifat duniawi.

Sehingga orang perlu memiliki makna dan nilai dalam kehidupan mereka dan bekerja. Misalnya untuk melakukan sesuatu yang membuat perbedaan positif bagi kesejahteraan orang lain. Makna dan nilai sangat bergantung pada keyakinan dan nilai-nilai yang mendasari pikiran kita, yang pada gilirannya nanti akan mendorong perilaku kita. Jadi tingkat terdalam dari kecerdasan adalah SQ yang tidak ada hubungan langsung dengan agama atau system kepercayaan. SQ adalah proses wawasan pribadi dan pengalaman, bukan paket keyakinan (Abhilasha, 2012:257).

C. Pengembangan Sumber Daya Manusia Berbasis Kecerdasan Spiritual

Kemajuan suatu organisasi sangat tergantung pada bagaimana orang-orang yang ada dalam organisasi tersebut. Sarana prasarana, sistem, dan keuangan yang baik akan tidak memiliki arti lagi jika orang-orang yang ada dalam organisasi tersebut memiliki kompetensi dan komitmen yang rendah. Hal inilah yang masih sering terjadi pada SDM di Indonesia sehingga memicu konflik seperti apa yang sering terjadi sekarang. Peningkatan kempetensi dapat dilakukan dengan mudah dengan melalui kegiatan pendidikan dan pelatihan yang diperlukan untuk meningkatkan kompetensi tersebut, namun bagaimana dengan meningkatkan komitmetn karyawan tentu dibutuhkan lebih banyak hal lagi.

Rendahnya komitmen dapat disebabkan oleh banyak hal, tetapi seringkali secara potensial terjadi karena orang-orang di dalam organisasi tidak tahu apa yang dapat diperolehnya dengan pekerjaannya itu selain hanya sekedar uang, orang menjadi tidak berbahagia dengan pekerjaannya, kemudian menjadi bosan, apatis, dan pada akhirnya menjadi tidak produktif. Dalam pekerjaannya seharusnya seorang karyawan mampu memaknai pekerjaannya, sehingga karyawan tersebut menjadi berbahagia, sehat hidupnya dan pada akhirnya tidak hanya menjadi produktif, tetapi juga dapat melahirkan berbagai ide yang inovatif. Ini merupakan gambaran seorang karyawan yang telah memiliki kercerdasan spiritual dimana sesuai dengan perngertian SQ yang telah dijelaskan diatas.

Untuk mencapai tujuan tersebut akan timbul pertanyaan bagaimana mengembangkan SDM berbasis pada Kecerdasan Spiritual. SQ adalah sesuatu yang setiap orang memiliki tetapi hanya sedikit yang belajar untuk mengembangkannya. Pengembangan SQ adalah bangkitnya kesadaran yang lebih dalam dari diri sesorang bukan berupa materi, melainkan sumber munculnya berbagai bakat yang tidak terlihat sebelumnya. Pengembangan SDM dapat dilakukan dengan program-program pelatihan baik secara teori dan praktek. Program pelatihan dalam pengembangan SQ dapat mengandung materi dari beberapa komponen dibawah ini:

Memahami indentitas diri (Who am i?)

Identitas adalah takdir atau pemberian. Bagaimana seseorang melihat dirinya dalam membentuk pikirannya, keputusan-keputusan dan arah hidupnya. Sebagian besar dari orang-orang tidak bernar-benar menyadari indentitas sejati mereka dan mereka mendapati diri mereka beralih identitas tergantung pada situasi lingkungan. Hal ini menyebabkan terjadinya krisis identitas dimana berusaha menyamarkan identitas asli mereka. Mengetahui diri sendiri bukan berarti memanjakan diri, namun penting untuk menghilangkan ilusi dan kebingungan yang membawa kita ke jalan yang salah.

Memahami makna diri (What am i?)

SQ mengungkapkan sifat inti dari setiap manusia sebagai sesuatu yang baik. Setiap orang memiliki pontensi sebagai sumber kasih saying, kedamaian dan sukacita. Potensi ini sering kali diblokir atau di terdistorsi oleh kesalahan dalam memahami makna diri dan pemahaman yang salah tentang alas an hidup. Nilai-nilai tertinggi kita memiliki akar inti yang merupakan sifat sejati kita.

Self Response ( How do I work?)

Sebagai makhlik sadar yang sadar bahwa ia sadar dan sadar, ia belajar sedikit dalam arti formal tentang bagaimana dia bekerja dalam kesadarannya. Diri adalah jiwa adalah roh sadar dan itu merupakan suatu kesadaran. Kesadaran dapat secara bertahap menguasai pikiran, kecerdasan, ciri kepribadian atau kecendrungan dan hati nurani. Kasih sayang merupakan nilai spiritual yang merupakan dasar dari tindakan bijak ketika dinyatakan dalam bentuk empati dan kasih sayang yang keduanya penting dalam membangun hubungan.

Self Resonance (Where am i?)

Bagaimana seseorang dapat memahami dan menjelaskan dimana dirinya berada.

Self Truth (How does it all work?)

Jauh didalam diri seseorang ada kesadaran apa yang menjadi suatu kebenaran. Kebedaran tidak pernah berubah dan dari kebenaran datang hokum-hukum kehidupan, moral, hak, kesalahan, dan prinsip kehidupan yang seimbang dan harmonis dapa diciptakan dan dipertahankan. Hukum spiritual tidak perna dapat dipatahkan, namun kita selalu berusaha untuk mematahkannya yang merupakan kebuntuan dari kecerdasan spiritual kita.

Tujuan Diri

Menyadari dan menghidupkan tujan pribadi kita untuk menciptakan salah satu dimensi terdalam dari kehidupan yang bermakna. Yang dapat menjadi salah satu motivator terdalam bagi setiap orang. Setiap orang memiliki tujuan yang unik berdasarkan kombinasi unik dari bakat dan ketrampilan. Tujuan diri sebenarnya tidak pernah ditentukan oleh orang lain. Tujuan adalah sesuatu yang disetel dan diintegrasikan ke dalam kehidupan sehari-hari.

Kreativitas diri (What happens next?)

Kreativitas akan selalu menjadi aspek kunci untuk tujuan mendasar pribadi dan tujuan kolektif seseorang. Tapi buat apa, dan dimana dan mengapa dan kapan? Semua pertanyaan itu hanya dapat dijawab oleh individunya masing-masing. Dari jawaban tersebut orang akan tahu mengapa dia berada disuatu tempat kerja, apa yang seharusnya dia buat dan apa perannya dalam organisasi.

Ketujuh komponen tersebut diatas dapat ditanamkan kepada karyawan secara bertahap dan intensitas yang tinggi demi mewujud tujuan pengambangan SDM yang memiliki kecerdasan spiritual. Tentu dalam penerapannya tidak akan semudah membalikan telapak tangan kita sendiri, karena kita harus membalikan telapak tangan orang lain yang masing-masing memilik nilai yang berbeda-beda. Namun jika tujuan yang mulia ini dapat terwujud niscaya akan dapat mengurang konflik ketenagakerjaan yang sedang terjadi di Indoseia. Tentunya masih banyak solusi dan cara pengembangan SDM namun pastikanlan bahwa solusi dan metode tersebut telah berjalan sesuai dengan yang diharapkan.

sharing aja tugas kuliah MSDM saya. :)

TIC Band - Terbaik Untukmu

noreply@blogger.com (dipzt23) — Tue, 13 Sep 2011 18:42:00 +0000

E
Duhai engkau sang dewi ciptaan raja

Dari langit kau turun ke dunia
A
Untuk jadi milikku
E
Jadi pendampingku selamanya

E
Dengarkanlah setiap kata yang terucap

Mengertilah karena hidup takkan
A
Semudah kau kira
E
Kau harus berlari mengejarnya

(*) C#m F#m
Ku takkan berhenti
A E
Beri cinta dan rinduku
C#m F#m A
Sampai kau mengerti dan pahami

Sudah yang kuberikan

Reff: E G#m
Jangan kau pergi dariku
A
Bila waktuku sedikit untukmu
E G#m
Setiap hembusan nafasku
A
Kulakukan yang terbaik untukmu

Int: E

E
Duhai engkau sang dewi ciptaan raja

Mengertilah karena hidup takkan
A
Semudah kau kira
E
Kau harus berlari mengejarnya

Kembali ke: (*), Reff

C#m B Am7-5 A
Bila kau pergi, tetaplah kau ada disini

Dan menanti

Int: E G#m A

he. . jaman ababil dulu

;

Menggunakan MessageBox Yes/No Buttons pada VB.Net

noreply@blogger.com (dipzt23) — Tue, 08 Feb 2011 20:41:00 +0000

Contoh pada Close Form

Private Sub Form1_FormClosing( _
    ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.FormClosingEventArgs) _
    Handles MyBase.FormClosing

    Dim message As String = _
            "Are you sure that you would like to close the form?"
    Dim caption As String = "Form Closing"
    Dim result = MessageBox.Show(message, caption, _
                                 MessageBoxButtons.YesNo, _
                                 MessageBoxIcon.Question)

    ' If the no button was pressed ...
    If (result = DialogResult.No) Then
        ' cancel the closure of the form.
        e.Cancel = True
    End If
End Sub

yach cukup. . . -_-' hehe

Prosedur Clear Semua Control dalam Windows Form

noreply@blogger.com (dipzt23) — Thu, 03 Feb 2011 17:34:00 +0000

1. Gunakan Panel control sebelum memasukan control" windows yang laen (TextBox, ComboBox,e te ce).
2. buat modul, ketik kode dibawah:

3. Contoh Cara manggil pada stiap form: clearControl(Panel1)

he he he,,2 b cont . . .

Apa itu Tender ?

noreply@blogger.com (dipzt23) — Fri, 19 Feb 2010 16:21:00 +0000

Tender atau lelang merupakan proses awal dari kegiatan konstruksi. Dimana tender merupakan suatu sistem kompetisi untuk mengadakan atau memilih kontraktor yang akan melaksanakan pekerjaan pembangunan, dan memilih konsultan sebagai owner didalam proyek, dengan mengajukan penawaran tertulis tentang besarnya biaya dan limit waktu yang dibutuhkan

Pelelangan terdiri dari pelelangan umum dan pelelangan terbatas. Pelelangan umum adalah metoda pemilihan penyedia barang/jasa lainnya yang dilakukan secara terbuka dengan pengumuman secara luas melalui media massa dan papan pengumuman resmi untuk penerangan umum sehingga masyarakat luas dunia usaha yang berminat dan memenuhi kualifikasi dapat mengikutinya, sedangkan pelelangan terbatas adalah pelelangan yang dilaksanakan antar rekanan yang telah terdaftar dan mempunyai kualifikasi serta klasifikasi bidang tertentu sesuai dengan tingkat kebutuhan pada pelaksanaan pekerjaan.

Tender dalam suatu kegiatan konstruksi bertujuan agar terciptanya persaingan yang sehat antara peserta tender dalam mengajukan penawaran pekerjaan.

Tahapan Proses Tender

Panitia pengadaan adalah panitia lelang atau panitia pemilihan langsung atau panitia penunjukan langsung yang ditugasi untuk melaksanakan pengadaan barang/jasa oleh kepala kantor/ satuan kerja/ pemimpin proyek/ bagian proyek yang disamakan.

Adapun prosedur pelaksanaan tender ini sebagai berikut :

Pembentukan Panitia Tender
Pengumuman Tender
Undangan Tender
Aanwijzing
Pemasukan Penawaran
Penutupan Kontrak tender
Pembukaan sampul Penawaran
Evaluasi Penawaran
Pembukaan berita acara tender
Penetapan calon pemenang tender
Usulan Penetapan calon pemenang
Pengumuman calon pemenang
sanggahan peserta
Tender yang gagal dan tender yang ulang

ref: Catatan QS Universitas Bunghatta-ku

JUST-IN-TIME ( JIT )

noreply@blogger.com (dipzt23) — Thu, 18 Feb 2010 20:00:00 +0000

1. Pengertian JIT
Dalam pengertian luas, JIT adalah suatu filosofi tepat waktu yang memusatkan pada aktivitas yang diperlukan oleh segmen-segmen internal lainnya dalam suatu organisasi.
JIT mempunyai empat aspek pokok sebagai berikut:

Semua aktivitas yang tidak bernilai tambah terhadap produk atau jasa harus di eliminasi.Aktivitas yang tidak bernilai tambah meningkatkan biaya yang tidak perlu,misalnya persediaan sedapat mungkin nol.
Adanya komitmen untuk selalu meningkatkan mutu yang lebih tinggi.Sehingga produk rusak dan cacat sedapat mungkin nol,tidak memerlukan waktu dan biaya untuk pengerjaan kembali produk cacat, dan kepuasan pembeli dapat meningkat.
Selalu diupayakan penyempurnaan yang berkesinambungan (Continuous Improvement)dalam meningkatkan efisiensi kegiatan.
Menekankan pada penyederhanaan aktivitas dan meningkatkan pemahaman terhadap aktivitas yang bernilai tambah.

JIT dapat diterapkan dalam berbagai bidang fungsional perusahaan seperti misalnya pembelian, produksi, distribusi, administrasi dan sebagainya.
Lebih lengkapnya bisa download papernya di bawah ini.

DOWNLOAD

Bagaimana Cara Memulai Bisnis yang Langsung Ramai dengan Traffic ?

noreply@blogger.com (dipzt23) — Sat, 09 Jan 2010 01:07:00 +0000

Bisnis memang tidak pernah bisa lepas dari traffic, baik bisnis ofline maupun online. Apapun bisnis yang dibangun keberadaannya akan sangat bergantung pada traffic atau pengunjung. Tanpa traffic suatu bisnis tidak akan bisa bertahan lama. Semakin banyak orang yang mengujungi bisnis yang kita jalani, maka prosentase untuk mendapatkan pembeli akan semakin tinggi. Untuk mendapatkan traffic tentunya kita harus melakukan promosi selain mempunyai produk yang memang berkualitas. Terkadang dan mungkin sering kali para pebisnis males untuk berpromosi, namun dengan harapan tetap mendapatkan pengunjung atau taffic yang tinggi. Adakah cara untuk mewujudkan harapan yang hampir mustahil tersebut ??
Tentu ada, sekarang apa sech yang nggak ada? hehe. . caranya adalah membangun bisnis kita ditempat yang sudah ramai dengan traffic, di tempat yang sangat potensial dengan pertumbuhan traffic yang terus menigkat. Tentu sudah banyak yang bisa menebak dimana tempat potensial tersebut. Untuk mengetahui cara ampuhnya lihat video di bawah ini:

Ambil Video Facebook GRATIS ... Klik disini!

Untuk mendapat informasi lebih banyak tentang berbisnis di Facebook bisa di download video dan pdf tutorial lainnya GRATIS DISINI !

Semoga informasi ini bermaanfaat bagi yang ingin memulai bisnis online

Apa itu Balanced Scorecard

noreply@blogger.com (dipzt23) — Mon, 04 Jan 2010 21:34:00 +0000

Besok Ujian Sistem Informasi Strategis kayaknya tentang Balaced Scorecard yang akan keluar. Makanya sambil baca-baca sambil ng-post juga bear lebih inget besok. -_-' Apa itu balanced Scorecard ?

Balanced Scorecard adalah sebuah perencanaan strategis dan sistem manajemen yang digunakan secara ekstensif dalam bisnis dan industri, pemerintah, dan organisasi nirlaba di seluruh dunia untuk kegiatan usaha untuk menyelaraskan visi dan strategi organisasi, meningkatkan komunikasi internal dan eksternal, dan memantau kinerja organisasi terhadap strategis tujuan. Itu berasal oleh Drs. Robert Kaplan (Harvard Business School) dan David Norton sebagai kerangka pengukuran kinerja yang strategis menambahkan non-ukuran kinerja keuangan tradisional metrik keuangan untuk memberikan para manajer dan eksekutif yang lebih 'seimbang' pandangan kinerja organisasi. Sementara frase balanced scorecard diciptakan pada awal tahun 1990-an, akar dari jenis ini pendekatan yang mendalam, dan termasuk karya perintis General Electric pada pengukuran kinerja pelaporan di tahun 1950-an dan pekerjaan proses Perancis insinyur (yang menciptakan Tableau de Bord - secara harfiah, sebuah "dashboard" ukuran kinerja) di bagian awal abad ke-20.

Balanced Scorecard telah berevolusi dari awal digunakan sebagai kerangka pengukuran kinerja yang sederhana untuk penuh perencanaan strategis dan sistem manajemen. Yang "baru" scorecard seimbang mentransformasikan organisasi rencana strategis dari menarik tetapi pasif dokumen ke dalam "berbaris perintah" untuk organisasi sehari-hari. Menyediakan kerangka kerja yang tidak hanya menyediakan pengukuran kinerja, tetapi membantu perencana mengidentifikasi apa yang harus dilakukan dan diukur. Ini memungkinkan para eksekutif untuk benar-benar melaksanakan strategi mereka.

Pendekatan baru ini manajemen strategis pertama kali rinci dalam serangkaian artikel dan buku oleh Drs. Kaplan dan Norton. Mengenali beberapa kelemahan dan ketidakjelasan dari pendekatan manajemen sebelumnya, pendekatan scorecard yang seimbang memberikan resep yang jelas mengenai apa yang harus perusahaan untuk mengukur 'keseimbangan' perspektif keuangan. Seimbang Scorecard adalah sebuah sistem manajemen (bukan hanya suatu sistem pengukuran) yang memungkinkan organisasi untuk menjelaskan visi dan strategi mereka dan menerjemahkannya ke dalam tindakan. Menyediakan umpan balik di sekitar kedua proses bisnis internal dan eksternal hasil dalam rangka untuk terus meningkatkan kinerja dan hasil strategis. Ketika sepenuhnya dikerahkan, Balanced Scorecard mentransformasikan perencanaan strategis dari latihan akademis ke pusat saraf suatu perusahaan.

Kaplan dan Norton menggambarkan inovasi yang seimbang scorecard sebagai berikut:

"The Balanced Scorecard tetap mempertahankan ukuran keuangan tradisional. Tapi ukuran finansial menceritakan peristiwa masa lalu, cerita yang memadai untuk usia industri perusahaan yang investasi dalam jangka panjang kemampuan dan hubungan dengan pelanggan tidak penting untuk kesuksesan. Ukuran finansial ini tidak memadai, namun , untuk menuntun dan mengevaluasi perjalanan perusahaan abad informasi yang harus membuat untuk menciptakan nilai masa depan melalui investasi pada pelanggan, pemasok, karyawan, proses, teknologi, dan inovasi. "

PerspektifBalanced Scorecard menunjukkan bahwa kita melihat organisasi dari empat perspektif, dan untuk mengembangkan metrik, mengumpulkan data dan menganalisis itu relatif terhadap masing-masing perspektif ini:

The Learning & Growth Perspective
Perspektif ini meliputi pelatihan karyawan dan sikap budaya perusahaan yang berkaitan dengan individu dan korporasi baik perbaikan diri. Dalam pengetahuan-organisasi pekerja, orang-orang - satu-satunya repositori pengetahuan - adalah sumber daya utama. Dalam iklim saat ini perubahan teknologi yang cepat, hal ini menjadi penting bagi pekerja pengetahuan berada dalam mode belajar yang berkesinambungan. Metrik dapat ditempatkan untuk membimbing manajer dalam dana pelatihan yang berfokus di mana mereka dapat membantu yang paling. Dalam setiap kasus, pembelajaran dan pertumbuhan merupakan dasar penting bagi keberhasilan setiap organisasi pekerja pengetahuan.

Kaplan dan Norton menekankan bahwa 'belajar' lebih daripada 'pelatihan', tetapi juga mencakup hal-hal seperti mentor dan tutor dalam organisasi, serta bahwa kemudahan komunikasi di antara pekerja yang memungkinkan mereka untuk segera mendapatkan bantuan pada sebuah masalah ketika diperlukan . Ini juga mencakup alat-alat teknologi; apa kriteria Baldrige sebut "sistem kerja kinerja tinggi."

Perspektif Proses Bisnis
Perspektif ini mengacu pada proses bisnis internal. Metrik didasarkan pada perspektif ini memungkinkan para manajer untuk mengetahui seberapa baik bisnis mereka berjalan, dan apakah produk dan jasa sesuai dengan persyaratan pelanggan (misi). Metrik ini harus hati-hati dirancang oleh mereka yang tahu proses ini paling akrab; dengan misi-misi unik kita ini bukanlah sesuatu yang dapat dikembangkan oleh konsultan luar.

Perspektif Nasabah
Filosofi manajemen baru-baru ini telah menunjukkan peningkatan realisasi pentingnya fokus pelanggan dan kepuasan pelanggan dalam setiap bisnis. Ini adalah indikator utama: jika pelanggan tidak puas, mereka akhirnya akan menemukan pemasok lain yang akan memenuhi kebutuhan mereka. Kinerja yang buruk dari perspektif ini dengan demikian merupakan indikator utama penurunan masa depan, meskipun gambar keuangan saat ini mungkin terlihat baik.

Dalam mengembangkan metrik untuk kepuasan, pelanggan harus dianalisis dalam hal jenis pelanggan dan jenis-jenis proses yang kami menyediakan produk atau layanan kepada orang-orang kelompok pelanggan.

Perspektif Keuangan
Kaplan dan Norton tidak mengabaikan kebutuhan tradisional data keuangan. Pendanaan yang tepat waktu dan akurat data yang akan selalu menjadi prioritas, dan manajer akan melakukan apa saja yang diperlukan untuk menyediakannya. Bahkan, sering ada lebih dari cukup penanganan dan pengolahan data keuangan. Dengan pelaksanaan database perusahaan, diharapkan bahwa lebih dari proses tersebut dapat terpusat dan otomatis. Tetapi intinya adalah bahwa penekanan pada keuangan saat ini mengarah pada "tidak seimbang" situasi yang berkaitan dengan perspektif lain. Ada mungkin perlu menyertakan tambahan data yang terkait dengan keuangan, seperti penilaian risiko dan biaya-manfaat data, dalam kategori ini.
Strategi Pemetaan

Strategi peta adalah alat komunikasi yang digunakan untuk menceritakan sebuah kisah tentang bagaimana menciptakan nilai bagi organisasi. Mereka menunjukkan logis, langkah-demi-langkah strategis hubungan antara tujuan (ditampilkan sebagai oval pada peta) dalam bentuk sebab-akibat rantai. Secara umum, meningkatkan kinerja dalam sasaran ditemukan dalam perspektif Learning & Growth (baris bawah) memungkinkan organisasi untuk meningkatkan perspektif Proses Internal Tujuan (baris berikutnya atas), yang pada gilirannya memungkinkan organisasi untuk menciptakan hasil yang diharapkan dalam Nasabah dan Keuangan perspektif (puncak dua baris).
Mengapa Menerapkan Balanced Scorecard?

    * Meningkatkan fokus pada strategi dan hasil
    * Meningkatkan kinerja organisasi dengan mengukur apa yang penting
    * Rata strategi organisasi dengan orang-orang yang melakukan pekerjaan dari hari ke hari
    * Fokus pada faktor pendorong kinerja masa depan
    * Meningkatkan komunikasi organisasi Visi dan Strategi
    * Prioritaskan Proyek / Inisiatif

Artikel lain tentang balanced scorecard bisa dilihat DISINI!!

ref: http://www.balancedscorecard.org/

<!-- End: http://adsensecamp.com/

Kumpulan PTC Luar Negeri Terpercaya

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 18:44:00 +0000

Kumpulan bebera PTC luar negeri, Mualilah meluangkan waktu anda untuk menambah uang janjan anda melalui internet, Lumayan sambil update-update status di situs jejaring sosial anda, sambil klik iklan untuk mengumpulkan dollar demi dollar. ... -_->

Daftar PTC Indonesia terpercaya

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 17:38:00 +0000

1. Klik Rupiah

Iklan : 5
Per Klik : Rp 100
Per Referal Klik : Rp 50
Minimal Pembayaran : Rp 50.000
Cara Pembayaran : BCA dan Mandiri
Masa Pembayaran : 10 Hari kerja
Mau Gabung klik --> https://www.klikrupiah.com/

2. Buxindo

Iklan : 1 s/d 5
Per Klik : Rp 100
Per Referal Klik : Rp 100
Minimal Pembayaran : Rp 50.000
Cara Pembayaran : Semua Bank Indonesia
Masa Pembayaran : 10 Hari Kerja
Mau Gabung klik --> http://www.buxindo.com/

3. Indoadvert

Iklan : 6
Per Klik :Rp 50
Per Referal Klik :Rp 25
Minimal Pembayaran :Rp 10.000
Mau Gabung Klik --> http://www.indoadvert.com/

4. Sinusbux

Iklan : 5
Per Klik :Rp. 125
Per Referal Klik :Rp.50,-
Minimal Pembayaran : Rp 40.000
Cara Pembayaran : Semua Bank Indonesia
Masa Pembayaran : 7 Hari Kerja
Mau Gabung Klik http://www.sinusbux.com/

5. Blogersejati

Iklan : 1 s/d 5
Per Klik : Rp 200
Per Referal Klik : Rp 100
Minimal Pembayaran : Rp 50.000
Cara Pembayaran : Semua Bank Indonesia
Masa Pembayaran : 10 Hari Kerja
Mau Gabung Klik http://blogersejati.com/

6. Klikptc

Per Klik : Rp.100
Per Referal Klik : Rp.25
Payput : Rp 60.000
Cara Pembayaran :Bank Mandiri dan BCA
Mau Gabung Klik http://klikptc.com/

7. Uangklik

Iklan 200

Per Klik :Rp. 50 - Rp. 200
Per Referal Klik :50%
Payput :Rp. 25.000
Cara Pembayaran :Semua bank di Indonesia
Mau Gabung Klik http://uangklik.com/

8. Clicksray

Iklan 10
Per Klik :Rp. 100
Per Referal Klik :Rp. 50
Payput :Rp. 20.000
Cara Pembayaran :Semua bank di Indonesia
Mau Gabung Klik http://www.clicksray.com/

9. Indo-ptc

Sign up to Indo-PTC.com today!

Iklan 10
Per Klik :Rp. 100
Per Referal Klik :Rp. 50
Payput :Rp. 20.000
Cara Pembayaran :Semua bank di Indonesia
Mau Gabung Klik http://www.indo-ptc.com/

10. Gresklik

Iklan 10
Per Klik :Rp. 125
Per Referal Klik :Rp. 75
Payput :Rp. 50.000
Cara Pembayaran : Semua bank di Indonesia
Mau Gabung Klik http://gresklik.com/

Selamat mencoba, semoga bermanfaat sebagai penghasilan tambahan anda !

Apa itu PTC (Paid To Click) ?

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 17:33:00 +0000

PTC dulu saya kira Pakuwon Trade Centre. hehe :) jauh banget kan, maklum saja saya tinggal di Surabaya yang setiap sudut kotanya terdapat Mal. Setelah saya browsing dan membaca beberapa referensi, PTC yang banyak di bicarakan di Internet adalah singkan dari Paid to Click.

Terus apa yang dimaksud Paid to Click ?
Sebuah istilah program bisnis internet yang membayar membernya untuk melakukan klik, signup,dll pada halaman tertentu dan kita wajib menunggu limit waktu yang di berikan agar dapat bayaran, hanya cukup melakukan klik saja, tidak harus membaca atau menunggu di halaman tersebut sampai waktu habis. Jadi bisa berpindah ke halaman lain untuk melakukan hal lain. tidak ada salahnya untuk mencoba!
Berapa kita dibayar per klik?
Tergantung web PTC yang kita ikuti. PTC luar negeri biasanya $1-$5 per klik, Klo PTC Indonesia bisanya Rp 100 per klik. Ya cukup kecil memang, tapi bisa kita siasati dengan mengikut dengan mengikuti beberapa web PTC misalnya 10-15 web. Tentu bisa dihitung berapa kita di bayar jika rajin men-klik selama sebulan. Selain dari hasil klik kita sendiri, kita dapat pasang banner web PTC di website kita. (Seperti benner di pojok kanan bawah blog ini) Jika Ada yang bergabung di web PTC tersebut berdasarkan referensi atau ng-klik banner yang kita pasang, maka kita akan mendapat komisi dari PTC. Orang yang kita referensikan namanya Downline/referal. Kita dapat membeli Downline untuk meningkatan penghasilan.
Kenapa dapat membeli dowline/referal ?
Karena tentunya ada saja member yang bergabung tanpa ng-klik benner atau tanpa di referensikan orang lain sehingga dapat di mafaatkan oleh pengelola PTC. Jadi sebaiknya Bergabung berdasarkan referensi orang lain jika kita tidak mau diperjual belikan ke sembarang orang nantinya. hehehe. . :). kayak kucing aja. .
Apa ada batas Klik per hari?
ya ada, ini juga tergantung web PTC-nya dan jangan membuka link iklan lebih dari satu halaman karena akan error nantinya.
Bagaimana Pembayaran hasil klik kita?
untuk lokal bisa lansung menggunakan rekening bank yang tersebar si Indonesia, Tapi Usahakan bank BCA dan Mandiri. untuk PTC luar Biasanya melalui Paypal atau AlertPay, kalau belum punya silahkan buat account Paypal atau AlertPay dulu, salah satu aja ! Gampang banget kok!! kalau bingung silahkan tanya Google !
Kapan kita bisa melakukan penarikan/withdraw ?
untuk yang lokal muali dari Rp. 15.000,- sudah bisa
untuk luar bisanya rata" seletah terkumpul $1,000.

Mungkin Singkatnya PTC kayak gitu. Jika Anda ingin menncoba bermain PTC ini beberapa PTC yang terbukti dan terpercaya melakukan pembayaran.

PTC lokal/Indonedia

PTC Luar Negeri

Download Facebook Friend Bomber Gratis

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:29:00 +0000

Sekedar kasih info, kali ini aku akan bagi-bagi software gratis untuk facebook'er download. Software gratis ini yaitu Facebook Friend Bomber V.3.0.0 . Fungsinya buat apa ? Yang jelas bukan buat nge'bom ! hehehe, tapi cuma buat iseng-iseng doang ngerjain teman-teman facebook anda yang jail. Penasaran ! Mau ?

Facebook Friend Bomber V.3.0.0 merupakan software facebook yang sudah populer sejak tahun 2007. Namun masih dipercaya facebook'er di seluruh dunia. Biasanya digunakan untuk sekedar iseng-iseng doang. Hehehe ...

Fitur yang disajikan :

- Software facebook ini mampu mengirim Wall Comment sebanyak ratusan dalam beberapa detik.
- Software ini juga bisa dimanfaatkan buat mengirim pesan (message) ke semua orang dengan isi sama secara cepat (Broadcast).
- Selain itu, software facebook ini juga bisa digunakan untuk menambah teman facebook dengan cepat dan simpel.
- Kemampuan lain software ini yaitu bisa digunakan untuk mencolek (poke) teman-teman facebook anda secara bersamaan tanpa harus membuka profil facebook mereka. Dengan kata lain software ini cocok buat facebook'er yang doyan nge'poke (colek-mencolek). hahaha , dll

Yang perlu diperhatikan sebelum meng'install software ini yaitu laptop/komputer facebook harus sudah terinstal Microsoft .Net Framework versi 2.0.50727 !!!

Berikut link untuk download gratis software tersebut :

- Download Facebook Friend Bomber + SN = Click Here !
- Download Microsoft .Net Framework 2.0.50727 = Click Here !

NB : Jangan terlalu sering menggunakan software ini, karena dapat menyebabkan akun facebook anda terblokir. Hahaha, selamat mencoba ! -_->

ref: krisna

Cara Buat Album Foto Di Facebook

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:26:00 +0000

Bagaimana sih cara buat album foto di facebook ?. Tenang, untuk membuat album foto di facebook cukup mudah kok. Siapa pun bisa. Seperti halnya friendster, facebook juga memberi kemudahan dalam membuat album foto. Tapi perlu dingat, facebook tidak suka terhadap foto-foto yang parno abiz. ok ! (meskipun asik sich, hehehhe), mau ?

Untuk membuat album foto di facebook, cara-nya begini :
1. Siapkan foto-foto narsis anda yang akan di buat-kan album. Tentukan dan ingat lokasi penyimpanannya. OK !!
2. Buka facebook anda.
3. Klik link berikut ini : http://www.facebook.com/editalbum.php?new=1

Akan muncul tampilan begini :

Berikut penjelasannya :
a. Nama Album : ntar diisi nama album foto anda. Terserah !
b. Lokasi : ntar diisi lokasi anda narsis. Terserah !
c. Keterangan : ntar diisi deskripsi anda. Misal, alasan anda narsis. hehehe. Terserah !
d. Privasi : digunakan agar foto anda terjamin keamanannya. Terserah mau milih siapa aja yang nantinya boleh lihat album foto anda.

Kalau sudah, klik tombol "Buat Album". Terus tunggu sebentar proses loading java-nya. Ntar akan muncul tampilan begini :

Biz itu buka tempat penyimpanan foto anda. Beri tanda centang untuk foto-foto yang akan di unggah/upload. Setelah itu klik tombol "Unggah" dan tunggu proses peng-upload-annya. (Lihat Gambar)

Sampai sini apa ada masih bingung mengenai cara buat album foto di facebook ? Silahkan dicoba !

ref : lupa

Cara Buat Avatar Foto Facebook

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:23:00 +0000

Demi menjaga privasi diri anda, krisna menyarankan untuk tidak mengumbar foto secara berlebihan di facebook. Solusinya ? Anda bisa pakai avatar sebagai foto facebook anda. Cara buat-nya gimana ? Gampang ! Avatar ini juga bisa digunakan sebagai logo dan favicon blog anda lho. Mau ?

Di kesempatan kali ini krisna menggunakan situs urfooz.com untuk mem-buat avatar foto facebook. Untuk langsung membuat avatar, anda bisa buka situs http://www.urfooz.com/fooz-creator , atau bisa klik disini !

Tunggu loading-nya. Ntar akan ada 3 step yang harus anda lalui.

Expresikan avatar anda semenarik mungkin !!! good luck , selamat mencoba .

Untuk men-download avatar yang telah facebook-er buat, cara-nya :
- Login dulu di urfooz.com
- Masuk lah ke halaman profile urfooz.com
- Pada menu, pilih menu Post > Avatar.
- Tentukan type avatar yang akan anda download beserta ukurannya.
- Klik Download.

ref: lupa

Cara Pasang Banner Blog Di Facebook

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:22:00 +0000

Banyak cara untuk mempromosikan blog anda. Salah satunya dengan pasang banner blog di facebook. Cara-nya gimana ? Gampang ! Untuk pasang banner blog di facebook hanya menggunakan aplikasi facebook. Terus nama aplikasi facebook-nya apa? Penasaran? Mau?

Baiklah, untuk pasang banner blog di facebook anda bisa menggunakan aplikasi facebook yang namanya My Stuff !

Cara Instal aplikasi My Stuff :

1. Buka facebook anda.
2. Buka link di bawah ini untuk menginstal aplikasi My Stuff :

http://apps.facebook.com/wildfire/fbhandler.ashx?mode=side_nav&_fb_fromhash=c534ee95007954c367e944c21d384952

3. Klik Izinkan.

Setelah itu anda akan dibawa ke halaman profil facebook anda. Selanjutnya untuk pasang banner blog cara-nya begini :

1. Buka link di bawah ini :

http://apps.facebook.com/wildfire/fbhandler.ashx?mode=side_nav

2. Akan ada tampilan seperti ini.

3. Copy kode HTML banner blog yang sudah anda siapkan. Paste-kan di textbox add code. Setelah itu klik Add to profile. (Lihat gambar)

4. Tunggu loadingnya. Trus untuk memunculkan banner blog anda di profil facebook, klik Cantumkan ke dalam profil. (Lihat gambar)

5. Ntar hasilnya kayak gini :

Wah, ternyata cara pasang banner blog di facebook tak sesulit yang kita kira. Gampang kan !

NB : Aplikasi My Stuff juga bisa digunakan untuk kode-kode HTML lainnya. Kecuali Java Script.

Apa itu Ejakulasi Dini? Bahaya?

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:21:00 +0000

Setiap pasangan suami-istri (pasutri) pasti mendambakan kehidupan berumah-tangga yang aktif dan harmonis. Bagimanapun, hubungan seksual merupakan surga dunia yang dapat dijalankan oleh pasangan suami istri sekaligus sebagai salah satu ungkapan cinta kasih pasangan.

Namun, tidak selamanya hubungan seksual berjalan sesuai dengan keinginan. Ada kalanya suami terkena masalah disfungsi seksual seperti gangguan gairah, disfungsi ereksi, ejakulasi dini dan lainnya.

Menurut Prof. DR. Dr. Wimpie Pangkahila, Sp. And, seorang dokter Ahli Andrologi dan Seksologi, “Masalah kesehatan seksual yang sering dialami oleh pria adalah disfungsi seksual dan penyakit menular seksual. Disfungsi seksual yang sering ialah ejakulasi dini dan disfungsi ereksi.”

Ejakulasi dini sangat umum terjadi. Penelitian terbaru menunjukkan bahwa 1 dari 3 pria yang aktif secara seksual (33%) menderita ejakulasi dini. Ejakulasi dini dapat terjadi pada pria dengan segala usia meskipun lebih sering terjadi pada pria muda dengan berbagai latar belakang kehidupan.

Gangguan seksual ini pun menimpa Tuan S. Tuan S (29) telah menikah selama setahun dengan istrinya (28). Sejak setahun yang lalu, Tuan S mengalami gangguan seksual ejakulasi dini. Hal ini diketahuinya pada bulan pertama pernikahan. Tuan S mengaku kesulitan dalam melakukan hubungan seks karena sperma ‘keburu’ keluar.

Masalah disfungsi seksual merupakan momok mengerikan bagi pria. Pria mana yang mau dibilang tidak “perkasa”? Jika masalah yang terjadi tidak segera diatasi dapat berakibat terganggunya keharmonisan rumah tangga. Ingat bunyi pepatah, “Sex is not everything, but without sex, everything will be nothing.”

Ejakulasi Dini ?

Istilah ejakulasi dini mungkin tidak seterkenal disfungsi ereksi. Pria yang mengalami ejaku!asi dini masih mampu mencapai ereksi dan melakukan hubungan seksual walaupun ejakulasinya terlampau cepat terjadi.

Prof Wimpie Pangkahila menjelaskan bahwa sebenarnya ada beberapa pengertian yang dianut oleh para ahli mengenai ejakulasi dini, yaitu:

1. Batasan ejakulasi dini didasarkan pada waktu tertentu ketika terjadi ejakulasi.
2. Ejakulasi dini ditentukan oleh berapa kali seorang pria mampu melakukan gerakan ketika berhubungan seksual sebelum terjadi ejakulasi.
3. Ejakulasi dini diartikan sebagai ketidakmampuan menahan ejakulasi sampai pasangannya mencapai orgasme.
4. Ejakulasi dini ditentukan oleh mampu tidaknya pria mengendalikan ejakulasi agar terjadi sesuai dengan keinginannya.

Berdasarkan pengertian yang keempat, maka ejakulasi dini berarti ketidakmampuan mengontrol ejakulasi sehingga terjadi dalam waktu singkat, yang tidak sesuai dengan keinginannya, sedangkan ejakulasi sendiri adalah peristiwa penyemburan air mani ke luar secara mendadak yang menandai klimaks bagi pria. Tampaknya pengertian keempat yang kini lebih dapat diterima.

ref : Toko 69

Cara Membuat Website dengan Adobe Dreamweaver

noreply@blogger.com (dipzt23) — Fri, 01 Jan 2010 15:06:00 +0000

Ilmuwebsite tentunya sangat anda butuhkan jika anda ingin memiliki sebuah website dinamis dengan disain yang dapat menarik pengujung sebanyak-banyaknya dan menghipnotis pengunjung tersebut agar tertarik untuk berkunjung kembali ke website anda. Tentunya GENGSI/PRESTIS anda naik drastis jika anda mampu melakukannya. Nah, untuk menunjang skill anda dalam proses menjadi WEB MASTER Indowebsite.com mempunyai suatu Video Tutorial yang secara lengkap dapat mempermudah anda, baik pemula / tingkat menengah yang ingin mempelajari bagaimana cara membuat website baik statis maupun dinamis dengan Adobe Dreamweaver. Dalam video tutorial yang berdurasi 6,5 jam ini dibahas secara lengkap dan tuntas dalaman fungsi aplikasi yang power full ini, antara lain berisi :

Bag 1 : Perkenalan Singkat Cara membuat website
Bag 2 : Mulai bekerja dengan Dreamweaver
Bag 3 : Menambahkan Graphic/Image/Gambar kedalam halaman web
Bag 4 : Memanage, Testing, dan Mempublish Website ke Internet
Bag 5 : Mengenal CSS lebih dalam
Bag 6 : Membuat Layout Menggunakan CSS
Bag 7 : Membuat halaman website dengan table
Bag 8 : Membuat Frame Halaman
Bag 9 : Membuat Halaman Interaktif dengan Behaviour
Bag 10 : Bekerja dengan file multimedia
Bag 11 : Bekerja dengan form
Bag 12 : Bekerja dengan Content Dinamis berbasis PHP dan MySQL

Berikut adalah screenshoot dari cd tutorial interaktif, belajar membuat website dengan adobe dreamweaver ...

Screenshot dari bab 3, yang membahas penggunaan image dalam web lebih detil ...

Screenshot hasil pembuatan layout dengan css style panel dalam mode fullscreen ...

Dalam CD sudah disertakan aplikasi pendukung dan file latihan/tutorial dalam pembuatan website dengan Adobe Dreamweaver. Dan tentunya yang diharapkan dari video tutorial ini adalah anda menjadi seorang web designer yang handal.
Semoga informasi ini bermanfaat, jika anda tertarik dan ingin melakukan pemesan bisa klik dibawah ini.

PESAN

Drummer Avenged Sevenfold Meninggal Muda

noreply@blogger.com (dipzt23) — Tue, 29 Dec 2009 15:49:00 +0000

CALIFORNIA, KOMPAS.com — Kabar duka menghampiri grup band Avenged Sevenfold setelah penggebuk drumnya, James Owen Sullivan a.k.a "The Rev", meninggal dunia di usia 28 tahun pada Senin (28/12/2009) waktu setempat.

John Domingo, petugas kepolisian Huntington Beach mengatakan, The Rev meninggal di kediamannya di kawasan California selatan.

Sejauh ini, polisi belum menemukan hal-hal yang tak wajar atas penyebab kematiannya. Meski demikian, pihak terkait masih meneliti penyebab kematian The Rev secara pasti.

Kepergiannya yang tiba-tiba jelas membuat sejumlah rekan dan penggemar terkejut. Pihak manajemen grup band Avenged Sevenfold mengumumkan kabar tersebut melalui situs mereka. "Ini kabar yang sangat menyedihkan dan berat untuk disampaikan bahwa hari ini Jimmy "The Rev" Sullivan telah tiada," tulis manajemen Avenged Sevenfold dalam pernyataan resminya.

"Jimmy tak hanya merupakan salah satu penggebuk drum terbaik di dunia. Lebih dari itu, dia adalah sahabat dan saudara terbaik," tulisnya lagi.

Semasa kariernya bersama Avenged Sevenfold, "The Rev" pernah memberi kontribusi dalam penggarapan single "A Little Piece of Heaven." Selain menjadi pemain drum, ia juga penyanyi latar di grup bentukan tahun 1999 itu. Bahkan, pria yang dikenal badung selama remaja itu sempat menjadi penyanyi utama pada grup musik Pinkly Smooth.

Lahir pada tanggal 9 Februari 1981 sebagai anak tunggal, dia terkenal sebagai bocah nakal sehingga sering dikeluarkan dari sekolah. Kelakuannya saat remaja makin tak terkendali. The Rev sudah tujuh kali masuk penjara karena doyan berkelahi dan doyan mabuk-mabukan.

Namanya kemudian makin dikenal ketika ia bergabung dengan Avenged Sevenfold dan berhasil menuai sukses. Pada ajang MTV Video Music Awards 2006, grup ini berhasil meraih penghargaan untuk Best New Artist.

Di Tanah Air, grup ini punya banyak penggemar. Buktinya, sudah dua kali mereka manggung di Jakarta. Pada Oktober tahun lalu, Avenged Sevenfold tampil di Jakarta. The Rev turut serta dalam konser yang dihajat promotor Java Musikindo itu. (msnbc.com/EH)
Sebagai fans Avenged Sevenfold sangat turut berduka, Semoga karya-karyanya selalu di kenang sepanjang masa.

Penggunaan Dataset (Aplikasi Terputus) dengan VB.Net

noreply@blogger.com (dipzt23) — Fri, 25 Dec 2009 07:38:00 +0000

1. Virtual

Public Class Form2

Dim xDs As New DataSet

Dim xDt As New DataTable("mhs")

Dim update1 As Boolean = False

Private Sub Tnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tnim.TextChanged

Dim txt1 As String = tnim.Text

If IsNumeric(Microsoft.VisualBasic.Right(txt1, 1)) Then

Else

If tnim.Text.Length = 0 Then

Else

tnim.Text = Microsoft.VisualBasic.Left(txt1, txt1.Length - 1)

End If

tnim.SelectionStart = tnim.Text.Length

End Sub

Sub isicombo()

With ComboBox1.Items

.Add("S1")

.Add("D3")

.Add("D4")

End With

With ComboBox3.Items

.Add("Baru")

.Add("Transfer")

End With

With ComboBox4.Items

.Add("Aktif")

.Add("Cuti")

.Add("Lulus")

End With

btambah.Enabled = False

bedit.Enabled = False

bhapus.Enabled = False

End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus

ComboBox2.Items.Clear()

If ComboBox1.Text = "S1" Then

With ComboBox2.Items

.Add("Sistem Informasi")

.Add("Sistem Komputer")

.Add("Desain Komunikasi Visual")

End With

ElseIf ComboBox1.Text = "D3" Then

With ComboBox2.Items

.Add("Manajemen Informatika")

.Add("Sekretaris")

.Add("Multi Media")

End With

ElseIf ComboBox1.Text = "D4" Then

With ComboBox2.Items

.Add("Multimedia")

End With

End If

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

isicombo()

xDs.Tables.Add(xDt)

xDt.Columns.Add("Nim")

xDt.Columns.Add("Nama")

xDt.Columns.Add("Alamat")

xDt.Columns.Add("Telp")

xDt.Columns.Add("Tmp_lhr")

xDt.Columns.Add("Tgl_lhr")

xDt.Columns.Add("Jurusan")

xDt.Columns.Add("Prodi")

xDt.Columns.Add("Stt_msk")

xDt.Columns.Add("Stt_mhs")

xDt.PrimaryKey = New DataColumn() {xDt.Columns("Nim")}

DataGridView1.DataSource = xDs.Tables("mhs")

End Sub

Sub kunci()

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

DataGridView1.Enabled = True

btambah.Enabled = True

bsimpan.Enabled = False

bbatal.Enabled = False

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

tnim.Enabled = False

TextBox2.Enabled = False

TextBox3.Enabled = False

TextBox4.Enabled = False

TextBox5.Enabled = False

DateTimePicker1.Enabled = False

ComboBox1.Enabled = False

ComboBox2.Enabled = False

ComboBox3.Enabled = False

ComboBox4.Enabled = False

Else

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

'GroupBox3.Enabled = False

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

End If

End Sub

Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

If update1 = False Then

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

xRow(0) = tnim.Text

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xDs.Tables("mhs").Rows.Add(xRow)

bbatal_Click(sender, e)

DataGridView1.DataSource = xDs.Tables("mhs")

kunci()

MsgBox("Data Tersimpan")

Else

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(tnim.Text)

If Not xRow Is Nothing Then

xRow.BeginEdit()

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xRow.EndEdit()

bbatal_Click(sender, e)

kunci()

tnim.Enabled = True

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terupdate")

End If

End Sub

Private Sub bedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bedit.Click

update1 = True

tnim.Text = DataGridView1.CurrentRow.Cells(0).Value

TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value

TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value

TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value

TextBox5.Text = DataGridView1.CurrentRow.Cells(4).Value

DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(5).Value

ComboBox1.Text = DataGridView1.CurrentRow.Cells(6).Value

ComboBox2.Text = DataGridView1.CurrentRow.Cells(7).Value

ComboBox3.Text = DataGridView1.CurrentRow.Cells(8).Value

ComboBox4.Text = DataGridView1.CurrentRow.Cells(9).Value

btambah_Click(sender, e)

tnim.Enabled = False

End Sub

Private Sub bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

xRow.Delete()

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terhapus")

End If

End Sub

Private Sub btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btambah.Click

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

DataGridView1.Enabled = False

End Sub

Private Sub bbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbatal.Click

tnim.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

kunci()

End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

bedit.Enabled = True

bhapus.Enabled = True

End Sub

Private Sub btutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btutup.Click

Me.Close()

End Sub

End Class

2. Dengan Database

Imports System.Data.SqlClient

Public Class Form3

Dim xDs As New DataSet

Dim xDt As New DataTable("mhs")

Dim xCn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\t07.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

Dim SqlCommandBuil As New SqlCommandBuilder

Dim xDa As New SqlDataAdapter

Dim update1 As Boolean = False

Private Sub Tnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tnim.TextChanged

Dim txt1 As String = tnim.Text

If IsNumeric(Microsoft.VisualBasic.Right(txt1, 1)) Then

Else

If tnim.Text.Length = 0 Then

Else

tnim.Text = Microsoft.VisualBasic.Left(txt1, txt1.Length - 1)

End If

tnim.SelectionStart = tnim.Text.Length

End Sub

Sub isicombo()

With ComboBox1.Items

.Add("S1")

.Add("D3")

.Add("D4")

End With

With ComboBox3.Items

.Add("Baru")

.Add("Transfer")

End With

With ComboBox4.Items

.Add("Aktif")

.Add("Cuti")

.Add("Lulus")

End With

btambah.Enabled = False

bedit.Enabled = False

bhapus.Enabled = False

End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus

ComboBox2.Items.Clear()

If ComboBox1.Text = "S1" Then

With ComboBox2.Items

.Add("Sistem Informasi")

.Add("Sistem Komputer")

.Add("Desain Komunikasi Visual")

End With

ElseIf ComboBox1.Text = "D3" Then

With ComboBox2.Items

.Add("Manajemen Informatika")

.Add("Sekretaris")

.Add("Multi Media")

End With

ElseIf ComboBox1.Text = "D4" Then

With ComboBox2.Items

.Add("Multimedia")

End With

End If

End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

isicombo()

xDa = New SqlDataAdapter("SELECT * FROM mhs", xCn)

xDt.PrimaryKey = New DataColumn() {xDt.Columns("nim")}

xDa.MissingSchemaAction = MissingSchemaAction.AddWithKey

xDa.Fill(xDs, "mhs")

DataGridView1.DataSource = xDs.Tables("mhs")

End Sub

Sub kunci()

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

If Not xRow Is Nothing Then

DataGridView1.Enabled = True

btambah.Enabled = True

bsimpan.Enabled = False

bbatal.Enabled = False

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

tnim.Enabled = False

TextBox2.Enabled = False

TextBox3.Enabled = False

TextBox4.Enabled = False

TextBox5.Enabled = False

DateTimePicker1.Enabled = False

ComboBox1.Enabled = False

ComboBox2.Enabled = False

ComboBox3.Enabled = False

ComboBox4.Enabled = False

Else

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

bedit.Enabled = False

bhapus.Enabled = False

'GroupBox3.Enabled = False

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

End If

End Sub

Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

If update1 = False Then

Dim xRow As DataRow = xDs.Tables("mhs").NewRow

xRow(0) = tnim.Text

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xDs.Tables("mhs").Rows.Add(xRow)

bbatal_Click(sender, e)

DataGridView1.DataSource = xDs.Tables("mhs")

kunci()

MsgBox("Data Tersimpan")

Else

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(tnim.Text)

If Not xRow Is Nothing Then

xRow.BeginEdit()

xRow(1) = TextBox2.Text

xRow(2) = TextBox3.Text

xRow(3) = TextBox4.Text

xRow(4) = TextBox5.Text

xRow(5) = DateTimePicker1.Value

xRow(6) = ComboBox1.Text

xRow(7) = ComboBox2.Text

xRow(8) = ComboBox3.Text

xRow(9) = ComboBox4.Text

xRow.EndEdit()

bbatal_Click(sender, e)

kunci()

tnim.Enabled = True

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terupdate")

End If

End Sub

Private Sub bedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bedit.Click

update1 = True

tnim.Text = DataGridView1.CurrentRow.Cells(0).Value

TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value

TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value

TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value

TextBox5.Text = DataGridView1.CurrentRow.Cells(4).Value

DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(5).Value

ComboBox1.Text = DataGridView1.CurrentRow.Cells(6).Value

ComboBox2.Text = DataGridView1.CurrentRow.Cells(7).Value

ComboBox3.Text = DataGridView1.CurrentRow.Cells(8).Value

ComboBox4.Text = DataGridView1.CurrentRow.Cells(9).Value

btambah_Click(sender, e)

tnim.Enabled = False

End Sub

Private Sub bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

Dim xRow As DataRow = xDs.Tables("mhs").Rows.Find(DataGridView1.CurrentRow.Cells(0).Value)

If Not xRow Is Nothing Then

xRow.Delete()

DataGridView1.DataSource = xDs.Tables("mhs")

MsgBox("Data Terhapus")

End If

End Sub

Private Sub btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btambah.Click

btambah.Enabled = False

bsimpan.Enabled = True

bbatal.Enabled = True

btutup.Enabled = True

tnim.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

DateTimePicker1.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

ComboBox4.Enabled = True

DataGridView1.Enabled = False

End Sub

Private Sub bbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbatal.Click

tnim.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

kunci()

End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

bedit.Enabled = True

bhapus.Enabled = True

End Sub

Private Sub btutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btutup.Click

If MsgBoxResult.Yes Then

'Dim SqlCommandBuil As New SqlCommandBuilder(xDa)

xDa.Fill(xDs, "mhs")

SqlCommandBuil = New SqlCommandBuilder(xDa)

xDa.Update(xDs, "mhs")

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.Deleted))

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))

xDa.Update(xDs.Tables("mhs").Select(Nothing, Nothing, DataViewRowState.Added))

'MsgBox("Data Tersimpan ke Database!")

Me.Close()

Else

Me.Close()

End If

End Sub

End Class

Project lengkannya dapat di download di bawah ini. . semoga bermanfaat...! -_-'

Download Here !

Cara bercinta yang memuaskan

noreply@blogger.com (dipzt23) — Fri, 25 Dec 2009 06:27:00 +0000

Seberapa Kuat Lelaki Orgasme! Why?
Makin Cantik Makin Sering Orgasme!
Anda termasuk lelaki multiorgasme? Itu lho lelaki yang dapat mencapai lima sampai enam kali ejakulasi dalam satu jam. Kok bisa sih? Begini kasus seperti ini bisa terjadi dalam tiga situasi berikut:

Pertama, setelah lama tidak berhubungan seksual, misalnya dua atau tiga bulan. Selang waktu istirahat refleks seksual menjadi pendek. Setelah ejakulasi, ereksi dapat terjadi lagi dalam waktu lima menit. Meskipun demikian ini adalah situasi yang jarang terjadi.

Makin Menggairahkan Makin Hot!
Kedua, dalam kondisi rangsangan seksual yang kuat, bisa saja terjadi ereksi lagi dan ejakulasi terjadi beberapa kali dalam satu jam. Ketika berhubungan seks pertama kalinya atau dengan perempuan yang sangat menggairahkan, biasanya kemampuan ejakulasi lelaki berkembang secara signifikan. Ini juga akan menghilang seiring dengan waktu ketika tingkat kenikmatan seksual dan situasi mulai menjadi seperti biasa.

Ketiga, kerja orgasme lelaki yang sensasional adalah sesuatu yang paling sering digunakan, yakni harapan lelaki yang lebih tinggi pada organ genitalnya ketimbang fungsinya. Struktur rentan ini dikontrol oleh mekanisme kompleks yang berorientasi pada kualitas, bukan kuantitas.
Senggama bukanlah perlombaan. Bagi lelaki yang senang bersaing di dalam semua bidang kehidupan, sulit menerima seks apa adanya. Misalnya, Anda bersenggama dua kali seminggu dan masing-masing mencapai ejakulasi satu kali. Dengan membandingkannya, Anda merasa kurang. Anda tidak menyadari bahwa kehidupan seksual Anda sebenarnya normal dan wajar. Jadi, persoalannya adalah kepercayaan.

Melebihi semua usaha manusia, seksualitas lelaki adalah permainan kepercayaan. Aturannya adalah, “Kalau menurut Anda mampu, Anda pasti bisa”. Ereksi mudah hilang karena keributan yang tiba-tiba, kata-kata sindiran, bahkan tatapan penolakan dapat menghancurkan semuanya.

Ini salah satu aspek paling memalukan dan tidak menyenangkan. Sembilan puluh lima persen alat kelamin lelaki bereksi secara baik justru pada saat tidak dibutuhkan. Kalau dipikir lebih jauh, organ seakan-akan takut berhadapan dengan genital perempuan. Ketakutan dan kemampuan sama-sama persoalan penting bagi ereksi organ lelaki.

Coba Dech, Penetrasi Dangkal Nikmatnya Gak Ketulungan!
Cocok untuk yang berpenis pendek!
Hingga kini tidak terhitung lagi jumlah teori tentang posisi seksual, meski sebenarnya kebanyakan merupakan variasi dari beberapa posisi dasar. Namun sayangnya, mitos telah memperkuat keyakinan bahwa tak seorang pun dapat menjadi pecinta yang hebat sebelum ia menguasai semua gaya permainan seksual. Bahkan dikatakan, makin menantang suatu posisi makin tinggi pula kepuasan yang bakal diperoleh.

Bagaimanapun, tidak satu pun dari mitos tersebut yang benar. Tidak ada makna istimewa yang terkait dengan posisi-posisi seks tertentu. Kemampuan bercinta lebih ditentukan oleh kemampuan mengoptimalkan rangsangan hingga mencapai orgasme ketimbang posisi-posisi tertentu. Dan salah satu upaya untuk memenuhinya ialah dengan memanfaatkan titik-titik rangsangan yang terdapat di sekitar organ seksual.

Itu juga alasan mengapa penetrasi yang lebih dalam tidak otomatis menjamin lebih tingginya kepuasan yang akan dirasakan. Juga, semakin banyaknya tusukan tidak selalu langsung mengarah kepada semakin nikmatnya “pertempuran” yang dilakukan. Kepuasan ternyata cukup sering ditemukan lewat manuver-manuver sederhana yang tidak membutuhkan kucuran keringat.

Contohnya, banyak pasangan yang bisa menikmati senggama hanya dengan sekali atau beberapa kali penetrasi penis, lalu membiarkannya tetap di dalam dan kemudian melakukan gerakan tarik-ulur atau goyangan-goyangan kecil (tanpa keluar-masuknya penis). Cara ini kabarnya sangat memuaskan, karena kedua pasangan dimungkinkan untuk rileks.

Mulailah dengan percaya diri tinggi
Sedangkan pasangan lain sangat puas hanya dengan tusukan “dangkal” berulang-ulang. Cara ini malah menghasilkan rangsangan paling maksimal bagi kedua pasangan. Soalnya, ujung-ujung saraf yang paling sensitif lebih banyak terdapat di mulut vagina. Karena itu, rangsangan berulang-ulang pada daerah ini dapat memberi kepuasan yang maksimal.

Sama halnya, penetrasi dangkal secara berulang-ulang bagi pria memungkinkan kepala penisnya memperoleh rangsangan terus-menerus dari otot vagina yang terdapat di mulut vagina. Bukan hanya, kepala penis, frenulum (leher) penis juga akan memperoleh rangsangan serupa. Soalnya, pada kedua bagian ini terdapat ujung-ujung saraf yang sangat sensitif. Jadi bagi pria berpenis pendek tidak jadi soal, karena posisi ini sangat menguntungkan.

Karena itu, jenis penetrasi dan tusukan dangkal seperti ini pun perlu dimanfaatkan untuk memperoleh rangsangan maksimal bagi pasangan tersebut. Kalau Anda belum tahu ke dalaman penetrasi yang paling dinikmati pasangan, keduanya dapat melakukan eksplorasi dengan bergantian mengambil posisi di atas. Lakukanlah berbagai eksperimen irama penetrasi dan tusukan tersebut sampai diperoleh kedalaman dan ritme yang tepat. Inilah cara yang paling baik untuk sama-sama menentukan jenis irama dan goyangan yang dapat dilakukan selama senggama.

Namun, jangan lupa satu hal! Penetrasi akan lebih nikmat dengan menggunakan lubrikan (pelumas). Kadang-kadang wanita tidak sanggup menghasilkan cairan pelumas yang cukup memadai. Selain itu, gesekan antara penis dan vagina secara berulang-ulang dapat juga mengakibatkannya kering. Karena itu, olesan lubrikan pada vagina dan penis akan sangat membantu untuk memperoleh kenikmatan seks yang lebih tinggi, baik sebelum maupun di antara aktivitas tersebut.

Cium Bibir Bawahnya Dong!
Sensasi Luar Biasa !
Berciuman adalah salah satu cara paling ampuh untuk merangsang pasangan. Begitu pula sebaliknya. Bila pasangan juga jago dalam urusan kulum-mengulum ini, Anda pun akan merasakan sensasi yang sama seperti yang dirasakannya.

Saling menghisap lidah masing-masing merupakan kenikmatan tersendiri bagi dua insan yang sedang berciuman. Ditambah dengan gigitan-gigitan ringan pada bibir bagian atas dan bawah, membuat suasana berciuman makin panas saja. Kehangatan air liur turut menciptakan gairah seks yang meninggi di kepala Anda.

Soal cara berciuman di bibir pasangan tampaknya tak perlu dijelaskan lagi. Banyak yang pandai melakukannya. Dekatkan saja bibir ke bibir pasangan. Miringkan sedikit kepala Anda agar hidung tidak bertabrakan. Lalu tempelkan bibir Anda tepat ke bibirnya. Selanjutnya, cium dan kulumlah bibir sensual pasangan Anda sepuas-puasnya.

Nah, yang kadang bikin bingung, adalah mencium bibir bawah-nya [vegy]. Tentu berbeda mencium bibir bawah dengan bibir atas. Ada teknik tersendiri. Apalagi bila ingin mengenai klitorisnya. Pertama, Anda bisa menggerak-gerakkan lidah ke atas dan ke bawah di sekitar liang vegy. Gerakan lidah ini bisa pelan, bisa cepat. Semua tergantung dari seberapa cepat pasangan bisa terangsang.

Menggoda !
Oya, agar lidah dapat bergerak dengan leluasa, gunakan kedua tangan Anda untuk membuka bibir veggy lebar-lebar. Atau bisa juga minta bantuan tangan pasangan untuk membuka satu sisi veggy.

Anda juga dapat memvariasikannya dengan menyedot bibir veggy. Seperti mencium bibir atas, Anda juga dapat melakukannya di bibir veggy, bagian kanan dan kiri. Tapi tentu saja berbeda ketika mencium bibir atas. Tidak perlu ada gigitan disana.

Air kental bening yang keluar dari liang veggy sah-sah jika tak sengaja tertelan. Memang tidak ada rasanya. Tapi hisapan dan jilatan lidah Anda akan sangat terasa nikmat bukan kepalang bagi pasangan. Dia pasti akan menggeliat dan menggelinjang keenakan dan mendesah pertanda nikmat.

Kalau lidah Anda cukup lihai bergerak, dan kuat berlama-lama bermain disana, pasti bisa mencapai klitoris. Tapi, menurut pengakuan sebagaian besar perempuan di sebuah survey, mereka lebih ingin klitorisnya disentuh oleh jari daripada lidah. Alasannya, karena jari bisa menyentuh klitoris lebih keras ketimbang lidah yang memang lemah. Namun satu hal yang perlu diperhatikan sebelum melakukan adegan cium-mencium bibir bawah; cuci bersih vagina pasangan dan tentunya anda gosok gigi dulu agar bersih dari bau tak sedap

Sesuaikan Ukuran Dengan Teknik Bercinta!

Kalau Gak Sampai Jangan Dari Belakang
Pandanglah sesuatu secara obyektif. Termasuk dalam memandang diri Anda sendiri. Jika memang mata Anda agak sipit, ya akui saja sipit. Tidak perlu berusaha memelotot-melototkannya. Justru jelek dan lucu dilihatnya. Tapi bukan berarti Anda harus menjelek-jelekkan dan pasrah saja dengan apa yang ada pada diri Anda.

Idih…Gede Banget!
Yang saya maksud adalah obyektivitas dalam memandang kemampuan diri. Apalagi dalam kaitannya dengan seksual, perlu pandangan seobyektif mungkin. Dalam pembahasan ini, saya ingin memfokuskan kepada kemampuan penis Anda.

Anda harus obyektif untuk mengatakan bahwa penis milik Anda itu panjang atau pendek, besar atau kecil. Dalam berbagai pembahasan, sudah saya katakan bahwa ukuran penis tidak mempunyai korelasi yang jelas dengan kenikmatan yang dirasakan.

Hanya saja, ukuran penis harus disesuaikan dengan teknik bercinta yang mau Anda lakukan dengan pasangan. Apabila Anda memiliki penis kecil dan pendek, jangan paksakan untuk melakukan hubungan seks dengan penetrasi dari belakang. Saya pastikan, tidak bakal sampai, selain Anda berdua tidak memperoleh kenikmatan maksimal.

Ukuran penis mini juga tidak cocok untuk posisi pasangan berada di atas. Posisi perempuan di atas lebih pas dengan matching jika penis panjang, sehingga pasangan dapat menaikturunkan pantatnya secara leluasa.

Sebaliknya, jika dipaksakan, bukan tidak mungkin penis akan sering terpeleset lepas dari mulut vagina. Atau batang penis yang tegak lurus itu tertindih hingga menimbulkan rasa sakit. Ingat, rasa sakit yang muncul, sedikit apa pun, bisa melenyapkan gairah seksual yang tengah menggebu. So sesuaikan teknik bercinta dengan ukuran penis Anda, ditanggung Anda akan mencapai orgasme/klimaks bersama! Wow!
referen: toto69 Bali

Tugas Pemrograman Visual II maetri sorting dan dataview

noreply@blogger.com (dipzt23) — Sun, 06 Dec 2009 09:38:00 +0000

hey. . kali ini aku ngpost tugas Pemrograman Visual II maetri sorting dan dataview. .!! Mungkin ini tugas termudah yang diberikan dosenku pak Indra semester ini. hehehee. .. . makanya aku bisa ngerjain sendiri.

Ini source code aku copy , tapi bukan untuk yang sudah master hanya untuk pemula !!!! Bagi yang udah expert mungkin bisa di share ilmunya disini !!!

Imports System.Data.SqlClient

Public Class Form2

Dim xcon As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Northwind.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

Dim xda As New SqlDataAdapter

Dim xset As New DataSet

Dim xdv As New DataView

Dim xdt As DataTable

Dim xposisi As Integer = 0

Sub isicombo()

With cmb_con

.Items.Add("Show All")

.Items.Add("Accounting Manager")

.Items.Add("Assistant Sales Agent")

.Items.Add("Assistant Sales Representative")

.Items.Add("Marketing Assistant")

.Items.Add("Marketing Manager")

.Items.Add("Order Administrator")

.Items.Add("owner")

.Items.Add("owner/Marketing Assistant")

.Items.Add("Sales Agent")

.Items.Add("Sales Associate")

.Items.Add("Sales Manager")

.Items.Add("Sales Representative")

End With

With cmb_sort

.Items.Add("Ascending")

.Items.Add("Descending")

End With

End Sub

Sub dataview()

dt = New DataTable("Customers")

dAdapter = New SqlDataAdapter("select * from Customers", con)

dAdapter.Fill(dt)

dv = dt.DefaultView

dv.Sort = "CustomerID"

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

isicombo()

dataview()

DataGridView1.DataSource = xdv

'cmb_con.DataSource = xdt

'cmb_con.ValueMember = "ContactTitle"

'cmb_con.DisplayMember = "ContactTitle"

'With cmb_con.Items().Add("Show All")

'End With

End Sub

Private Sub cmb_con_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_con.SelectedIndexChanged

dataview()

If cmb_con.Text = "Show All" Then

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Accounting Manager" Then

xdv.RowFilter = "ContactTitle = 'Accounting Manager'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Assistant Sales Agent" Then

xdv.RowFilter = "ContactTitle = 'Assistant Sales Agent'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Assistant Sales Representative" Then

xdv.RowFilter = "ContactTitle = 'Assistant Sales Representative'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Marketing Assistant" Then

xdv.RowFilter = "ContactTitle = 'Marketing Assistant'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Marketing Manager" Then

xdv.RowFilter = "ContactTitle = 'Marketing Manager'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Order Administrator" Then

xdv.RowFilter = "ContactTitle = 'Order Administrator'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "owner" Then

xdv.RowFilter = "ContactTitle = 'owner'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "owner/Marketing Assistant" Then

xdv.RowFilter = "ContactTitle = 'owner/Marketing Assistant'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Sales Agent" Then

xdv.RowFilter = "ContactTitle = 'Sales Agent'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Sales Associater" Then

xdv.RowFilter = "ContactTitle = 'Sales Associate'"

DataGridView1.DataSource = xdv

ElseIf cmb_con.Text = "Sales Manager" Then

xdv.RowFilter = "ContactTitle = 'Sales Manager'"

DataGridView1.DataSource = xdv

Else

'cmb_con.Text = "Sales Representative"

xdv.RowFilter = "ContactTitle = 'Sales Representative'"

DataGridView1.DataSource = xdv

End If

End Sub

Private Sub cmb_sort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_sort.SelectedIndexChanged

If cmb_sort.Text = "Ascending" Then

xdv.Sort = "CustomerID asc"

Else

xdv.Sort = "CustomerID desc"

End If

End Sub

End Class

Tugas Ini memakai Database Northwind yang biasanya sudah tersedia di Sql Servernya. Project lengkapnya bisa di download di bawah ini. Semoga bermanfaat *_- jangan lupa postkan komentar kamu !!!!

thanks...!

Download Here !!

Subscribe

Penggunaan Dataset dengan VB.Net

Penerapan Just In Time pada Toko Online Perangkat Teknologi Informasi

Sekarang Era Internet Marketing

Acer Iconia W510-27602G03i Tablet Windows 8 - 32 GB - Silver

Spesifikasi Acer Iconia W510-27602G03iss Tablet Windows 8 - 32 GB - Silver

Megembangkan Sumber Daya Manusia Berbasis Kecerdasan Spiritual

TIC Band - Terbaik Untukmu

Menggunakan MessageBox Yes/No Buttons pada VB.Net

Prosedur Clear Semua Control dalam Windows Form

Apa itu Tender ?

JUST-IN-TIME ( JIT )

Bagaimana Cara Memulai Bisnis yang Langsung Ramai dengan Traffic ?

Apa itu Balanced Scorecard

Kumpulan PTC Luar Negeri Terpercaya

Daftar PTC Indonesia terpercaya

Apa itu PTC (Paid To Click) ?

Download Facebook Friend Bomber Gratis

Cara Buat Album Foto Di Facebook

Cara Buat Avatar Foto Facebook

Cara Pasang Banner Blog Di Facebook

Apa itu Ejakulasi Dini? Bahaya?

Cara Membuat Website dengan Adobe Dreamweaver

Drummer Avenged Sevenfold Meninggal Muda

Penggunaan Dataset (Aplikasi Terputus) dengan VB.Net

Cara bercinta yang memuaskan

Tugas Pemrograman Visual II maetri sorting dan dataview