Selasa, 28 November 2017
Minggu, 26 November 2017
Mastrean Burung Ala Dewa
Kali ini saya mau share masteran-masteran burung yang joss untuk latihan.
Burung Kenari :
1. Suara Burung Blackthroat.mp3
2. Burung Master - Blackthroat Nembak.mp3
3. Kenari roller singing along.mp3
4. Suara Kenari Gloster Corono.mp3
5. Kicau Kenari Waterslager si rajanya kicau.mp3
6. Kenari Red Mozaik Double Volume.mp3
7. Mayang SUARA KICAU BURUNG KENARI F1 Gacor.mp3
Sekian dulu masteran burung kenari yang saya share, jangan lupa lihat artikel lain nya di blog ini.
semoga bermanfaat untuk semua.
Burung Kenari :
1. Suara Burung Blackthroat.mp3
2. Burung Master - Blackthroat Nembak.mp3
3. Kenari roller singing along.mp3
4. Suara Kenari Gloster Corono.mp3
5. Kicau Kenari Waterslager si rajanya kicau.mp3
6. Kenari Red Mozaik Double Volume.mp3
7. Mayang SUARA KICAU BURUNG KENARI F1 Gacor.mp3
Sekian dulu masteran burung kenari yang saya share, jangan lupa lihat artikel lain nya di blog ini.
semoga bermanfaat untuk semua.
ACCURATE DELUXE
buat kalian yang butuh software accurate deluxe 5 untuk laporan keuangan dapat dibuat lebih cepat, juga siap diekspor menjadi laporan pajak dalam format E-Faktur dan E-PPh23.
tinggal kalian download disini :
1. versi 1807 x64
2. versi 1807 x86
semoga dapat bermanfaat untuk semua.
tinggal kalian download disini :
1. versi 1807 x64
2. versi 1807 x86
semoga dapat bermanfaat untuk semua.
Minggu, 05 November 2017
CCNA : Topologi Duplex Full dan Speed
Kali ini gw mau bahas untuk
Topologi Mengatur Duplex dan Speed
Gambar topologi berikut :
Disini ada 2 Swich yang terhubung, yaitu Switch 0 dan Switch
1 :
Mari kita lihat config nya :
---------------------------------------
Switch 0
---------------------------------------
Switch>en
Switch#conf t
Switch(config)#int g0/1
Switch(config-if)#duplex full
Switch(config-if)#speed 1000
Switch(config-if)#no shut
Switch(config-if)#end
---------------------------------------
Switch 1
---------------------------------------
Switch>en
Switch#conf t
Switch(config)#int g0/1
Switch(config-if)#duplex full
Switch(config-if)#speed 1000
Switch(config-if)#no shut
Switch(config-if)#end
Demikian pembelajaran
untuk mengatur duplex dan speed pada switch
Jumat, 18 Desember 2015
Hapus Data koneksi vb.net ke mysql
sobat semua, kali ini saya ingin membagikan source code hapus data untuk membantu kalian yang kesulitan untuk procedure hapus data.
klik tombol hapus dan masukkan source code berikut :
Private Sub Hapus_Click(sender As Object, e As EventArgs) Handles Hapus.Click
If MsgBox("Anda Yakin Ingin Hapus ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Hapus") = MsgBoxResult.No Then
Exit Sub
End If
deletepihak(ListView1.SelectedItems(0).Text) 'menghapus dari listview
Call isilist() 'panggil data yang ada pada listview
End Sub
Private Sub deletepihak(ByVal cc As String)
Dim cmd As New MySqlCommand 'declare
cmd.Connection = conn 'set koneksi
cmd.CommandText = "delete from tbl_pihak where kd_pihak='" & cc & "'" 'isi commandtext
cmd.ExecuteNonQuery() 'execute query
cmd.Dispose() 'hancurkan cmd
MsgBox("Data Telah Dihapus")
Call ClearForm(Me) 'hapus seluruh textbox, combobox, dll. seperti yg sudah dibahas
End Sub
Sekian dulu ya source code nya, jangan lupa baca artikel lainnya
Terima kasih telah membaca di blog ini.
klik tombol hapus dan masukkan source code berikut :
Private Sub Hapus_Click(sender As Object, e As EventArgs) Handles Hapus.Click
If MsgBox("Anda Yakin Ingin Hapus ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Hapus") = MsgBoxResult.No Then
Exit Sub
End If
deletepihak(ListView1.SelectedItems(0).Text) 'menghapus dari listview
Call isilist() 'panggil data yang ada pada listview
End Sub
Private Sub deletepihak(ByVal cc As String)
Dim cmd As New MySqlCommand 'declare
cmd.Connection = conn 'set koneksi
cmd.CommandText = "delete from tbl_pihak where kd_pihak='" & cc & "'" 'isi commandtext
cmd.ExecuteNonQuery() 'execute query
cmd.Dispose() 'hancurkan cmd
MsgBox("Data Telah Dihapus")
Call ClearForm(Me) 'hapus seluruh textbox, combobox, dll. seperti yg sudah dibahas
End Sub
Sekian dulu ya source code nya, jangan lupa baca artikel lainnya
Terima kasih telah membaca di blog ini.
Simpan dan Update data koneksi Vb.net ke Mysql
Kali ini saya ingin membagikan source code simpan, edit,Update, hapus data Vb.net ke databse mysql.
Private Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
If TextBox1.Text = "" Then 'kode pihak kosng
MsgBox("Kode Pihak harus diisi")
Exit Sub
End If
If TextBox2.Text = "" Then 'nama pihak kosong
MsgBox("Nama Pihak harus diisi")
Exit Sub
End If
Dim command As New MySqlCommand
command.Connection = conn
command.CommandText = "select * from tbl_pihak where kd_pihak = '" & TextBox1.Text & "'"
DR = command.ExecuteReader
If DR.Read Then
If Not DR Is Nothing Then DR.Close()
command.CommandText = "update tbl_pihak set nm_pihak = '" & TextBox2.Text & "' where kd_pihak = '" & TextBox1.Text & "'"
command.ExecuteNonQuery()
ClearForm(Me)
skepdireksi.isilist()
Else
If Not DR Is Nothing Then DR.Close()
command.CommandText = "insert into tbl_pihak (kd_pihak, nm_pihak) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
command.ExecuteNonQuery()
ClearForm(Me)
skepdireksi.isilist()
End If
If DR Is Nothing Then DR.Close()
command.Dispose()
End Sub
'textbox1 = kode pihak
'textbox2 = nama pihak
sekian source code untuk pembelajaran mengenai simpan data dan update data dijadikan dalam 1 procedure.
jangan lupa baca juga untuk Hapus data, Edit Data
Terima kasih telah membaca artikel ini, semoga bermafaat buat kalian semua.
maaf jika ada kesalahan, dalam penulisan.
Private Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
If TextBox1.Text = "" Then 'kode pihak kosng
MsgBox("Kode Pihak harus diisi")
Exit Sub
End If
If TextBox2.Text = "" Then 'nama pihak kosong
MsgBox("Nama Pihak harus diisi")
Exit Sub
End If
Dim command As New MySqlCommand
command.Connection = conn
command.CommandText = "select * from tbl_pihak where kd_pihak = '" & TextBox1.Text & "'"
DR = command.ExecuteReader
If DR.Read Then
If Not DR Is Nothing Then DR.Close()
command.CommandText = "update tbl_pihak set nm_pihak = '" & TextBox2.Text & "' where kd_pihak = '" & TextBox1.Text & "'"
command.ExecuteNonQuery()
ClearForm(Me)
skepdireksi.isilist()
Else
If Not DR Is Nothing Then DR.Close()
command.CommandText = "insert into tbl_pihak (kd_pihak, nm_pihak) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
command.ExecuteNonQuery()
ClearForm(Me)
skepdireksi.isilist()
End If
If DR Is Nothing Then DR.Close()
command.Dispose()
End Sub
'textbox1 = kode pihak
'textbox2 = nama pihak
sekian source code untuk pembelajaran mengenai simpan data dan update data dijadikan dalam 1 procedure.
jangan lupa baca juga untuk Hapus data, Edit Data
Terima kasih telah membaca artikel ini, semoga bermafaat buat kalian semua.
maaf jika ada kesalahan, dalam penulisan.
Rabu, 16 Desember 2015
Koneksi Vb.Net ke Mysql dengan Visual Studio 2012
Sekarang kita mulai untuk membuat koneksi vb.net ke mysql dari visual studio 2012. berikut source code nya,
Buka terlebih dahulu New Project - Module, masukkan script berikut ini :
Imports MySql.Data.MySqlClient
Module KONEKSI
Public inresponse As String
Public conn As New MySqlConnection
Public DR As MySqlDataReader
Public DA As MySqlDataAdapter
Public cmd As MySqlCommand
Public ds As DataSet
Public dt As DataTable
Public server, user, pass, db As String
Public Sub bukaDB()
Dim SQLconn As String
SQLconn = "server=localhost;Uid=root;Pwd=root;Database=perjanjian;"
conn = New MySqlConnection(SQLconn)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
End Module
Sekian dulu ya penjelasan mengenai procedure koneksi vb.net ke mysql. source code ini diambil dari project saya pribadi. terima kasih telah membaca atikel ini. jangan lupa baca artikel lainnya.
Buka terlebih dahulu New Project - Module, masukkan script berikut ini :
Imports MySql.Data.MySqlClient
Module KONEKSI
Public inresponse As String
Public conn As New MySqlConnection
Public DR As MySqlDataReader
Public DA As MySqlDataAdapter
Public cmd As MySqlCommand
Public ds As DataSet
Public dt As DataTable
Public server, user, pass, db As String
Public Sub bukaDB()
Dim SQLconn As String
SQLconn = "server=localhost;Uid=root;Pwd=root;Database=perjanjian;"
conn = New MySqlConnection(SQLconn)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
End Module
Sekian dulu ya penjelasan mengenai procedure koneksi vb.net ke mysql. source code ini diambil dari project saya pribadi. terima kasih telah membaca atikel ini. jangan lupa baca artikel lainnya.