Membuat Tombol Simpan Vb Net dan MySql

Membuat Tombol Simpan Vb Net dan MySql

  November 26, 2017   No comments:

Ini untuk yang baru belajar pemrograman Visual Basic, video berikut ini sangat mudah diikuti, dijamin langsung bisa simpan.

Tapi anda harus sudah Tonton Video-video sebelumnya, supaya langkah demi langkah terikuti :

Berikut Video Cara menyimpan data dari VB Net ke Database MySql

Silahkan kunjungi channel Youtube kami : https://www.youtube.com/channel/UCMqvg-BUgFtRhRHUQ_MWcbw

Read More

Cara Block Iklan di Google Adsense

Cara Block Iklan di Google Adsense

  November 04, 2017   No comments:

Ada beberapa iklan yang mungkin yang mau kita block, karena kita tidak suka iklan tersebut muncul di blog kita. Iklan yang tidak baik juga dapat merusak CPC kita, juga bisa membuat orang tidak menyukai blog kita karena iklan yang tidak baik dan menyesatkan.

Berikut langkah Block Iklan Di Google Adsense :
1. Masuk lah ke Akun Adsense
2. Pilih Menu Allow & block Ads

3. Pilih All my sites

4. Isikan Url / Link situs iklan yang akan diblock

Link/Url dapat diisi lebih dari satu [enter] sebagai pemisah link/url :
Lihat Link yang harus diblokir : DISINI Daftar Link yang harus diblokir 

5. klik Tombol Blokir URL

semoga bermanfaat

Read More

Cara Memindahkan Data dari Datagrid1 ke Datagrid2 Visual Basic .Net Mysql

Cara Memindahkan Data dari Datagrid1 ke Datagrid2 Visual Basic .Net Mysql

  October 31, 2017   No comments:

Bingung Mau ngasih judul apa, liat saja gambarnya mungkin teman-teman pahamlah yang saya maksud. Saya membuat artikel ini karena ada permintaan dari teman group untuk membahas ini.

1. Design Form seperti gambar dibawah ini.
    2 Buah Datagrid
    2 Buath Button

2. Buat Database

Untuk masalah koneksi antara Vb Net dengan MySql sudah dibahas pada postingan sebelumnya. Silahkan baca : Koneksi Vb .Net dengan Database Mysql Menggunakan ODBC

Lanjut :
3. Buat Deklarasi Variabel Dulu :

    Dim DA As OdbcDataAdapter
    Dim DS As DataSet
    Dim SQL,NIP,Nama As String
    Dim CMD As OdbcCommand
    Dim RS As OdbcDataReader

4. Buat Private Sub baru

     Private Sub Tabel()
        DA = New Odbc.OdbcDataAdapter("select * from t_siswa", CON)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "t_siswa")
        DataGridView1.DataSource = (DS.Tables("t_siswa"))

        DataGridView1.Columns(0).HeaderText = "NIP"
        DataGridView1.Columns(1).HeaderText = "Nama"
        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 300
        DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Violet
    End Sub

    Private Sub Tabel2()
        DA = New Odbc.OdbcDataAdapter("select t_partisipasi.id_partisipasi,t_partisipasi.nip,t_siswa.nama from t_partisipasi,t_siswa where t_partisipasi.nip=t_siswa.nip", CON)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "t_siswa")
        DataGridView2.DataSource = (DS.Tables("t_siswa"))

        DataGridView2.Columns(0).HeaderText = "ID"
        DataGridView2.Columns(1).HeaderText = "NIP"
        DataGridView2.Columns(2).HeaderText = "NAMA"
        DataGridView2.Columns(0).Width = 50
        DataGridView2.Columns(1).Width = 100
        DataGridView2.Columns(2).Width = 300
        DataGridView2.AlternatingRowsDefaultCellStyle.BackColor = Color.Violet
    End Sub

5. Coding Pada Form_Load

      Try
            CON = New Odbc.OdbcConnection
            CON.ConnectionString = "DSN=datagrid"
            CON.Open()
        Catch ex As Exception
            MsgBox("Database tidak bisa terhubung, Silahkan cek koneksi", MsgBoxStyle.Information, "Pemberitahuan")
        End Try
        Tabel()
        Tabel2()

 6. Untuk mencoba berhasil atau tidak nya coding yang kita buat tadi, sebaiknya kita mencoba run aplikasi untuk melihat apakah data berhasil ditampilkan di dalam datagrid. Namun sebelum itu, isi dulu tabel pada database, secara manual saja. Yang diisi cukup tabel siswa.

