Cara Membuat Widget Auto Ping dan Ping Fast Di Blog

Postingan kali ini saya akan berbagi tentang bagaimana cara membuatwidget auto ping dan ping fast.  Widget ini merupakan media / alat untuk memberitahukan kepada Search Engine agar postingan artikel yang baru kita buat cepat di ketahui oleh google dan berada di halaman pertama google.

Cara memasang dan  menggunakannya pun mudah sekali, yaitu ketika kita telah selesai mempublikasikan artikel postingan lalu kita pergi ke halaman artikel yang telah dibuat tadi, lalu klik widget ping fast atau widget auto pingyang telah di pasang di blog kita.

Manfaat memasang auto ping sangat besar bagi blog kita, selain ping secara otomatis widget auto ping ini dapat meningkatkan pengunjung blog kita dan lebih penting lagi mengoptimalkan, meningkatkanranking SEO blog. Berikut ini ada cara dan langkah-langkah yang bisa sobat ikuti, antara lain :

• Login / Masuk ke Blog sobat
• Pilih Tata Letak  >>  add gadget / tambah gadget  >>  Klik HTML Javascript 

• Meletakan widget ini terserah dan sesuai selera sobat

 

Ads not by this site

 
• Copy kode script di bawah ini dan paste kan script pada kolom html javascript

Widget auto ping

<a href="http://www.auto-ping.com/pinger"><img src="http://www.auto-ping.com/iping.php?

aut=EF14380489BD68920487F89D5739455201155A64B924

A54A750E6D8DD2AD0BC1854A7AD421A02FC8C1" alt="Ping your blog, website, or RSS feed for Free" style="border:0px solid;" /></a>

Widget ping fast

<a href="http://www.ping-fast.com/ping-my-blog6721"><img src="http://www.ping-fast.com/iping.php?aut=EC153B028BB768920487F89D5739455201155

A64B924A54A750E6D8DD2AD0BC1854A7AD421A02FC8C1" alt="ping fast  my blog, website, or RSS feed for Free" style="border:0px solid;" /></a>

• Selanjutnya klik simpan
• Selesai

Sekian dulu postingan kali ini ya, sob. Semoga bermanfaat dan sampai jumpa..

Source : http://flamboyan68.blogspot.com/2013/05/cara-membuat-widget-auto-ping-dan-ping.html

Read More

Penggunaan USING dan END USING DI VB.NET

Kali ini saya akan share tentang penggunaan USING, END USING di VBNET. Intinya adalah untuk mengoptimalkan sintak dan performance aplikasi agar tidak banyak memory komputer yang terpakai dan terbuang percuma. Maksudnya? seringkali jika kita mendeklarasikan variable tidak kita hapus (dispose/erase/clear/nothing) saat variable itu tidak kita gunakan lagi, sehingga aplikasi anda semakin lama akan semakin berat.

Contoh dalam membuat form master data saja, biasanya kita deklarasikan seperti ini kan ? 

    Dim con As Odbc.OdbcConnection

    Dim cmd As Odbc.OdbcCommand

    Dim adp As Odbc.OdbcDataAdapter

    Dim reader As Odbc.OdbcDataReader

    Dim tbl As DataTable

    Dim constr As String ="dsn=djiesoft_db;uid=sa;password=12345"

Dari contoh diatas kita bisa tahu saat form active saja sudah 6 variable yang diload ke memory, dan variable itu akan selalu ada di memory sampai form tersebut ditutup, jika kita membuka banyak form??? Baiklah langsung keUSING, END USING adalah suatu metode untuk mendeklarasikan variable/object dimana variable itu akan otomatis terhapus saat keluar dari END USING. jadi tidak perlu report untuk menulis sintak hapus seperti : variable.dispose, erase variable, variable.clear atau variable = nothing, dll. Sehingga memory kita akan aman karena object/variable tersebut otomatis di hapus. Contohnya adalah :

Contoh (sebelum menggunakan USING, END USING) : 

Lalu di event form load kita open koneksi :

        con = New Odbc.OdbcConnection(constr)

        con.Open()

Setelah itu ini contoh sintak di tombol simpan :

        cmd = New Odbc.OdbcCommand("INSERT INTO ...", con)

        cmd.ExecuteNonQuery()

