MsComm1.Output = "ATDT 01232503222" & VbCr ‘ Göderilen bilgi
MsComm1.Output = "Bilgi Bilgi Bilgi Bilgi Bilgi Bilgi" & VbCr
Text1.Text = MsComm1.Input ‘ Alınan bilgi
Private Sub Form_Load ()
Dim Instring As String
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "ATV1Q0" & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
MSComm1.PortOpen = False
End Sub
CommEvent : OnComm İle değişir
Private Sub MSComm_OnComm ()
Select Case MSComm1.CommEvent
' Olaylar
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
Case comEvSend
Case comEvEof
' Hatalar
Case comEventBreak
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB
End Select
End Sub
MSComm - Özellikler
Break
CDHolding
CommEvent
CommID
CommPort
CTSHolding
DSRHolding
DTREnable
EOFENable
HandShaking
InBufferCount
InBufferSize
Index
Input
InputLen
InputMode
Name
NullDiscard
Object
OutBufferCount
OutBufferSize
Output
Parent
ParityReplace
PortOpen
Rthreshold
RTSEnable
Settings
Sthreshold
Tag
PortOpen : Portu açıp kapama
InBufferSize : Alım için ayrılan hafıza miktarı
OutBufferSize : Gönderim için ayrılan hafıza miktarı
InputLen : 0 - Bilgi girişinin tamamı okunur
EOFEnable : EOF zamanı
HandShaking : Veri koruma
MSComm - Olaylar
OnComm
OnComm : İletişimde değişiklik yada hata oluşması
