Silahkan Pilih Warna Yang Anda Sukai Untuk Kenyamanan Mata Anda

Ganti Warna Teks Yg Sesuai

Jumat, 30 Maret 2012

Trik agar Sprei tidak cepat kotor

Sprei atau Bed Cover adalah selembar kain yang bercorak untuk penutup kasur, ia jarang sekali mampir dalam ingatan kita meskipun kita dalam keadaan bengong. Padahal saat kita ngobrol bersama teman, kita sering mengeluhkan situasi malam hari, karena tidak dapat tidur, dengan alasan banyak nyamuk, banyak pikiran dsb. Dan berhubung sekarang masih musim hujan, dimana pada musim ini pekerjaan mencuci yang terasa berat adalah mencuci Sprei, maka saya akan tutup tulisan di bulan ini dengan bahasan mengenai perawatan Sprei.

Tahukah anda pada saat mata anda terpejam, pikiran mulai melayang ke dalam alam mimpi, lalau tiba2 anda terhentak bangun karena dirasakan ada sesuatu yang menggigit. dan anda langsung menuduh nyamuk pelakunya, pada hal belum tentu. Karena boleh jadi Sprei yang anda pakai sudah kelewat kotor, sudah banyak kuman yang luput dari mata anda, yang selalu siap menyerang tubuh anda. Lalu haruskah kita mencuci sprei tiap 2 atau 3 hari sekali?. Jawabannya tidak juga, karena mencuci Sprei merupakan pekerjaan yang berat jika dibanding mencuci pakaian.

Untuk itu, pada saat anda mencuci sprei, setelah bilasan terahir gunakanlah sedikit kanji dan campurlah dengan bahan pewangi (jika anda ingin menggunakan pewangi). Dan setelah dijemur kering, disetrika agar kanji melekat dan tidak rontok, tujuannya adalah agar pori-pori Sprei lebih tertutup sehingga kuman dan binatang2 yang tidak nampak, yang bersembunyi di bawah pori-pori kasur, tidak dapat menembus dan menggigit kulit anda.

Dan langkah untuk menjaga agar Sprei tidak cepat kotor adalah dengan memberikan sehelai kain (yang ukurannya lebih kecil dari sprei) diatasnya, tepat diantara bagian yang biasa untuk kaki dan pantat, karena pada bagian itu yang sering cepat kotor. Dengan adanya tambahan kain tersebut, Sprei akan lebih terjaga kebersihannya. Dan ukuran kain tambahan yang lebih kecil, akan lebih mudah mencucinya, dari pada mencuci sprei yang lebih lebar dan lebih tebal.

Semoga secuil tulisan dari pengalaman sederhana ini ada manfaatnya.

Rabu, 28 Maret 2012

Trik Memilih Sekolah SMA Negri

Sejak dulu sekolah di Sekolah Negri merupakan Dambaan, baik bagi para calon siswa maupun para Orang tua. Pada Umumnya kita beranggapan bahwa sekolah yang memiliki kedisiplinan, kelengkapan sarana, dan biyaya sekolah yang murah hanyalah sekolah negri. Betapa tidak beranggapan seperti itu, sekolah2 negri kan sekolah yang hampir keseluruhan Oprasionalnya di biyayai oleh pemerintah, bangunan sekolah, buku2 pelajaran, gaji guru semua dari pemerintah. Akan tetapi ternyata anggapan yang sudah tertanam dan mengakar dihati kita itu, masih banyak kekeliruannya. Karena ternyata Sekolah2 Negri pun, tidak mau ketinggalan seperti sekolah2 swasta, khususnya dalam persyaratan yg menyangkut keuangan.

Di sebuah SMA Negeri di pinggiran Jakarta Timur, siswa baru harus membayar uang pangkal yang disebut IPDB (iuran peserta didik baru) hingga Rp4,6 juta dan iuran bulanan yang dulu disebut SPP (Sumbangan Penyelenggaraan Pendidikan) sebesar Rp300 ribu. Selain itu, masih ada biaya-biaya lain seperti Rp650 ribu per tahun dengan istilah uang PM dan Rp450 ribu per tahun untuk kegiatan tahunan yang tidak jelas serta uang komputer, uang buku, uang AC dan uang tetek bengek.

Sementara di sekolah SMA Negeri favorit, para siswa baru bahkan harus membayar IPDB Rp12,5 juta dan iuran bulanan Rp400 ribu, belum termasuk biaya lainnya yang mengharuskan orangtua bekerja ekstra keras atau juga mengharuskan orang tua berutang sana-sini agar anaknya bisa tetap bersekolah. Walau tidak dipungkiri ada juga beberapa sekolah negri yang tidak seperti tersebut diatas.