dan ini contoh sintak di tombol refresh :

       cmd = New Odbc.OdbcCommand("SELECT * FROM ...", con)

        reader = cmd.ExecuteReader

        Do While reader.Read

            'ADD TO LISTVIEW/DATAGRIDVIEW...

        Loop

        reader.Close() 
'jika anda tidak .Close maka akan error saat anda tekan tombol refresh lagi/selanjutnya.

atau jika anda lebih suka menggunakan Datasource maka biasanya sintaknya seperti ini :

        adp = New Odbc.OdbcDataAdapter("SELECT * FROM ...", con)

        tbl = New DataTable

        adp.Fill(tbl)

        DataGridView1.DataSource = tbl

  
Saat anda ingin menggunakan USING, END USING maka dari contoh di atas kita hanya akan mengunakan 1 variable saja yaitu constr, selanjutnya sintak2 tersebut akan berubah menjadi :
1. di form load tidak ada sintak untuk open koneksi 
2. sintak di tombol simpan berubah menjadi :

        Using con As New Odbc.OdbcConnection(constr)

            con.Open()

            Using cmd As New Odbc.OdbcCommand("INSERT INTO...", con)

                cmd.ExecuteNonQuery()

            End Using

        End Using

3. sintak di tombol refresh berubah menjadi :
3.1 via datareader

        Using con As New Odbc.OdbcConnection(constr)

            con.Open()

            Using cmd As New Odbc.OdbcCommand("SELECT * FROM...", con)

                Using reader As Odbc.OdbcDataReader = cmd.ExecuteReader

                    Do While reader.Read

                        'ADD TO LISTVIEW/DATAGRIDVIEW...

                    Loop

                End Using

            End Using

        End Using

3.2 via dataadapter

        Using con As New Odbc.OdbcConnection(constr)

            con.Open()

            Using adp As New Odbc.OdbcDataAdapter("SELECT * FROM ...", con)

                Using tbl As New DataTable

                    adp.Fill(tbl)

                    DataGridView1.DataSource = tbl

                End Using

            End Using

        End Using

Dengan cara ini juga dapat mempersingkat anda saat ingin mengeksekusi beberapa perintah sql secara bertahap, contoh :  pertama delete, kedua insert, ketiga update :

