Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[ATMega] Odbiór SMSa z SIEMENS C35.

14 Lip 2009 13:23 3117 7
  • Poziom 2  
    Mam nastepujacy problem..opierajac sie na projekcie MS chcialem zbudowac urzadzenie ktore odbieraloby smsy i reagowalo na nie...niestety po usunieciu instrukcji dotyczacej obslugi GPS kolegi MS program nie reaguje zarowno na nowy sms jak i RING.Program dzwoni jednak nie chce nic odebrac z telefonu.Czym moze to byc spowodowane??Czy to cos z przerwaniami ??wklejam swoj progrm zmodyfikowany program(BASCOM).Prosze o pomoc.

    Poprawiłem tytuł - Regulamin (11.1). [c_p]
  • Poziom 15  
    "Nie odbiera sms" to znaczy nie pobiera go z telefonu, nie dekoduje prawidłowo, czy nie robi po odebraniu sms tego co mu napisałeś w programie?

    Po 1:
    W definicji masz:
    Dzwoniacy = "503384839"

    a później z kodzie:
    If Dzwoniacy = "604604604" Or Dzwoniacy = "604604605" Or Dzwoniacy = "604604606" Then ...

    tego ifa na pewno Ci nie przejdzie.

    Po 2:
    If Trescsms = "617658DE0" Then Gosub Dzwon 'uruchom alarm
    If Trescsms = "6FFAFDAD0" Then Gosub Wyslij 'otwórz auto
    If Trescsms = "FA707BED4EAB01" Then Gosub Wyslij 'Zamknij błysnij diodą
    If Trescsms = "6F7279CE4EAB0" Then 'odeslij
    Dzwoniacy = "604604604"
    ...

    Rozumiem, że wiesz co mam być wysłane w SMS, aby była reakcja, bo te krzaczki "FA707BED4EAB01" itd to jest sms już zakodowany.
  • Poziom 2  
    nie odbiera go z telefonu tak samo nie odbiera sygnalu RING :(

    Dodano po 4 [minuty]:

    Wystarczy ze zostawie ta czesc i dziala wszystko jednak za dlugo uP reaguje na zmiane stanow na wejsciach ktore wykorzystuje do obslugi programu.

    Odczytaj_gps:

    Gpstxt = ""
    Przerwanie = 0 'Aby tu program nie utknął
    Do
    Gps = Inkey(#1)
    Incr Przerwanie
    Loop Until Gps = 82 Or Przerwanie = 1024

    Dodano po 7 [minuty]:

    wiem co ma byc wyslane.....wartosci dzwoniacego sa rozne ale podczas dzwonienia jakiegokolwiek numeru telefon powinien sie rozlaczyc poniewaz ta instrukcja jest przed ifem
    Print "ATH" ; Chr(13)
  • Poziom 15  
    Coś za dużo musiałeś wyrzucić.
    Weź jeszcze raz działającą wersję i wyłączaj po kroku kolejne fragmenty kodu GPSa.
  • Poziom 2  
    wystarczy ze usune z petli do loop linijke "gosub odczytaj_gps"
  • Poziom 2  
    Czy ktos widzi jakis problem w ponizszym listingu?? Gdy telefon dzwoni zapala sie diodka i gasnie znaczy ze przechodzi do "Odbierzuart:" i na tym sie konczy:(

    $regfile = "m8def.dat"
    $crystal = 8000000
    Baud = 19200


    Dim C As String * 200
    Dim Syg1 As Byte
    Dim Syg2 As Byte
    Dim B As Byte

    Dim A As Byte



    Config Serialin = Buffered , Size = 150
    Enable Interrupts

    Config Pinc.0 = Output
    Blokada Alias Portc.0


    Config Pinb.0 = Output
    Led Alias Portb.0

    Waitms 100
    Print "ATZ" ; Chr(13)
    Waitms 500

    Print "ATX0" ; Chr(13)
    Waitms 100
    Print "ATE0" ; Chr(13)
    Waitms 100
    Print "AT+CLIP=1" ; Chr(13)
    Waitms 100
    Print "AT+CNMI=1,1,0,2" ; Chr(13)
    Waitms 100
    Print "AT+CPMS=" ; Chr(34) ; "SM" ; Chr(34) ; Chr(13)
    Waitms 100

    Set Led
    Wait 2
    Reset Led

    Do
    B = Ischarwaiting()

    If B = 1 Then
    Set Led
    Gosub Odbierzuart

    End If

    Loop

    End

    Odbierzuart:
    Reset Led
    C = ""
    Do

    A = Inkey()
    C = C + Chr(a)
    B = Ischarwaiting()
    Loop Until A = Chr(13) Or B = 0
    Syg1 = Instr(c , "RING")
    Syg2 = Instr(c , "CMTI")
    If Syg1 > 0 Then Set Led
    If Syg2 > 0 Then Set Blokada

    Return
  • Poziom 19  
    Loop Until A = 13


    mozna tez inaczej

    do
    ....
    ....
    ....
    if a=13 then exit do
    .....
    .....
    ....
    loop