Walhasil, sekolah di sekolah negri Biyayanya lebih besar dibanding sekolah swasta. Oleh karena itu dalam artikel Memilih Sekolah SMA Negri yang saya tulis ini, kiranya para Orang tua lebih selektip dalam memilih sekolah untuk putra putrinya, guna mengurangi beban hidup yang makin berat.

Salah satu yang perlu diperhatikan dalam Memilih Sekolah SMA Negri adalah tentang siapa dan bagaimana komite sekolah pada sekolah yang akan anda pilih itu, Karena dialah orang yang dianggap sebagai pembawa amanat bagi para orang tua murid. Orang2 itu (Komite sekolah) dianggap mewakili para orang tua, sehingga keputusan2 sekolah selalu atas persetujuannya. Jadi seandainya komitesekolah dari sekolah negri tsb adalah Orang2 yang tamak yang tidak perduli terhadap kondisi ekonomi orang tua murid, maka bisa dipastikan sekolah tersebutsangat merongrong biyaya bagi para pencari Ilmu. Sekolah akan dijadikan ajang pencarian dana. Berbagai acara yang tidak ada relevansinya dengan belajar, akandipaksakan untuk diikuti. Ujung2nya Orang tua murid yang akan jadi Korban.

Demikian postingan ini di tulis dari pengalaman dan info berbagai sumber. semoga kiranya dapat bermanfaat.

Minggu, 25 Maret 2012

Menghilangkan Noda warna Pada Layar TV

Screen CRT(Cartiged Ray Tube) yang biasa disebut juga Layar Tabung Monitor atau Televisi. Kalau pemakaiannya sudah lama, Terkadang mempunyai masalah yang cukup menyebalkan. yaitu pada saat TV atau monitor di hidupkan, tampak ada warna yang monoton pada layar bagian bawah, atau di pojok bagian atas. terkadang warna yang tampak berupa warna biru atau merah.

Penyebab masalah ini biasanya disebabkan karena :
1. Kondisi tabung (CRT) yang sudah lemah.
2. Degousing Coil yang tidak teraliri Listrik atau adanya perubahan tahanan pada Resistor PTC
3. Pernah mengalami penggantian speaker dengan jenis Magnit terbuka tidak dilindungi.
4. Deflection Yoke, atau istilah tukang reparasinya Konde, kurang mendapat teganan maksimal. (jarang terjadi)

Solusi Untuk Point 1 dan 2 :

Kepada anda yang awam terhadap peralatan Electronic, saya tidak menyarankan
anda untuk menelusuri ketiga penyebab masalah ini. Karena salah-salah akibatnya bisa fatal.
Saran saya adalah, Kalau benar TV atau Monitor anda sedang memperlihatkan gejala seperti ini, maka yakinkan dulu, apakah masalahnya benar seperti yang saya maksud dalam tulisan ini. Yaitu dengan menghidupkan TV kemudian lepas kabel antena, sehingga yang nampak hanya cahaya raster (bintik2 hitam atau warna hijau blank), jika benar seperti itu, akan tetapi dipojok atau dipinggir layar ada warna lain. Maka ambillah sebatang Magnet dan dekatkan ke bagian pinggir TV, yang ada muncul warna lain. Aturlah posisi arah medan magnet sampai mendapatkan kesesuaian warna raster. kemudian rekatkan dengan lem atau plaster. Setelah itu tancapkan kembali kabel antena dan lihat hasilnya. Trik ini cukup berhasil walaupun TV anda akan terlihat seperti orang habis kecelakaan (diperband).

Solusi Untuk Point 3.
Loud Speaker yang bukan dirancang untuk pengeras suara TV, memang tidak mempunyai pelindung medan Magnet. sehingga jika anda mengganti speaker TV dengan yang berjenis ini, akan mempunyai akibat Noda warna Pada Layar, dan untuk menghilangkan noda warna tersebut pertama coba jauhkan Speaker dari Layar, atau coba putar2 kedudukannya, agar arah medan magnet tidak bertolakkan. Kalau masih tidak berhasil, berilah pelindung yang terbuat dari seng Untuk melindungi Magnet speaker tersebut. Atau ganti Speakernya dengan yang mempunyai pelindung magnet.

