Ne mogu naći problem u komunikaciji s mobitelom

Rasprava o PIC mikrokontrolerima, PIC projekti i drugo vezano za PIC-eve...

Moderators: pedja089, stojke369, [eDo], trax

User avatar
pedja089
Administrator sajta
Administrator sajta
Posts: 7876
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by pedja089 »

Prema duzini pravilno dimenzionisi vodove, imas gomile kalkulatora, i to je to.
Na razmake obavezno pazi, da ti ne dodje do proboja na plocici, pogotovo ako su u pitanju induktivni potrosaci...
soic
Posts: 19
Joined: 18-03-2011, 20:40
Location: Split<->Murter
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by soic »

Da, najviše me i brinu ti razmaci između nozica triaca da ne bi probilo. Sad kad sam radio pokusno sa zaruljom, onda sam s donje strane izmedju nozica stavija izolir trake.
Thanks na savjetu, pogledat cu malo te kalkulatore
SKOLS
Pocetnik na forumu
Pocetnik na forumu
Posts: 48
Joined: 06-02-2011, 17:28
Location: Skopje,Makedonija
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by SKOLS »

@Soic,dali moze da gi postavis site planovi za realizacija na ovoj proekt?Sema,heks kodovi i PBP fajlovi,dali moze da gi postavis?
EDIT:Dali moze da se smeni kodot da raboti so drug tip na mobilen,na primer NOKIA 3310?Sto treba da se smeni.
soic
Posts: 19
Joined: 18-03-2011, 20:40
Location: Split<->Murter
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by soic »

Pa mogu staviti, ali nije još gotovo sve, nisu svi senzori i izlazi u programu ni u shemi. Zapravo se još igram sa svime.
Trenutna shema ima dva-tri posta gore, a evo trenutni kod:

Code: Select all

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : Šime Šoić, Murter                                 *
'*  Notice  : Copyright (c) 2011 Šime Šoić, Murter              *
'*          : All Rights Reserved                               *
'*  Date    : 15.3.2011                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@ DEVICE pic16F628, HS_OSC
' ---- High Speed Oscilator
@ DEVICE pic16F628, WDT_OFF
' ---- Watchdog Timer=OFF
@ DEVICE pic16F628, BOD_OFF
' ---- Brown-Out Detect off
@ DEVICE pic16F628, LVP_OFF
' ---- Low-Voltage Programming=OFF
@ DEVICE pic16F628, MCLR_OFF
' ---- Reset Pin=Internal
@ DEVICE pic16F628, PWRT_ON
' ---- Power-On Timer=Disabled
@ DEVICE pic16F628, CPD_OFF
' Data Memory Code Protect
' Set to CPD_OFF for Development Copy
@ DEVICE pic16F628, PROTECT_OFF
' Program Code Protection


DEFINE OSC 20
Include "modedefs.bas"

DEFINE HSER_TXSTA 24h '24h=>BRGH=1, 20h=>BRGH=0, datasheet pg.74
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 19200
DEFINE HSER_SPBRG 64 'page 74
DEFINE HSER_CLROERR 1

OPTION_REG.7=0 'enable pullups on PortB
TRISA=0 'PORTA as outputs
TRISB.0=1'PORTB as input
CMCON=%00000111 'disable comparators
cr con 13 'Carriage Return character
lf con 10 'Line Feed character
ctrlz CON 26 'CTRL+Z character
cmd VAR word
stat_new var bit
stat_old var bit

Hserout ["ATE0",cr] 'echo off
Pause 500

HSEROUT ["ATZ",cr] 'Default mode
PAUSE 500
        
HSEROUT ["AT+CMGF=0",cr] 'set PDU mode
PAUSE 500

nomob:
HSerout ["AT",cr] 'check if the phone is there
HSerin 800,nomob,[WAIT("OK")]

PORTB.0=0 'initail state of switch
stat_old=PORTB.0

