PLZ man reikia šio kodekso Skubiai

C

cool_guy4ever15

Guest
Hello every body

mano aukštesniųjų projekto SMS Remote Control, I'm
using t290i ericsson
Aš išbandyti jį AT komandos ir hiper terminalas veikia gerai, kai i siųsti žinutę mobiliųjų ir galėtų skaityti jį hyperterminal.but dabar aš nežinau, kaip galima i padaryti MCU kai ir prijungti jį prie mobiliojo gauti msg yra įjungti / išjungti prietaisus.

plz i want visą kodą taip ir galima deginti.gali būti
aš prijungti prietaisus port2 p2.0 ... p2.4.prisiimti jokių uosto NOP tačiau man.

plz i want šį kodą kaip galima greičiau.

 
Wiele wskazuje na to, że Sony Ericsson Xperia PLAY stanie się androidowym hitem nie tylko z racji oficjalnie dystrybuowanych gier 3D. Sprzętowe przyciski są też nieocenione gdy chodzi o emulatory.

Read more...
 
Tai jūsų projekto ne jums turėtų parengti šį kodeksą?

 
Labas,
Pasakykite man, kuris MCU turite naudoti šį projektą ?????Po to aš jums sprendimą, kad.

Linkėjimai,
Anand.A

 
Aš nesu ekspertas programavimo C mikrokontrolerių.ir i
don't think it'll be problemų, kad bet koks vieno padeda man į project.as matau daug ppl į forumą raštu kodai viena kitai.

ir Mr.aanand_44 I'm
using AT89s52.thanks for your help.I'll
be waiting kodas plz.o jei ir nori man paaiškinti jums informacijos apie kodą, kuris kaiščių ir prijunkite prietaisą ir įjungti / išjungti pranešimus.

 
Galbūt jis buvo priverstas arba galbūt, galbūt kaip tik jis nenorėjo daryti savo namų.

 
Prijunkite Jūsų mobilusis telefonas ar GSM modemą prie uosto szeregowego savo UC!
Tai kodas, kurį paprašė, galite siųsti
ir gauti SMS, naudojant šį kodą.
Jūs galite ieškoti šio kodas Imties aplankas Bascom per ...
Hope to help!
Linkėjimai,
Shahram H. Farmanesh'------------------------------------------------- -----------------------------
"SMS.BAS
"(C) 2002-2007 MCS Elektronika
"Šis pavyzdys rodo, kaip naudoti komandą GSM režimas
"GSM modemus galima gauti www.mcselec.com
'------------------------------------------------- -----------------------------

$ regfile = "2313def.dat"

"XTAL = 10 MHz
$ crystal = 10000000

"Pagal nutylėjimą modemas dirba 9600 Baud
$ Baud = 9600

"HW stos 20, DR kamino 8,
karkasas 10
$ hwstack = 20
$ swstack = 8
$ framesize = 8"Kai kuriose Subroutines
Pripažinti Tarpinė Getline (-ai As String)
Pripažinti Tarpinė Flushbuf ()
Pripažinti Tarpinė Showsms (-ai As String)"naudojami kintamieji
Dim i Baitas, B Kaip Baitas
Dim Sret As String * 66, Stemp As String * 6

"mes naudojame serijos įvedimo buferio
Config Serialin = Buffered, dydis = 12 'buferis yra mažas didesnį mikroschemų leistų didesnę buferis

"kad nutrūksta, nes serijos įvedimo buferio darbai pertraukinėja veikiamus
Įjungti Interrupts

"define nuolat, kad būtų galima LCD atsiliepimą
Const Uselcd = 1
Const Senddemo = 1 1 = siųskite sms
Const Pincode = "AT CPIN = 1234" pincode pakeisti į Jūsų!
Const Phonenumber = "AT CMGS = 31653123456" phonenumber siųsti sms į

# jeigu Uselcd = 1
CLS
Lcd SMS demo "
# endif

"laukti, kol režimas yra pasirengęs po galia
Waitms 3000

# jeigu Uselcd = 1
Lcd "Init modemas"
# endifSpausdinti "AT" siųsti AT komandų du kartus įjungti modemo
Spausdinti "AT"
Flushbuf "tuštinamos buferio
Spausdinti "ATE0"
# jeigu Uselcd = 1
Pradžia Mažesnis
# endif