Dan bagi anda yang tahu komponen Electronic, siapkanlah multi tester, Lepas Tutup bagian belakang TV, dan carilah Degousing Coil yang bentuknya seperti kabel bulat warna hitam, melingkar dibagian pinggir tabung, Lepaskan bagian Ujung yang menancap ke PCB, dan tes dengan multi tester, Tempatkan posisi Pin selector Multi tester pada 1 x Kohm. perhatikan jarum multi tester, jika penyimpangan jarum lebih jauh dari separuh sekala multi tester, berarti sepul Degousing Coil sudah ada yang korslet ( perlu diganti), dan jika simpangan jarum multi tester kurang jauh maka kondisi Degousing Coil masih baik, tidak perlu diganti, yang mesti diganti adalah Resistor PTC yang terhubung secara serial dengan pin ujung Degousing Coil yang melekat pada PCB. Resistor PTC ini biasanya berbentuk segi empat dengan ukuran 1x1,5cm berwarna hitam.

Demikian postingan untuk peralatan electronic, semoga ada manfaatnya.

Jumat, 23 Maret 2012

Trik Memilih Sekolah Swasta

Seperti kita ketahui bersama bahwa Ujian Nasional sudah di ambang pintu. Bagi Para orang tua, maupun anak2 yang amsih harus melanjutkan sekolah, mulai berfikir dan bercita2, akan melanjutkan sekolah kemanakah setelah UNAS nanti.

Dan tidak kalah sibuknya para penyelenggara Usaha Pendidikan dalam menggaet calon anak didik yang menjadi komoditi bagi usahanya.
Ada yang dengan pemasangan sepanduk2, di berbagai sudut jalan yang mudah dilihat. Ada yang menyebarkan Selebaran2, Brosur2 yang Lux, dengan penawaran Keistimewaan Kemurahan dan kemudahannya. Bahkan jauh sebelum UAS berlangsung, Pihak2 sekolah sudah dijadikan partner dalam usaha promosi pendidikan (yang setingkat lebih atas) melalui acara Edufa (Education Fair).

Persaingan merebut Calon anak didik memang sudah menjadi agenda tahunan bagi PUD (Penyelenggara Usaha Pendidikan). Tapi anda jangan mudah terkecoh. Karena banyak PUD yang memberikan imeg sarana dan pra-sarana yang tidak sesuai dengan kenyataan. Bahkan ada beberapa PUD yang memerintahkan anak didiknya untuk menggaet teman2 yang baru akan melanjutkan sekolah dengan trik jebak kelinci, dengan imbalan sekian persen per-calon murid. Sedemikian ketatnya persaingan Usaha Pendidikan ini, sehingga nampak seperti bisnis Multi Level Marketing (MLM).

Lalu bagaimana kita harus memilih sekolah yang sesuai seperti yang kita harapkan? berikut ini beberapa trik memilih sekolah swasta :

I : Anda boleh saja mencari informasi tentang kwalitas suatu sekolah dari media massa/electronik,Internet, brosur2 yang kita terima dari orang dsb. Sebagai bahan informasi awal bagi anda.

II. : Dari Informasi awal tersebut, anda boleh menaruh minat ke beberapa Nama sekolah yang sesuai dengan berbagai pertimbangan anda.

III. : Sebelum penerimaan murid baru dimulai, sebaiknya anda melacak langsung ke sekolah yang anda minati tsb. Dengan melihat berbagai sarana, dan fasilitas sebagaimana yang diinformasikan melalui brosur2nya.

IV. : Carilah informasi tentang staf pengajar (Guru). baik tentang dedikasi maupun pengalaman staf Pengajar sekolah tersebut, dan hal2 lain yang menurut anda patut diketahui.

V. : Dan yang tidak kalah pentingnya adalah, Akses Keluar masuk sekolah dari lingkungan sekitar. Suatu sekolah dapat di katagorikan buruk kalau ia mempunyai banyak pintu masuk, selain pintu gerbang utama. karena hal ini akan mempersulit pengontrolan terhadap murid2 (yang melarikan diri) dll, demikian halnya sekolah2 yang mempunyai pintu2 yang tembus ke pemukiman warga.
Lingkungan sekolah yang baik adalah lingkungan sekolah yang tertutup dari pengaruh luar, mempunyai tempat Peribadatan seperti Masjid atau surau karena hal ini secara pisikologis dapat mempengaruhi kehidupan religi anak didik.

