PLZ muszę niniejszego Kodeksu Pilne

  • Thread starter cool_guy4ever15
  • Start date
C

cool_guy4ever15

Guest
Hello every body

graduacyjnej mój projekt SMS pilota, Używam t290i Ericsson I've testowałem to z komend AT oraz Hyper terminal to działa dobrze, kiedy wysłać wiadomość na telefon komórkowy i może go odczytać na hyperterminal.but teraz nie wiem, jak można I że kiedy MCU i podłączyć go do mobilnych otrzymywać msg jeden przełącznik włączania /
wyłączania urządzenia.

plz ja potrzeba pełnego kodu więc mogę go spalić.I'll można podłączyć urządzenia na port2 p2.0 ... p2.4.ponoszą żadnej portu NOP, ale powiedz mi.

plz ja potrzeba ten kod jak najszybciej.

 
To twój projekt nie jest on do pisania kodu?

 
Cześć,
Powiedz mi, która MCU musisz używać tego projektu ?????Po tym I'll give you rozwiązanie tego.

Pozdrowienia,
Anand.A

 
Nie jestem ekspertem w programowania C dla mikrokontrolera.i nie sądzę, to będzie problem, że jednym pomaga mi w project.as i zobaczyć wiele ppl na forum pisanie kodów dla siebie.

oraz Mr.aanand_44 Używam AT89s52.thanks za pomoc.I'll
Be Waiting kod plz.i jeśli chce u mnie do wyjaśnienia jakichkolwiek informacji na temat kodu, który szpilek i podłączyć urządzenie i włącz /
wyłącz wiadomości.

 
I Think U NIE zostali zmuszeni do napisania KOD: @

 
Być może był zmuszony lub może,
po prostu może nie chcą zrobić swoją pracę domową.

 
Podłącz telefon komórkowy lub modem GSM do portu szeregowego swojego uC!
Jest to kod, który jest wyznaczona, możesz wysłać SMS
i Otrzymuj za pomocą tego kodu.
Możesz znaleźć ten kod jest Przykładowe folderu swojego Bascom zbyt ...
Nadzieja na pomoc!
Pozdrowienia,
Shahram H. Farmanesh'------------------------------------------------- -----------------------------
"SMS.BAS
"(C) 2002-2007 MCS Electronics
"Taka próbka pokazuje jak używać komend AT w trybie GSM
"Modemów GSM dostępne są www.mcselec.com
'------------------------------------------------- -----------------------------

$ regfile = "2313def.dat"

"XTAL = 10 MHz
$ kryształu = 10000000

"Domyślnie modem działa na 9600 bodów
$ = 9600 bodów

"HW stos 20, SW stosu 8, ramka 10
$ hwstack = 20
$ swstack = 8
$ framesize = 8"niektóre subroutines
Declare Sub Getline (s As String)
Declare Sub Flushbuf ()
Declare Sub Showsms (s As String)"używane zmienne
Dim I As Byte, B As Byte
Dim Sret As String * 66, sTemp As String * 6

"używamy szeregowego wejściowy bufor
Config Serialin = buforowaną, Size = 12 'bufor jest małe większy chip umożliwi większy bufor

"umożliwić przerwan ponieważ szeregowego wejściowy bufor utworów inspirowanych przerwan
Enable Interrupts

"definiować stałą umożliwienie LCD opinie
Const Uselcd = 1
Const Senddemo = 1 '1 = wysłać sms
Const Pincode = "AT CPIN = 1234" pincode zmienić go w yours!
Numer telefonu const = "AT CMGS = 31653123456" numer telefonu do wysłania wiadomości SMS do

# jeśli Uselcd = 1
Cls
Lcd "SMS Demo"
# endif

"poczekaj, aż po gotowy jest tryb Power Up
Waitms 3000

# jeśli Uselcd = 1
Lcd "init modemu"
# endifDrukuj "na" wyślij komend AT dwa razy, aby włączyć modem
Drukuj "AT"
Flushbuf "flush bufora
Drukuj "ATE0"
# jeśli Uselcd = 1
Start Dolnej
# endif

