PROGRAM KOMPRESI CITRA DENGAN MICROSOFT VISUAL BASIC 6.0

::. LANGKAH - LANGKAH MEMBUAT

KOMPRESI CITRA
DENGAN MENGURANGI PIXEL .::

1. Tampilan
>>Letakkan kontrol :
a. PictureBox sebanyak 2 ( Dua )
b. DriveListBox sebanyak 1 ( Satu )
c. DirListBox sebanyak 1 ( Satu )
d. FileListBox sebanyak 1 ( Satu )
e. CommandButton sebanyak 2 ( Dua )
f. CommonDialog sebanyak 1 ( Satu )






2. Pengaturan Property Setiap Objek nya Adalah Sebagai Berikut :





3. Buka Jendela Code Dan Pada Bagian Code Editor Ketikkan Kode Program nya Sebagai Berikut :

Dim Pixel
Dim Pixel2

Dim XXX As Integer
Dim YYY As Integer


Private Sub Form_Load()
Drive1.Drive = "c:\"
End Sub


Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub


Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


Private Sub File1_Click()
On Error GoTo Pesan
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Pesan:
If Err.Number = 481 Then
MsgBox "TIDAK BISA DI TAMPILKAN", vbOKOnly, "PESAN"
End If
End Sub


Private Sub Command1_Click()
On Error Resume Next
On Error Resume Next
Q = InputBox("Masukkan Nilai Pixel", "", "6")
If Q = "" Then Exit Sub
For YYY = 0 To Picture1.ScaleHeight - 1 Step Q
For XXX = 0 To Picture1.ScaleWidth - 1 Step Q
Pixel = GetPixel(Picture1.HDC, XXX + 1, YYY + 1)
Picture2.Line (XXX, YYY)-(XXX + Q, YYY + Q), Pixel, BF
Next
Picture2.Refresh
Next
Picture2.Refresh
End Sub


Private Sub Command2_Click()
Unload Me
End Sub


Declare Function GetPixel Lib "gdi32" (ByVal HDC As Long, ByVal X As Long, ByVal Y As Long) As Long




4. Hasil Akhir