Sabtu, 04 Mei 2013

cara mengganti gambar pada panel start windows xp



Membuat Background pada Start Panel untuk window xp
Langsung ke inti masalah ajah yah..
klo tidak jelas download ajah disini
doanload aplikasinya.... resource hacker
Langkah pertama..
Siapkan dulu gambar yg anda inginkan atau sukai untuk jadikan sebagai background panel star . iya klo saya gambarnya ini :

Klo yang aslinya yang ini :




:untuk mengedit ukuran gambarnya menggunakan photoscape 5.0 ingat !!!!! ( perhatikan dan ikutin saya klo mo bener , perhatikan dan ingat-ingat nama filenye dan ukuranya plus extensi filenya) extensi pada gmabar biasanya wajib menggunakan Bitmap / BMP.
  1. panel star bagian keseluruhan :  gambar ini yang saya pakai, tapi yg aslinya
ukuranya 380 x 556
  1. panel star bagian atas :  ini gambar aslinya, tpi yg sy gunain  nama filenya “ichigoatas.bmp” ukuranya 380 x 64
  2. panel star bagian bawah :  ini gambar aslinya , tapi yg saya gunain  nama filenya “ichigobawah.bmp” ukuranya 380 x 41

  1. panel star bagian MORE kiri :  ini gambar yg aslinya, tapi yg sy pakai  nama filenya  “ichigoMore.bmp” ukuranya 190 x 28

  1. panel star bagian kiri : ini gambar yg aslinya, tp yg sy gunain  nama filenya “ichigokiri.bmp” ukuranya 189 x 424

  1. panel star bagian kanan : ini gambar yg aslinya, tp yg sy pakai  nama filenya “ichigokanan.bmp” ukuranya 190 x 460

1.      Dan terakhir kita menggunakan aplikasi namanya “Resource Hacker” Download dan lalu instal, setelah instal kita gunakan aplikasinya untuk membuatnya:
2.      Buka file yang berExtensi . msstyles ‘ biasanya file itu ada di lokasi, C:\WINDOWS\Resources\Themes
Nah disitu banyak sekalai folder. Kita cari ajah folder “Luna” baiasanya itu bawa’an dari windows, system operasi yang saat ini kamu pakai. Ya sudah buka folder “Luna” setelah buka, nah… ketemu tuh file yang berExtensi .msstyles namanya “luna.msstyles”
3.      kita copy, dan pastekan disitu juga di folder luna   setelah copy pastekan disitu dengan menekan tombol keyboard Ctrl+v  

4.      rename / ubahlah nama “Copy of luna.msstyles” menjadi “ichigohollow.msstyles” , setelah itu buka sja menggunakan “Resource Hacker” dengan cara….. Open With > Resource viewer, decompiler recompiler, seperti gambar dibawah ini :
Setelah membuka dengan “Resource Hacker”, atau bisa juga dengan “Resource viewer, decompiler recompiler” editlah..
5.      setelah membuka dengan open with dengan “Resource Hacker” munculah jendela baru aplikasi “Resource Hacker”








6.      Klik “ Action “ > kemudia klik “Replace Bitmap. Contohnya seperti ini :
Muculah jendelah baru,
7.      setelah itu carilah bagian  “Select bitmap to replace“ dan dibagian itu cari gambar BMP atau bisa dibilang Bitmap “BLUE_STARTPANELLOGOFFBACKGROUND_BMP” itu untuk mengedit gambar panel star bagian bawah yang ukuranya 380 x 41,
8.      stelah menemukannya kemudian klik “Open file with new bitmap”, munculah open dialog lalu cari gambar sesuai ukuranya (gambar yg anda suka) klik “Open” setelah open gambar telah mucul . setelah mucul klik “Replace”
9.      Setelah itu munculah gambar BLUE_STRATPANELLOGOFFBACKGROUND_BMP
Ini menunjukan bahwa bitmap yang awal sudah ter replace dengan yang kita buat. Langkah selanjutnya yaitu menuju ke folder di bawahnya yaitu
10.  Klik “ Action “ > kemudia klik “Replace Bitmap,, seperti yg diatas lanjutka saja lagi..
Carilah BLUE_STARTPANELMFUBACKGROUND_BMP  klik “Open file with new bitmap”
11.  Klik “ Action “ > kemudia klik “Replace Bitmap,, seperti yg diatas lanjutka saja lagi..
Carilah BLUE_STARTPANELPLACEBACKGROUND_BMP  klik “Open file with new bitmap”
12.  Klik “ Action “ > kemudia klik “Replace Bitmap,, seperti yg diatas lanjutka saja lagi..
Carilah BLUE_STARTPANELMOREPROGBACKGROUND_BMP  klik “Open file with new bitmap”
13.  Klik “ Action “ > kemudia klik “Replace Bitmap,, seperti yg diatas lanjutka saja lagi..
Carilah BLUE_STARTUSERPANEL_BMP  klik “Open file with new bitmap”
14.  Langkah selanjutnya adalah tinggal menyimpan hasil modifikasi kita, dengan mengklik file -> save, kemudian close program’ semua jendeal keluarin semua. Lanjutkan lagi buka file “luna.theme” di  lokasi “C:\WINDOWS\Resources\Themes”
15.  Setelah masuk ke lokasi “C:\WINDOWS\Resources\Themes “ cari file yang bernama “Luna.theme” dan buka dengan notepad open with. Setelah mebukanya dengan notepad editlah skrip yg bertulisan “ Path=%ResourceDir%\Themes\luna\luna.msstyles “ gantilah dengan kata-kata seperti ini  “Path=%ResourceDir%\Themes\luna\ichigohollow.msstyles “.
16.  Selesai, jalan kan tema milikmu,, dengan tema yang panel starnya gambar ichigo hollow.. Caranmenjalakanya adalah.. doubleklik atau klik kanan > open, atau juga ( klik kanan > Open with > windows shell common dll ) gambarnya seperti ini :
 klik apply > Ok