Using cmd As New SqlClient.SqlCommand("DELETE FROM TABLE .. WHERE ..”, v_con)

     cmd.ExecuteNonQuery()

End Using

Using cmd As New SqlClient.SqlCommand("INSERT INTO TABLE .. VALUES ..”, v_con)

     cmd.ExecuteNonQuery()

End Using

Using cmd As New SqlClient.SqlCommand("UPDATE TABLE .. WHERE ..”, v_con)

     cmd.ExecuteNonQuery()

End Using

  


Nah bagaimana, cukup jelas kan? ini memang bukan aturan baku (wajib) karena setiap programmer punya logika dan style sendiri dalam menulis sintak, tetapi ada baiknya apa yang kita tahu dan menurut kita bermanfaat kita bagikan ke yang lain. Selain itu ada juga variable2 yang kita harus deklarasikan sebagai PUBLIC (module/class), semua sesuaikan dengan kondisi yang terjadi.

Source : http://djiesoft.blogspot.com/2012/12/penjelasan-dan-contoh-penggunaan-using.html

Read More

Attach Database SQL Server

Malam semua kali ini saya akan memposting tentang Cara Attach Database SQL Server

Oke langsung saja yang perlu di persiapkan adalah
1. File .mdf  dan .ldf
2. SQL Server jika menggunakan SQL Server Express harap instal SQL Management Studio terlebih dahulu

Langkah pertama adalah
1. Buka SQL Server Management Studio
2. Pilh Server, masukan username dan password lalu klik connect

3. Klik kanan database yang ada di sebelahkanan

 4. Maka akan muncul tampilan seperti di bawah ini, lalu klik add dan cari file .mdf yang kamu punya lalu klik OK

5. Dan langkah terakhir anda tinggal klik ok, lalu tunggu lah sejenak sampai proses selesai


Semoga berhasil
Sekian dulu dari saya
semoga artikel ini bermanfaat untuk anda, terima kasih sudah mengunjungi blog saya :)

Read More

10 Cara Meningkatkan SEO Blog

1. Update Artikel Setiap Hari
Selalu meng-update artikel adalah pekerjaan wajib sebagai blogger misalnya, dan tentunya artikel tersebut adalah artikel yang sangat memiliki nilai pikat yang tinggi. Tak usah terlalu banyak menulis artikel akan tetap cukup satu atau dua saja kalian update, asal itu adalah artikel yang fresh dan memang sedang dicari-cari orang (masih hangat dibicarakan oleh media). Tujuannya adalah agar situs kalian ini tetap terlihat hidup.

2. Submit Artikel ke Sosial Bookmark 

Alat promosi yang memang sangat ampuh adalah submit artikel ke berbagai sosial bookmark. Banyak sosial bookmark yang tersedia di internet, misalnya Lintas.me,Infogue.com,Antarblog.com dan masih banyak lagi yang lainnya.Saran saya untuk para blogger pemula, submitlah artikel / konten blog kalian ke sosial bookmark, jika kalian beruntung dan masuk dalam jajaran 10 Top Hits, maka kalian akan cepat kebanjiran banyak pengunjung.

3. Pasang Artikel Terkait di Blog / website
Salah satu cara jitu ini juga sangat banyak digunakan bagi kalangan webmaster maupun blogger profesional SEO sekalipun. Mengapa ini juga tergolong trik yang bisa membuat pengunjung mebeludak, karena cara ini pun cara yang sangat friendly sebab memberi kemudahan untuk para pengunjung untuk dengan cepat mengetahui berita-berita atau konten-konten yang terkait.

4. Buatlah Navigari Situs yang Baik dan Terarah 

Ciptakan sebuah kenyamanan bagi para pengunjung dengan menyediakan layanan navigasi yang baik. Navigasi ini juga sebagai langkah ampuh untuk membuat situs kalian dibanjiri para pengunjung. Pembuatan menu misalnya adalah salah satu pemegang peran penting karena dengan menyediakan menu-menu pada situs, ini adalah sebuah gambaran kecil tentang sitemap situs kalian sendiri.

5. Pasang Arsip Blog
Jika anda malas memasang artikel berkaitan, hal yang mungkin anda lakukan adalah memasang blog arsip merupakan pilihan yang wajib untuk di lakukan. banyak blog-blog bermuatan besar seperti terselubung.blogspot.com yang menjadikan blog arsip nya sebagai ladang pageview dan ini memang terbukti ampuh. Cara memasangnya sendiri cukup mudah karena sudah disediakan oleh blogspot di tambah gadget >>> Arsip blog

6. Pasang Artikel Penting di Sidebar 

Manfaatkanlah fasilitas sidebar anda untuk memberi kemudahan bagi para pengunjung sebuah situs adalah untuk menemukan artikel yang sangat bermanfaat, navigasikan sidebar anda dengan blogroll atau link artikel andalan, jangan lupa untuk menuliskan judul yang menarik dan tampilan elegan ini akan sangat membantu jumlah pageview anda dimasa yang akan datang.

7. Buatlah Blog Menjadi Secepat Mungkin
Hal ini bisa kalian lakukan dengan cara menghapus beberapa widget yang dirasa kurang terlalu penting namun justru ini akan memberatkan sebuah speed situs kalian untuk di load oleh web browser para pengunjung. Semakin lama halaman situs kalian terbuka maka secara otomatis akan melangsingkan jumlah visitor kalian.Sobat bisa mengecek kecepatan blog sobat di Iwebtool.com

8. Gunakan Jejaring Sosial 

Manfaatkan jejaring-jejaring sosial yang tersedia seperti Facebook dan Twitter. Hal ini bisa kalian lakukan dengan berpromosi konten-konten yang menarik dan tentunya yang sedang hot news atau yang paling banyak dicari oleh orang-orang.

9. Lakukan Backlink
Cara promosi yang sangat familiar sekali untuk kalangan blogger adalah backlink.Saling bertukar link (Link Exchange) adalah hal yang perlu dilakukan. Sebagai kiat cemerlang untuk berpromosi, ini juga bisa sebagai cara untuk ajang kekerabatan antar blogger.

10. Daftarkan Blog ke Mesin Pencari 

Ini adalah hal yang palin penting bagi para blogger yang mempunyai blog pastinya karena dengan cara ini, secara langsung kalian akan mempermudah peng-indeks-an URL kalian di mesin pencari secara mudah. Artinya jika kalian mendaftarkan URL kalian sendiri, ini akan mempermudah mesin pencari mengindeks URL tanpa ia harus mencarinya sendiri yang tentunya akan memakan waktu yang lumayan lama.Sobat bisa mendaftarkan blog sobat di Submit Your Blog

Source : http://mylaboratorium.blogspot.com/2012/05/10-cara-meningkatkan-seo-blog.html

Read More

Statement Case Di VB.NET

Pagi semua kali setelah kemarin saya memposting tentang Statement IF Di VB.NET
kali ini saya akan melanjutkan postingan saya yaitu Statement Select Case Di VB.NET
Select Case mempunyai fungsi yang sama dengan switch case pada php dan pada bahasa pemrograman
lainnya.

Fungsi dari Select Case hampir sama dengan Fungsi IF. Select Case berfungsi sebagai kontrol statement
pemilihan dimana nilanya sudah pasti atau dengan kata lain kondisinya sudah tetap. Dalam Select Case
terdapat beberapa case atau beberapa kondisi

Bentuk dasar dari Select Case adalah

Select Case namavariable
           Case 1

           Case 2

           Case 3
End Select

Contoh sederhana penggunaan Select Case adalah sebagai berikut

Dim Nilai As Integer = 4
Select Case Nilai
           Case 1 :
           MsgBox("Isi dari variable Nilai adalah Satu")
           Case 2 :
           MsgBox("Isi dari variable Nilai adalah Dua")
           Case 3 :
           MsgBox("Isi dari variable Nilai adalah Tiga")
           Case 4 :
           MsgBox("Isi dari variable Nilai adalah Empat")
           Case Else
           MsgBox("isi dari variable Nilai tidak sesuai ketentuan")
End Select

Logikanya begini jika variable Nilai berisi 1 maka akan muncul pesan "Isi dari variable Nilai adalah Satu")
Jika variable Nilai berisi 2 maka akan muncul pesan "Isi dari variable Nilai adalah Dua")
Jika variable Nilai berisi 3 maka akan muncul pesan "Isi dari variable Nilai adalah Tiga")
Jika variable Nilai berisi 4 maka akan muncul pesan "Isi dari variable Nilai adalah Empat") 
Jika variable Nilai tidak berisi 1, 2, 3, atau 4  maka akan muncul pesan "Isi dari variable Nilai tidak sesuai ketentuan")


