ak1_2004
یک شنبه 29 آبان 1390, 18:58 عصر
سلام
توی برنامم دارم از USSD استفاده می کنم !
برای مانده حساب از کد :
Public Sub SendUssd(ByVal ussdcode As String)
With SerialPort1
.Open()
.DiscardInBuffer()
.DiscardOutBuffer()
.WriteLine("AT+CUSD=1,""" & ussdcode & """,15" & Chr(13))
System.Threading.Thread.Sleep(15000)
Dim result As String = .ReadExisting
If InStr(result, "OK") > 0 Then
MsgBox(result)
End If
.Close()
End With
End Sub
استفاده می کنم !
ولی توی قسمت پاسخ یا همون result پاسخ اصلی یعنی باقی مونده حساب نمایش داده نمی شه !
کلا این مشکل رو توی دستورات دیگه هم دارم !
لطفا اساتید راهنمایی کنند !
توی برنامم دارم از USSD استفاده می کنم !
برای مانده حساب از کد :
Public Sub SendUssd(ByVal ussdcode As String)
With SerialPort1
.Open()
.DiscardInBuffer()
.DiscardOutBuffer()
.WriteLine("AT+CUSD=1,""" & ussdcode & """,15" & Chr(13))
System.Threading.Thread.Sleep(15000)
Dim result As String = .ReadExisting
If InStr(result, "OK") > 0 Then
MsgBox(result)
End If
.Close()
End With
End Sub
استفاده می کنم !
ولی توی قسمت پاسخ یا همون result پاسخ اصلی یعنی باقی مونده حساب نمایش داده نمی شه !
کلا این مشکل رو توی دستورات دیگه هم دارم !
لطفا اساتید راهنمایی کنند !