PLZ Tarvitsen tämän säännöstön kiireellisesti

C

cool_guy4ever15

Guest
Hei Jokaisen Body

minun graduaatiota hanke on SMS kauko-ohjain,
olen käyttäen t290i Ericsson
Olen testannut sitä AT-komennot ja hyper terminaalin se toimii hyvin, kun voin lähettää viestin mobiili Voisin lukea sen hyperterminal.but En nyt tiedä, miten Teen MCU, kun se yhdistetään liikkuvat saavat msg yksi kytkin päälle / pois-laitteita.

plz i-kirjain haluta koko koodi, jotta voin polttaa sen.voidaan I'll liittää laitteita port2 p2.0 ... p2.4.Oletan satamien NOP mutta kerro minulle.

plz i-kirjain haluta tätä koodia niin pian kuin mahdollista.

 
Se projekti ei sinun pitäisi kirjoittaa koodin?

 
Hei,
Kerro minulle, missä MCU voit käyttää tätä hanketta ?????Tämän jälkeen I'll antaa sinulle ratkaisu siitä.

Terveisin,
Anand.A

 
En ole asiantuntija ohjelmointi C mikro.ja i
don't think it'll olla ongelma, että joku auttaa minua, että project.as näen monia ppl i forumet kirjallisesti koodit toisiaan.

ja Mr.aanand_44
Olen käyttäen AT89s52.thanks apuanne.I'll odottaa koodi plz.ja jos u halua minun selittää teille mitään tietoja koodi, joka nastat i yhteyden laitteen ja kytkin päälle / pois-viestejä.

 
I THINK U on ollut pakko jättää kirjoittaa KOODI: @

 
Ehkä hän oli pakko tai ehkä, vain ehkä hän ei halua tehdä sinun kotitehtävämme.

 
Liitä Matkapuhelinpalveluiden tai GSM-modeemin sarjaporttiin teidän UC!
Tämä on koodin pyysitte, voit Lähetä
ja Vastaanota SMS käytät tätä koodia.
Löydät tämän koodi Näyte kansioon sinun Bascom liian ...
Hope auttaa!
Terveisin,
Shahram H. Farmanesh'------------------------------------------------- -----------------------------
"SMS.BAS
"(C) 2002-2007 MCS Elektroniikka
"Tämä näyte miten käyttää AT-komentoa GSM-tilassa
"GSM-modeemit ovat saatavissa www.mcselec.com
'------------------------------------------------- -----------------------------

$ regfile = "2313def.dat"

"XTAL = 10 MHz
$ kristall = 10000000

"Oletusarvona modeemi toimii 9600 baudia
$ baudin = 9600

"HW pino 20, SW pino 8, kehys 10
$ hwstack = 20
$ swstack = 8
$ framesize = 8"joitakin subroutines
Julistaa Sub Getline (s As String)
Julistaa Sub Flushbuf ()
Julistaa Sub Showsms (s As String)"käytetyt muuttujat
Dim I Byte, B Kuten Byte
Dim Sret As String * 66, Stemp As String * 6

"Käytämme sarjapäätettä input buffer
Config Serialin = puskuroitua, Size = 12 "puskuria pieni isompi siru mahdollistaisi isompi puskuri

"jotta keskeyttää koska sarjaportin panos puskuri toimii katkaisevat ajaa
Ota katkaisevat

"määritellä jatkuvasti, jotta LCD palautetta
Const Uselcd = 1
Const Senddemo = 1 "1 = lähetä tekstiviestillä
Const Pincode = "AT CPIN = 1234" pincode muuttaa sen omasi!
Const Puhelinnumero = "AT CMGS = 31653123456" puhelinnumero lähettää tekstiviestinä

# jos Uselcd = 1
Cls
Lcd "SMS Demo"
# endif

"odota, kunnes tila on valmis jälkeen teho enintään
Waitms 3000

# jos Uselcd = 1
Lcd "Init modeemi"
# endifTulosta "AT" lähettää AT komento kahdesti aktivoida modeemiin
Tulosta "AT"
Flushbuf "huuhtele puskuri
Tulosta "ATE0"
# jos Uselcd = 1
Etusivu Ala
-# endif

