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()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.
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
OK Bro THANKS bermanfa'at buat referensi.. jarang yg ngisi artikel tentang port usb, kbanyakan cuman basa basi belaka sama link2 tipuan bikin gw puyeng...
BalasHapussalam kenal mas,
BalasHapussaya mau tanya, apakah MSComm bisa jg digunakan utk koneksi USB...? program di atas ### Form1.MSComm1.Settings = "9600,n,8,1" ###
bukannya itu utk setting parameter serial port...? mohon penjelasannya.
tks