Dan lihat hasilnya.. klik startLah……………… apa yg terjadi dengan start panel anda !!!!

CATATAN fungsi dari BMP pada tulisan yang di dalam kotak dibawah tulisan Select “bitmap to replace” :
BLUE_STARTPANELLOGOFFBACKGROUND_BMP digunakan untuk panel bagian bawah
BLUE_STARTPANELMFUBACKGROUND_BMP digunakan untuk panel bagian kiri
BLUE_STARTPANELPLACEBACKGROUND_BMP digunakan untuk panel bagian kanan
BLUE_STARTPANELMOREPROGBACKGROUND_BMP digunakan untuk panel bagian More,, (panel start yg ada tulisan “All Program”)
BLUE_STARTUSERPANEL_BMP digunakan untuk panel bagian atas (deket yg ada tulisan “Administrator”)

Sabtu, 14 Januari 2012

Kode Relasi database Visual Basic 6.0


Kode Relasi database Visual Basic 6.0
Biasanya untuk relasi database menggunakan component “ComboBox”
Namun, ada kode yang masing-masing berbeda yaitu kode untuk form, dan kode untuk combobox.
Nah.. sekarang saya akan memberikan kodenya.
Ini kode untuk form:

Private Sub Form_Load()
On Error Resume Next
buka_database
Source.Open "select id_pembeli from transaksi", kon, adOpenKeyset, adLockOptimistic
    Do While Not Source.EOF
        cmbid_pembeli.AddItem Source!id_pembeli
        Source.MoveNext
        Loop
tutup_database
pengeluaran.Refresh
End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub Form_Load()kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.
Namun, Form_load artinya form, pada saat diklik dua kali from tersebut timbulah tulisan ini.
-tulisan yang berwarna merah tua adalah nama dari component adodc untuk menLOAD
-tulisan yang berwarna merah muda adalah nama dari component comboboxnya di propertynya. Itu karna untuk menetapkan dimana harus menampilkan database yang sudah diimput sebelumnya.
-tulisan yang berwarna hijau adalah nama field yang ada di xamppnya(dimana anda mambuat databases table-tabel). Field tersebut adalah table yang sudah diinput sebelumnya kemudian ingin memanggil database record ke form yang ingin dijadikan relasi.
-tulisan yang berwarna biru adalah nama table yang akan dipanggil untuk dijadikan relasi ( merefreshkan/menload dengan kode sourec.open )

Ini kode untuk combobox:

Private Sub cmbid_pembeli_Click()
On Error Resume Next
buka_database
    Source.Open "select * from transaksi where id_pembeli='" & cmbid_pembeli.Text & "'", kon, adOpenKeyset, adLockOptimistic
        Me.txtnm_customer = Source("nm_customer")
        Me.txtkd_customer = Source("kd_customer")
        Me.txtnm_barang = Source("nm_barang")
        Me.txtkd_barang = Source("kd_barang")
        Me.txtjmlh_barang = Source("jmlh_membeli")
        Me.txthrg_barangsatuan = Source("hrg_barangsatuan")