Sekian dulu dari saya
semoga artikel ini bermanfaat untuk anda, terima kasih sudah mengunjungi blog saya :)

Read More

Statement IF di VB.NET

Sore semua sudah lama tidak posting :D
kali ini saya akan memposting tentang Statment IF di VB.NET
IF merupakan salah satu struktur kendali dalam bahasa pemrograman dan di dalam program yang dibuat
pasti banyak menggunakan statment IF, oleh karna itu IF sangat lah berguna dalam membuat program

Ada beberapa penggunaan IF diantaranya adalah
IF Tunggal, IF Ganda, IF Jamak, IF Bersarang

Contoh penggunaan IF Tunggal
      Dim nilai as integer =75
      IF nilai > 70 Then
           Messagebox("Anda lulus")
      End IF

Contoh penggunaan IF Ganda
      Dim nilai as integer = 75
      IF nilai > 70 Then
           MessageBox("Anda lulus")
      Else
           MessageBox("Anda belum lulus")
      End IF

Contoh penggunaan IF Jamak
      Dim nilai as integer = 75
      IF nilai > 90 Then
          MessageBox("Anda mendapatkan nilai A")
      Else IF nilai > 80 Then
           MessageBox("Anda mendapatkan nilai B")
      Else
           MessageBox("Anda mendapatkan Nilai C")
      End IF

Contoh penggunaan IF Tersarang
      Dim nilai as integer =60
      Dim absensi as integer = 70
      IF nilai > 55 Then
           MessageBox("Anda Lulus")
      Else
           IF absensi > 69 Then
                MessageBox("Anda Lulus")
           Else
                MessageBox("Anda tidak lulus")
           End IF
      End IF

Read More

CRUD Dengan VB.NET Bagian 2

Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu Crud Dengan VB.Net Bagian 1

