Source Code Membuat Invert Warna Form di VB 6

Untuk menginvert warna form di VB 6, diperlukan 1 buah form dan 1 buah Module. Copy Paste code di bawah ini di Module: Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function GetActiveWindow Lib "user32" () As Long Public Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long  Kemudian Copy Paste Code ini di form: Private Sub Command1_Click() Dim dHwnd As Long Dim dDc As Long Dim rc As RECT rc.Left = 0 rc.Top = 0 rc.Right = 1500 rc.Bottom = 1500 dHwnd = GetActiveWindow dDc = GetWindowDC(dHwnd) sakde = InvertRect(dDc, rc) End Sub Private Sub Command2_Click() Me.Hide End Su...

Read more »

Source Code Menampilkan Screensaver di VB 6

                   Untuk menampilkan screensaver ketika form di load sangat mudah, caranya:          1. Buat 1 project baru          2. Buat 1 form. Copy paste kode dibawah ini: Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long           Const SC_SCREENSAVE = &HF140&           Const MON_OFF = 2&           Const WM_SYSCOMMAND = &H112 Private Sub Form_Load() SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, Monochrome End S...

Read more »

Update Avast 5 Free Edition

             Avast 5 Free edition hadir dengan beberapa keunggulan. Salah satunya adalh ukuran file update manualnya yang 28 Mb, lebih sedikit 5Mb dari update avast 4.8 yang 33 Mb. Download Update Avast 5 Free DISINI cttn: Update avast online jauh lebih cepat. Juga jika dibandingkan dengan Update antivirus lain!! Jika anda mengupdate avast secara langsung dari computer yang terhubung dengan internet, hanya perlu waktu3 menit untuk proses update nya. ...

Read more »

Download Avast 5 Free Edition

           Avast kembali merilis 3 antivirus terbaru yaitu Avast Free 5, Avast Pro dan Avast Internet Security. Ketiga produk Avast ini merupakan produk baru asli bukan Update an dari produk sebelumnya. Ketiganya yaitu:1. Avast! Free Antivirus. Ini adalah produk andalan avast yang baru dan menggantikan Avast Home Edition . Seri ini fokus pada pengguna yang menggunakan internet untuk browsing web dan email. Jika itu yang Anda lakukan di internet, ini adalah produk yang anda butuhkan.Gratis dan ampuh, 2 kata yang cocok untuk Versi Avast Free versi 5 ini.Download Avast 5 free Disini 2. Avast! Internet Security. Ini adalah merek-produk baru dan fokus pada pengguna yang melakukan on-line perbankan atau belanja atau yang memiliki data sensitif pada...

Read more »

Download Mozilla Firefork Terbaru (Versi 3.6)

Speed You Can Really Use We’re constantly optimizing Firefox to be great for the way you use the web – things like making new tabs open up more quickly, or having the Awesome Bar provide results even faster. In the end, it’s about getting you where you need to go as quickly and easily as possible. Itu adalah sebagian dari promo tentang performace dari firefork edisi terbaru yang ditawarkan mozilla. Dibawah ini adalah beberapa Top Features yang ditawarkan oleh mozilla: Top Features Private Browsing Surf the Web without leaving a single trace. Password Manager Remember site passwords without ever seeing a pop-up. Awesome Bar Find the sites you love in seconds (and without having to remember clunky URLs). Super Speed View Web pages way faster, using less of your computer’s memory. Anti-Phishing...

Read more »

Belum ad Judul

Terdiam aku dalam kelam Yang menyeretku dalam bayang-bayang Malam yang mencekam Awan-awan kelabu Dan hujan membisu Anginpun seolah malu Tertawakan aku yang tak tahu Bagaimana kau Dibelakangku Akupun tak mau tahu Karena aku selalu ingin tahu Kau milikku Selalu Setiap waktu Kau ada disampingku Tapi waktu jua Yang sadarkanku Dari mimpi yang palsu Kau tak milikku Pilu Sendu Jadi Satu Dalam kalbu Yang membe...

Read more »