Dan yang terahir adalah, Cobalah anda cari tahu tentang kepemimpinan dan administrasi atau Manajemen sekolah tersbut.
Mengapa Sistim Manajemen saya sebutkan dibagian ahir Trik Memilih Sekolah ini. Karena keberhasilan seseorang dalam menuntut ilmu bukanlah tergantung pada sistim manajemennya. Melainkan kepada seberapa piawainya para guru yang dimiliki sekolah tersebut. Namun begitu Sistim manajemen yang baik yang terdiri dari para pakar dibidang masing2 akan lebih mendongkrank keberhasilan anak didik. Sebagai ilustrasi, sekolah swasta yang memenuhi kriteria sekolah yang baik dan bermutu adalah SMA Diponegoro 1 , SMA Al Azhar dan sebagainya.

Demikian artikel singkat tentang trik memilih sekolah swasta yang dapat saya sajikan pada postingan kali ini, semoga ada manfaatnya.

Minggu, 18 Maret 2012

Implementasi Code Software Mengunci Desktop dengan Printscreen

Setelah tiga postingan yang memaparkan tentang mengunci desktop komputer ditayangkan dalam blog ini, mungkin anda penasaran, ingin melihat buktinya apakah software tersebut bisa dipakai Enjoy tanpa error, atau cuma gombalan dari saya biar blognya dilihat orang, (oh...NO). silahkan Download D I S I N I Dan setelah anda mendownload, anda dapat bebas menggunakan. Dan atau mengembangkan menjadi lebih keren.

Dan sekedar keterangan untuk software ini, jika anda sudah menginstallkan ke komputer anda, pada saat pertama kali Software ini di Run, akan terlihat seperti tidak ada respon. seumpama Program PrintDesktop anda Running dari Desktop, maka yang terlihat ya.. desktop itu (tidak menunjukan adanya perubahan bahwa Program tersebut sudah jalan). anda akan tahu setelah anda menekan salah satu fungsi2 keyboard. Coba ketikan sembarang huruf, kemudian enter, pasti akan ada pesan password salah. karena anda memang belum membuatkan password. Jadi kalau anda belum membuatkan passwordnya, langsung saja enter. maka program akan terhenti(unload). dan komputer anda normal kembali.

Menonaktifkan Tombol Start menu dan Entask

Seperti yang pernah saya janjikan pada tulisan saya yang berjudul Trik Menuliskan Teks pada Form, dimana untuk menunjang kinerja program Mengunci Desktop dengan Printscreen harus disertai kode2 untuk Menonaktifkan Tombol Start agar Komputer benar2 terkunci, maka sekaranglah saatnya anda menambahkan kode2 tersebut, seperti dibawah ini :

Private Const VK_ESCAPE = &H1B
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, _
KEYEVENTF_KEYUP, 0)
End Sub

Untuk pengetesan disarankan menggunakan Command Button, Klik Command2, lalu coba anda klik start menu, kalau start menu tidak muncul atau muncul cuma sedetik kemudian nutup lagi,Command2. gunanya untuk menjalankan Timer1. Dan setelah puas anda mengetes, buang Command Button nya. Timer1 diset ke Enabled true. setelah itu tambahkan kode berikut :

'tuliskan kode ini pada module
Option Explicit

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Private Const NIM_DELETE = &H2
Public Function DisableTaskManager()
Dim tskWin As Long, t As NOTIFYICONDATA
Shell "taskmgr.exe", vbHide
Do Until tskWin <> 0
tskWin = FindWindow("#32770", "Windows Task Manager")
Loop
t.hWnd = tskWin
Shell_NotifyIcon NIM_DELETE, t
End Function

'tuliskan di form load
Private Sub Form_Load()
DisableTaskManager
End Sub

Setelah semua kode sudah anda tempatkan pada form dan modul, maka berarti Project program buatan anda sudah jadi, Tinggal jadikan project vb tersebut menjadi File exe.
Kalau anda malas menuliskan kode2nya, yang cukup banyak itu, anda bisa download di BOX.net. untuk alamat URLnya, kalau mau nanti akan saya berikan (gratis-tis).

Jumat, 16 Maret 2012

Trik Menuliskan Teks pada Form

Postingan saya yang berjudul Mengunci Desktop dengan Printscreen belumlah lengkap kalau belum ada kata kunci atau password untuk membukanya. Keaneka ragaman penulisan kata kunci merupakan daya tarik bagi para pembuat program, ada yang standar2 saja yaitu dengan menggunakan kotak TextBox, ada yang dengan input Bok dls. Dan penulisan kata kunci dalam project Mengunci Desktop ini, saya akan menggunakan trik bagaimana menuliskan kata kunci langsung pada Form, yang tentunya sesuai dengan judulnya yaitu Menuliskan Password pada Form. Ok kita langsung saja melihat code dibawah ini.

