Wah maaf saya lupa menyertakan fungsi API nya, ini sisanya, ketikan syntax
dibawah ini pada bagian atas modul yang kamu buat, semoga membantu
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal
lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As
Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal
dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal
hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long
'// API Structures
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
'// API constants
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of putu gagah
Sent: 16 Januari 2007 8:25
To: [email protected]
Subject: RE: [indoprog-vb] menampilkan Port di deviace manager ke combo box
Mas ERIS RISO terima kasih atas informasinya, setelah
saya coba variabel Dim sec AS SECURITY_ATTRIBUTES
error!! SECURITY_ATTRIBUTES tidak dikenal. Mohon
bantuanya lagi mas
> 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
__________________________________________________________
Cheap talk?
Check out Yahoo! Messenger's low PC-to-Phone call rates.
http://voice. <http://voice.yahoo.com> yahoo.com
[Non-text portions of this message have been removed]
