Catatan Kuliah

If picada = False Then             MsgBox("Pilih dulu gambar yang akan diproses", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error Proses")             Exit Sub         End If         bmap = New Bitmap(picAwal.Image)         picAwal.Image = bmap         Dim tempbmp As New Bitmap(picAwal.Image)         Dim robert As Int64         Dim tempRed(0 To 2000, 0 To 2000) As Int64, tempGreen(0 To 2000, 0 To 2000) _         As Int64, tempBlue(0 To 2000, 0 To 2000) As Int64         Dim i, j, t1, t2, t3, t4, sx, sy As Integer         ProgressBar1.Width = picAwal.Width         ProgressBar1.Show()         With bmap             For i = 0 To .Height - 2                 For j = 0 To .Width - 2                     t1 = CInt((.GetPixel(j, i).R) + CInt(.GetPixel(j, i).G) + CInt(.GetPixel(j, i).B) / 3)                     t2 = CInt(CInt(.GetPixel(j + 1, i + 1).R) + CInt(.GetPixel(j + 1, i + 1).G) + CInt(.GetPixel(j + 1, i + 1).B) / 3)                     sx = t1 - t

    Sahabat Say yang baik hati, hari ini saya mendapat telp dari temen yang sedang ambil S2 yang meminta tolong untuk bantu dia menyelesaikan tesisnya dengan demikian saya teringat dengan masa lalu dan pingin curhat karena dengan begini saya bisa menyampaikan unek-unek saya.. dari semester 5 waktu kuliah S1 saya sudah diminta kakak senior untuk bantu buat program skripsi mereka bahkan ada dosen saya juga yang minta bantu untuk buat thesis S2-nya bahkan hingga beberapa dosen yang meminta, saya tidak tau dari mana mereka tau saya bisa membuat program untuk skripsi atau tesis dan saya tidak pernah meminta untuk membuatkan. dan satu lagi yang paling mendasar, saya tidak pernah miminta dibayar, kecuali mereka sendiri yang memberi uang untuk rokok saya katanya.     Hingga di semester 7 saya tidak aktif lagi ngampus karena bekerja menjadi programmer di salah satu perusahaan, walaupun begitu ada saja yang minta tolong buatkan program skripsi mereka namun saya menolak, yang saya tau membuatka

Assalamualaikum sahabat say yang cerdas, sudah lama tidak meng-Update blog ini, alhamdulillah hari ini saya kembali lagi untuk berbagi hal yang sederhana, setelah dijelaskan pada kesempatan sebelumnya mengenai Histogram  kini saya tinggal memberikan codingnya sesuai dengan logika yang terdapat pada Histogram  dengan vb.net 2008. langkah-langkahnya: 1 buat form dengan isi:          a. picturebox yang saya beri nama picAwal dan set ja langsung image yang akan di proses          b. AxMSChart1(cari ja di om google cara buat grafik atau chart)          c. button 2. coding                 Dim bmap As Bitmap 'deklarasi gambar/image dengan tipe Bitmap         bmap = New Bitmap(picAwal.Image) 'Gambar asli dijadikan gambar Bitmap         picAwal.Image = bmap         Dim tempbmp As New Bitmap(picAwal.Image) 'deklarasi gambar Bitmap dari gambar asli untuk diproses         Dim Red As Integer, histo(255) As Integer 'saya hanya menampilkan histogram yang red-nya saja