Shahram_Shobeiri
شنبه 22 اسفند 1388, 13:25 عصر
آقا چرا از at command استفاده نمی کنی و متوسل به اجانب (اکتیوایکس ها!!!) می شی؟
ببین با این کد کارت راه می افته؟
Private GSM_Port As IO.Ports.SerialPort
Public Sub Delay(ByRef W As Integer)
'one tick = 100 nanoseconds so one tick * 10,000,000 = one second
Dim Now_Tick As Int64 = DateTime.Now.Ticks
Do
Loop Until DateTime.Now.Ticks - Now_Tick >= W
End Sub
Public Function Dial(ByRef Phone_Number As String, ByRef Wait As Byte) As Boolean
'ATD <Phone_Number>;
Clear_Buffer()
GSM_Port.WriteLine("ATD" + Phone_Number + ";" + Chr(13))
Delay(Wait * 10000000)
Dim busy As String = GSM_Port.ReadLine()
If (busy = "NO CARRIER") Then Return False Else Return True
End Sub
همونطور که از کد پیداس اگر خروجی Dial غلط (False) باشد یعنی خط اشغال است.