Penggunaan Array di VB.NET dan C#

Setelah beberapa hari yang lalu saya memposting tentang Membuat Shortkey dengan VB.NET dan C#.
Pada malam hari ini saya akan memposting tentang Penggunaan Array di VB.NET dan C#, sebelum memulainya saya akan memberikan penjelasan tentang array

Apa itu Array ?
Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama pula. Array merupakan konsep yang penting dalam pemrograman karena array memungkinkan untuk menyimpan data dalam jumlah banyak dan terindeks.
Array menggunakan indeks integer untuk menentukan urutan elemen-elemen didalamnya, indeks tersebut dimulai dari 0, 1, 2, dan seterusnya

Contoh Penggunaan Array di VB.NET dan C#

Mendeklarasikan variabel array
untuk mendeklarasikan variabel array anda bisa menggunakan script dibawah ini

VB.NET

Dim strarray() As String
' string menentukan tipe data array
' () menentukan ukuran array
' strarray menentukan nama array

C#

string[] strarray;
// string menentukan tipe data array
// [] menetukan ukuran array
// strarray menentukan nama array

Mendefinisikan array
setelah mendeklarasikan anda perlu untuk mendefinisikan dalam artian anda perlu menentukan ukuran array tersebut

VB.NET

strarray = New String((5) - 1) {}
' 5 adalah ukuran array

C#

strarray = new string[5];
// 5 adalah ukuran array

Menetapkan nilai array
anda perlu menetapkan nilai array yang anda buat tadi dengan script dibawah ini

VB.NET

strarray(0) = "satu"   ' Mengisi array pertama dengan satu
strarray(1) = "dua"    ' Mengisi array kedua dengan dua
strarray(2) = "tiga"   ' Mengisi array ketiga dengan tiga
strarray(3) = "empat" ' Mengisi array keempat dengan empat 
strarray(4) = "Lima"   ' Mengisi array kelima dengan lima

C#

strarray[0] = "satu";   // Mengisi array pertama dengan satu
strarray[1] = "dua";    // Mengisi array kedua dengan dua
strarray[2] = "tiga";   // Mengisi array ketiga dengan tiga
strarray[3] = "empat"; // Mengisi array keempat dengan empat
strarray[4] = "lima";   // Mengisi array kelima dengan lima

Mengakses array dengan perualngan FOR

VB.NET

' mengakses array dengan perulangan for
For i As Integer = 0 To strarray.Length - 1
    comboBox1.Items.Add(strarray(i).ToString())
Next

C#

// Mengakases array dengan perulangan for
for (int i = 0; i <= strarray.Length - 1; i++)
{
    comboBox1.Items.Add(strarray[i].ToString());
}

Mengakses array dengan perualngan FOR EACH

VB.NET

' mengakses array dengan perulangan foreach
For Each Str As String In strarray
    comboBox2.Items.Add(Str)
Next

C#

// Mengakses array dengan perulangan foreach
foreach (string str in strarray)
{
     comboBox2.Items.Add(str.ToString());
}

Berikut adalah contoh program array yang telah saya buat

Anda dapat mendownload source codenya dibawah ini

| VB.NET | C# |

Untuk password silahkan klik disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Membuat Shortkey dengan VB.NET dan C#

Setelah beberapa hari yang lalu saya memposting tentang Membuat Penomoran Otomatis dengan C# dan VB.NET.
Pada malam hari ini saya kan memposting tentang Membuat Shortkey dengan VB.NET dan C#.
Apa itu shortkey mungkin sudah banyak yang tahu apa itu shortkey, tapi saya coba memberi penjelasan mengenai shorrkey, Shortkey adalah sebuah tombol yang digunakan untuk mempercepat akses terhadap sesuatu tanpa perlu tahu dimana sesuatu itu berada

Langkah - langkah Membuat Shortkey dengan VB.NET dan C#.

1. Buka Visual Studio yang anda punya

2. Buatlah sebuah project dengan nama sesuka anda, lalu tambahkan 4 buah button dan atur tata letak button tersebut seperti gambar dibawah ini

3. Pada event Form_load ketikan script dibawah ini

VB.NET

Me.KeyPreview = True ' Setting KeyPreview menjadi true

C#

this.KeyPreview = true; // Setting KeyPreview menjadi true

4. Pada event button1 click button2 click button3 click button 4 click ketikan script dibawah ini

VB.NET

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.KeyPreview = True ' Setting KeyPreview menjadi true
    End Sub

    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        MessageBox.Show("Tombol 1 ditekan") ' Memunculkan pesan Tombol 1 ditekan
    End Sub

    Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click
        MessageBox.Show("Tombol 2 ditekan") ' Memunculkan pesan Tombol 2 ditekan
    End Sub

    Private Sub button3_Click(sender As Object, e As EventArgs) Handles button3.Click
        MessageBox.Show("Tombol 3 ditekan") ' Memunculkan pesan Tombol 3 ditekan
    End Sub

    Private Sub button4_Click(sender As Object, e As EventArgs) Handles button4.Click
        MessageBox.Show("Tombol 4 ditekan") ' Memunculkan pesan Tombol 4 ditekan
    End Sub

C#

private void button1_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 1 ditekan"); // Memunculkan pesan Tombol 1 ditekan
        }

        private void button2_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 2 ditekan"); // Memunculkan pesan Tombol 2 ditekan
        }

        private void button3_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 3 ditekan"); // Memunculkan pesan Tombol 3 ditekan
        }

        private void button4_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 4 ditekan"); // Memunculkan pesan Tombol 4 ditekan
        }

5. Pada event Form_KeyDown ketikan script dibawah ini

VB.NET

If e.KeyData = Keys.F1 Then ' jika f1 ditekan
            button1_Click(sender, e) ' menjalankan event button1 click
        ElseIf e.KeyData = Keys.F2 Then 'jika f1 ditekan
            button2_Click(sender, e) ' menjalankan event button2 click
        ElseIf e.KeyData = Keys.F3 Then ' jika f1 ditekan
            button3_Click(sender, e) ' menjalankan event button3 click
        ElseIf e.KeyData = Keys.F4 Then ' jika f1 ditekan
            button4_Click(sender, e) ' menjalankan event button4 click
        End If

C#

