Membuat Aplikasi Sederhana Untuk Deteksi Removable Drive Dengan Vb.Net

halo blogger semuanya, kembali lagi bersama saya guzko di coretan coretan kecil ini yang mudah-mudahan mampu memperlihatkan agan sedikit manfaat.
kali ini saya akan kasi tutorial sederhana bagaimana caranya membuat aplikasi untuk mendeteksi user menginputkan removable drive pada PC.
langsung aja ya gan, kayak begini caranya :
buka VB.Net agan dan ketikkan aba-aba sederhana berikut ini :
deklarasikan aba-aba berikut ini dibagian atas dibawah public class :



Private Const WM_DEVICECHANGE As Integer = &H219     Private Const DBT_DEVICEARRIVAL As Integer = &H8000     Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004     Private Const DBT_DEVTYP_VOLUME As Integer = &H2     'mendapatkan gosip dari volume yang terdetek     Private Structure DEV_BROADCAST_VOLUME         Dim Dbcv_Size As Integer         Dim Dbcv_Devicetype As Integer         Dim Dbcv_Reserved As Integer         Dim Dbcv_Unitmask As Integer         Dim Dbcv_Flags As Short     End Structure

kemudian agan ketikkan aba-aba berikut ini, aba-aba berikut akan mendeteksi apakah removable drive diinputkan atau dilepas..


Protected Overrides Sub WndProc(ByRef M As System.Windows.Forms.Message)         'kode dibawah ini untuk mendeteksi apakah removable drive terpasang dan terlepas         If M.Msg = WM_DEVICECHANGE Then             Select Case M.WParam                 'cek jikalau device telah ditambahkan                 Case DBT_DEVICEARRIVAL                     Dim DevType As Integer = Runtime.InteropServices.Marshal.ReadInt32(M.LParam, 4)                     If DevType = DBT_DEVTYP_VOLUME Then                         Dim Vol As New DEV_BROADCAST_VOLUME                         Vol = Runtime.InteropServices.Marshal.PtrToStructure(M.LParam, GetType(DEV_BROADCAST_VOLUME))                         If Vol.Dbcv_Flags = 0 Then                             For i As Integer = 0 To 20                                 If Math.Pow(2, i) = Vol.Dbcv_Unitmask Then                                     Dim Usb As String = Chr(65 + i) + ":\"                                     MsgBox("Removable Drive Terdeteksi" & vbNewLine & vbNewLine & "lokasinya di: " & Usb.ToString)                                     End If                             Next                         End If                     End If                     'mengeceka apakah devices telah dilepas                 Case DBT_DEVICEREMOVECOMPLETE                     Dim DevType As Integer = Runtime.InteropServices.Marshal.ReadInt32(M.LParam, 4)                     If DevType = DBT_DEVTYP_VOLUME Then                         Dim Vol As New DEV_BROADCAST_VOLUME                         Vol = Runtime.InteropServices.Marshal.PtrToStructure(M.LParam, GetType(DEV_BROADCAST_VOLUME))                         If Vol.Dbcv_Flags = 0 Then                             For i As Integer = 0 To 20                                 If Math.Pow(2, i) = Vol.Dbcv_Unitmask Then                                     Dim Usb As String = Chr(65 + i) + ":\"                                     MsgBox("Removable Drive Dilepas& vbNewLine & vbNewLine & "lokasinya di: " & Usb.ToString)                                     Exit For                                 End If                             Next                         End If                     End If             End Select         End If         MyBase.WndProc(M)      End Sub

oke selesai dech gan…, coba agan jalankan kesannya :


Membuat Aplikasi Sederhana Untuk Deteksi Removable Drive Dengan Vb.Net

Membuat Aplikasi Sederhana Untuk Deteksi Removable Drive Dengan Vb.Net

oke dech gan selesai tutorial singkatnya…
aba-aba lengkapnya mampu agan download melalui link yang telah saya sediakan dibawah.
segitu dulu dech gan tutorialnya nanti ane sambung lagi tutorialnya…seeee uuuuu





Sumber http://guz-kopyok.blogspot.com/


Postingan populer dari blog ini

Cara Mengatasi Xampp Phpmyadmin Error

Gambar
cara mengatasi xampp phpmyadmin error . Bagi kalian yang belum mengetahui sama sekali apa itu Program? Bagaimana sistem membuatnya? Sesekali banyak opsi untuk mengawali bahasa pemrograman walapun tingkat kerumitan bahasa pemrograman itu yang cukup tinggi tapi kerumitan itu akan menjadi betul-betul simpel sekiranya kita teliti dan juga mengerti. Banyak orang yang belum tau dasar dari bahasa pemrogaman menyampaikan jika bahasa pemgoraman susah dipahami. Cara mengatasi error localhost xampp blank
Baca selengkapnya

Mengatasi Port Yang Bentrok Di Windows

Gambar
halo sahabat blogger semuanya, selamat siang …balik lagi bersama ane guzko di coretan coretan kecil ini yang mungkin sedikit bermanfaat bagi agan-agan semuanya. apakah sahabat blogger pernah mengalami yang namanya port bentrok ? bentrok disini bukan artinya tawuran ya gan, hehehe…, cuma ibaratnya gini : misalkan ada satu pintu dan 2 orang yang ingin masuk ke pintu itu, tapi sayangnya pintu itu hanyalah untuk satu orang saja. Seperti itu ibaratnya gan.., sama halnya dengan di windows. misalkan juga terjadi error antara port printer dan scanner. Atau mungkin misalkan anda sering berurusan dengan aplikasi server lokal sejenis xampp,wampp dll dan aplikasi itu bentrok dengan aplikasi lainnya…, misalnya seolah-olah gambar dibawah ini gan : memang sebenarnya port 80 ini yakni port yang cukup penting di windows, alasannya yaitu merupakan pintu keluar masuk data antara komputer agan dengan komputer lain. maka dari itu port 80 ini banyak menjadi incaran aplikasi yang berfungsi sebagai sharing
Baca selengkapnya

Membuat Aplikasi Barcode Dengan Java Netbeans

Gambar
membuat aplikasi barcode dengan java netbeans . Bagi kalian yang belum mengetahui sama sekali apa itu Program? Bagaimana cara membuatnya? Kadang-kadang banyak alternatif untuk memulai bahasa pemrograman walapun tingkat kerumitan bahasa pemrograman itu yang cukup tinggi tetapi kerumitan itu akan menjadi betul-betul simpel sekiranya kita teliti dan juga mengerti. Banyak orang yang belum tau dasar dari bahasa pemrogaman menyampaikan sekiranya bahasa pemgoraman susah dipahami. Barcode Scanner With Java Netbeans
Baca selengkapnya