Kemudian kita RUN

7. Coding Pada Tombol Panah Ke Kanan ( >> )

       Dim baris As Integer        baris = DataGridView1.CurrentRow.Index        NIP = DataGridView1.Item(0, baris).Value        Nama = DataGridView1.Item(1, baris).Value
        SQL = "insert into t_partisipasi values ('" & NIP & "','" & Nama & "')"            CMD = New Odbc.OdbcCommand(SQL, CON)            CMD.ExecuteNonQuery()
        SQL = "delete from t_siswa where nip='" & NIP & "'"            CMD = New Odbc.OdbcCommand(SQL, CON)            CMD.ExecuteNonQuery()
            Tabel()            Tabel2()

8. Coding Pada Tombol Panah Ke Kiri (<< )

        Dim baris As Integer
        baris = DataGridView2.CurrentRow.Index
        NIP = DataGridView2.Item(0, baris).Value
        Nama = DataGridView2.Item(1, baris).Value
        SQL = "insert into t_siswa  values ('" & NIP & "','" & Nama & "')"
            CMD = New Odbc.OdbcCommand(SQL, CON)
            CMD.ExecuteNonQuery()
        SQL = "delete from t_partisipasi where nip='" & NIP & "'"
            CMD = New Odbc.OdbcCommand(SQL, CON)
            CMD.ExecuteNonQuery()
            Tabel()
            Tabel2() 

Hasil AKhir

Read More

Cara Menulis dan Membaca Registry Pada Windows Dengan Visual Basic 6.0

Cara Menulis dan Membaca Registry Pada Windows Dengan Visual Basic 6.0

  October 31, 2017   No comments:

Ini ada teman anggota group yang nanya cara nulis dan baca registry. Dulu saya membuat registry ini untuk tujuan membuat aplikasi trial, jadi cek registry. Kalau teman-teman terserah dech mau dimanfaatin sebagai apa. Berikut tutorialnya :

Pertama kita design dulu form sederhana Seperti pada Gambar dibawah ini  :

Jika sudah dibuat formya, mari langsung saja kita buat codingnya.
1. Letakkan Coding berikut ini paling atas :

Public REG1 As Object
Const LocationReg1 = "TESTING5"

 2. Double Click Pada tombol Tulis

 Set REG1 = CreateObject("WScript.Shell")    REG1.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg1 & "\", "Isi Nilai Registri Tersebut"    MsgBox "Registry Berhasil Dibuat"

Yang Warna Hijau Silahkan disesuaikan dengan kebutuhan (Lokasi Pada Registry)
Silahkan RUN Programnya dan Klik Tombol Tulis

Untuk membuktikan berhasil atau tidaknya, kita bisa buka registry dengan cara :
Klik Tombol Start (Windows 7), kemudian ketik Regedit

Pilih regedit.exe

Itu Diatas bisa Dilihat ada Folder TESTING5 Dan Isinya juga bisa dilihat Pada Kolom Sebelah kanan.

