Akses Port USB dari VB

Wah lama nih ga OL, akhirnya ngisi blog lagi....

Keseringan ngaskus ma nyoba program nih. Kebetulan gw baru selese nyoba program yang agak susah dicari kodingannya. Dapet dari situs xtremevbtalk.com tapi masih ada error di tempat gw, akhirnya gw modif lagi n Alhamdulillah berjalan sesuai yang diinginkan. Program ini untuk mengakses port USB yang ada di laptop atau komputer lewat VB6 pake properti MSComm. Saat ini programnya baru cuma buat ngecek port aja.

Private Sub Command1_Click()
Dim i As Integer
Dim serialAvailable As Boolean
Form1.MSComm1.Settings = "9600,n,8,1"

'Check status port.
On Error Resume Next
Form1.MSComm1.CommPort = 2
Form1.MSComm1.PortOpen = True

If Err Then
serialAvailable = False
MsgBox ("PORT TIDAK AKTIF")
Else
serialAvailable = True
MsgBox ("PORT AKTIF")
End If


'Close the port
Form1.MSComm1.PortOpen = False

End Sub

USB yang dimaksud bisa USB apa aja, yang gw gunain disini USB ISP Downloader K-125 buat download program ke mikrokontroler AVR. Device tersebut di-setting di COM PORT 2 di komputer gw. Semoga bemanfaat.