السلام عليكم و رحمة الله و بركاته
اولا رمضان مبارك للجميع , وهده اولى مشاركاتي فى هدا المنتدى الجميل ولدي طلب بسيط من خبراء المنتدى الرائع و هو
انا اعمل على برنامج فليكسي ب vb net 2010 و بعد مجهود كبير توصلت الى تقنية الارسال عن طريق اوامر AT command
ولكن صادفنى مشكل وهو عند عملية ارسال الرصيد يتوقف الهاتف عند عملية التأكيد وهى كاالتالى
vous vouler transférer 40da vers le numero
1: tapez 1 pour confirmer
0: tapez 0 pour annuler
وهدا هو كود الارسال فى شريحة المتعامل موبيليس
المطلوب هو اني اريد كود او امر من اوامر AT فى vb net لاكمال عملية التاكيد وارسال الرصيد بشكل عادي
واتمنى من خبراء المنتدى الا يبخلو على بهدا الطلب البسيط و انا واثق من دلك
اولا رمضان مبارك للجميع , وهده اولى مشاركاتي فى هدا المنتدى الجميل ولدي طلب بسيط من خبراء المنتدى الرائع و هو
انا اعمل على برنامج فليكسي ب vb net 2010 و بعد مجهود كبير توصلت الى تقنية الارسال عن طريق اوامر AT command
ولكن صادفنى مشكل وهو عند عملية ارسال الرصيد يتوقف الهاتف عند عملية التأكيد وهى كاالتالى
vous vouler transférer 40da vers le numero
1: tapez 1 pour confirmer
0: tapez 0 pour annuler
وهدا هو كود الارسال فى شريحة المتعامل موبيليس
كود :
Me.Cursor = Cursors.WaitCursor
If Number.Text = "" Then
MsgBox("inserer votre numero", MsgBoxStyle.Information)
Else
End If
If Number.Text.StartsWith("06") Then
Dim comPort As SerialPort = My.Computer.Ports.OpenSerialPort(PortM.Text)
comPort.Write("ATD" + "*" + CODE.Text + "*" + Number.Text + "*" + SOLD.Text + "*" + PIN1.Text + "#" & vbCrLf)
Label1.Show()
comPort.ReadTimeout = 3000000 '300ms
comPort.WriteTimeout = 3000000 '300ms
' Receive strings from a serial port
'
Number.Text = ""
SOLD.Text = ""
mobilisBox.Show()
ComboBox1.Text = "Mobilis"
'WAIT FIVE SECONDS
comPort.ReadLine()
comPort.WriteLine("ATD = 1" & vbCrLf)
Label1.Hide()
comPort.Close()
Else
End If
المطلوب هو اني اريد كود او امر من اوامر AT فى vb net لاكمال عملية التاكيد وارسال الرصيد بشكل عادي
واتمنى من خبراء المنتدى الا يبخلو على بهدا الطلب البسيط و انا واثق من دلك