if (e.KeyData == Keys.F1) // jika f1 ditekan
            {
                button1_Click(sender, e); // menjalankan event button1 click
            }
            else if (e.KeyData == Keys.F2) // jika f2 ditekan
            {
                button2_Click(sender, e); // menjalankan event button2 click
            }
            else if (e.KeyData == Keys.F3) // jika f3 ditekan
            {
                button3_Click(sender, e); // menjalankan event button3 click
            }
            else if (e.KeyData == Keys.F4) // jika f4 ditekan
            {
                button4_Click(sender, e); // menjalankan event button3 click
            }

6. Jalankan program tersebut dengan menekan F5

Anda dapat mendownload source codenya dibawah ini

| VB.NET | C# |

Untuk password silahkan klik disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Membuat Random String dengan VB.NET dan C#

Setelah beberapa hari yang lalu saya telah memposting tentang Membuat Penomoran Otomatis dengan C# dan VB.NET.
pada malam kali ini saya akan memposting tentang Membuat Random String dengan VB.NET dan C#.
Terkadang kita memerlukan Random String atau String yang berisi karakter-karakter secara acak, misalnya untuk password sebuah user ataupun yang lainnya.

saya telah membuat contoh program sederhananya, tentu saja masih sangat sederhana dan anda dapat mengembangkannya sesuai kebutuhan anda sendiri, dan tidak lupa saya juga telah menambahkan komentar-komentar yang berguna untuk memahami source code tersebut
berikut beberapa screenshotnya

Anda dapat mendownload source codenya dibawah ini

| VB.NET | C# |

Untuk password silahkan klik disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Cara Menggunakan VPN Kali Linux

Cara Menggunakan VPN Kali Linux - VPN adalah singkatan Virtual Private Network, yaitu sebuah koneksi private melalui jaringan publik atau internet, virtual network berarti jaringan yang terjadi hanya bersifat virtual.. Private yaitu jaringan yang terbentuk bersifat private dimana tidak semua orang bisa mengaksesnya. Berawal dari kekesalan saya karena salah satu web yang ingin saya buka http://hackthissite.org/  di block oleh internet positif -_- saya pun cari beragam cara dari ujung banda aceh sampai tanah papua saya :v saya cari cara agar bisa membuka site tersebut akhir nya saya menemukan cara di youtube dengan menggunakan vpn , oke simak tutorial nya

Cara Menggunakan VPN Kali Linux

pertama anda harus mendownload account vpn dulu disini saya mempunyai site yang menyediakan account vpn gratis silahkan masuk dulu ke website ini http://www.vpnbook.com/freevpn setelah itu lalu pilih salah satu account disini saya memilih server USA

setelah itu download dulu account tersebut kalau sudah di download extract dulu file tersebut lalu simpan di directory home biar mudah menginstallnya jika sudah di extract langkah selanjutnya Buka Terminal lalu ketikan  

openvpn vpnbook-us1-tcp443.ovpn *sesuaikan dengan account vpn yang kita download disini saya menggunakan Server USA dengan Port 443 bisa diganti account nya sesuai selera

Setelah itu tekan enter dan akan ada dialog meminta username dan password untuk username dan password nya silahkan dulu lihat di website http://www.vpnbook.com/freevpn 

kembali lagi ke terminal lalu masukan username dan password yang tertera di website Vpnbook password nya berganti ganti setiap hari jadi kalau mau menggunakan vpn lihat dulu password nya di website Vpnbook 

jika sudah connect maka akan ada tulisan Initialization Sequence Completed berarti kita sudah terkoneksi ke jaringan vpn coba kita test ip di http://whatismyipaddress.com/ jika ip kita berasal dari luar berarti sudah connect 

haha liat alamat ip kita ada di Virginia USA :v berarti sudah connect ke vpn wkwkkw sekian dulu tutorial dari saya vpn ini membuat identitas kita di internet jadi aman dan juga kita bisa membuka website yang asalnya di block oleh ISP indonesia asal jangan buka yang enggak enggak ya hehehe sekian dan

Terimakasih

Read More

Membuat Penomoran Otomatis dengan C# dan VB.NET

Setelah beberapa hari lalu saya memposting tentang Validasi Email dengan VB.NET dan C#
Pada malam hari ini saya akan memposting tentang Membuat Penomoran Otomatis dengan C# dan VB.NET.
Penomoran otomatis biasanya di gunakan ketika kita ingin membuat sebuah program dimana data yang kita inginkan otomatis muncul dengan bentuk yang kita inginkan tanpa harus kita mengetik secara manual,
biasanya penomoran otomatis ada pada penomoran barang,nota dan lain lain

Contoh penomoran dengan format 0001,0002,0003 dan seterusnya

VB.NET