tutup_database
End Sub
Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub cmbid_pembeli_Click() kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb Namun, cmbid_pembeli artinya nama dari component “ComboBox” di propertynya.
-tulisan yang berwarna merah tua adalah,nama database yang sudah diinputkan kemudian dipanggil.
-tulisan yang dikotakin berwarna abu-abu adalah nama componentnya (ComboBox) yang ada di propertinya, dan harus sama dengan kode form loadnya cmbid_pembeli .
-tulisan yang yang dikotakin berwarna hijau adalah, nama field yang dijadikan sebagai datarecord pemanggilan relasi, contoh: field “ id_pembeli “ otomatis, field yang sudah diisi record walau Cuma satu record saja yang ada didatabase dikirim ke form divisual basicnya. Artinya, pemanggilan relasi dengan component “ ComboBox “ .
-tulisan yang berwarna oren adalah, nama field dari table lain yang ada didatabase untuk dipanggil.
-tulisan berwarna biru adalah, nama component TextBOx yang ada dipropertynya. penejelasannya antara kode tulisan berwarna oren dengan kode tulisan yang berwarna biru adalah, data field yang ada di database (XAMPP) table lain dipanggil untuk dijadikan relasi kemuadia ditetapkan/ditaruh/diletakan di field yang ada di textbox form visual basicnya. Contoh :
table taransaksi memiliki field sebanyak jumlah yang ditetapakan/dibuat namun ada field “id_pembeli” kemudian diisi record dan disimpan, lalu ada from pengeluaran dan membutuhkan field sebanyak yang dibutuhkan namun ada field yang bernama “id_pembeli” itu componentnya bernama “cmbid_pembeli” untuk menampilkan record yang telah disimpan  di table transaksi , ada lagi txtnm_customer, txtkd_customer dan seterusanya sebanyak yang dibutuhkan , itu digunakan untuk menetapkannya ditextboxnya dan menyesuaikannya (menginput isi record diantara field-field lainya lebih dari satu tanpa diketik/secara manualnamun, otomatis disebut relasi).

Kode Ubah Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc


Kode Ubah Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc
Private Sub cmdubah_Click()
On Error Resume Next
buka_database
Source.Open "select * from pembeli where id_pembeli='" & Trim(txtid_pembeli.Text) & "'", kon, adOpenDynamic, adLockOptimistic
    If Not Source.EOF Then
    Source!id_pembeli = txtid_pembeli.Text
    Source("kd_barang") = txtkd_barang.Text
    Source("nm_barang") = txtnm_barang.Text
    Source("hrg_barangsatuan") = txthrg_barangsatuan.Text
    Source("ket") = txtket.Text
    Source.Update
    End If
tutup_database
pembeli.Refresh
batal
End Sub
 
Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub cmdubah_Click()kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb
Namun, cmdubah artinya nama dari component “commandbutton” di propertynya.
-tulisan yang dikelilingi warna biru didalammya warna putih, pembeli.Refresh stok_bertambah.Refresh itu nama component adodc namun yang titik refresh itu tuk menLOAD.
-tilisan yang berwarna merah muda adalah , nama component textbox yang dijadikan sbg perwakilan diantara textbox lainnya untuk menetapkan inputan yg akan disimpannya.
-tulisan yang berwarna hijau bertebal, itu nama field yang dijadiakan sbg perwakilan dari field-field lainya untuk menetapkan apa yang harus ditetapakan dalam proses menyimpan.
-tulisan yang berwarna kuning dan digarisi, itu nama table yang ada di XAMPPnya.
-Kode yang bertulisan source artinya sumber “ dimana data itu berasal
-Tulisan yang berwarna hijau kebiruan itu field yang ada di databasesnya ( XAMPP)
-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.
Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .
 



Kode MSHFlexGrid untuk,hapus,ubah dengan mengunakan Visual Basic 6.0 komponen adodc
Private Sub MSpembeli_Click()
With MSpembeli
txtid_pembeli.Text = .TextMatrix(.Row, 0)
txtkd_barang.Text = .TextMatrix(.Row, 1)
txtnm_barang.Text = .TextMatrix(.Row, 2)
txthrg_barangsatuan.Text = .TextMatrix(.Row, 3)
txtket.Text = .TextMatrix(.Row, 4)
End With
pembeli.Refresh
cmdsimpan.Enabled = False
cmdubah.Enabled = True
cmdhapus.Enabled = True
End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub MSpembeli_Click()kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.
Namun, MSpembeli artinya nama dari component “MSHFlexGrid” di propertynya.
-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.
Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .
-tulisan kode yang seperti ini (.Row, 0) dan seterusnya adalah urutan mshflexgridnya dimana data record harus ditempatkan pada saat menyimpan.

kursor mouse

Plurk