'letakan kode form General

Dim teki As Variant
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Letakan kode2 ini pada form event
Private Sub Form_KeyPress(KeyAscii As Integer)
'Jika ingin teks langsung nampak di form
'me.currentx=me.width /2 'titik awal penampakan teks
'me.currenty=me.height /2
'Me.Print Chr$(KeyAscii);
'jika mau diwaklikan ke Label, agar font mudah diset.
Label1.Caption = Label1.Caption + Chr$(KeyAscii)
If KeyAscii = 13 Then ' jika tombol keyboard = enter
If Label1.Caption = "tekateki" & Chr(13) Then '"tekateki"= pasword yg tersembunyi
MsgBox "Blaaaa..."
Unload Me
Else
MsgBox "paswd salah"
teki = ""
Label1.Caption = ""
'mengembalikan titik awal penulisan pd form. Jika tidak diwaklikan pd Label1.
'me.currentx=me.width /2
'me.currenty=me.height /2
End If
End If
End Sub

Private Sub Form_Paint()
Me.Cls
keybd_event VK_H, 0, 0, 0 ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0 ' release H
keybd_event VK_E, 0, 0, 0 ' press E
keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0 ' release E
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_O, 0, 0, 0 ' press O
keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0 ' release O
End Sub

Private Sub Form_Resize()
Label1.Left = Me.ScaleWidth / 2
Label1.Top = Me.ScaleHeight / 2
End Sub

Untuk trik pergantian isi pasword, anda dapat mengembangkan sendiri dengan cara2 seperti menyimpan dan meload teks dari system.

Jika semua berjalan lancar maka sekarang anda sudah dapat menutup screen Desktop komputer, agar komputer tidak dapat dipake oleh orang lain, selain orang yang tahu paswordnya. dengan catatan komputer nampak tidak seperti terkunci, namun tidak merespon Mouse.

Sebetelunya masih ada syntax2 yang harus mendukung terhadap kinerja program ini, sebab sekalipun mouse tidak direspon oleh program ini, akan tetapi keyboard masih tetap bisa aktif. Jadi program ini masih tetap bisa di shut down dengan cara menekan tombol Alt , Ctrl + Del. (EndTask). Dan berhubung Postingan yang terlalu panjang bikin cepet bosen, maka sabar saja, pasti akan saya hadirkan pada tulisan berikutnya. Sampai jumpa..!

Senin, 12 Maret 2012

Trik Mengunci Desktop dengan Printscreen

Cara agar komputer tidak diganggu oleh orang lain pada saat ditinggal sebentaradalah dengan mengunci Desktop, software2 yang siap pakai untuk keperluan ini juga banyak di internet, dari yang gratis sampai yang pake fulus, seperti: Desktop Locker, Quark, Matrix Screen Locker, dan lain lain. semua dibuat menurut gayanya sendiri2.

Tapi kalau anda seorang hoby's kutak katik VB 60. anda pasti ingin tahu sepertiapa sih syntax code2 nya. atau anda kurang puas karena tampilan software sudah ditentukan seperti itu, dan anda ingin mengubah sesuai selera anda. Untk itu simak baik-baik syntax2 code Trik Mengunci Desktop dengan Printscreen berikut ini :

Tuliskan kode ini pada form

Const RC_PALETTE As Long = &H100
Const SIZEPALETTE As Long = 104
Const RASTERCAPS As Long = 38
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY
End Type
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As
PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long,
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal
hObject As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal
iCapabilitiy As Long) As Long
Private Declare Function GetSystemPaletteEntries Lib "gdi32" (ByVal hdc As Long,
ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As
PALETTEENTRY) As Long
Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE)
As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal
hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As
Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC
As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture
Dim R As Long, Pic As PicBmp, IPic As IPicture, IID_IDispatch As GUID

'Fill GUID info
With IID_IDispatch
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

With Pic
.Size = Len(Pic)
.Type = vbPicTypeBitmap
.hBmp = hBmp
.hPal = hPal
End With
'Buat sebuah gambar
R = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
'kembalikkan ke gambar yang baru
Set CreateBitmapPicture = IPic
End Function
Function hDCToPicture(ByVal hDCSrc As Long, ByVal LeftSrc As Long, ByVal TopSrc

As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture
Dim hDCMemory As Long, hBmp As Long, hBmpPrev As Long, R As Long
Dim hPal As Long, hPalPrev As Long, RasterCapsScrn As Long, HasPaletteScrn As

Long
Dim PaletteSizeScrn As Long, LogPal As LOGPALETTE

hDCMemory = CreateCompatibleDC(hDCSrc)
hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
hBmpPrev = SelectObject(hDCMemory, hBmp)

RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS) ' Raster
HasPaletteScrn = RasterCapsScrn And RC_PALETTE ' Palette
PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) ' Size of

