Mam problem z następującymi układami,
Modem nie chce mi się zalogować do sieci.
Komunikacja RS wydaje się być w porządku jednak odbieram jakieś krzaczki
tami programik na szybko napisałem:
Może jakieś pomysły co jest źle,
albo jakieś inne procedury logowania
czegoś nie uwzględniłem ??
Modem nie chce mi się zalogować do sieci.
Komunikacja RS wydaje się być w porządku jednak odbieram jakieś krzaczki
tami programik na szybko napisałem:
$regfile = "m128def.dat"
$crystal = 7372800
$baud = 9600
Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 20
Display On
Cursor Off
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Declare Sub Odbior
Dim Zn As String * 1
Dim Text As String * 10
Enable Interrupts
Cls
Lcd "komunikacja"
Lowerline : Lcd "rs232 czekam..."
Wait 2
Print "AT"
Wait 1
Call Odbior
Lcd Text
Wait 2
Print "AT"
Wait 1
Call Odbior
Lcd Text
Wait 1
Print "AT"
Wait 1
Call Odbior
Lcd Text
Wait 1
Print "AT"
Wait 1
Call Odbior
Lcd Text
Wait 1
Print "ATH"
Wait 1
Call Odbior
Lcd Text
Wait 1
Print "ATE0"
Waitms 500
Call Odbior
Lcd Text
Wait 1
Print "ATE0"
Waitms 500
Call Odbior
Lcd Text
Wait 1
Print "AT+CMGF=1" ; Chr(13);
Wait 1
Call Odbior
Lcd Text
End 'end program
Sub Odbior:
Text = ""
Cls
Do
'Input Text
Waitms 5
Zn = Inkey()
Text = Text + Zn
Loop Until Zn = Chr(13)
End SubMoże jakieś pomysły co jest źle,
albo jakieś inne procedury logowania
czegoś nie uwzględniłem ??