Bikin Modul, ketikan ini:
Public Function COMTersedia(COMNum As Integer) As Boolean
Dim hCOM As Long
Dim ret As Long
Dim sec As SECURITY_ATTRIBUTES
'// mencoba membuka COM port
hCOM = CreateFile("\.\COM" & COMNum & "", 0, FILE_SHARE_READ + _
FILE_SHARE_WRITE, sec, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hCOM = -1 Then
COMTersedia = False
Else
COMTersedia = True
'// tutup COM port
ret = CloseHandle(hCOM)
End If
End Function
Buat form, tambahkan combobox, pada saat form diload, panggil modul tadi
Ketikan kode dibawah ini pada form, dan panggil paad saat form diload juga
Private Sub DaftarComPorts()
Dim i As Integer
ComboBox.Clear
For i = 1 To 16
If COMTersedia(i) Then
ComboBox.AddItem "Com" & i
End If
Next
ComboBox.ListIndex = 0
End Sub
Semoga membantu
......indahnya kebersamaan
ERIS RISO
Deposit Account & Administration Section
PT Bank Bumiputera Indonesia Tbk
Capem Kerinci
Rukan Akasia Blok I No 1 & 2
Komplek RAPP Pangkalan Kerinci
Kab. Pelalawan, Riau 28300
Tel: +62761-95802,95805,95807
Fax: +62761-493604
email: [EMAIL PROTECTED]
<http://eris-riso.blogspot.com/> http://eris-riso.blogspot.com
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of putu gagah
Sent: 14 Januari 2007 13:19
To: [email protected]
Subject: [indoprog-vb] menampilkan Port di deviace manager ke combo box
haloo minta bantuan.. gimana caranya menampilakan port
serial yang ada di deviace manager ke combo box?
gimana programnya mohon di bantu
__________________________________________________________
We won't tell. Get more on shows you hate to love
(and love to hate): Yahoo! TV's Guilty Pleasures list.
http://tv.yahoo. <http://tv.yahoo.com/collections/265> com/collections/265
[Non-text portions of this message have been removed]