If HasPaletteScrn And (PaletteSizeScrn = 256) Then
'Mengatur versi palet
LogPal.palVersion = &H300
'Jumlah keseluruhan nomor palet
LogPal.palNumEntries = 256
'Ambil entri sistem palet
R = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
'buat palete
hPal = CreatePalette(LogPal)
'pilih palete
hPalPrev = SelectPalette(hDCMemory, hPal, 0)
'mewujudkan palete
R = RealizePalette(hDCMemory)
End If

'Salin gambar sumber ke perangkat yang kompatibel
R = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, LeftSrc, TopSrc,

vbSrcCopy)

'Mengembalikan gambar lama
hBmp = SelectObject(hDCMemory, hBmpPrev)

If HasPaletteScrn And (PaletteSizeScrn = 256) Then
'Pilih palette
hPal = SelectPalette(hDCMemory, hPalPrev, 0)
End If

'hapus memory
R = DeleteDC(hDCMemory)

Set hDCToPicture = CreateBitmapPicture(hBmp, hPal)
End Function

Private Sub Form_DblClick()
Unload Me
End Sub

Private Sub Form_Load()
Me.Visible = False
If Me.Visible = False Then
Set Me.Picture = hDCToPicture(GetDC(0), 0, 0, Screen.Width /

Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY)
Me.Top = 0
Me.Left = 0
Me.WindowState = 2
Me.Visible = True
End If
End Sub

Pada saat program anda di Run. anda tidak akan tahu bahwa program tersebut sudah jalan / running. karena screen anda tidak berubah, kalau anda masih didalam Visual Basic, maka tampilannya juga seperti jendela Visual Basic, tapi anda tidak dapat meng Klik apapun. walhasil semua terhalang oleh form tersebut, dan untuk menutup program anda yang sedang dites itu, untuk sementara pake dobel klik pada form saja dulu. dan pada kesempatan akan datang, Isnsya Allah akan saya lanjutkan dengan source code tentang Mengetikkan Password pada Form. Mengunci Endtask, Mengunci start Menu. Untuk sekarang, cukup disini dulu

selamat mencoba.

Memperbaiki Politur yang rusak

Mungkin di rumah anda ada banyak perabot yang terbuat dari bahan kayu, seperti Meja makan, Lemari pakaian, Pintu dll. Perabot macam ini biasanya dilapisi dengan Cat atau politur agar kuat dan tahan lama, sekaligus agar indah dipandang. akan tetapi setelah beberapa tahun kemudian politur pelapis sudah mulai rusak, seperti pada Meja makan, terkadang ada bercak putih yang lebar, karena tersiram air panas. atau pintu rumah yang warnanya mulai memudar tidak mengkilap atau bahkan politurnya luntur/terkelupas.

Bahan2 yang harus anda siapkan adalah :

-Ampelas
-Sepirtus
-Empng Politur
-Oker pewarna
-Kuwas
-Kain Bal

Untuk kerusakan Politur karena tersiram air panas, ambillah ampelas halus lalu ampelaslah pada bagian yang ada bercak putih, tujuanya bukan untuk menghaluskan bagian itu, tapi untuk menipiskan politur yang rusak tersebut agar dapat tembus oleh politur baru yang akan di timpakan padanya. Langkah kedua, siapkan Sepirtus secukupnya, lalu masukkan emping politur atau songka kedalam sepirtus dan tunggu beberapa saat sampai emping politur larut dengan sepirtus, kemudian bagi kedalam 2 bagian, bagian yang satu berilah warna sesuai warna permukaan politur yang akan diperbaiki dan bagian yang lain netral saja. setelah itu kuwaskan pada politur yang rusak, 2x atau 3x kwas, tunggu sampai kering betul. dan setelah yakin permukaan tersebut sudah kering, maka langkah terahir adalah buatlah bundelan dari kain yang bersih (bahan Kaus, banyak dijual di toko penyedia bahan politur). setelah anda buat bundelan, masukan kedalam larutan emping politur yang tanpa warna. kemudian peras agar tidak terlalu basah. Seka kan pada bidang yang sedang anda perbaiki politurnya secara berulang2 sehingga hasil maksimal.

