Membuat gambar menjadi Grayscale (vb net)

Sekarang kembali lagi dengan pengolahan citra yg paling sederhana.
yaitu mengubah gambar berwarna menjadi grayscale. langsung saja ke contoh berikut :
Buatlah 2 buah Picture box dan file menu yg berisi open dan grayscale.
kemudian tambhakan komponen openfiledialog

  
kemudina isi Code form berikut :

 Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data

Public Class Form1

#Region "Function"
    Dim ImageLocation As String = ""

    Public Function ConvertToGrayscale(ByVal source As String) As Bitmap
        Dim img As Image = Image.FromFile(source)
        Dim bm As Bitmap = New Bitmap(img.Width, img.Height)
        Dim g As Graphics = Graphics.FromImage(bm)

        Dim cm As ColorMatrix = New ColorMatrix(New Single()() _
             { _
                New Single() {0.3, 0.3, 0.3, 0, 0}, _
                New Single() {0.59, 0.59, 0.59, 0, 0}, _
                New Single() {0.11, 0.11, 0.11, 0, 0}, _
                New Single() {0, 0, 0, 1, 0}, _
                New Single() {0, 0, 0, 0, 1} _
             })


        Dim ia As ImageAttributes = New ImageAttributes()
        ia.SetColorMatrix(cm)
        g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, ia)
        g.Dispose()
        Return bm

    End Function

#End Region

#Region "Form"

'Open file picture

Private Sub OpenPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenPictureToolStripMenuItem.Click
        Try
            Me.OpenFileDialog1.Filter = "Gambar aja|*.Jpeg;*.jpg;*.png;*.gif"

            If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                If Not Me.OpenFileDialog1.FileName Is Nothing Then
                    PictureBox1.ImageLocation = OpenFileDialog1.FileName
                    ImageLocation = OpenFileDialog1.FileName
                    PictureBox2.ImageLocation = ImageLocation
                    _image = CType(Image.FromFile(OpenFileDialog1.FileName, True), Bitmap)
                    Me.Refresh()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

'Ketika grayscale di Klik

Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click
        If Not (ImageLocation = "") Then
                    PictureBox2.Image = ConvertToGrayscale(ImageLocation)
            PictureBox2.Refresh()
        End If
    End Sub

#End Region

End Class

Hasilnya :

Validasi email Textbox di VB.net

dah lama gak main blog lagi nih.
Pada kali ini saya akan membuat textbox yg berfungsi untuk validasi string email. seperti yg kita tahu string email seperti contoh berikut :"natathecool@yahoo.co.id" terdiri dari 3 sub string penting yang pertama adalah string1@domain.xx
okelah langsung aje.
first buatlah sebuah text box dan button
kmudian isi code berikut

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not (Me.TextBox1.Text = "") Then
            Dim emailRegex As System.Text.RegularExpressions.Regex
          emailRegex = New System.Text.RegularExpressions.Regex("(?[^@]+)@(?.+\.)+([\w-])")
            Dim isMacth As Boolean = emailRegex.IsMatch(Me.TextBox1.Text)
            If isMacth Then
                MsgBox("valid email")
            Else
                MsgBox("invalid email")
            End If
        Else
            MsgBox("isi data")
            Me.TextBox1.Focus()
        End If
    End Sub

hasilnya adalah informasi valid atau tidaknya string textbox tersebut

E-Gov Indonesia

Pemerintahan elektronik atau e-government (berasal dari kata Bahasa Inggris electronics government, juga disebut e-gov, digital government, online government atau dalam konteks tertentu transformational government) adalah penggunaan teknologi informasi oleh pemerintah untuk memberikan informasi dan pelayanan bagi warganya, urusan bisnis, serta hal-hal lain yang berkenaan dengan pemerintahan. e-Government dapat diaplikasikan pada legislatif, yudikatif, atau administrasi publik, untuk meningkatkan efisiensi internal, menyampaikan pelayanan publik, atau proses kepemerintahan yang demokratis. Model penyampaian yang utama adalah Government-to-Citizen atau Government-to-Customer (G2C), Government-to-Business (G2B) serta Government-to-Government (G2G). Keuntungan yang paling diharapkan dari e-government adalah peningkatan efisiensi, kenyamanan, serta aksesibilitas yang lebih baik dari pelayanan publik.

Jika e-government seringkali dianggap sebagai pemerintahan online ("online government") atau pemerintahan berbasis internet ("Internet-based government"), banyak teknologi pemerintahan elektronik non-internet yang dapat digunakan dalam konteks ini. Beberapa bentuk non-internet termasuk telepon, faksimil, PDA, SMS, MMS, jaringan dan layanan nirkabel (wireless networks and services), Bluetooth, CCTV, sistem penjejak (tracking systems), RFID, indentifikasi biometrik, manajemen dan penegakan peraturan lalu lintas jalan, kartu identitas (KTP), kartu pintar (smart card) serta aplikasi NFC lainnya; ; teknologi polling station (dimana e-voting non-online kini dipertimbangkan), penyampaian penyampaian layanan pemerintahan berbasis TV dan radio, surat-e, fasilitas komunitas online, newsgroup dan electronic mailing list, chat online, serta teknologi pesan instan (instant messenger). Ada pula sejumlah sub-kategori dari e-government spesifik seperti m-government (mobile government), u-government (ubiquitous government), dan g-government (aplikasi GIS/GPS untuk e-government).

Ada banyak pertimbangan dan dampak potensial penerapan dan perancangan e-government, termasuk disintermediasi pemerintah dengan warganya, dampak pada faktor sosial, ekonomi, dan politik, serta halangan oleh status quo pada ranah ini.

Pada sejumlah negara seperti Britania Raya, e-government digunakan untuk mengajak kembali ketertarikan warganya pada proses politik. Dalam hal tertentu bahkan dilakukan eksperiman dengan pemilu elektronik, dimana meningkatkan partisipasi pemilu dengan membuat pemilu menjadi mudah. Komisi Pemilihan Umum Britania Raya telah melakukan sejumlah proyek percontohan, meski dibayang-bayangi kekhawatiran akan kecurangan alat ini[1]. From : Wikipedia.com