VB6 Code - 2 Baris Kode Inti Membuat Software Watermark

Apakah gambar yang diberi watermark itu? mengapa gambar diberi watermark? mengenai hal ini, saya percaya Anda (blogger) lebih tahu jawabannya. Posting kali ini kita akan membahas tentang project VB6 step by step tentang pembuatan software watermark. Dalam membuat software, tentu kita harus dapat membedakan mana yang menjadi kode inti (primer) mana yang menjadi kode tambahan (sekunder). Dengan demikian, maka kita akan dengan mudah mengatur, memelihara, menambah, mengurangi, menghilangkan, mengupdate, software tersebut. Kode inti merupakan kode utama pembentuk software. Sedangkan kode tambahan (sekunder) kode-kode yang melengkapi kode primer tadi, sehingga bisa disebut: plug-ins, add-ons, add-ins, fasilitas, tambahan, pelengkap, penyempurna, dan seluruh kata yang setara dengan itu. Umumnya dengan kode-kode sekunder tadi maka sebuah software akan memiliki versi-versi, versi 1.0, versi 1.0.1, versi 1.0.2 dan seterusnya, lengkap dengan history, bug fixed, kekurangan, serta kelebihannya. Disini saya memiliki contoh yang baik mengenai hal yang telah dijelaskan di atas, yaitu mengenai pembuatan software watermark. Kode intinya hanya 2 baris saja. Berikut kode inti dari software watermark tersebut:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 
 
Private Sub Command1_Click() 
    Picture1.Print "http://khoiriyyah.blogspot.com" 'watermark! 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'and save 
End Sub 

dan hasilnya (walaupun harus menggunakan yang lain untuk mengkonversi dari bmp ke jpg):

contoh gambar yang sudah diberi watermark

Untuk selanjutnya (To Do):

1. Mencari/membuat class, module, ocx, dll untuk merubah ke format lain (gif, jpg, jpeg, png, dsb)
2. Rotasi huruf
3. Memindahkan huruf berdasarkan koordinat
4. dsb saja (terlalu banyak untuk dituliskan).

[Download Project]

READ MORE - VB6 Code - 2 Baris Kode Inti Membuat Software Watermark

VB Code - Membuat Sound Beep ala Anti Virus AVIRA

Mengenai cara membuat suara beep seperti yang terdapat pada antivirus Avira menggunakan VB6 Code - Pada saat mendeteksi sebuah virus/malware, biasanya anti virus Avira akan mengeluarkan suara yang khas melalui internal speaker. Nah, di bawah ini merupakan cara membuat sound beep ala Avira dengan memanggil fungsi API Beep yang terdapat pada liblary Kernel32. Cobalah untuk mengkalibrasi frekuensi serta durasinya!

Option Explicit 

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 

Private Sub AvirasBeep() 
    Beep 1500, 100 'frekuensi 1500khz, durasi 100 milidetik 
    Beep 2000, 80 'frekuensi 2000khz, durasi 80 milidetik 
    Beep 3200, 70 'frekuensi 3200khz, durasi 70 milidetik 
End Sub 

Private Sub Command1_Click() 
    AvirasBeep 
End Sub 

READ MORE - VB Code - Membuat Sound Beep ala Anti Virus AVIRA

VB6 Code - Menghilangkan Tombol Max-Min Pada Saat Runtime

Mengenai cara menghilangkan tombol max dan tombol min yang terdapat pada sebelah kanan atas sebuah form - Seperti yang kita tahu bahwa pada form sebelah kanan bagian atas terdapat 3 tombol, yaitu: tombol max, tombol min, dan tombol close. Nah pada kesempatan kali ini kita akan menyembunyikan seluruh tombol menggunakan fungsi API, adapun kodenya adalah sebagai berikut:

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
  
Const WS_MINIMIZEBOX = &H20000 
Const WS_MAXIMIZEBOX = &H10000 
Const GWL_STYLE = (-16) 
Const WS_SYSMENU = &H80000 
 
Private Sub Form_Load() 
    Dim l As Long 
    l = GetWindowLong(Me.hwnd, GWL_STYLE) 
    l = (l And Not WS_SYSMENU) 
    l = SetWindowLong(Me.hwnd, GWL_STYLE, l) 
End Sub 

READ MORE - VB6 Code - Menghilangkan Tombol Max-Min Pada Saat Runtime

VB6 Code - Form SDI, Cara Menonaktifkan Tombol Close

Sebelumnya telah diposting mengenai cara mendisable tombol close pada MDI form, nah sekarang mengenai cara menonaktifkan tombol close yang terdapat pada control box SDI form menggunakan VB6 code. Di bawah ini merupakan kode untuk menghilangkan tombol close atau button X yang terdapat pada SDI form.

Option Explicit 
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long 
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
 
Private Const MF_BYPOSITION = &H400& 
 
Public Sub RemoveButtonX(frm As Form) 
    Dim hSysMenu As Long 
    hSysMenu = GetSystemMenu(frm.hWnd, 0)
    Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION) 
    Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION) 
End Sub 

Contoh penggunaan kode di atas.

Option Explicit 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    Cancel = -1 'untuk mendisable Alt + F4 </i> 
End Sub 
 
Private Sub Form_Load() 
    RemoveButtonX Me 
End Sub 

READ MORE - VB6 Code - Form SDI, Cara Menonaktifkan Tombol Close