Itulah sekelumit pengetahuan tentang Memperbaiki Politur yang rusak, semoga bermanfaat.

Sabtu, 10 Maret 2012

Trik mengasah Gergaji

Mungkin anda pernah melakukan suatu pekerjaan dengan menggunakan Gergaji. Tahukah anda bahwa gergaji itu ada dua macam yaitu Gergaji potong dan gergaji belah?. Pada dasarnya Gergaji manapun dapat digunakan untuk memotong atau membelah kayu, tapi hasilnya akan berbeda. Contoh : gergaji potong, jika untuk membelah kayu yang panjang akan menghasilkan belahan yang tidak lurus, dan gergaji belah, jika untuk memotong akan mengurangi ukuran panjang, misalkan anda akan memotong2 kayu yang panjangnya 100 cm kedalam 5 bagian. maka masing2 potongan kayu bukan lagi 20 cm, atau dengan kata lain jika potongan2 tersebut disatukan kembali maka panjangnya akan berkurang 0,5 sampai 1 cm. itupun kalau anda melakukan pekerjaannya dengan baik (lurus), tapi jika hasil potongannya tidak lurus maka panjang kayu akan berkurang lebih banyak. dengan demikian perhitungan anda akan selalu meleset. Mengapa..? karena "Gergaji belah" mempunyai gerigi yang lebih lebar kesamping dan ketajamannya multiple. sedangkan gergaji potong mempunyai gerigi lebih ramping dan ketajaman gerigi satu sisi kedepan dan satu sisi kebelakang saja. Sementara itu Gergaji baru (dari toko) mempunyai Type standar yaitu kerenggangan gerigi seperti jenis gergaji potong, sedangkan ketajamannya dibentuk seperti gergaji belah.

Cara mengasah

Kalau yang akan anda asah adalah gergaji baru (gergajinya sih lama, cuma sejak beli belum pernah diasah). Maka sebelum mulai mengasah anda harus ambil keputusan dulu, apakah akan dibentuk menjadi gergaji potong, gergaji belah, atau gergaji standar. Kelemahan gergaji type standar, kalau sedang buat membelah atau memotong kayu sering2 Ketika Gergaji sebagian sudah masuk kedalam kayu, di dorong maju nggak bisa ditarik mundur juga susah(terjepit). Tapi kalau anda tetap akan mengasah dengan type standar, ikuti saja bentuk seperti apa adanya. Letakkan Gergaji diatas bantalan kayu sambil diinjak bagian yang ratanya. Genggam gagang Kikir dengan tangan kanan sementara ujung kikir dengan tangan kiri. gesekkan secara teratur kearah depan setelah sampai pangkal kikir angkat, kemudian ulang 2 atau 3 kali. jangan menarik kikir kebelakang.

Jika anda ingin mengubah kedalam bentuk gergaji belah, sebelum anda asah dengan kikir, rentangkan dulu gerigi2 gergaji kearah yang sesuai dengan sisi tajam gerigi. Lebar rentang gerigi antara 0,2mm sampai 0,3mm. Cara menggesekan
kikir (mengasah)sama seperti pada bentuk gergaji standar. Dan untuk bentuk gergaji potong, rentang gerigi tidak lebih dari 0,2mm. dengan pengikiran masing2 satu gerigi sisi kanan kearah depan saja, dan gerigi sisi kiri kearah belakang saja atau sebaliknya.

Demikianlah sekedar pengetahuan yang mungkin tidak berbobot ini saya kaji dari dunia Perkayuan. dan semoga ada manfaatnya.

Jumat, 09 Maret 2012

Menghilangkan Kerak dan Karang pada Panci

Bukan maksud saya mau melecehkan Postingan bloger lain tentang menghilangkan kerak pada panci, akan tetapi kok banyak bener postingan seperti itu. dan lebih hebatnya lagi semua methodenya sama, yaitu menggunakan Baking Soda. ya.. kalau keraknya adalah kerak nasi mungkin akan membantu, karena jenis kerak seperti itu dengan merendam dengan air selama dua jam saja sudah mengembang. Tapi kalau keraknya sejenis karang, yang biasanya kalau panci sering digunakan untuk merebus air, maka pada pinggiran panci akan ada endapan karang yang makin lama makin tebal. Nah kalau keraknya sejenis ini, ya jelas nggak bisa dong mas.
Karena apa, karena tingkat keasaman baking soda atau Natrium Bikarbonat hanya sampai pada level paling rendah.

