MINGGU IV Pemrosesan Transaksi Dan Struktur Pengendalian Intern by Bobjen_Ramos_Usuman
Kamis, 21 November 2013
Senin, 18 November 2013
Sabtu, 24 Agustus 2013
Cerita dibalik When You're Gone, Avril Lavigne
Ooops....Postingan kali ini gue mo nge'post tentang sosok si Doi Avril Lavigne. Ga biasanya sih gue ngeposting tentang hal-hal yang beginian, biasanya basisnya selalu yang berhubungan dengan edukasi tapi kali ini berbeda hehehehe, gue lakukan ini sebagai bentuk kekaguman gue terhadap si doi,cihuyyyy...
Bernama lengkap Avril Ramona Lavigne lahir di Kanada, 27 September 1984 adalah seorang penyanyi pop-punk, musisi, dan aktris asal Kanada. Tentu untuk prestasinya ya ga perlu dipertanyakan lagi, uda banyak bangat penghargaan yang disabetnya. Pada tahun 2006, Majalah Bisnis Kanada memposisikannya ke-7 sebagai wanita Kanada paling mengagumkan di Hollywood, dan pada tahun 2007 dia memenangkan 9 nominasi Jabra Music Contest untuk kategori Best Band In The World, berdasarkan pilihan penggemar di seluruh dunia, dan masih banyak lagi. waawww amazing
Si Doi mulai terkenal dengan lagunya yang berjudul Compicated dan hingga kini Avril telah merilis 4 buah album studio, yaitu Let Go 2002 (Complicated, I'm With U) terjual lebih dari 19 juta diseluruh dunia, di Amerika Serikat menduduki posisi 2 dan menduduki posisi 1 di Australia, Kanada, Inggris, dan beberapa negara lainnya, Under My Skin 2004 (Don't Tell Me, My Happy Ending, Nobody's Home) yang terjual lebih dari 12 juta diseluruh dunia , The Best Damn Thing 2007 (Girlfriend, When You're Gone) yang terjual lebih dari 9 juta , dan Goodbye Lullaby 2011(Wish You Were Here, I Will Be) . Avril juga mengisi soundtrack untuk film Alice in Wonderland dengan lagu yang berjudul "Alice", film Eragon dengan singel "Keep Holding On". Ia telah menjual rekaman album dan singelnya sebanyak kurang lebih 45 juta diseluruh dunia. Coba bayangkan dengan era popularitas Peterpan di Indonesia seperti Album Bintang di Surga, Hari Yang Cerah yang hanya menjual kurang lebih 6 juta copy aja.
Avril Lavigne sendiri dilahirkan disebuah kota kecil, Belleville, Ontario Kanada dalam lingkungan keluarga Kristen, anak kedua dari tiga bersaudara. Kemampuan Avril dalam bernyanyi telah diketahui sejak berumur 2 tahun, ibunya mengatakan bahwa Avril telah mulai ikut menyanyi lagu-lagu rohani di Gereja. Saat usia Avril menjelang 16 tahun, dia didaftarkan oleh Ken Krongard, seorang artis dan jurnalis, wakil dari perusahaan rekaman Arista. Ken mengundang Antonio "L.A." Reid untuk mendengarkan nyanyian Avril disebuah studio rekaman milik Peter Zizzo di New York. Selanjutnya Avril melengkapi kontrak album perdananya Let Go, dirilis pada 4 Juni 2002 di Amerika Serikat
Tapi sayang ya soal prestasinya berbanding terbalik dengan kehidupan pribadinya, Bulan Februari 2004 dia mulai menjalin hubungan khusus dengan penyanyi Kanada Deryck Whibley, yang merupakan vokalis utama/gitaris pop punk band Sum 41. Pasangan ini menikah disebuah gereja katholik dengan upacara pernikahan secara agamis dengan disaksikan sekitar 110 tamu undangan pada tanggal 15 Juli 2006. Setelah pernikahan mereka belum sempat mendapat keturunan hingga ternyata sekarang hubungan mereka telah berpisah, hal tersebut dikarenakan perselingkuhan yang terjadi antara Deryck dengan Hilton, Avril pun menggugat cerai. Tapi saat ini Avril udah resmi menjadi Istri vokalis Nickleback, Chad Kroegr. Mereka melangsungkan pernikahan di Kanada pada 1 Juli 2013 kemarin, tapi sayangnya gue sebagai fans beratnya ga bisa menghadiri pernikahan mereka, selain karena ga dapet undangan ya karena terlalu jauh jarak antara Bekasi dan Kanada, hahaahahaha.
Dari sekian banyak lagu si Doi, gue paling suka sama lagunya yang berjudul When You're Gone, yang artinya Saat Kau Tak Ada. Lagu ini bercerita tentang seseorang yang ditinggalkan kekasinya, ia slalu merindukannya dan selalu mengharapkannya kembali, makanya terdapat penggalan bait seperti The pieces of my heart are missing you Seluruh hatiku merindukanmu, I've never felt this way before, Everything that I do reminds me of you aku tak pernah merasakan ini sebelumnya, semua yang kulakukan selalu mengingatkanku padamu, I can hardly breathe, I need to feel you here with me aku sulit bernafas, aku membutuhkanmu saat ini, hahaha lebay
Yaudalah........
Untuk lagu tersebut bisa didengerin di AutoPlay Blog ini, dan anda bisa unduh juga, silahkan Download
Berikut ini lagu Avril lainnya yang ga kalah bagusnya, gue udah siapain Listnya tinggal download aja
I Will Be ===> Download
Wish You Were Here ===> Download
Tomorrow ===> Download
Smile ===> Download
Mengatasi Folder atau file yang hilang di Flasdisk atau Drive pada komputer
"Kok isi atau foldernya kosong ya", mungkin itulah kata yang biasanya terucap saat anda mencolokknan Flashdisk pada komputer atau Laptop lalu membuka drive tersebut. Atau bisa juga saat anda membuka pada drive tertentu yang ada pada komputer anda
Apa diformat aja ya? mungkin itu yang terbesit dipemikiran anda
eitssss, ntar dulu. Coba pada drive yang dimaksud misalkan drive F Flashdisk, klik kanan lalu pilih property. Jika dilampirkan terdapat ukuran memory tertentu tetapi pada tampilan foldernya kosong ya jangan panik dulu, itu disebabkan karena folder atau file tersebut lagi masaalah atau lagi terinfeksi virus, ini sering terjadi pada komputer yang memakai antivirus AVG, gue sendiri mengalami hal itu.
Ada beberapa trik yang pernah gue cobain diantaranya dengan memakai metode Command Prompt
yaitu dengan mengetikkan attrib -s -h -r *.* /s /d lalu Enter, namun itu ga berhasil. Coba metode yang berikut ini, caranya sangat mudah kok
Pada Taksbar Windows, klik kanan pada Star> Windows Explorer> Organize> Folder and search option
Pilih View, lalu pada Checklist centang Display file size information in folder tips. Pada button Hidden files and folders checklistnya centang dan ganti jadi Show hidden files, folders, and drives lalu kosongkan cheklist Hide protected operating system files (Recommended) lalu OK
Jadi dehh, mudah kan????
Sabtu, 17 Agustus 2013
Program Inventory dengan VB.Net 2010 dan Ms.Acces 2010
Cerita ini berawal saat gue diminta sama temen untuk membuat program data stock barang (Inventory) untuk sebuah usahanya, dengan deadline yang udah ditentukan. Waduhhhhhh gue ngerasa ga ada persiapan saat diminta seperti itu, lagian gue juga lagi kerja berangkat subuh trus pulangnya uda malam baru nyampe rumah, ada waktu ga kalau seperti itu? blum lagi sampe rumah gue harus ngikutin acara TV drama kolosal Damarwulan yang durasinya bisa 3 jam di Indosiar dan ga mungkin bisa gue lewatkan, nah kalau uda kayak gitu uda keburu malam buat ngerjainnya. Tapi disisi lain juga gue gengsi, masa ia sih ga bisa ngerjain hal seperti itu apalagi yang uda bidang jurusan gue, ya itung-itung buat persiapan PI nanti ya kenapa ga gue ia'in aja deh. Tapi sayang PI gue nanti ga boleh pakai Visual Basic, standartnya harus Java atau yang lainnya padahal gue uda kesemsem nih sama VB.Net, ya mo gimana lagi seengganya uda dapet logikanya
Saat gue bingung dan nanya-nanya sama temen, maka gue putusin pakai Visual Basic.Net ajalah buat programnya, soalnya bahasa program tsb pernah gue pelajarin dulu waktu semester 2 dan disarankan sama temen gue databasenya pakai MySql, cuman saat gue coba ternyata ribet bangat sama prosedur koneksinya makanya gue pakai aja Ms.Acces 2010 biar uda ada di komputer.
Next... berikut ini step dalam pembuatan programnya, tapi ingat ya progam yang gue share ini sangat sangat dan sangat sederhana, yang buat projectkan gue mah blum selesai hahaha, ini cuma buat trial aja ya kali aja bermanfaat buat yang belum tau dan belum kenal sama yang namanya Bahasa Pemograman itu apa... oke ga perlu berlama-lama lagi langsung aja, Check it out !
Buka Ms.Acces 2010 lalu ketik nama database yaitu INVENTORY lalu create, pilih View pada pojok kiri lalu beri nama tabel yaitu DATA lalu save as. buat Field Name : NAMA BARANG, HARGA dan pilih keduanya Data Type menjadi Text, bisa juga Field Sizenya dibatasi jadi 10 aja biar ga terlalu makan tempat di kapasitas memorinya
Untuk yang pakai Office 2010 pilih File lalu Save & Publish lagi, lalu pilih Acces 2002-2003 dan Save As lagi, ini dimaksudkan agar Ms.Acces 2010 bisa kompitible sama VB.Netnya, tapi kalau temen-temen punya script yang bisa nge'handlingnya ya ga apa.
Buka VB.Net 2010, New Project pilih Windows Form Appilcation, pakai fasilitas yang ada pada ToolBox untuk mendesign tampilannya seperti Label, TextBox, Buttons, DataGridView, GroupBox dan Radio Buttons. Pada Properties ganti Text masing-masing Label jadi Nama Barang, Harga dan Search.
Pilih masing-masing Buttons dan pada menu Properties ganti Text masing-masing Button jadi Tambah, Ubah, Hapus, Keluar dan Name ganti jadi btnTambah, btnUbah, btnHapus, btnKeluar.
Pilih masing-masing TextBox dan pada menu Properties, Name diganti jadi txtBarang, txtHarga, txtSearch dan pilih juga RadioButtons Textnya ganti jadi Barang, Harga dan Name jadi rbBarang, rbHarga. Berikut ini tampilan designnya, klasik bangat ya?
Setelah designya selesai, doubleclick formnya lalu ketik script dibawah ini:
Imports System.Data
Imports System.Data.OleDb
Public Class frmBarang
Dim database As OleDbConnection
Dim tabel As OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub koneksi()
Try
database = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;DataSource=INVENTORY.mdb")
database.Open()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Sub data_record()
Try
tabel = New Data.OleDb.OleDbDataAdapter("select * from DATA", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
DataGridView1.Columns(0).Width = 200
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Sub bersih()
txtBarang.Text = ""
txtHarga.Text = ""
txtSearch.Text = ""
rbBarang.Checked = False
rbHarga.Checked = False
txtBarang.Enabled = True
txtBarang.Focus()
btnTambah.Enabled = True
btnUbah.Enabled = True
btnHapus.Enabled = True
Call koneksi()
Call data_record()
End Sub
Private Sub frmINVENTORY_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bersih()
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
Try
Dim dml As New OleDbCommand
dml.Connection = database
dml.CommandType = CommandType.Text
dml.CommandText = "insert into DATA values('" & txtBarang.Text & "','" & CSng(txtHarga.Text) & "')"
dml.ExecuteNonQuery()
MsgBox("Data telah disimpan")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click
Try
Dim dml As New OleDbCommand
dml.Connection = database
dml.CommandType = CommandType.Text
dml.CommandText = "update DATA set HARGA = '" & txtHarga.Text & "' where NAMA BARANG = '" & txtBarang.Text & "'"
dml.ExecuteNonQuery()
MsgBox("Data telah diubah")
Call bersih()
txtNmBarang.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Try
Dim dml As New OleDbCommand
dml.Connection = database
dml.CommandType = CommandType.Text
dml.CommandText = "delete from DATA where NAMA BARANG = '" & txtBarang.Text & "'"
dml.ExecuteNonQuery()
MsgBox("Data telah dihapus")
Call bersih()
btnTambah.Enabled = False
btnUbah.Enabled = True
btnHapus.Enabled = True
txtBarang.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Me.Dispose()
End Sub
Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
Try
If rbBarang.Checked = True Then
tabel = New Data.OleDb.OleDbDataAdapter("select * from DATA where NAMA BARANGlike '%" & txtSearch.Text & "%'", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
DataGridView1.Columns(0).Width = 180
ElseIf rbHarga.Checked = True Then
tabel = New Data.OleDb.OleDbDataAdapter("select * from DATA where HARGA like '%" & txtSearch.Text & "%'", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
DataGridView1.Columns(0).Width = 180
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
Try
txtBarang.Text = DataGridView1.SelectedCells(0).Value
txtHarga.Text = DataGridView1.SelectedCells(1).Value
txtBarang.Enabled = False
btnTambah.Enabled = False
btnUbah.Enabled = True
btnHapus.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub rbBarang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbBarang.Click
txtSear.Focus()
End Sub
Private Sub rbHarga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbHarga.Click
txtSearch.Focus()
End Sub
End Class
Langkah berikutnya buat form Login, klik kanan Windows Application pilih Add Windows Form Application lalu design form dengan menggunakan fasilitas ToolBox seperti Label, TexBox dan Buttons. Pada Propertis pilih masing-masing label, Text ganti jadi Login Administrator, Username, Password.
Pilih masing-masing TextBox, pada Properties Name ganti jadi txtUsername, txtPassword dan pilih juga Buttons pada Properties Text ganti jadi Username, Password
Pilih masing-masing TextBox, pada Properties Name ganti jadi txtUsername, txtPassword dan pilih juga Buttons pada Properties Text ganti jadi Username, Password
Setelah designnya selesai, doubleclick form tsb lalu ketik lagi script berikut ini :
Public Class LOGIN
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Username, Password As String
Username = txtUsername.Text
Password = txtPassword.Text
If Username = "Bobjen" And Password = "Usuman" Then
Me.Hide()
MsgBox("Login Successfully", MsgBoxStyle.Information, "Selamat datang ")
frmINVENTORY.Show()
Else
MsgBox("Combination User dan Password, salah", vbCritical + vbOKOnly, "Ulangi")
txtUsername.Text = vbNullString
txtPassword.Text = vbNullString
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Are U Sure ???", MsgBoxStyle.Information, "Exit ")
End
End Sub
End Class
Pilih Browse sambungkan ke dokumen Database yaitu INVENTORY, sebelum OK pilih Test Connetion jika uda tersambung baru pilih OK
Centang ceck List yang ada, lalu pilih Finish
Sebelum menjalankan program ini klik Project > WindowsApplication> Startup Form lalu pilh LOGIN. Ini dimaksudkan agar pada saat program dijalankan staynya pada form tersebut maksudnya form Login yang pertama ditampilkan
Lalu jalankan program tsb dengan menekan F5 pada keyword,lalu...... tararararrara...................
ketik Username anda pada TextBox : Bobjen dan Password : Usuman yang merupakan nama gue..hehehehe, ya kalau ingin beda tinggal ganti aja di script Form Login diatas
Jika penginputan Username dan Password udah berhasil maka akan ditampilkan Form INVENTORY, ya tinggal input aja data yang dimaksud maka akan ditampilkan hasilnya dan akan tersimpan pada Database
Catatan :
Jika List Errornya terdapat statement : ExecuteNonQuery, berarti pada script misalkan Sub Bersih() yang True ganti aja jadi False atau sebaliknya
Jika List Errornya terdapat statement : Based Types, berarti ada kesalahan pada saat inisialisasi variabel, sehingga ga kompitible dengan script yang kita input, misalkan Buttons... pada Properties Namenya btnTambah sedangkan pada script kita inputnya ButtonsTambah nah itu yang harus disamakan.