Open Port

Open port yang dimaksud disini adalah open port com bisa serial atau usb. Komponen yang harus ditambahkan adalah MSCOMM32.ocx. Setelah itu copy paste kode berikut dalam command button.

Private Sub Command1_Click()
On Error Resume Next

'isi com berapa yang akan dicoba.
Comm1.CommPort = "9"

If Comm1.PortOpen = True Then
Comm1.PortOpen = False

Comm1.PortOpen = True
Else
Comm1.PortOpen = True
End If

If Comm1.PortOpen = True Then
MsgBox "terbuka port" & Comm1.CommPort
Else
MsgBox "tertutup port" & Comm1.CommPort
End If

End Sub

Biasanya open port ini digunakan untuk berkomunikasi antara komputer dengan hardware lain yang menggunakan port serial atau USB misal komunikasi dengan handphone.

Maap ya masih dalam bentuk text, untuk source code aslinya nanti coba q upload dehh... sabar ya...

Nah Nih filenya...
Download Source Code