Untuk tujuan menghilangkan kerak atau karang pada panci, methode yang paling sesuai adalah dengan menggunakan Zitronzuur (Citric Acid), nama pasarnya Citrun. karena citrun punya tingkat keasaman lebih terkonsentrasi, apa lagi jika dicampur dengan Cuka, maka akan lebih tajam lagi untuk membersihkan kotoran pada kloset. Kerak karang pada Panci, dengan merebus air menggunakan panci tersebut lalu tambahkan Citrun sesuai ukuran air, untuk satu liter air = 2 sendok makan citrun. dan setelah air mendidih anda akan melihat panci bersih dari karang tanpa harus mengeluarkan tenaga dalam anda.

Ok. Selamat mencoba.

Senin, 05 Maret 2012

Menetralisir Aroma Ruangan

Menetralisir Aroma Ruangan

Trik Menetralisir aroma ruangan atau kamar ini mungkin kurang efektif bagi orang2 yang tinggal didaerah. dimana umumnya di daerah2 rumah masih saling berjauhan, sirkulasi udara masih sangat normal. sehingga bau pengap, apek, asap rokok, ompol, iler mudah hilang terbawa angin.

Berbeda dengan perumahan2 dikota2 besar, rumah saling berdempetan bahkan tidak sedikit satu dinding untuk dua rumah, ukuran kamar hanya 2 x 3 m, benar2 type minimalis karena keterbatasan lahan dan ..., walhasil kamar jadi pengap, bau iler bau asap rokok, dan semacamnyalah. memang di kota mudah dicari produk2 pengharum ruangan dengan aneka aroma, tapi kalau bau ompol plus iler kemudian disemprot dengan pengharum ruangan, itu namanya aroma campuran, bau ompol dan bau2 lainnya nggak hilang, cuma jadi bau aneh. Baunya campur2 tapi gak kaya bau gado2. nah untuk mengurangi/menghilangkan bau tak sedap itu maka anda boleh mencoba trik berikut ini :

Ambillah 3 atau 4 bongkah arang kayu (bukan arang dari cangkang kelapa). kemudian hancurkan, tapi jangan sampai terlalu halus, yah kira2 sebesar-besar kelereng. lalu masukkan kedalam kantung yang terbuat dari bahan kaos atau sejenis. letakan dipojok2 ruangan, atau kalau ada dibelakang kipas angin. niscaya bau asap rokok, bau apek, akan terserap kedalam kantung berisi arang tersebut. disarankan setelah pemakaian beberapa hari, kantung2 arang di jemur agar.... (maksudnya tahu kan..?). nah praktis dan ekonomis bukan?

Selamat mencoba.

Minggu, 04 Maret 2012

Trik Menjebak Cursor

Sekarang tiba giliran saya untuk memposting bagi para pembuat atau pecinta program dari VB6.0 Karena bagi mereka untuk mendapatkan suatu kode yang bisa diimplementasikan kedalam aplikasi program Visual basic tidaklah semudah menggoreng tahu. Walaupun postingan kali ini kelihatan agak melenceng dari topik, tapi masih tetap dalam koridor Tip & Trik.

Kalau anda seorang programmer atau paling tidak anda suka
membuat software, maka mungkin terlintas dalam benak anda
satu pertanyaan bagaimana agar orang lain yang memakai software
buatan anda tidak buru2 meninggalkan Form yang sudah anda buat
dengan susah, sebelum apa yang ingin anda sampaikan terselesaikan.
untuk keperluan itu hanya ada satu cara yaitu Menjebak Cursor.
yang mana saat program anda di run, maka Cursor tidak akan dapat
dipindahkan kemanapun kecuali di dalam program anda, nah inilah caranya

Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Command1_Click()
'Batasi gerakan Cursor hanya disekeliling form.
Dim client As RECT
Dim upperleft As POINT
'ambil informasi lebar window
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
'Convert koordinate window ke koordinate screen
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
Private Sub Command2_Click()
ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub

Kode pada Command1 adalah kode untuk memulai penjebakan mouse
atau Cursor, kalau anda mau bisa diletakan di dalam event Form Load.
dan kode yang ada dibawah Command2, adalah kode untuk melepaskan
kembali. kode ini boleh anda taruh pada elemen atau teks terahir
sekiranya maksud anda telah tercapai.

Ok sampai disini, semoga saja bermanfaat buat anda.
oleh karena isi blog ini tidak dapat dikopas, maka kalau mau download silahkan di sini: DOWNLOAD atau tinggalkan komen, nanti akan dikirim via email.(gratis..kok)