Zrobić
Drukuj "AT": "Waitms 100
Getline Sret "uzyskania danych z modemu
# jeśli Uselcd = 1
Lcd Sret "opinie na monitorze
# endif
Pętla Do Sret = "OK" modemu musi wysłać OK
Flushbuf "flush bufora wejściowego
# jeśli Uselcd = 1
Start Górny:
LCD "Get pin mode"
# endif
Print "AT cpin?""Pin uzyskać status
Getline Sret
# jeśli Uselcd = 1
Start Dolnej:
LCD Sret
# endif
Jeśli Sret = " CPIN: kod PIN karty SIM" Then
Drukuj Pincode 'wyślij pincode
End If
Flushbuf
# jeśli Uselcd = 1
Start Górny:
LCD "ustawić tryb tekstowy"
# endif
Print "AT CMGF = 1" SMS ustawić tryb tekstowy
Getline Sret "OK uzyskać status
# jeśli Uselcd = 1
Start Dolnej:
LCD Sret
# endif

"Ustawienia SMS
Print "AT CSMP = 17,167,0,0"
Getline Sret
Print "AT CNMI = 0,1,2,0,0"
Getline Sret

# jeśli Senddemo = 1
# jeśli Uselcd = 1
Start Górny:
LCD "Wyślij SMS"
# endif
Drukuj numer telefonu
Waitms 100
Drukuj "Bascom AVR SMS"; Chr (26)
Getline Sret
# jeśli Uselcd = 1
Start Dolnej:
LCD Sret 'Feedback
# endif
# endifGłównym pętli
Zrobić
Getline Sret "czekać na odpowiedzi modemu
# jeśli Uselcd = 1
Cls
Lcd "Msg z modemem"
Start Dolnej:
LCD Sret
# endif
I = Instr (sret ":") "szukać:
Jeśli> 0 Then 'znalazłem
STemp = Left (sret, I)
Wybierz Sprawa sTemp
Sprawa " CMTI:" Showsms Sret "otrzymaliśmy SMS
"Hanle innych przypadkach tutaj
End Select
End If
Pętla "na wieki"subroutine, że jest powołany, kiedy otrzymał sms
's trzymaj otrzymała string
" CMTI:" SM ", 5
Sub Showsms (s As String)
# jeśli Uselcd = 1
Cls
# endif
I = Instr (s, "") 'znaleźć przecinek
I = I 1
STemp = Mid (s, I) jest obecnie posiada numer indeksu
# jeśli Uselcd = 1
Lcd "GET"; sTemp
Waitms 1000 'czas na zapoznanie się z lcd
# endif

Print "AT CMGR ="; sTemp "Uświadamianie
Getline S "nagłówek CMGR:" REC READ "," 316 xxxxxxxx "," 02/04/05, 01:42:49 00 "
# jeśli Uselcd = 1
Lowerline
Lcd S
# endif
Zrobić
Getline S "uzyskać dane z bufora
Wybierz Sprawa S
Sprawa "Port": "podczas wysyłania wiadomości tekstowych SMS, PORT, jak będzie to wykonane
# jeśli Uselcd = 1
Cls: Lcd "zrób coś!"
# endif
Sprawa "OK": Wyjdź Czy "koniec wiadomości
Case Else
End Select
Pętla
# jeśli Uselcd = 1
Start Dolnej: Lcd "usuń sms"
# endif
Print "AT CMGD ="; sTemp "usunąć wiadomość
Getline S 'get OK
# jeśli Uselcd = 1
Lcd S
# endif
End Sub"uzyskania linii danych z bufora
Sub Getline (s As String)
S = ""
Zrobić
B = Inkey ()
Wybierz przypadek B
Sprawa 0 'nic
Sprawa 13 'nie potrzebujemy tego
Sprawa 10: Jeśli S <> "" Then Exit Do 'jeśli mamy coś otrzymał
Case Else
S = S Chr (b) "zbudować ciąg
End Select
Pętla
End Sub

"flush bufora wejściowego
Sub Flushbuf ()
Waitms 100 "dać trochę czasu, aby uzyskać dane, jeśli jest tam
Zrobić
B = Inkey () "flush bufora
Pętla Do B = 0
End Sub

 
thank u pana zahak i naprawdę bardzo approtiate pomoc

oraz u mr.RBB nie chcę, aby niektóre moje zadanie coz jestem leniwy NIE ale chcę tak, ponieważ nie znam języka programowania, a zwłaszcza MicroC Jestem newbie więc jeśli i nauczyć się tego kodu programu I'll
be wyczerpaniu czasu. ..

Thank you again mr.zahak I really approtiate pracy i I'll test to tell you i wyniki

 
You must log in or register to reply here.

Welcome to EDABoard.com

Sponsor

Back
Top