سلام خدمت اساتید
من برد کاربردی صنعتی فروشگاه رو به یه مگا32 وصل کردم
پایه rx میکرو رو به tx ماژول(پایه71) و پایه tx رو به rx ماژول (68) وصل کردم-تفذیه مایکرو رو هم از خود ماژول گرفتم
برنامه ام هم تو بسکام به صورت زیر هست
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Porta = Output
Config Portd = Output
Dim A As Long
Dim S As String * 1000
Dim B As Dword
Dim Sret As String * 600
Dim X As String * 10
Dim X1 As String * 10
Dim Z As String * 35
Dim Y As String * 10
Dim K As String * 10
Cls
Lcd "hi"
Waitms 100
Cls
Set Portd.7
Declare Sub Main
Declare Sub Getline(s As String)
Do
Cls
Print "ATE0" ; Chr(13)
Waitms 1000
Getline Sret ' get data from modem
Lcd Sret
If Porta.5 = 1 Then
Goto Main
End If ' feedback on display
Loop Until Sret = "OK"
Set Portd.6
Sub Main:
Waitms 1000
Print "ATD*********1;"
Wait 1
Set Porta.0
Set Porta.1
Set Porta.2
Waitms 100
End Sub
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0:
Case 10:
If S <> "" Then Exit Do
Case 13:
If S <> "" Then Exit Do
Case Else
S = S + Chr(b)
End Select
Loop
End Sub
اون hi اولی رو ال سی دی نمایش داده میشه اما ماژول با gsm ارتباطی بر قرار نمیکنه.
مشکلم کجاست؟
من برد کاربردی صنعتی فروشگاه رو به یه مگا32 وصل کردم
پایه rx میکرو رو به tx ماژول(پایه71) و پایه tx رو به rx ماژول (68) وصل کردم-تفذیه مایکرو رو هم از خود ماژول گرفتم
برنامه ام هم تو بسکام به صورت زیر هست
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Porta = Output
Config Portd = Output
Dim A As Long
Dim S As String * 1000
Dim B As Dword
Dim Sret As String * 600
Dim X As String * 10
Dim X1 As String * 10
Dim Z As String * 35
Dim Y As String * 10
Dim K As String * 10
Cls
Lcd "hi"
Waitms 100
Cls
Set Portd.7
Declare Sub Main
Declare Sub Getline(s As String)
Do
Cls
Print "ATE0" ; Chr(13)
Waitms 1000
Getline Sret ' get data from modem
Lcd Sret
If Porta.5 = 1 Then
Goto Main
End If ' feedback on display
Loop Until Sret = "OK"
Set Portd.6
Sub Main:
Waitms 1000
Print "ATD*********1;"
Wait 1
Set Porta.0
Set Porta.1
Set Porta.2
Waitms 100
End Sub
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0:
Case 10:
If S <> "" Then Exit Do
Case 13:
If S <> "" Then Exit Do
Case Else
S = S + Chr(b)
End Select
Loop
End Sub
اون hi اولی رو ال سی دی نمایش داده میشه اما ماژول با gsm ارتباطی بر قرار نمیکنه.
مشکلم کجاست؟
دیدگاه