Private conn As SqlConnection
    Private cmd As SqlCommand
    Private rd As SqlDataReader
    Private strconn As String = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123"

    Private Sub btn_gen1_Click(sender As Object, e As EventArgs) Handles btn_gen1.Click
        Dim hitung As Long
        Dim urut As String
        ' Mempersiapkan koneksi database
        conn = New SqlConnection(strconn)
        conn.Open()
        ' Perintah untuk mendapatkan nilai terbesar dari field nomor
        cmd = New SqlCommand("select nomor from format1 where nomor in(select max(nomor) from format1) order by nomor desc", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        ' Jika data ditemukan
        If rd.HasRows Then
            ' Mengambil 4 karakter kanan terakhir dari field nomor lalu menambahkan dengan 1
            hitung = Strings.Right(rd("nomor"), 4) + 1
            ' Mengambil 4 karakter kanan terakhir dari string hitung+0000
            urut = Strings.Right("0000" & hitung, 4)
        Else
            ' Jika tidak ditemukan maka mengisi variable urut dnegna 0001
            urut = "0001"
        End If
        rd.Close()
        txt_format1.Text = urut
        conn.Close()
    End Sub

C#

private SqlConnection conn;
        private SqlCommand cmd;
        private SqlDataReader rd;
        private string strconn = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123";

        private void btn_gen1_Click(object sender, EventArgs e)
        {
            long hitung;
            string urut;
            // Mempersiapkan koneksi database
            conn = new SqlConnection(strconn);
            conn.Open();
            // Perintah untuik mendapatkan nilai terbesar dari field nomor
            cmd = new SqlCommand("select nomor from format1 where nomor in (select max(nomor) from format1) order by nomor desc",conn);
            rd =cmd.ExecuteReader();
            rd.Read();
            // Jika data ditemukan
            if (rd.HasRows)
            {
                // Mengambil 4 karakter kanan terakhir dari field nomor lalu menambahkan dengan 1
                hitung = Convert.ToInt64(rd["nomor"])+1;
                string joinstr = "0000" + hitung;
                // Mengambil 4 karakter kanan terakhir dari string joinstr
                urut = joinstr.Substring(joinstr.Length-4, 4);
            }
            else
            {
                // Jika tidak ditemukan maka mengisi variable urut dnegna 0001
                urut = "0001";
            }
            rd.Close();
            txt_format1.Text = urut;
            conn.Close();
        }

Contoh penomoran dengan format 0001,0002,0003 dan seterusnya

VB.NET

' Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private rd As SqlDataReader
    Private strconn As String = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123"

    Private Sub btn_gen2_Click(sender As Object, e As EventArgs) Handles btn_gen2.Click
        Dim hitung As Long
        Dim urut As String
        ' Mempersiapkan koneksi database
        conn = New SqlConnection(strconn)
        conn.Open()
        ' Perintah untuk mendapatkan nilai terbesar dari field nomor
        cmd = New SqlCommand("select nomor from format2 where nomor in(select max(nomor) from format2) order by nomor desc", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        ' Jika data ditemukan
        If rd.HasRows Then
            ' Mengambil 4 karakter kanan terakhir dari field nomor lalu menambahkan dengan 1
            hitung = Strings.Right(rd("nomor"), 4) + 1
            ' Menambahkan string BRG dengan 4 karakter paling kanan dari string 0000+hitung
            urut = "BRG" + Strings.Right("0000" & hitung, 4)
        Else
            ' Jika tidak ditemukan maka mengisi variable urut dengan BRG0001
            urut = "BRG0001"
        End If
        rd.Close()
        conn.Close()
        txt_format2.Text = urut
    End Sub

C#

private SqlConnection conn;
        private SqlCommand cmd;
        private SqlDataReader rd;
        private string strconn = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123";

        private void btn_gen2_Click(object sender, EventArgs e)
        {
            long hitung;
            string urut;
            // Mempersiapkan koneksi database;
            conn = new SqlConnection(strconn);
            conn.Open();
            // Perintah untuk mendapatkan nilai terbesar dari field nomor
            cmd = new SqlCommand("select nomor from format2 where nomor in(select max(nomor) from format2) order by nomor desc", conn);
            rd = cmd.ExecuteReader();
            rd.Read();
            // Jika data ditemukan
            if (rd.HasRows)
            {
                // Menambahkan data dari field nomor
                hitung = Convert.ToInt64(rd[0].ToString().Substring(rd["nomor"].ToString().Length - 4,4))+1;
                string joinstr = "0000" + hitung;
                // Mengambil 4 karakter kanan terakhir dari string joinstr lalu di tambahkan dengan string BRG
                urut = "BRG" + joinstr.Substring(joinstr.Length - 4, 4);
            }
            else
            {
                // Jika tidak ditemukan maka mengisi variable urut dengan BRG0001
                urut = "BRG0001";
            }
            rd.Close();
            txt_format2.Text = urut;
            conn.Close();
        }

Contoh penomoran dengan format yyyMMddxxx

VB.NET

Private conn As SqlConnection
    Private cmd As SqlCommand
    Private rd As SqlDataReader
    Private strconn As String = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123"

    Private Sub btn_gen3_Click(sender As Object, e As EventArgs) Handles btn_gen3.Click
        Dim hitung As Long
        Dim urut As String
        ' Mempersiapkan koneksi database
        conn = New SqlConnection(strconn)
        ' Perintah untuk mendapatkan nilai terbesar dari field nomor
        cmd = New SqlCommand("select nomor from format3 where nomor in(select max(nomor) from format3) order by nomor desc", conn)
        conn.Open()
        rd = cmd.ExecuteReader
        rd.Read()
        ' Jika data ditemukan
        If rd.HasRows Then
            ' Jika 8 karakter dari kiri pada field nomor tidak sama dengan Format(Now, "yyyyMMdd")
            If Strings.Left(rd("nomor"), 8) <> Format(Now, "yyyyMMdd") Then
                ' Mengisi variable urut
                urut = Format(Now, "yyyyMMdd") + "0001"
            Else
                ' Menambahkan data dari filed nomor
                hitung = rd("nomor") + 1
                ' Mengisi variable urut
                urut = hitung
            End If
        Else
            ' Jika tidak ditemukan maka mengisi variable urut dengan format date yyyyMMdd+0001
            urut = Format(Now, "yyyyMMdd") + "0001"
        End If
        rd.Close()
        conn.Close()
        txt_format3.Text = urut
    End Sub

C#

private SqlConnection conn;
        private SqlCommand cmd;
        private SqlDataReader rd;
        private string strconn = "Data Source=Kanzato;Initial Catalog=latnomor;Persist Security Info=True;User ID=sa; Password=root123";

        private void btn_gen3_Click(object sender, EventArgs e)
        {
            long hitung;
            string urut;
            // Mempersiapkan koneksi database;
            conn = new SqlConnection(strconn);
            // Perintah untuk mendapatkan nilai terbesar dari field nomor
            cmd = new SqlCommand("select nomor from format3 where nomor in(select max(nomor) from format3) order by nomor desc", conn);
            conn.Open();
            rd = cmd.ExecuteReader();
            rd.Read();
            // Jika data ditemukan
            if (rd.HasRows)
            {
                // Jika 8 karakter dari kiri pada field nomor tidak sama dengan Format(Now, "yyyyMMdd")
                if (rd["nomor"].ToString().Substring(0, 8) != DateTime.Now.ToString("yyyyMMdd"))
                {
                    // Mengisi variable urut
                    urut = DateTime.Now.ToString("yyyyMMdd");
                }
                else
                {
                    // Menambahkan data dari field nomor
                    hitung = Convert.ToInt64(rd["nomor"].ToString())+1;
                    // Mengisi variable urut
                    urut = Convert.ToString(hitung);
                }
            }
            else
            {
                // Jika tidak ditemukan maka mengisi variable urut dengan format date yyyyMMdd0001
                urut = DateTime.Now.ToString("yyyyMMdd") + "0001";
            }
            rd.Close();
            txt_format3.Text = urut;
            conn.Close();
        }

Jalankan program tersebut, berikut screen shot contoh yang saya buat

Anda dapat mendownload source codenya dibawah ini

| VB.NET | C# |

Untuk password silahkan klik disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Download Kumpulan Ebook Kali Linux

 

Download Kumpulan Ebook Kali Linux - Pada Kesempatan kali ini saya akan memberikan kumpulan Ebook mengenai Kali Linux ebook yang saya bagikan ini gratis tanpa di pungut biaya hehe di Ebook ini ada bermacam macam tutorial mengenai kali linux seperti Metasploit, Social Engineering, Terus ada lagi Hacking Wireless, Sql Injection dan masih banyak lagi tutorial tutorial lainnya yang akan saya bagikan di kesempatan kali ini oke langsung saja Silahkan Download 

Download Ebook Kali Linux

 1.Kali Linux Documentation - Ini adalah Ebook yang di buat langsung oleh si pembuat Kali Linux yaitu Offensive Security di ebook ini akan membahas mengenai dasar Kali Linux seperti menginstall dan lain lain ebook ini tersedia dalam bahasa indonesia                                    

 2.Kali Linux Cookbook - Dalam Ebook ini kita akan di beri pengetahuan mengenai Kali Linux dari menginstall, menjalankan program , melakukan hacking sistem dan masih banyak lagi menurut saya ebook ini cocok bagi anda yang masih pemula dalam dunia Kali Linux ebook ini Berbahasa Inggris

 

                                         

3.Web Pentration Testing With Kali Linux - Ebook ini menceritakan bagaimana melakukan Penetration Testing Menggunakan Kali Linux ebook ini sangat cocok bagi anda yang suka Hacking

4.Kali Linux Social Engineering - Ebook ini membahas mengenai Social Engineering Kali Linux

 

5.Kali Linux Instant - Sama seperti Kali Linux Cookbook ebook ini pun membahas mengenai dasar dasar kali linux juga ada beberapa tutorial lainnya yang berhubungan dengan hacking with kali linux

 

6.Hacking Wireless Network For Dummies - Di Ebook ini akan menjelaskan hacking wireless

7.Sql Injection Attack And Defense - Di Ebook Ini Menjelaskan tutorial Sql Injection attack

8.Xss Attack Exploit And Defense - Ebook yang membahas Mengenai Xss attack dan defense

9.The Hackers Underground Handbook - Ebook ini membahas mengenai dasar dunia hacking

10.Metasploit - The Penetration Tester Guide - Ebook ini menjelaskan tutorial Metasploit

                                                                 

11.Kali Linux Pentest 2 - Ebook ini berisi tutorial pentest dengan kali linux

                                                                

12.Kali Linux Assuring Security By Penetration Testing - Ebook ini berisi tutorial security dengan kali linux

                                                              

13.Guide To Kali Linux - Ebook ini berisi tutorial dasar kali linux 

                                                               

14.Advanced Penetration Testing for Highly-Secured Environments: The Ultimate Security Guide - Ebook ini berisi tutorial penetration testing untuk mengamankan security system

                                                                

15.Basic Security Testing With Kali Linux - Ebook ini berisi tutorial dasar kali linux mengenai hacking dan penetration testing dengan kali linux

Sekian dulu artikel ini semoga bermanfaat bagi kalian semua Terima Kasih saya pamit undur diri :D Last update: 4 juni 2014 fix broken link and add new ebook

Read More

Validasi Email dengan VB.NET dan C#

Karena sudah lama saya tidak memposting tentang VB.NET ataupun C# dan postingan terakhir adalah Export Data ke PDF dengan VB.NET dan C# , oleh karena itu pada postingan kali ini saya akan memberikan tutorial tentang Validasi Email dengan VB.NET dan C#,

Apa itu Validasi ?
Validasi data adalah proses untuk memastikan bahwa nilai yang kita inputkan memenuhi syarat-syarat tertentu,

Langkah-langkah Validasi Email dengan VB.NET dan C#,
1. Buatlah sebuah project di visual studio 2012

2. Tambahkan sebuah textbox dan label, lalu design form seperti gambar dibawah ini

3. Buatlah sebuah fungsi dengan nama checkemail dengan script dibawah ini

VB.NET

' Membuat Fungsi untuk checkemail
    Private Function checkemail(ByVal value As String) As Boolean
        ' Menyiapkan pola 
        Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
        ' Jika sukses maka akan mengembailkan nilai True, jika tidak maka akan mengembailkan nilai false
        If Regex.Match(value, pattern).Success Then
            Return True
        Else
            Return False
        End If
    End Function

C#

Boolean checkemail(string value)
        {
            // Menyiapkan pola
            string pattern = @"^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$";
            // Jika sukses maka akan mengembalikan nilai true, jika tidak akan false
            if (Regex.Match(value,pattern).Success) 
            {
                return true;
            }
            else
            {
                return false;
            }

        }

4. Pada event keypress di textbox1 ketikan script dibawah ini

VB.NET

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        ' Jika tombol enter ditekan
        If e.KeyChar = Chr(13) Then
            'jika fungsi checkemail bernilai true
            If checkemail(TextBox1.Text) = True Then
                ' memunculkan pesan email valid
                MsgBox("Email Valid", MsgBoxStyle.Information, "Informasi")
            Else
                ' memunculkan pesan email tidak valid
                MsgBox("Email tidak valid", MsgBoxStyle.Exclamation, "Peringatan")
            End If
        End If
    End Sub

C#

private void TextBox1_KeyPress(object sender, KeyPressEventArgs e)
        {
            // Jika tombol enter ditekan
            if (e.KeyChar == (char)13)
            {
                // Jika fungsi checkemail bernilai true
                if (checkemail(TextBox1.Text) == true)
                {
                    // memunculkan pesan email valid
                    MessageBox.Show("Email Valid", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information);
                }
                else
                {   
                    // memunculkan pesan email tidak valid
                    MessageBox.Show("Email tidak valid", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
                }
            }
        }

5. Jalankan program tersebut dengan menekan F5 dan ketikan email anda lalu tekan enter

Jika Email yang dimasukan salah

Jika Email yang dimasukan benar

Anda dapat mendownload source codenya dibawah ini

| VB.NET | C# |

Untuk password silahkan klik disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Istilah-Istilah dalam Jaringan Komputer

Postingan kali ini saya akan membagikan tentang Istilah-Istilah dalam Jaringan Komputer
berikut  Istilah-Istilah dalam Jaringan Komputer dari berbagai sumber yang saya ambil,
jika ada kesalahan mohon dilaporankan

• 11Base2
  Adalah satu jenis standar Ethernet (IEEE802.3) untuk Local Area Network (LAN)
• 10Base5
  Standard awal untuk Ethernet yang menggunakan kabel koasial. nama 10Base5 didasarkan pada fakta bahwa kecepatan transfer data maksimum adalah 10 Mbps, menggunakan transmisi baseband, dan panjang kabel maksimal 500 meter. 10Base5 juga disebut Thick Wire atau thick Net.
• 10BaseT
  Jenis Ethernet yang paling umum, Nama tersebut menunjukan bahwa kecepatan transmisi maksimum adalah 10Mbps. 10BaseT menggunakan kabel tembaga dan merupakan card standar untuk menghubungkan komputer pada Local Area Network (LAN).
• 100BaseT
  Adalah nama lain dari fast Ethernet yang mempunyai kecepatan transmisi sampai dengan 100 mbps 
• Administrator Jaringan
  Sumber Data Manusia yang memiliki keterampilan dan pengetahuan untuk menangani jaringan komputer dan sistem administrasi.
• ADN (Advanced Digital Network)
  Biasanya merujuk kepada saluran leased line berkecepatan 56kbps.
• ADSL (Asymetric Digital Subscriber Line)
  Sebuah tipe DSL dimana upstream dan downstream berjalan pada kecepatan yang berbeda. Dalam hal ini, downstream biasanya lebih tinggi. Konfigurasi yang umum memungkinkan downstream hingga 1,544 mbps dan 128 kbps untuk upstream
• Anonymous FTP
  Situs FTP yang dapat diakses tanpa harus memiliki login tertentu.
• ASCII (American Standard Code for Information Interchange)
  Standar yang berlaku diseluruh dunia untuk kode berupa angka yang merepresentasikan karakter-karakter, baik huruf, angka maupun simbol yang digunakan oleh komputer,. Terdapat 128 karakter standar ASCII (American Standar Code for Information Interchange) yang masing-masing direpresentasikan oleh tujuh digit bilangan biner mulai dari 0000000 hingga 1111111.
• Backbone
  Saluran atau koneksi berkecepatan tinggi yangm menjadi lintasan utama dalam sebuah jaringan
• Bandwidth
  Menunjukan kapasitas dalam membawa informasi. Istilah ini dapat digunakan dalam banyak hal,misalkan Telepon, jaringan kabel, bus, sinyal frekuensi radio, dan monitor
• Binary (Biner)
  Adalah informasi yang seluruhnya tersusun atas 0 dan 1. Istilah ini biasanya merujuk pada file yang bukan berformat teks, seperti halnya file garis.
• Bit (Binary Digit)
  Satuan terkecil dalam komputasi, terdiri dari sebuah besaran yang memiliki nilai antara 0 atau 1.
• bps (Bit per second)
  Ukuran yang menyatakan seberapa cepat data dipindahkan dari satu tempat ke tempat lain.
• Bridge
  Piranti yang meneruskan lalu lintas antara segment jaringan berdasarkan informasi pada lapisan data link. Segment ini mempunyai alamat lapisan jairngan yang sama. setiap jaringan seharusnya hanya mempunyai  sebuah bridge utama.
• Byte
  Sekumpulan bit yang merepresentasikan sebuah karakter tunggal. Biasanya 1 byte akan terdiri dari 8 bit.
• CGI (Common Gateway Interface)
  Sekumpulan Aturan yang mengarahkan bagaimana sebuah server web berkomunikasi dengan sebagai software dalam mesin yang sama dan bagaimana sebagian dari Software (CGI Program) berkomunikasi dengan server web.
• Chat
  Secara harfiah, chat dapat diartikan sebagai obrolan, naum dalam dunia internet, istilah ini merujuk pada kegiatan komunikasi melalui sarana baris-baris tulisan singkat yang diketikan melalui keyboard.
• CIO (Chief Information Offcer)
  Pemimpin satuan kerja yang membawahi bidang teknologi informasi di suatu instansi
• Compilling
  Proses penerjemahan ke bahasa meisn
• Connect
  Menghubungkan komputer ke jariangan
• Cracker
  Seorang yang membuat program untuk menembus sistem keamanan atau sistem komputer secara ilegal.
• Cybercrime
  Kejahatan yang terjadi diinternet.
• Cyberlaw
  Hukum yang berlaku di dunia maya
• Cyberspace
  Istilah lain dari dunia maya internet.
• Debugging
  Kesalahan dalam coding.
• Desktop Komputer
  Perangkat komputer personal yang ditempatkan diatas meja kerja
• DHCP (Dinamic Host COnfiguration Protocol)
  Sistem yang digunakan oleh ISP yang secara otomatis memberikan lamat IP baru pada pengguna yang melakukan Login.
• Disconnect
  Memutuskan hubungan komputer dengan jaringan
• Distro
  Bundel atau kumpulan paket aplikasi dalam sistem operasi Linux, seperti Redhat, Suse, dll.
• Dial up
  Koneksi internet dengan menggunakan jalur telepon biasa (PSTN) dengan modem
• DNS (Domain Name Sistem)
  Adalah sistem yang menerjemahkan domain internet, merubah serangkaian nomor yang seperti 101.232.12.5 menjadi www.microsoft.com
• Download
  Istilah untuk kegiatan menyalin data dari sebuah komputer yang terhubung dalam sebuah network ke komputer local.
• Downstream
  Istilah yang merujuk kepada kecepatan aliran data dari komputer ke komputer local malalui sebuah network.
• DSL (Digital Subscriber Line)
  Sebuah metode transfer data melalui saluran telepon reguler, Sirkuit DSL dikonfigurasikan untuk menghubungkan dua lokasi yang sepesifik.
• Ethernet
  Adalah protokol LAN yang dikembangkan oleh xerox corporation yang berkerjasama dengan DEC dan Intel pada tahun 1976. Ethernet menggunakan topologi bus atau star dan mendukung transfer data sampai dengan 10mbps. Versi Ethernet yang lebih baru yang disebut 100BaseT (atau Fast Ethernet), medukung transfer data sampi dengan 100 Mbps, dan versi terbarunya, Gigabit Ethernet, mendukung transfer data sampai dengan 1 Gbps atau 1000Mbps.
• Fast Ethernet
  Seperti Ethernet biasa, namun dengan kecepatan transfer data yang lebih cepat, sampi dengan 100 mbps, Ethernet ini juga disebut 100BaseT
• Firewall
  Kombinasi dari hardware maupun software yang memisahkan sebuah network menjadi 2 atau lebih bagian untuk alasan keamanan
• Freeware
  Aplikasi yang penggunaannya dapat dilakukan secara bebas, biasanya ditujukan untuk penggunaan personal dan bukan komersial
• FTP (File Transfer Protocol)
  Yaitu untuk kegiatan lalu-lintas file (upload maupun download) antara 2 komputer yang terhubung dengan jaringan internet.
• Gateway
  Istilah gateway merujuk kepada hardware atau software yang menjembatani 2 aplikasi atau jaringan yang tidak kompatibel, sehinggan data dapat ditransfer atar komputer yang berbeda-beda
• GPRS (General Packet Radio Service)
  Salah satu standar komunikasi wireless (nirkabel). dibandingkan dengan protokol WAP, GPRS memiliki kelebihan dalam kecepatannya yang dapat mencapai 115 kpbs dan adanya dukungan aplikasi lebih luas, termasuk aplikasi graif dan multimedia.
• GPS (Global Positioning System)
  Adalah sistem navigasi menggunakan 24 satelit MEO (Mediaum Earth Orbit atau Middle Earth Orbit) yang mengelilingi bumi dan penerima-penerima dibumi.
• Host
  Adalah sistem komputer yang diakses oleh pengguna yang bekerja pada lokasi yang jauh. Biasanya istilah ini digunakan jika ada 2 sistem komputer yang terhubung dengan modem dan saluran telepon. Sistem mengandung data yang disebut Host, sedangkan sistem yang digunakan untuk mengakses dari jarak jauh disebut remote terminal.
• HTML (Hypertext Markup Language)
  Merupakan sala satu varian dari SGML yang digunakan dalam pertukaran dokumen melalui protokol HTTP
• HTTP (Hyper Text Transfer Protocol)
  Protokol yang didesain untuk mentransfer dokumen HTML yang digunakan dalam World Wide Web
• IMAP (Internet Message Access Protocol)
  Protokol yang didesain untuk mengakses e-mail, protokol lainnya yang sering digunakan adalah POP
• Internet
  Jaringan global yang menghubungkan jutaan komputer.
• Internet Dedicated/Leased Line
  Layanan akses internet baik domestik maupun internasional dengan menggunakan sambungan tetap.
• IP Address
  Alamat IP (Internet Protocol), yaitu sistem pengalamatan di network yang direpresentasikan dengan sederetan angka berupa kombinasi 4 deret bilangan antara 0 s/d 255 yang masing-masing dipisahkan oleh tanda titik (.), mulai dari 0.0.0.1 hinggan 255.255.255.255.
• ISDN (Integrated Services Digital Network)
  Standard komunikasi internasional untuk pengiriman suara, video dan data melalui line telepon digital atau telepon kabel biasa.
• ISP (Internet Service Provider)
  Penyedia layanan internet.
• Jaringan (Network)
  Kumpulan 2 atau lebih sistem komputer yang saling terhubung
• Leased Line
  Saluran telepon atau kabel fiber optik yang disewa untuk penggunaan 24 jam sehari untuk menghubungkan 1 lokasi ke lokasi lainnya
• Local Area Network (LAN)
  Jaringan komputer di dalam suatu lingkungan yang terbatas berdekatan secara geograif, seperti didalam gedung kantor
• Login
  Pengenal untuk mengakses sebuah sistem yang tertutup, terdiri dari username dan password
• Milis (Mailling List)
  Yaitu sebuah alamt email yang digunakan oleh sekelompok pengguna internet untuk melakukan kegiatan tukar menukar informasi.
• MIME (Multi Purpose Internet Mail Extensions)
  Ekstensi email yang diciptakan untuk mempermudah pengiriman berkas melalui attachment pada email
• MTA (Mail transport Agent)
  Perangkat lunak yang bekerja mengantarkan e-mail kepada user.
• MUA (Mail User Agent)
  Program untuk membaca e-mail.
• Netter
  Seorang atau organisasi yang menggunakan internet.
• NIC (Network Interface Card)
  Expansion board yang digunakan agar komputer dapat terhubung dengan jaringan. NIC biasa disebut dengna LAN Card (Local Area Network Card).
• Network
  Dalma terminologi komputer dan internet, network adalah sekumpulan 2 atau lebih sistem komputer yang saling berhubungan membentuk sebuah jaringan
• NTTP (Network News Transfer Protocol)
  Protokol yang digunakan utnuk mengakses atau transfer artikel yang dipostkan di Usenet News. Program pembaca news (news reader) menggunakan protokol ini untuk mengakses news
• Node
  Suatu komputer tunggal yang tersambung dalam sebuah network
• Open Source
  Piranti lunak yang diperbolehkan untuk melakukan modifikasi, pengembangan lanjut dan pendistribusian secara bebas
• Packet Swithching
  Sebuah metode yang digunakan untuk memindahkan data dalam jaringan internet.
• PERL
  Sebuah bahasa pemrograman yang dikembangkan oleh Larry Wall yang sering dipakai untuk mengimplementasikan script CGI di World Wide Web. Bahasa PERL diimplementasikan dalam sebuah interpreter yang tersedia untuk berbagai maacm sistem oparasi, diantaranya Windows, Unix hingga Macintosh.
• Portal
  Halaman dalam situs internet yang berfungsi sebagai pintu masuk ke informasi di dalam web (internet)
• POP (Post Office Protocol)
  Protokol standar yang digunakan untuk mengambil atau membaca email dari sebuah server. Protokol POP yang terakhir dan paling populer digunakan adalah POP3.
• PPP (Point to Point Protocol)
• Protokol TCP/IP yang memungkinkan hubungan antara host dengan host, router dengan router atau dapat pula digunakan untuk hubungan serial antara 2 system.
• Proprietary
  Jenis aplikasi yang diikat oleh syarat-syarat tertentu terutama aspek hukum dimana tidak diperbolehkan untuk melakukan modifikasi dan pendistribusian secara bebas.
• Protocol
  Bahasa atau prosedur hubungan yang digunakan oleh satu sistem komputer dengan sistem lainnya antara keduanya dapat saling berhubungan. untuk saling berkomunikasi kedua sistem harus menggunakan protokol yang sama\
• Proxy Server
  Server yang menjembatani komputer-komputer dalam suatu jaringan agar terhubung dengan internet
• PSTN (Public Switched Telephone Network)
  Sebutan untuk saluran telepon konversional yang menggunakan kabel
• Repeater
  Suatu perangkat yang dipasang di titik-titik tertentu dalam jaringan untuk memperbarui sinyal-sinyal yang ditransmisikan agar mencapai kembali kekuatan dan bentuknya semula, guna memperpanjang jarak yang dapat ditempuh. Ini diperlukan karena sinyal-sinyal mengalami perlemahan dan perubahan bentuk selama transmisi.
• RFC (Request For Comments)
  Sebutan untuk hasil dan proses untuk menciptakan sebuah standar dalam internet.
• RJ-45 (Registered Jack-45)
  Adalah konektor delapan kabel yang biasanya digunakan untuk menghubungkan komputer ke sebuah local area network(LAN) khususnya Ethernet.
• Router
  Sebuah paket software yang dikhususkan untuk menangani kneksi antara 2 atau lebih network yang terhubung melalui packet switching. Router bekerja dengan melihat alamat tujuan dan alamat asal dari paket data yang melewatinya dan memutuskan rute yang harus digunakan oleh paket data tersebut untuk sampai ke tujuan
• Routing
  Proses dan penentuan sebuah path yang di pakai untuk mengirim data ke tujuan tertentu
• SDSL (Symmetric Digital Subscriber Line)
  Salah satu tipe DSL yang memungkinkan transfer data untuk upstream maupun downstream berjalan pada kecepatan yang sama. SDSL umumnya bekerja pada kecepatan 384 kbps
• Server
  Suatu unit yang berfungsi untuk menyimpan informasi dan untuk mengelola suatu jaringan komputer.
• SGML (Standard Generalized Markup Language)
  Nama populer dari ISO Standard 8879 (tahun 1986) yang merupakan standar ISO (International Organization for Standarization) untuk pertukaran dokumen secara elektronik dalam bentuk hypertext.
• Share ware
  Jenis aplikasi yang berasal dari vendor tertentu yang ditujukan untuk penggunaan terbatas, dalam jangka waktu tertentu dengan fitur terbatas yang tidak melalui mekanisme pembelian, merupakan bentuk contoh/demo
• SMTP (Simple Mail Transfer Protocol)
  Protokol standar yang digunakan untuk mengirim email ke sebuah server di jaringan internet, untuk keperluan pengambilan email, digunakan protokol POP.
• Spider
  Istilah yang digunakan untuk mesin pencari di internet.
• SSH (Secure Shell)
  Protokol pengganti Telnet yang memungkinkan akses lebih secure ke remote-host.
• Stand alone
  Perangkat komputer yang tidak tersembung pada jaringan
• Surfing
  Menjelajahi dunia maya
• TCP/IP (Transmission Control Protokol)
  2 buah protokol yang dikembangkan oleh militer AS yang memungkinkan komputer pada jaringan dapat saling berhubungan. IP digunakan untuk memindahkan paket data atarsimpul,
  TCP digunakan untuk memverifikasi pengiriman dari client ke server.
• Telnet
  Perangkat lunak yang didesain untuk mengakses remote-host dengan terminal yang berbasis teks, misalnya emulasi VT100. Penggunaan Telnet sangat rawan dari segi security. Saat ini penggunaan Telnet telah digantikan oleh protokol SSH dengan tingkat keamanan yang lebih baik
• UDP (User Diagram Protocol)
  Salah satu protokol untuk keperluan transfer data yang merupakan bagian dari TCP/IP.
• Update
  Memperbarui program
• Upload
  Mengirim file atau program dari komputer lokal ke komputer sistem jaringan internet.
• Upstream
  Istilah yang merujuk kepada kecepatan aliran data dari komputer lokal ke komputer lain yang terhubung melalui sebuah network.
• URI (Uniform Resource Identifier)
  Sebuah alamat yang menunjuk ke sebuah resource di internet. URI biasanya terdiri dari bagian yang disebut skema yang diikuti sebuah alamat., URI diakses dengan format sekma://alamat.resource atau skema:alamat.resource. Misalnya URI http://microsoft.com menunjukan alamat resource microsoft.com yang dipanggil melalui skema HTTP.
• URL (Uniform Resource Protocol)
  Istilah ini pada dasarnya sama dengan URI, tetapi URI lebih banyak digunakan untuk menggantikan URL dalam spesifikasi teknis
• Usenet
  Dikenal dengan Net News atau News merupakan buletin board yang sangat besar dan tersebar diseluruh dunia yang dapat digunakan untuk bertukar artikel.
• UTP (Unshielded Twisted Pair)
  Jenis kabel yangterdiri dari 2 kawat tak terbungkus yang berpilin. Kabel UTP banyak digunakan pada local area network (LAN) dan sambungan telepon karena harganya lebih murah. Kabel UTP tidak sebaik kabel koaksial dan serat optik dalam hal penyediaan bandwidth dan ketahanan terhadapt interferensi
• UUENCODE (Unix to Unix Encoding)
  Sebuah metode untuk mengkonfersikan file dalam format biner ke ASCII agar dapat dikirimkan melalui email.
• VLAN (Virtual Local Area Network)
  Jaringan komputer yang seakan terhubung menggunakan kabel yang sama meskipun mungkin secara fisik berada pada bagian LAN yang lain. VLAN dikonfigurasi melalui software dan tidak hardware, yang membuatnya sangat fleksible. Salah satu keunggulan VLAN adalah jika sebuah komputer secara fisik dipindah ke lokasi lain, komputer tersebut tetap pada VLAN yang sama tanpa melakukan konfigurasi ulang hardware.
• VoIP (Voice over IP)
  VoIP adalah suatu mekanisme untuk melakukan pembicaraan telepon dengan menumpangkan data dari pembicaraan melalui internet atau intranet (yang menggunakan teknologi IP).
• VPN (Virtual Private Network)
  Koneksi internet pribadi yang aman dan terenkripsi untuk menjamin bahwa hanya pengguna yang berhak untuk mengaksesnya.
• VSAT (Very Small Aperture Terminal)
  Stasiun bumi yang digunakan pada satelit komunikasi sinyal data, suara dan video, kecuali pemancaran televisi.
• WAP (Wireless Application Protocol)
  Standar protokol untuk aplikasi wireless (seperti yang digunakan pada ponsel).
• Webmail
  Fasilitas pengiriman, penerimaan, maupun pembacaan email melalui sarana web.
• Wide Area Network (WAN)
  Jaringan komputer di lingkungan yang lebih luas yang terhubung berada pada tempat yang berjauhan dan dihubungkan dengan line telepon atau gelombang radio, bisa berbeda area geografis.
• Wi-Fi (Wireless Fidelity)
  Adalah nama resmi untuk IEEE 802.11b yang dibuat oleh Wireless Ethernet Compatibility Aliance (WECA).
• WML (Wireless Marku Language)
  Salah satu turunan dari format html yang khusus dikembangkan untuk dipakai pada protokol WAP
• Workstation
  Workstation adalah komputer yang terhubung dengan sebuah local area network (LAN). Istilah workstation juga digunakan untuk menyebut komputer yang digunakan untuk aplikasi teknik (CAD/CAM), dekstop publishing, pengembangan software dan aplikasi lailnnya yang membutuhkan tingkat komputasi dan kemampuan grafis yang cukup tinggi.
• WWW (World Wide Web)
  Sebuah sistem dimana informasi dalam bentuk teks, gambar, suara dan lain-lain, dipresentasikan dalam bentuk hypertext dan dapat diakses oleh perangkat lunak yang disebut browser.
• XML (Extensible Markup Language)
  Pengembangan lebih lanjut dari format HTML yang digunakan dalam World Wide Web. XML memiliki sejumlah kelebihan dibandingkan HTML, diantaranya dokumen lebih terstruktur, memungkinkan memanipulasi tampilan data tanpa harus berhubungan dengan webserver, serta pertukaran data antar dokumen.

Sekian dari saya
Terima kasih atas kunjugannnya semoga bermanfaat.

Read More

Upload dan Menampilkan Gambar dengan PHP dan MySQL

Setelah sekian lama saya tidak memposting di karenakan sok menyibukan diri =))

Kali ini saya akan memposting tentang Upload dan Menampilkan Gambar dengan PHP dan MySQL,

terkadang kita perlu untuk mengupload sebuah gambar ke website,

sebenarnya untuk mengupload gambar ini kita hanya perlu memindahkan gambar dari komputer client lalu di simpan di dalam sebuah folder di komputer server dan hanya nama dari gambar tersebut lah yang kita simpan ke dalam database.

Langkah - langkah Upload dan Menampilkan Gambar dengan PHP dan MySQL

1. Buatlah sebuah folder di C:\xampp\htdocs dengan nama uploadgambar

2. Tambahkan sebuah folder di dalam uploadgambar dengan nama image, folder inilah yang akan menampung gambar-gambar yang kita upload

3. Buatlah sebuah database dengan nama latihan dan buatlah sebuah table dengan script dibawah ini

create table upload (
id_gambar int (11) primary key auto_increment,
nama_gambar varchar(100)
)

4. Buatlah sebuah file php dengan nama index.php dan simpan di dalam folder uploadgambar

<?php
$server="localhost"; //lokasi server
$username="root";  // username mysql
$password="root"; // jika mysql anda tidak diberi password silahkan dikosongkan
$namadb="latihan"; // Nama database

// Mengkoneksikan file index.php ke server
$conn=mysql_connect($server,$username,$password);

// Memilih database
$db=mysql_select_db($namadb);


if (isset($_POST['upload'])) // Jika tombol upload di tekan
{
 $nama_gambar=$_FILES['gambar'] ['name']; // Mendapatkan nama gambar
 $lokasi=$_FILES['gambar'] ['tmp_name']; 
 
 // Menyiapkan tempat nemapung gambar yang diupload
 $lokasitujuan="./image";
 // Menguplaod gambar kedalam folder ./image
 $upload=move_uploaded_file($lokasi,$lokasitujuan."/".$nama_gambar);
 
 $query=mysql_query("insert into upload (nama_gambar) values ('".$nama_gambar."')");
 echo "Gambar berhasil diuplaod";
 // Merefresh halaman
 echo "<meta http-equiv='refresh' content=3;url='./'>";
}
?>
<html>
<head>
<title>[Tutorial_Koding] Uplaod Gambar dengan PHP dan MySQL</title>
</head>
<body>
<!-- Membuat form untuk mengupload gambar -->
<form method="post" action="" enctype="multipart/form-data">
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="36" colspan="3" align="center"><h3>Form Upload Gambar</h3></td>
    </tr>
  <tr>
    <td height="37">Pilih Gambar</td>
    <td>:</td>
    <td><input type="file" accept="image/*" name="gambar"> <!-- image/* digunakan untuk memfilter file gambar saja yang bisa diupload --></td>
  </tr>
  <tr>
    <td height="38">&nbsp;</td>
    <td colspan="2"><input type="submit" name="upload" value="Upload Gambar"></td>
    </tr>
</table>
</form>

<!-- membuat table untuk menampilkan data gambar yang diupload -->
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" align="center"><h3>List Gambar yang telah diupload</h3></td>
  </tr>
  <tr>
    <td>No.</td>
    <td>Nama Gambar</td>
    <td>Aksi</td>
  </tr>
<?php 
$querygambar=mysql_query("select * from upload");
// Perulangan untuk menampilkan data gambar
while ($data=mysql_fetch_array($querygambar))
{ $a++;
?>
  <tr>
   <!-- Untuk menampilkan nomor urut -->
    <td><?=$a;?></td>
    <!-- untuk menampilkan nama gambar -->
    <td><?=$data['nama_gambar'];?></td>
    <!-- membuat link yang mengarah pada lihat.php untuk melihat gambar yang diupload -->
    <td><a href="lihat.php?idgambar=<?=$data['id_gambar'];?>">Lihat Gambar</a></td>
  </tr>
<?php } ?>
</table>

</body>
</html>

5. Buatlah sebuah file dengan nama lihat.php dan ketikan script dibawah ini

<?php
$server="localhost"; //lokasi server
$username="root";  // username mysql
$password="root"; // jika mysql anda tidak diberi password silahkan dikosongkan
$namadb="latihan"; // Nama database

// Mengkoneksikan file index.php ke server
$conn=mysql_connect($server,$username,$password);

// Memilih database
$db=mysql_select_db($namadb);

// mendapakan value dari url ?lihat.php?idgambar=
$id=$_GET['idgambar'];
// Query untuk menampilkan data dari table upload
$query=mysql_query("select * from upload where id_gambar='".$id."'");
$data=mysql_fetch_array($query)
?>
<html>
<head>
<title>[Tutorial_Koding] Uplaod Gambar dengan PHP dan MySQL</title>
</head>
<body>
<!-- menampilkan gambar -->
<img src="./image/<?=$data['nama_gambar'];?>" width="500" height="500">
</body>
</html>

6. Buka browser anda dan ketikan http://localhost/uploadgambar/

Klik tombol pilih file lalu klik tombol upload gambar, jika gambar berhasil diupload maka nama gambar yang diupload akan muncul di dalam tabel list gambar

7. Klik Lihat Gambar untuk melihat gambar anda yang telah diupload

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More