Jumat, 09 Januari 2015

Memberi Background Pada Folder

Assalamu alaikum Wr. Wb
Pada malam ini saya akan share bagaimana cara mengubah background pada folder yang dapat memperindah folder sobat, jadi sobat bisa mengubah background nya menjadi foto pemandangan maupun foto pacar sobat, dll.
Jadi begini caranya :

Buka notepad dan ketik kode berikut ini :
[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=1
IconArea_Image=Folder Settings\Background.jpg
IconArea_Text=0x00FFFFFF
[.ShellClassInfo]
ConfirmFileOp=0

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

JUDUL SOAL : Latihan Listview Perhitungan Penjualan Barang

Berikut Jawaban Program :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kodebrg.Items.Add("TS001")
        Kodebrg.Items.Add("TS002")
        Kodebrg.Items.Add("VG001")
        Kodebrg.Items.Add("VG002")

        Buattabel()
    End Sub
    Sub Buattabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("KodeBrg", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NamaBrg", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("JlhBeli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("THarga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim LST As New ListViewItem
        LST.Text = Nopembelian.Text
        LST.SubItems.Add(Kodebrg.Text)
        LST.SubItems.Add(NamaBrg.Text)
        LST.SubItems.Add(Merk.Text)
        LST.SubItems.Add(Harga.Text)
        LST.SubItems.Add(JlhBeli.Text)
        LST.SubItems.Add(THarga.Text)
        LV.Items.Add(LST)

Kamis, 08 Januari 2015

Ubah BB jadul anda Menjadi BB10

bb10-work
    
     Untuk Anda yang masih mimpi untuk membeli BB 10, jangan berputus asa, karena degan trik ini
anda bisa menyulap BB jadul anda menjadi BB10 :D

Hati...!

Entah ada apa dengan hari ini. Sebenarnya semua berjalan seperti biasa saja, tak berbeda. Semesta juga baik-baik saja, tapi sepertinya tidak dengan sebongkah daging kecil bernama hati. Yang terasa hanya kosong dan sepi. 
Pasti ada yang salah, entah itu dari pikiranku, atau justru perasangkaku. Entah ketidaksepahaman, ataukah memang suatu perbedaan yang mendatangkan kesunyian?
Mungkin memang ada saatnya dalam hidup kita ingin sendiri saja, bersama angin menceritakan seluruh rahasia dan meneteskan air mata. Berharap semua akan menjadi lebih ringan setelahnya.
 
Wahai Allah, satu pintaku untuk saat ini, kuatkan batinku untuk menghadapi hati yang kerap kali tak terkendali..
 

Unik Terbaru!! Keren dan Unik….BlackBerry Jadul ini Disulap Jadi Lampu Kristal


    Pernahkah terbayangkan bagaimana jika smartphone ‘jadul’ didaur ulang menjadi sesuatu yang bermanfaat? Ya, desainer ternama Michael McHale belum lama ini menyulap BlackBerry tuanya menjadi sebuah lampu gantung berhiaskan kristal.



Ide itu datang dari keinginannya untuk membuat sesuatu yang indah dari benda-benda tak terpakai miliknya.
Berangkat dari itu, McHale yang terlalu sayang membuang smartphone keluaran perusahaan asal Kanada tersebut langsung merangkainya menjadi sebuah lampu gantung.

Karya pria yang bermukim di New York City ini tak dapat dipungkiri memang unik sekaligus agak ‘nyeleneh’. Di mana, model BlackBerry tua seperti 8800, seri 8500, dan masih banyak lagi ia dipadu padankan dengan sejumlah kristal yang menjuntai jadi satu rangkaian lampu hias.
Belum diketahui apakah McHale berniat untuk mengomersialisasikannya ataukah dijadikan untuk koleksi pribadinya semata. Tetapi, bisa diperkirakan jika dikomersialkan akan memakan biaya...

Menjaga Persahabatan



Ada kalanya kita takut kehilangan sobat baik. Nggak kebayang apa jadinya bila tanpa dia. Agar  persahabatan tetap kokoh, lakukan empat hal ini.

  • Pendengar yang baik. Teman yang baik haruslah seorang pendengar yang baik pula. Jangan egois dan tidak pedulian dengan masalah sobat.  Luangkan waktu untuk menjadi tempat curhatnya.
  • Iri hati. Pantang memiliki rasa iri hati. Kita dan sobat memiliki ciri khas dan kepribadian unik tersendiri. Ikutlah bahagia setiap sobatmu meraih prestasi atau sesuatu yang membanggakan.
  • Beraktivitas bersama. Selain saling curhat, kita dan sobat juga harus melakukan banyak aktivitas bersama. Dengan begini, bisa tercipta kedekatan yang lebih erat. Ajaklah dia untuk melakukan kegiatan seru bersama, seperti jalan ke mal, olahraga dan lainnya.
  • Meminta maaf. Ini adalah salah satu hal penting yang harus bisa kita lakukan. Yup, jika melakukan kesalahan, harus berani mengakui dan meminta maaf. Sikap gengsi atau cuek bisa membahayakan pertemanan. 



3 Cara Mengatasi Flashdisk (USB) Tidak Terbaca Komputer

cara mengatasi flashdisk yang tidak terbaca di laptop-  Flashdisk tidak terbaca oleh komputer atau laptop anda, baik itu yang bersistem operasi windows xp dan windows 7,8.  Sebenarnya ini adalah masalah clasic yang memang sudah bisa terjadi di para pemilik flashdisk.  Ada beberapa hal  yang harus anda ketahui beberapa penyebab sehingga  flashdisk anda tidak bisa terbaca oleh komputer/laptop:
1. Secara Fisik Flashdisk anda memang sudah mengalami kerusakan 
2. Kemungkinan besar  ada permasalahan pada driver USB
3. Port USB rusak (Port = tempat nyolok USB)
4. Setinggan bios, Windows punya masalah
Untuk kerusakan yang di sebabkan oleh NO 1 anda mungkin akan kesulitan memperbaiki sendiri. Bahkan saya sendiri lebih memilih membeli baru karna memang tergolong rumit dan susah memperbaikinya. Tapi untuk kerusakkan yang di sebabkan blog belahar kompter akan berbagi  cara mengatasi flashdisk tidak terbaca di pc. Silakan baca dan praktekkan caranya di bawah ini :
Cara memperbaiki Flashdisk (USB) Tidak Terbaca Komputer

cara memperbaiki flashdisk tidak terbaca di laptop sama sekali secara manual melalui windows 

  • Pertama silakan colokkin Flashdisknya ke laptop/komputer anda.
  • Selanjutnya anda Buka Start -> Control Panel
  •  Ganti penampilan jadi klassik mode (switch to classic mode).
  •  Click ” Add Hardware “
  • Kemudian akan tampak sebuah kotak dialog, maka clik next saja.
  •  Kemudian ada 2 pilihan ” Yes, I have already connected the hardware ” serta ” No, I have not added the hardware yet “. makan anda harus memilih opsi  yang Yes.
  • Maka selanjutnya pada sistem komputer anda akan mengecek adanya keberadaan perangkat keras eksternal anda yaitu Flashdisk yang sudah di colok kan ke laptop tapi belum terdeteksi oleh komputer/laptop. Apabila berhasil di terdeteksi oleh komputer/laptop, maka akan muncul autorun. Dengan kemunculan Autorun ini menyatakan bahwa anda berhasil dan agar koneksi USB Drive bisa lebih cepat,Muncul ikon “Removable hardware “pada systen tray dan Muncul drive baru di Windows Explorer atau My Computer.
  • Bila salah satu hal itu berlangsung, pendeteksian tak perlu diteruskan. Click Cancel pada penampilan selanjutnya.