Jika kemarin kita sudah mempelajari bagaimana cara menyimpan dan mencari data, kali ini saya akan menambahkan cara memperbarui/mengupdate dan menghapus/delete data

Oke langsung saja

Pertama – tama buka project yang kita buat sebelumnya dengan cara File – Open Project – Nama_project_yang_telah_kita_buat

2.  tambahkan 2 button lagi untuk tombol update dan hapus

Object	Property	Value
Button1	Name	Btn_update
	Text	Update
Button2	Name	Btn_hapus
	Text	Hapus

Sehingga tampilan form seperti dibawah ini

3. Tambahkan script dibawah ini pada sub awal

        btn_update.Enabled = False

        btn_hapus.Enabled = False

  Sehingga menjadi seperti dibawah ini

  Sub awal()

        Txt_nis.Text = ""

        Txt_nama.Text = ""

        Txt_alamat.Text = ""

        Cbo_kelamin.Text = ""

        Cbo_kelamin.Items.Clear()

        Cbo_kelamin.Items.Add("Laki - Laki")

        Cbo_kelamin.Items.Add("Perempuan")

        Btn_tutup.Text = "Tutup"

        Btn_cari.Enabled = False

        Btn_simpan.Enabled = False

        Btn_tambah.Enabled = True

        Btn_tutup.Enabled = True

        Txt_nis.Enabled = False

        Txt_nama.Enabled = False

        Txt_alamat.Enabled = False

        Cbo_kelamin.Enabled = False

        btn_update.Enabled = False

        btn_hapus.Enabled = False

    End Sub

4. Tambahkan script dibawah ini pada tombol cari

        btn_hapus.Enabled = True

        btn_update.Enabled = True

   sehingga menjadi seperti dibawah ini

   Private Sub Btn_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Btn_cari.Click

        If Txt_nis.Text = "" Then

            MsgBox("Nis masih kosong", MsgBoxStyle.Exclamation, "Peringatan")

        Else

        cmd = New SqlCommand("select nis,nm_siswa,alamat,jenis_kelamin from siswa where   nis='" & Txt_nis.Text & "'", conn)

        rd = cmd.ExecuteReader

        rd.Read()

            If rd.HasRows Then

                Txt_nis.Text = rd("nis")

                Txt_nama.Text = rd("nm_siswa")

                Txt_alamat.Text = rd("alamat")

                Cbo_kelamin.Text = rd("jenis_kelamin")

                Btn_simpan.Enabled = False

                btn_hapus.Enabled = True

                btn_update.Enabled = True

            Else

                MsgBox("Data tidak ditemukan")

            End If

            rd.Close()

        End If

    End Sub

5. Tambahkan script dibawah ini pada tombol delete

Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        If Txt_nis.Text = "" Then

            MsgBox("NIS tidak boleh kosong", MsgBoxStyle.Exclamation, "Peringatan")

        Else

            If MsgBox("Apakah anda akan menghapus data ini?", MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.Yes Then

                cmd = New SqlCommand("delete from siswa where nis='" & Txt_nis.Text & "'", conn)

                cmd.ExecuteNonQuery()

                MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "Informasi")

                Call awal()

            End If

        End If

    End Sub

6. Tambahkan script dibawah ini pada tombol update

Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click

        If Txt_nis.Text = "" Or Txt_nama.Text = "" Or Txt_alamat.Text = "" Or Cbo_kelamin.Text = "" Then

            MsgBox("Data belum lengkap", MsgBoxStyle.Exclamation, "Peringatan")

        Else

            cmd = New SqlCommand("update siswa set nis='" & Txt_nis.Text & "',nm_siswa='" & Txt_nama.Text & "',alamat='" & Txt_alamat.Text & "',jenis_kelamin='" & Cbo_kelamin.Text & "'", conn)

            cmd.ExecuteNonQuery()

            MsgBox("Data berhasil diupdate", MsgBoxStyle.Information, "Informasi")

            Call awal()

        End If

    End Sub

8. jika sudah maka coba jalankan program tersebut dengan cara tekan F5 atau klik menu Debug – Start Debugging

Jika anda ingin mendownload source code silahkan klik disini

dan untuk passwordnya disini

semoga berhasil
sekian untuk postingan saya kali ini

Read More