Kamis, 16 Januari 2014

Pengolahan Citra


1. Buka Microsoft Visual Studio 2008
2. Klik => Create: Project
3. Ubah Project name dengan Nama anda

Gambar VB
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita 

 Gambar Form

5. Kemudian Desain Form tersebut dengan Label, TextBox, ComboBox, dan Button yang dapat kita pilih pada properties Toolbox, yang ada di sebelah kiri Form anda

Gambar Desain Form VB

6. Listing program
Public Class Form1

    Dim gambar2 As Bitmap
    Private Sub Btngray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngray.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                Rt = (vM + vH + vB) / 3
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Picturebox2.Image = Picturebox1.Image

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G - 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G + 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R - 10
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                If vM <= 0 Then vM = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
     
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R + 10
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                If vM >= 255 Then vM = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next

    End Sub

  
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R + 5
                vH = gambar2.GetPixel(Pc, Pb).G + 5
                vB = gambar2.GetPixel(Pc, Pb).B + 5
                If vM >= 255 Then vM = 255
                If vB >= 255 Then vB = 255
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox1.Image)
        Dim gambar3 As Bitmap = New Bitmap(Picturebox1.Image)
        For Pb = gambar2.Height - 1 To 0 Step -1
            For Pc = gambar2.Width - 1 To 0 Step -1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                gambar3.SetPixel(gambar2.Width - 1 - Pc, gambar2.Height - 1 - Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar3
            Picturebox2.Refresh()
        Next
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R - 5
                vH = gambar2.GetPixel(Pc, Pb).G - 5
                vB = gambar2.GetPixel(Pc, Pb).B - 5
                If vM <= 0 Then vM = 0
                If vB <= 0 Then vB = 0
                If vH <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        gambar2 = New Bitmap(Picturebox2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = 255 - gambar2.GetPixel(Pc, Pb).R
                vH = 255 - gambar2.GetPixel(Pc, Pb).G
                vB = 255 - gambar2.GetPixel(Pc, Pb).B
                If vM <= 0 Then vM = 0
                If vB <= 0 Then vB = 0
                If vH <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
            Next
            Picturebox2.Image = gambar2
            Picturebox2.Refresh()
        Next
    End Sub
End Class

7. setelah selesai, tekan F5 atau Start Debugging untuk menjalankan programnya
Hasilnya :
Gambar Hasil Tampilan VB

8.    Jika klik brightness, maka warna pada foto akan berubah menjadi terang .

Gambar Brightness

9.  Jika klik +Hijau , maka warna pada foto akan berubah menjadi Hijau .

Gambar Hijau

10.  Jika klik +Merah , maka warna pada foto akan berubah menjadi Merah .

Gambar Merah

11. Jika klik +Greyscale , maka warna pada foto akan berubah menjadi Greyscale .

Gambar Greyscale
 
 12.  Jika klik Rotate , maka warna pada foto akan berputar.
 
 Gambar Rotate

NB: Sekian Pembelajaran Pengolahan Citra nya
            Selamat Mencoba

Sabtu, 08 Juni 2013

Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.

Tugas Pemograman Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.
Object :
1. Televisi = Harga nya Rp.175000
2. DVD Player = Harga nya Rp.650000
3. CD ROOM = Harga nya 450000


uses crt;
Var
kode:byte;
harga,jumlah:longint;
th:longint;
nama:string;
begin
     clrscr;
     Writeln('INPUTKAN KODE PENJUALAN');
     Writeln('------------------------------------------');
     Write('KODE :');readln(kode);
     case kode of
          1 : begin
                 clrscr;
                 NAMA:=' "TELEVISI"';
                 Writeln('NAMA  :',nama);
                 Writeln('---------------------------------');
                 HARGA:= 1750000;
                 Writeln('HARGA : ',harga);
                 Writeln('-----------------------------------');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('-------------------------------------');
                 writeln('TOTAL HARGA :',th);
          end;
           2 : begin
                 clrscr;
                 NAMA:=' "DVD PALYER"';
                 Writeln('NAMA  :',nama);
                 Writeln('-----------------------------------');
                 HARGA:= 650000;
                 Writeln('HARGA : ',harga);
                 Writeln('-----------------------------------');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('-----------------------------------');
                 writeln('TOTAL HARGA :',th);
          end;
           3 : begin
                 clrscr;
                 NAMA:=' "CD ROOM"';
                 Writeln('NAMA  :',nama);
                 Writeln('-------------------------------------');
                 HARGA:= 450000;
                 Writeln('HARGA : ',harga);
                 Writeln('____________________');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('____________________');
                 writeln('TOTAL HARGA :',th);
           end;
     end;
readln;
end.

Screen Shot Hasil :



 




Kode 1 :








Kode 2 :

kode 3 :




Kamis, 28 Maret 2013

Apa itu Mesran[dot]Net ?

Taukah anda apa itu Mesran.net ?

Pasti anda tidak akan bisa menjawab tanpa menjelajahi langsung blog/website Mesran.net . Kali ini saya akan memberikan sedikit kesimpulan ataupun ringkasan tentang mesran.net.

Mesran.net adalah salah satu website/blog yang membahas tentang Programing pada Umumnya. tetapi selain programing kita juga bisa memperoleh informasi lainnya seperti info - info terbaru. Mesran.net dibangun oleh salah satu Dosen di STMIK BudiDharma Medan yang bernama Mesran, M.Kom.


Cukup banyak ulasan tentang Tips dan Trik yang sangat berguna bagi kita baik Handphone,PC dan lain sebagainya.Blog ini pasti update setiap harinya karena seperti yang kita lihat jumlah view visitor yang cukup meningkat.

Jadi bagi anda jangan sampai ketinggalan informasi mengenai info - info , tips dan trik serta Artikel lainnya.