27
'serial port 1 baudrate 9600 mode 1
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
Else
MsgBox ("Port Serial Sedang Dipakai Oleh Program Lain...")
End If
End Sub
Program
ini
adalah
untuk
open
port
serial
pada
komputer
dengan
baud
rate
9600
kbps,
jika
port
serial
sedang
dipakai
maka
program VB
akan
memberitahukan dengan memunculkan message box.
 |