Tehdä
Tulosta "AT": "Waitms 100
Getline Sret "saada tietoja modeemi
# jos Uselcd = 1
Lcd Sret "palautetta näyttö
# endif
Loop saakka Sret = "OK"-modeemi on lähetettävä OK
Flushbuf "huuhtele input buffer
# jos Uselcd = 1
Etusivu Ylä:
LCD "Get nastainen mode"
# endif
Tulosta "AT cpin?""Saada nastainen asema
Getline Sret
# jos Uselcd = 1
Etusivu Ala:
LCD Sret
# endif
Jos Sret = " CPIN: SIM PIN" Sitten
Tulosta Pincode "Lähetä pincode
End If
Flushbuf
# jos Uselcd = 1
Etusivu Ylä:
LCD "tenttikirja mode"
# endif
Tulosta "AT CMGF = 1" "asettaa tekstiviesti-tilassa
Getline Sret "saada OK asema
# jos Uselcd = 1
Etusivu Ala:
LCD Sret
# endif

"sms-asetukset
Tulosta "AT CSMP = 17,167,0,0"
Getline Sret
Tulosta "AT CNMI = 0,1,2,0,0"
Getline Sret

# jos Senddemo = 1
# jos Uselcd = 1
Etusivu Ylä:
LCD "Lähetä tekstiviesti"
# endif
Tulosta Puhelinnumero
Waitms 100
Tulosta "Bascom AVR SMS", Chr (26)
Getline Sret
# jos Uselcd = 1
Etusivu Ala:
LCD Sret palautetta
# endif
# endiftärkein loop
Tehdä
Getline Sret "odota modeemina vastaus
# jos Uselcd = 1
Cls
Lcd "Msg alkaen modeemi"
Etusivu Ala:
LCD Sret
# endif
I = Instr (sret, ":") 'etsiä:
Jos I> 0 Then 'oli
Stemp = vasemmisto (sret, I)
Valitse asia Stemp
Asia " CMTI:": Showsms Sret "saimme SMS
"Hanle muissa tapauksissa tästä
End Valitse
End If
Loop "ikuisesti"subroutine, jota kutsutaan, kun tekstiviesti on vastaanotettu
's pidä saanut string
' CMTI: "SM", 5
Sub Showsms (s As String)
# jos Uselcd = 1
Cls
# endif
I = Instr (s, ",") "löytää comma
I = I 1
Stemp = Mid (s, I) on nyt hallussaan indeksinumeroa
# jos Uselcd = 1
Lcd "GET"; Stemp
Waitms 1000 aikaa lukea lcd
# endif

Tulosta "AT CMGR ="; Stemp "saat viestin
Getline S-otsikon CMGR: "REC READ", " 316 xxxxxxxx",, "02/04/05, 01:42:49 00"
# jos Uselcd = 1
Lowerline
Lcd S
# endif
Tehdä
Getline S "saada tietoja puskuri
Valitse Asia S
Asia "PORT": "Kun lähetät PORT kuten tekstiviesti, tämä toteutetaan
# jos Uselcd = 1
Cls:
LCD "tee jotain!"
# endif
Asia "OK": Exit Do 'loppuun viesti
Asia Else
End Valitse
Loop
# jos Uselcd = 1
Etusivu Ala:
LCD "poista sms"
# endif
Tulosta "AT CMGD ="; Stemp 'Poista viesti
Getline S 'saada OK
# jos Uselcd = 1
Lcd S
# endif
End Sub"saada linja tietojen puskuri
Sub Getline (s As String)
S = ""
Tehdä
B = Inkey ()
Valitse Asia B
Asia 0 "ei
Asia 13 "emme tarvitse tätä
Asia 10: Jos S <> "" Then Exit Do ", jos olemme saaneet jotakin
Asia Else
S = S Chr (b) "rakentaa string
End Valitse
Loop
End Sub

"flush input buffer
Sub Flushbuf ()
Waitms 100 "antaa jonkin aikaa saada tietoja, jos se on siellä
Tehdä
B = Inkey () "flush puskuri
Loop saakka B = 0
End Sub

 
kiittää u mr zahak i todella todella approtiate apuasi

ja u mr.RBB En halua noin tehdä työtäni coz olen laiska NO mutta haluan niin, koska en tiedä, ohjelmointikieli erityisesti MicroC ja olen newbie joten jos saan ohjelmoida tämän koodin I'll on loppumassa aika. ..

Kiitos vielä kerran mr.zahak i todella approtiate työsi ja I'll testata ja kertoa teille tulokset

 
You must log in or register to reply here.

Welcome to EDABoard.com

Sponsor

Back
Top