Jangan Buang Sampah Sembarangan

Seiring dengan perkembangan zaman yang semakin maju dan modern, kita semua diberikan fasilitas - fasilitas yang sangat memadai dan semua mudah dan sangat praktis dalam segala hal, seperti makanan ringan, minuman dalam kemasan botol, rokok, dan masih banyak yang lain. Tapi dengan adanya hal tersebut tidak bisa dipungkiri justru semakin menambah banyak sampah-sampah plastik yang menumpuk dan beserakan di jalan, jarang sekali ada orang yang mau menyimpan sampah plastik bekas makanan yang mereka beli untuk dibuang di tempat sampah, kebanyakan dari mereka membuang sembarangan di jalan atau di got-got aliran air yang justru akan menghambat arus air yang mengalir. Padahal tempat sampah sudah disediakan di tempat umum di pinggir jalan, tetapi masih ada saja sampah yang berserakan di jalan. Maka dari itu mulailah membuang sampah pada tempat yang disediakan walaupun tempatnya agak jauh, mulai dari diri kita sendiri untuk merubah kebiasaan buruk tersebut agar bumi kita tidak semakin rusak dan tercemar oleh sampah-sampah yang kita buang.

BACA SELANJUTNYA >>>>

Mehbae

Dengan jarangnya saya membuka blog, karena sangat sibuk denga perkuliahan yang sudah menginjak di semester 5 dengan tugas tugas yang mulai membuat saya semakin semangat mengerjakannya tetapi tidak saya masukan dalam blog. Mehbae bloge tidak bisa di buka, tapi untungnya dengan konfirmasi melalui alamat email blog ini selamat dan dapat di buka lagi, walaupun hanya sekedar update sedikit.. Mungkin suatu saat blog ini rame di kunjungi banyak penggemar. Amin..

BACA SELANJUTNYA >>>>

Ngintip

Sekian lama tidak membuka blog, ternyata masih saja rame pengunjung tidak ada satupun komentar yang masuk dalma blog saya..
Blog yang hanya di gunakan pada saat ada tugas dari seorang yang namanya dosen, jika tidak ada tugas ya tetep aja di buka lah.. Hari ini minggu 2 juni 2013 saya membuka kembali blog saya setelah saya menonton motoGP dengan kekalahan dani pedrosa yang hanya mampu menempati di urutan ke dua saja, dan kali ini saya membuka hanya untuk mengecek saja agar blog ini tidak hangus termakan jaman.. Dengan gembira ternyata blog saya masih ada.. HOREeEee.. Udah dulu ahh ceritanya, di sambung lain kali lagi, semoga bagi kalian yang sedang membaca ini dalam keadaan sehat.. amin..

BACA SELANJUTNYA >>>>

Verifikation

Gara - gara akun tidak pernah di buka, maka akun ditanyakan keasliannya agar tau apakah itu si pemilik asli akun tersebut atau bukan, kemudian dimintai nomor verifikation melalui nimor ponsel anda. Kemudian masukan kode atau nomor verifikation tersebut dan akunpun bisa di buka kembali.. SEKIAN by : anasepoll

BACA SELANJUTNYA >>>>

Tugas Ke 7 Menggabungkan Antara Visual Basic 2010 Dan Database SQL Server 2005

Kali ini saya akan membahas tentang aplikasi penggabungan antara Visual Basic 2010 dan database SQL Server 2005. Walaupun terlambat, karena saya harus menginstal ulang windows terlebih dahulu sebelum saya menginstal SQL Server 2005.

langkah-langkahnya dibawah ini :

1. Buatlah tabel pada SQL Server.
Langkah pertama bukalah aplikasi SQL Server, kemudian klik connect.

Kemudian klik kanan database, lalu pilih new database, beri nama dan kemudian simpan pada drive D atau E terserah sesuaikan dengan keinginan anda. Setelah selesai maka klik OK.

Klik database yang telah anda buat tadi kemudian cari folder table setelah ketemu klik kanan lalu pilih new table, buatlah table tersebut dengan formatnya sesuai dengan kebutuhan. 

 

Kemudian klik save all dan jangan lupa berikan nama jika sudah lalu klik OK.

Kemudian klik kanan pada table yang anda buat kemudian klik open table dan isikan kolom pada table tersebut, bila semuanya sudah terisi klik save all.

2. Membuat form pada Visual Basic 2010. 

Buka aplikasi Visual Basic 2010 lalu klik new project, pilih visual basic dan  pilih windows form application setelah selese klik OK.

3. Menggabungkan Visual Basic 2010 dan database SQL Server 2005 

Klik menu data kemudian pilih Add New Data Source 

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali.

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue.

Kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish.  

 

 

 

Drag atau tarik tabel (database mahasiswa) ke from, ganti jurusan dengan combobox

Kemudian buat label, textbox, combobox (Masukan TI dan SI yaitu klik kanan edit text dst), button awal, akhir, sebelum, selanjutnya, tambah, hapus, simpan ,cari, filter, dan terakhir keluar.

Koding Programnya :

 1. Button Awal :

Private Sub Btawal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btawal.Click
        DbmahasiswaBindingSource.MoveFirst()
    End Sub

Printscrennya: 

 

2. Button Akhir : 

Private Sub Btakhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btakhir.Click
        DbmahasiswaBindingSource.MoveLast()
    End Sub

Printscrennya: 

 

3. Button Sebelumnya :

 Private Sub Btsebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsebelum.Click
        DbmahasiswaBindingSource.MovePrevious()
    End Sub

 Printscrennya: 

4. Button Selanjutnya:

 Private Sub Btselanjutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btselanjutnya.Click
        DbmahasiswaBindingSource.MoveNext()
    End Sub

Printscrennya : 

5. Button Tambah :

Private Sub Bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
        DbmahasiswaBindingSource.AddNew()
    End Sub

Printscrennya :

6. Button Hapus

Private Sub Bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
        DbmahasiswaBindingSource.RemoveCurrent()
    End Sub

Printscrennya : 

7. Button Simpan

Private Sub Btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
        Me.Validate()
        Me.DbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

Printscrennya :

8. Button Cari

Private Sub Btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcari.Click
        If (DbmahasiswaBindingSource.Find("Nama", TextBox4.Text)) > -1 Then
            MsgBox("Data yang anda cari berhasil ditemukan")
        Else
            MsgBox("Data yang anda cari tidak berhasil ditemukan")
        End If

    End Sub

Printscrennya :

9. Button Keluar

Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
        Me.Close()
    End Sub
End Class

BACA SELANJUTNYA >>>>