Emotion Bergerak di Facebook

Bikin Chat di FB tambah asik?            Gampang koq,,, karang ada feature baru dari  facemood yang bisa di pake buat nampilan emotion yang baru dan bisa bergerak dengan hanya menambahkan add ons nya di browser kamu. maw coba??? klik aja disini. tampilan emotion yang bergerak ne: sumber : facemood.com Catatan : install dulu add ons di firework yar bisa chat,,,,...

Read more »

Ubah Caption Tombol Jika Diklik di VB 6

       Misalnya mengubah caption tombol dengan nama 'btnAdd', caranya:            Klik 2 kali tombol btnAdd            isi kode seperti dibawah ini: Private Sub btnAdd_Click()       If btnAdd.Caption = "Add" Then      call tambah;      btnAdd.Caption = "Save"   'mengubah caption "add" menjadi ''save" Else        btnAdd.Caption = "Add"    'jika caption 'save' pas diklik akan diubah menjadi "add" End Sub yupz,,,demikian contoh mengubah caption tombol di event cli...

Read more »

FB Emotion (Facebook Chat)

Maw buat emotion yang lucu2 di Facebook? simak gambar dibawah ini. semoga bermanfaat Facebook Emotion: source: http://www.fbemoticons.com/tag/fb-emoti...

Read more »

Download SMADAV 2010 Rev 8

             Smadav 2010 Rev. 8 dirilis dengan berbagai fitur dan penyempurnaan baru yang dikhususkan untuk pemberantasan virus lokal. Fitur-fitur itu seperti Smad-Behavior yang bisa mengenali virus lokal baru yang belum ada di database Smadav dari tingkah lakunya ketika menginfeksi sistem. Smad-Ray yang bisa melakukan scan flashdisk secara otomatis setelah terpasang hanya dalam waktu maksimum 5 detik. Smadav 2010 lebih stabil dan sangat disarankan untuk digabungkan dengan antivirus internasional karena Smadav hanya bisa menangani virus lokal. Pengebalan flashdisk (menggunakan folder autorun.inf) telah disempurnakan lagi dan sebelumnya akan ada konfirmasi sehingga Anda bisa memutuskan apakah suatu flashdisk ingin dikebalkan atau tidak.            ...

Read more »

Splash Screen di VB

Untuk Membuat Splash Screen Di vb Seperti ini: diperlukan Beberapa control yaitu: 2 buah Timer dengan nama Timer1 dan Timer 2 1 buah picture box 1 buah Command Button dengan nama Command1 codingnya:        Private Sub Timer1_Timer() '----------------------------------------------------------------------------------' 'Buat bunyi beep pas loading' '----------------------------------------------------------------------------------' Dim Cnt As Long     For Cnt = 0 To 500 Step 10         Beep Cnt, 50     Next Cnt '----------------------------------------------------------------------------------' 'Menampilkan tulisan pas loading' '----------------------------------------------------------------------------------' MousePointer...

Read more »

Proposal TA

A. JUDUL: SISTEM ARSITEKTUR RUMAH BALI BERDASARKAN ASTA KOSALA-KOSALI B. Latar belakang                 Pada saat ini teknologi telah mengalami kemajuan yang pesat sejalan dengan kemajuan kebudayaan masyarakat itu sendiri. Salah satu perkembangan yang tampak yaitu keberadaan arsitektur perumahan khas Bali yang mulai mendapat pengaruh dari arsitektur luar. Dilain pihak, keberadaan rumah berarsitektur Bali semakin hari semakin menurun. Hal ini terutama disebabkan pemahaman masyarakat tentang pedoman pembuatan rumah khas Bali yang didasarkan pada arsitektur rumah Bali yang bersumber pada konsepsi asta kosala-kosali dan asta bumi juga masih kurang.                 ...

Read more »

Duka q