Daryti
Spausdinti "AT": "Waitms 100
Getline Sret "gauti duomenis iš modemo
# jeigu Uselcd = 1
Lcd Sret "atsiliepimą apie rodymo
# endif
Ciklas Iki Sret = "Gerai" "modemas turi siųsti Gerai
Flushbuf "praplaukite įvedimo buferio
# jeigu Uselcd = 1
Pradžia Aukštutinės: Lcd "Gauk Kaisčiai būdas"
# endif
Spausdinti "AT cpin?"'Get pin statusas
Getline Sret
# jeigu Uselcd = 1
Pradžia Žemutinės: Lcd Sret
# endif
Jei Sret = " CPIN: SIM PIN" Tada
Spausdinti Pincode "siųsti pincode
End If
Flushbuf
# jeigu Uselcd = 1
Pradžia Aukštutinės: Lcd "rinkinys teksto režimu"
# endif
Spausdinti "AT CMGF = 1" nustatyti SMS būdas
Getline Sret 'get Gerai statusas
# jeigu Uselcd = 1
Pradžia Žemutinės: Lcd Sret
# endif

"Sms nustatymai
Spausdinti "AT CSMP = 17,167,0,0"
Getline Sret
Spausdinti "AT CNMI = 0,1,2,0,0"
Getline Sret

# jeigu Senddemo = 1
# jeigu Uselcd = 1
Pradžia Aukštutinės: Lcd "siųsti SMS"
# endif
Spausdinti Phonenumber
Waitms 100
Spausdinti "Bascom AVR SMS"; Chr (26)
Getline Sret
# jeigu Uselcd = 1
Pradžia Žemutinės: Lcd Sret "atsiliepimai
# endif
# endifPagrindinės linijos
Daryti
Getline Sret "laukti modemą atsakymą
# jeigu Uselcd = 1
CLS
Lcd "pranešimas iš modemo"
Pradžia Žemutinės: Lcd Sret
# endif
I = Instr (sret ":") ieško:
If I> 0 Then ', kad tai
Stemp = kairė (sret, I)
Pasirinkite Byla Stemp
Byla " CMTI:": Showsms Sret "mes gavome SMS
"Hanle kitais atvejais čia
Pabaiga Pasirinkite
End If
Ciklas "amžinai"Daiktavardis kad yra kai sms gavo
's palaikykite gavo Styga
" CMTI:" SM ", 5
Tarpinė Showsms (-ai As String)
# jeigu Uselcd = 1
CLS
# endif
I = Instr (-ai, "") "rasti kablelis
I = I 1
Stemp = Mid (s, i) 's dabar turi indekso numeris
# jeigu Uselcd = 1
Lcd "get"; Stemp
Waitms 1000 "metu skaityti lcd
# endif

Spausdinti "AT CMGR ="; Stemp 'gauna pranešimą
Getline S "antraštę CMGR:" REC SKAITYTI ","
316 xxxxxxxx "," 02/04/05, 01:42:49 00 "
# jeigu Uselcd = 1
Lowerline
Lcd S
# endif
Daryti
Getline S "gauti duomenis iš buferio
Pasirinkite Byla S
Byla "UOSTO": "kai jūs siunčiate UOSTO kaip SMS teksto, tai bus įgyvendinta
# jeigu Uselcd = 1
CLS: Lcd "ką nors!"
# endif
Byla "Gerai":
Išvažiavimas Ar "pabaigoje pranešimą
Byla Else
Pabaiga Pasirinkite
Ciklas
# jeigu Uselcd = 1
Pradžia Žemutinės: Lcd "pašalinti sms"
# endif
Spausdinti "AT CMGD ="; Stemp "ištrinti pranešimą
Getline S "gauti Gerai
# jeigu Uselcd = 1
Lcd S
# endif
End Sub'get linija duomenis iš buferio
Tarpinė Getline (-ai As String)
S = ""
Daryti
B = INKEY ()
Pasirinkite Byla B
Case 0 'nieko
Case 13 "mums nereikia šios
Case 10: Jei S <> ""
Then Exit Ar "jei mes gavome nors
Byla Else
S = S chr (b) "kurti Styga
Pabaiga Pasirinkite
Ciklas
End Sub

"praplaukite įvedimo buferio
Tarpinė Flushbuf ()
Waitms 100 "suteikia tam tikro laiko gauti duomenims, jei ji yra
Daryti
B = INKEY () "praplaukite buferis
Ciklas Iki B = 0
End Sub

 
thank u mr zahak i really really approtiate jūsų pagalba

ir u mr.RBB i
don't want some vienas mano darbas Coz esu tingus NE Bet aš noriu padaryti, nes nežinau, programavimo kalbų, ypač MicroC ir esu naujokas, jei i išmokti programą šį kodą aš bėga laikas. ..

Dėkoju vėl mr.zahak i really approtiate savo darbą ir
aš išbandyti ir pranešti Jums rezultatus

 

Welcome to EDABoard.com

Sponsor

Back
Top