Visual Basic , Modem kullanımı

[dogukan_62]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Port Açmak İçin

Private Sub Command1_Click() ' Port açmak için
MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub

Reset Atmak İçin

Private Sub Command2_Click() ' Reset atmak için 
Dim x, s As String
s = "AT&f$SB1200$mb1200&c4&d2s7=7&w0x4" '& vbCr & vbLf
MSComm1.Output = s & vbCrLf
Debug.Print x
Dim REC As String
REC = WaitForString(MSComm1, vbCrLf & "OK" & vbCrLf, 14)
Debug.Print REC

Debug.Print x
End Sub

Private Sub Command3_Click() ' 

Dim x As String
Dim Rcv As String
Dim stime As Date

MSComm1.Output = "ATDT188x0" & vbCrLf ' & vbLf
Rcv = Rcv & MSComm1.Input
stime = Now
Do
Rcv = Rcv & MSComm1.Input
Debug.Print Rcv
Loop While (1)

Debug.Print Rcv

End Sub

 

[Karcemackers]

Paylasım icin tesekkurler.