mainloop:
    
    
    stat_new=PORTB.0
    IF stat_new<stat_old THEN 'if the switch is pressed send SMS and dont send again if switch stays ON until it is OFF 
        
        PORTA.0=1 'LED on
        pause 1000
        PORTA.0=0 'LED off
    
        'send test sms
        
        HSERout ["AT+CMGS=17",cr] 'Length of SMS
        PAUSE 500
        
        HSEROUT ["0001000C91839598531923000004F4F29C0E",ctrlz,cr,lf] 'message "test" to 385989359132
        Pause 2000
        
        PORTA.0=1 'LED on, diagnostic to see if sending was succesful
        PAUSE 1500
        PORTA.0=0
        
        ENDIF
        stat_old=stat_new
    
    PORTA.0=1
    pause 500
    PORTA.0=0 
    
    HSErout ["AT+CMGR=1",cr]
    HSERIN 800,citanje,[WAIT("+CMGR: 0,,0")] 'provjera je li došla nova poruka
    GOTO mainloop
    
    'Upali 1 069183950805F1040C91839598531923000011305231228340075578989D06C500
    'Upali 2 069183950805F1040C91839598531923000011305231033440075578989D06C900
    'Upali 3 069183950805F1040C91839598531923000011305231134440075578989D06CD00
    'Upali 4 069183950805F1040C91839598531923000011305231331540075578989D06D100
    
    'Ugasi 1 069183950805F1040C9183959853192300001130523153934007D573789E06C500
    'Ugasi 2 069183950805F1040C9183959853192300001130523153934007D573789E06C900
    'Ugasi 3 069183950805F1040C9183959853192300001130523153934007D573789E06CD00
    'Ugasi 4 069183950805F1040C9183959853192300001130523153934007D573789E06D100
    
    citanje:
    
    Hserout ["AT+CMGR=1",cr]
    HSERIN 800,brisanje,[WAIT("839598531923")] 'provjera broja mobitela 385989359132
    
    HSEROUT ["AT+CMGR=1",cr] 
    HSERIN 800,gasenje,[WAIT("5578989D06"),hex4 cmd] 'čekam naredbu Upali i spremam broj u cmd
    GOTO relej_ON   
    
    gasenje:
    HSEROUT ["AT+CMGR=1",cr] 
    HSERIN 800,brisanje,[WAIT("D573789E06"),hex4 cmd] 'čekam naredbu Ugasi i spremam broj u cmd
    GOTO relej_OFF   
    
    relej_ON:
        select case cmd
            case 50432 'hex C500
                PORTA.1=1
                pause 500    
                goto brisanje
            case 51456 'hex C900
                PORTA.2=1
                pause 500    
                goto brisanje
            case 52480 'hex CD00
                PORTA.1=1
                pause 500    
                goto brisanje
            case 53504 'hex D100
                PORTA.1=1
                pause 500    
                goto brisanje    
            CASE else
                GOTO brisanje
        end select
        
    relej_OFF:
        select case cmd
            case 50432 'hex C500
                PORTA.1=0    
                goto brisanje
            case 51456 'hex C900
                PORTA.2=0   
                goto brisanje
            case 52480 'hex CD00
                PORTA.1=0    
                goto brisanje
            case 53504 'hex D100
                PORTA.1=0    
                goto brisanje    
            CASE else
                GOTO brisanje
        end select                
    
    brisanje:
        HSEROUT ["AT+CMGD=1",cr]
        Pause 500    

goto mainloop       

END
Što se tiče, Nokie 3310, ne znam ti ništa. Probaj malo googlati. Ja radim sa Siemensom C35.
SKOLS
Pocetnik na forumu
Pocetnik na forumu
Posts: 48
Joined: 06-02-2011, 17:28
Location: Skopje,Makedonija
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by SKOLS »

a kakvi senzori ke priklucis?DS1820 ili nesto drugo?
soic
Posts: 19
Joined: 18-03-2011, 20:40
Location: Split<->Murter
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by soic »

Pa senzor je zasad samo jedno obično tipkalo. Imaš na shemi točno sve što je spojeno trenutno. Razmišljao sam o DS18S20, ali možda poslije, čak sam ga i kupio već. Sad mi je cilj trenutno napraviti kvalitetan dizajn pločice za triace i snage za oko 1KW AC.

Također, pripazi na poruke, jer je kodiran moj broj mobitela za mobitel na koji se šalje i za prepoznavanje je li broj koji šalje autoriziran. Moraš kodirati svoj broj i poruke u PDU formatu. Ovo ti je program koji ja koristim: http://www.nobbi.com/pduspy.html

Ja ovo radim u slobodno vrijeme kad stignem, pa i ne napreduje baš brzo. Sad neću moći ništa raditi od sutra do slijedećeg četvrtka jer idem na put.
User avatar
grunf
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 286
Joined: 19-04-2008, 14:22
Location: Cvjećara

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by grunf »

sto se tice slanja sa mob na pic ja sam propustio signal kroz 7404 koji je napojen sa 5V i sve je radilo savrseno :D
Attachments
ovako nekako :D
ovako nekako :D
7404diagram.gif (6.23 KiB) Viewed 2691 times
SKOLS
Pocetnik na forumu
Pocetnik na forumu
Posts: 48
Joined: 06-02-2011, 17:28
Location: Skopje,Makedonija
Contact:

Re: Ne mogu naći problem u komunikaciji s mobitelom

Post by SKOLS »

dali moze da mi objasnite kako da vidam na koj broj ke pratam poraka?Moze li taka?Znaci HSEROUT i sledat brojki.Tie na mene ne mi se jasni.Ako moze da poobjasnite
Post Reply