3. Double Click Pada Tombol Baca

 Set REG1 = CreateObject("WScript.Shell")
    Info_REG1 = REG1.RegRead("HKEY_CLASSES_ROOT\" & LocationReg1 & "\")
    Label2 = Info_REG1 

Selamat mencoba.

Read More

Begini Penampakan Samsung Galaxy S9

Begini Penampakan Samsung Galaxy S9

  October 29, 2017   No comments:

Sejatinya terlalu dini membicarakan soal Galaxy S9. Namun spekulasi calon penerus Galaxy S8 ini sudah mulai muncul di dunia maya, bahkan dalam bentuk render.

Digambarkan kalau Galaxy S9 masih akan mengandalkan desain yang sama dengan pendahulunya. Hanya saja peningkatan terlihat di sektor kamera, di mana Galaxy S9 dipercaya menggunakan kamera ganda.

Belum ada informasi soal spesifikasi, tapi banyak yang berasumsi kalau Samsung akan membenamkan kamera ganda yang sama dengan yang ada di Galaxy Note 8. Yang membuatnya berbeda adalah penempatan sensor sidik jari yang digeser ke bawahnya. Sebelumnya Samsung menempatkan sensor sidik jari di Galaxy Note 8 persis di sebelah kamera.

Improvisasi lainnya mungkin dilakukan terletak di bagian layar. Samsung bisa jadi masih akan menggunakan kombinasi layar Edge dan Infinity Display di Galaxy S9. Namun vendor asal Korea Selatan itu kemungkinan akan membuat bagian bezel atas dan bawah semakin tipis lagi dari yang sekarang.

Selain itu seakan menjawab tantangan dari pesaing, ponsel ini pun berpeluang membenamkan pemindai 3D. Fungsinya bisa untuk memindai wajah pengguna demi mendukung fitur pengenalan wajah, demikian seperti dikutip detikINET dari Phone Arena, Minggu (29/10/2017).

Sumber : Detik.com

Read More

Cara Hapus Pesan yang Terkirim di WHATSAPP

Cara Hapus Pesan yang Terkirim di WHATSAPP

  October 29, 2017   No comments:

WhatsApp kabarnya telah mulai menggulirkan fitur baru yang memungkinkan penggunanya untuk menghapus pesan. Kabar ini diketahui melalui FAQ (frequently asked question) di halaman resminya.

Lantas bagaimana cara menghapus pesan yang sudah terlanjur terkirim? Caranya ternyata cukup mudah. Pengguna hanya perlu menyentuh dan menahan pesan tersebut dalam beberapa saat.

Setelahnya, di pesan itu akan muncul pilihan "Delete for everyone". Selain bisa menghapus satu pesan obrolan, pengguna juga bisa menghapus pesan lainnya secara banyak (multiple).

Caranya masih sama yakni dengan menyentuh dan menahan pesan yang akan dihapus secara satu per satu, kemudian memilih "Delete for everyone" guna menghapus semua pesan yang terpilih.

Sebagaimana dilaporkan Phone Arena, Minggu (29/10/2017), pesan di WhatsApp bisa dihapus asalkan tak lebih dari 7 menit setelah dikirim. Ini berarti Anda mesti buru-buru menghapusnya sebelum orang lain membacanya.

Fitur hapus pesan ini kabarnya sudah mulai digulirkan WhatsApp untuk pengguna Android, iOS, dan Windows Phone. Hanya saja karena tak semua orang sudah bisa mencobanya, kemungkinan fitur ini dirilis secara bertahap.

Pastikan bahwa Anda menggunakan aplikasi WhatsApp versi terbaru agar bisa mencobanya. Selain fitur hapus pesan, WhatsApp juga telah merilis fitur Live Location gunakan berbagi lokasi secara realtime.

Read More

Facebook Rilis Aplikasi Workplace Chat untuk PC Desktop, Nih Fiturnya!

Facebook Rilis Aplikasi Workplace Chat untuk PC Desktop, Nih Fiturnya!

  October 29, 2017   No comments:

Setelah tahun lalu meluncurkan layanan Workplace, kini Facebook meluncurkan aplikasi Workplace Chat untuk desktop.

"Kini, kami menawarkan pengalaman yang berfokus pada messaging melalui Workplace Chat, baik di desktop maupun mobile," ujar Julien Codorniou, Vice President Workplace Facebook, dalam keterangan tertulisnya.

"Setiap orang dapat mengunduh aplikasi Workplace Chat di PC, Mac, Android maupun iOS," sambung dia.

Workplace Chat sejak awal sudah memiliki komponen mobile dan browser, dan kini Facebook menambahkan sebuah aplikasi desktop.

Dengan aplikasi desktop, orang bisa mengakses fitur seperti aplikasi mobile langsung melalui desktop mereka.

Workplace Chat menyertakan obrolan video dengan sesama rekan kerja atau group, berbagi layar (screen sharing), dan berbagi file.

Aplikasi ini juga menyertakan fitur seperti reaksi pesan, @mention, dan gif yang bisa menjaga percakapan untuk tetap ceria namun tetap dalam fokus bahasan.

"Selama beberapa minggu mendatang, kami akan memperbarui Workplace Chat untuk menyertakan dukungan untuk obrolan group video di desktop dan mobile," kata Julien.

"Orang akan segera bisa mengklik tombol dan memulai panggilan video dengan tim mereka," lanjut dia.

Setahun Workplace diluncurkan, Julien mengungkapkan bahwa lebih dari 30.000 organisasi telah menggunakan Workplace di seluruh dunia.

Angka ini naik hingga lebih dari dua kali lipat dibandingkan enam bulan lalu. Lebih dari 1.000.000 group telah dibuat di Workplace untuk membantu tim mereka dapat bekerja sama.

Read More