Q dengar suara di sekeliling q,,. Namun semua mengabur di telinga q Kau kembali, Torehkan garam diatas luka q yang mulai mengering,,, Q ratapi duka q,, Sendiri, Tiada q maw kamu mnemani, Air mata tak kuasa,, Q cegah, Mengalir turun seolah mengejek muka yang muram,., Keras hati q mulai merapuh... Sesal q mengharu biru,,, namun, semoga bibir ini bisa berucap,, Smoga kaw bahagia dengannya,...

Read more »

Koneksi Java dengan MySQL

                             Dibawah ini adalah contoh koneksi java (menggunakan Netbeans 5 dan Mysql Connector) dengan Database MySQL Langkah-langkahnya: 1. Buat satu Java class dengan nama KoneksiDB, caranya pilih menu file>new File>Java Class 2. Copy paste code di bawah ini: public class KoneksiDB { public static Connection koneksi=null; /** Creates a new instance of KoneksiDB */ public KoneksiDB() { } public static Connection getConnection() { boolean ada_kesalahan = false; try { Class.forName("com.mysql.jdbc.Driver"); } catch (Exception ex) { System.out.println("ada kesalahan saat koneksi database pertama : "+ ex); ada_kesalahan=true; } ...

Read more »

Puisi: Angin Malam

Angin malam Yang berhembus perlahan Sampaikanlah salam Di penghujung malam Kepadanya Sijuwita malam Yang terbaring sendiriaan Didinginnya malam Wahai angin Dan kau malam sampaikanlah salam Dari ku yang malang Yang tak bisa datang Karena hanya kepadamulah malam Aku bisa sampaikan salam Yang tak bisa kukatakan Karena hanya kepadamulah malam Aku bisa bicarakan Isi hati yang dalam Terkubur dalam Da...

Read more »

Puisi: Suatu Sore yang Sepi

Di sore yang sepi ini Kuteringat senyummu Dimalam yang menjelang.. Kuteringat padamu sayang Namun kembali kuteringat... Jarak yang membentang.. Sulit Ku rengkuh dirimu Walau ingin menyesakkan dadaku Walau wajahmu lukai mataku Seandainya Kamu mau mengerti Semua rasa ini Mungkin hatiku tak kan musnah Bersama angan yang membentang Di sore hari ini Di tempat yang jauh Dari dirimu Aku hanya bisa hayalkan mu Bahagia Disitu.......

Read more »

Puisi: Senyummu

Senyummu… Buat ku termangu Kerlingan matamu… Buat ku bisu…. Tutur katamu… Buat ku gagu... Sapamu.. Buat ku ragu.... Debar jantung ini Tak bisa kutahan lagi Gemetar tangan ini Bagai mimpi yang tak pasti Saat kau hampiri Diri ini Bagai dewi di siang hari Saat malam Gemerlap bintang tak seindah senyummu Gemerisik suara malam Takbisa tandingi merdu suaramu Hati ini Mendamba Kedatanganmu Wahai kau Pujaan hatik...

Read more »

Menambahkan Musik Ke Flash

function minvol() { if (bgmusik.getVolume("musik") > 0) { bgmusik.setVolume(bgmusik.getVolume("musik") - 10); } // end if } // End of the function function maxvol() { if (bgmusik.getVolume("musik") < 150) { bgmusik.setVolume(bgmusik.getVolume("musik") + 10); } // end if } // End of the function function musikoff() { bgmusik.stop("alpa"); } // End of the function function musikon()   { bgmusik.start(0, 999); } // End of the function bgmusik = new Sound(); bgmusik.attachSound("alpa"); bgmusik.setVolume(70); bgmusik.start(0, 999); stopmusik.gotoAndPlay(1); ctatan : "alpa" adalah nama musik di Linkage. Download file SWF nya disi...

Read more »

Puisi: Alone in The Dark

Oh dear… In this moonlight I stay here... With something in my hearth… oh night bird I sit here Saw you in the tree With your wife I jealous with you Can be with your dream But me….??? Just alone in the dark.. Just a lone in the night… Just alo...

Read more »

Makalah Perawatan Komputer

Perkembangan zaman yang sangat pesat ternyata memberi pengaruh di berbagai bidang kehidupan, termasuk dalam bidang teknologi informasi. Seperti halnya penggunaan media komputer dalam kehidupan sehari-hari. Saat ini, komputer tidak hanya digunakan pada kalangan tertentu saja tetapi komputer seakan-akan telah menjadi kebutuhan primer bagi sebagian besar kalangan. Memang telah banyak orang mengetahui cara mengoperasikan komputer dengan berbagai operating system yang telah beredar di pasaran. Dalam menggunakan komputer seringkali user menghadapi hambatan, seperti halnya booting komputer yang lambat, loading yang lambat, serta berbagai keluhan lainnya yang dapat memperlambat kinerja user. Permasalahan di atas dapat terjadi karena ada beberapa komponen komputer yang tidak mendapatkan perawatan...

Read more »

Menjalankan File .exe di Flash

          Untuk menjalankan file aplikasi kita harus menggunakan action script [exec]. ActionScript (AS) ini terletak di [Global Funcionts]>>[Browser/Network]>>[fscommand]. Sintaksnya sebagai berikut fscommand("exec", "Galih.exe"); Dimana [Galih.exe] merupakan file aplikasi yang akan dijalankan. Terdapat beberapa ketentuan dalam menggunakan AS ini, diantaranya: AS ini tidak berfungsi pada browser Hanya berfungsi pada stand-alone (flash yang dipublish menjadi file aplikasi/*.exe), dan tidak berfungsi pada file Shockwave Flash (ekstensi *.swf). Tidak berfungsi pada  test-movie players (Ctrl+Enter). Hanya boleh berisi karakter A-Z, a-z, 0-9, period (.), dan underscore (_).           ...

Read more »

Fungsi onClipEvent di Flash

onClipEvent(pilihanEvent){ statement;} 1. onClipEvent(load) Ketika movie klip muncul pertama kali di timeline (di-load) 2. onClipEvent(enterFrame) Ketika setiap frame movie klip dimainkan 3. onClipEvent(unLoad) Adalah saat frame pertama yang terjadi setelah movie klip di hapus dari time line. 4. onClipEvent(mouseDown) Ketika tombol kiri mouse ditekan 5. onClipEvent(mouseUp) Ketika tombol kiri mouse dilepaskan 6. onClipEvent(mouseMove) Ketika mouse digerakkan 7. onClipEvent(keyDown) Ketika tombol keyboard yang mana saja ditekan 8. onClipEvent(keyUp) Ketika tombol keyboard yang mana saja dilepaskan 9. onClipEvent(data) Ketika data eksternal atau movie flash eksternal di load ke dalam movie flash menggunakan loadVariable atau loadMov...

Read more »

Fungsi fscommand di Flash

1. fscommand fullscreen Kegunaan : membuat flash movie/swf yang dimainkan menjadi fullscreen jika nilainya true. Bagi anda yang menginginkan flash movie/swf tampil fullscreen anda bisa menggunakan fscommand ini. Penulisannya :1 fscommand("fullscreen", "true"); 2. fscommand allowscale Kegunaan : Ukuran konten di dalam swf tidak akan berubah walaupun ukuran window swf diperbesar jika nilainya false. Penulisannya :1 fscommand("allowscale", "false"); 3. fscommand showmenu Kegunaan : menghilangkan menu File, View, Control, Help dan jika swf diklik kanan maka hanya muncul settings dan about jika nilainya true. Kelemahannya, di swf akan sedikit muncul ruang kosong di bagian atas dan bawah / konten akan terlihat sedikit mengecil. Penulisannya :1 fscommand("showmenu", "false"); 4. fscommand...

Read more »

Shorcut di Microsoft Word

FORMAT KARAKTER DAN PARAGRAF a.Shortcut Menu di Interface Awal ·         Tekan tombol Alt, setelah itu tekan: Ø      H         : tab Home Ø      N         : tab Insert Ø      P          : tab Page Layout Ø      S          : tab References Ø      M         : tab Mailing List Ø      R         : Tab review Ø     ...

Read more »