SMS / GPRS İle Araç Takip Güvenlik Sistemi

armys2000 · 21 Mayıs 2008, 23:56:13

Arkadaşlar şema ve pcb demo programı vs dokümanı www.endofcode.com sitesinde bulabilirsiniz. son hali bu. Hatalar vs varsa arkadaşlar düzeltsin.

[code]
' AGS5V5.BAS
' 20.07.2007 Tarihli Modem Kartının 03.02.2008 12:46 Tarihli 18F452 Kodu
'-ampasmwin -oq -c -p18F452
' 03.02.2008 12:46
'************************ KONFİGÜRASYON ***********************************

INCLUDE "modedefs.bas"                           ' File Include

DEFINE OSC 20                                 ' OSC Speed Set 20 Mhz
adcon1 = 7

'************************ ATAMALAR ***********************************
       'ISI1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         'ISI2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         'M2_SCL            VAR            PORTA.2         ' 2:24LC512 SCL I/O
         'M2_SDA            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         'M3_SCL           VAR            PORTA.4         ' 3:24LC512 SCL I/O
         'M3_SDA        VAR            PORTA.5         ' 3:24LC512 SDA I/O

         Tmp1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         Tmp2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         GPRS_LED          VAR            PORTA.2         ' 2:24LC512 SCL I/O
         GPS_LED            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         NC1          VAR            PORTA.4         ' 3:24LC512 SCL I/O
         NC2       VAR            PORTA.5         ' 3:24LC512 SDA I/O

'         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
'         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
'         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
'         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
'         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
'         KONTAK            VAR            PORTB.5         ' RS485 RX DATA INPUT
'         TEMPIN        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
'         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &

         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
         KONTAK           VAR            PORTB.5         ' RS485 RX DATA INPUT
         PGM_B6        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &


         'G24_CTS          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         'G24_RTS          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         'MCU_TXD          VAR            PORTC.2         ' MCU TX DATA OUTPUT
         'MCU_RXD          VAR            PORTC.3         ' MCU RX DATA INPUT
         'MCU_IN           VAR            PORTC.4         ' MCU IN INPUT
         'MCU_OUT         VAR            PORTC.5         ' MCU OUT OUTPUT
         'G24_TXD        VAR            PORTC.6         ' G24 TX DATA OUTPUT
         'G24_RXD        VAR            PORTC.7         ' G24 RX DATA INPUT


         G24_AUIN          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         G24_SPWR          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         G24_LED             VAR            PORTC.2         ' MCU TX DATA OUTPUT
         G24_RI          VAR            PORTC.3         ' MCU RX DATA INPUT
         G24_CTS           VAR            PORTC.4         ' MCU IN INPUT
         G24_RTS            VAR            PORTC.5         ' MCU OUT OUTPUT
         G24_TXD           VAR            PORTC.6         ' G24 TX DATA OUTPUT
         G24_RXD           VAR            PORTC.7         ' G24 RX DATA INPUT



'        GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
'         PIO_CTS          VAR            PORTD.1         ' GPS TX DATA OUTPUT
'         PIO_RTS          VAR            PORTD.2         ' GPS RX DATA INPUT
'         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
'         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF OUTPUT
'         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
'         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
'         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT

         GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
         CAM_TXD          VAR            PORTD.1         ' CAMERA TX DATA OUTPUT
         CAM_RXD          VAR            PORTD.2         ' CAMERA RX DATA INPUT
         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF INPUT
         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT



         SYS_LED        VAR            PORTE.0         ' SYSTEM INDICATOR LED OUTPUT
         M1_SDA           VAR            PORTE.1         ' I2C Serial Data
         M1_SCL           VAR            PORTE.2         ' I2C Serial Clock

'************************ TRIS REGISTERS ***********************************

TRISA.0 = 1
TRISA.1 = 1
TRISA.2 = 0
TRISA.3 = 0
TRISA.4 = 1
TRISA.0 = 1

TRISB= %11111111
TRISC= %10011000
TRISD= %01010100

TRISE.0 = 0
TRISE.1 = 0
TRISE.2 = 0

'***************************** DEĞİŞKENLER *****************************
         ' SYSTEM KAMERA Bilgileri

         Prmtr         VAR         BYTE[6]


         cSync         VAR         BYTE
         cAck         VAR         BYTE
         cNak         VAR         BYTE


         cAckCnt         VAR         WORD
         cNakCnt         VAR         WORD

         ColorType      VAR         BYTE
         PreviewRes      VAR         BYTE
         JpegRes         VAR         BYTE
         ResimType      VAR         BYTE



         ' SYSTEM ISI 1 Bilgileri İçin

         R_Temp       VAR       WORD
         Cold_Bit     VAR          R_Temp.Bit11
         Polarite    VAR        BYTE
         Dummy    VAR        BYTE
         TempC    VAR        WORD
         Kusurat    VAR          WORD
         'Real_Cold    CON          1
         'Deg    CON          223
         DrmTemp1      VAR          BYTE



         'SYSTEM Zaman Bilgileri Paketler İçin
         sysSaat         VAR         BYTE[2]
         sysDakika      VAR         BYTE[2]
         sysSaniye      VAR         BYTE[2]
         sysHafta      VAR         BYTE[2]
         sysAy         VAR         BYTE[2]
         sysGun         VAR         BYTE[2]
         sysYil         VAR         BYTE[2]

         'PIO Veri Paketler İçin
         datAcil         VAR         BYTE
         datSuphe      VAR         BYTE
         datAlarm      VAR         BYTE
         datAku         VAR         BYTE
         datKontak      VAR         BYTE
         datRole         VAR         BYTE
         datMdmSPwr      VAR         BYTE
         datMdmHPwr      VAR         BYTE

         'Modem Ekran Bİlgisi Paketler İçin
         mdmBat         VAR         BYTE
         mdmSin         VAR         BYTE
         mdmReg         VAR         BYTE
         mdmMsg         VAR         BYTE
         mdmRom         VAR         BYTE
         mdmSmsFull      VAR         BYTE
         mdmGprs         VAR         BYTE
         mdmSim         VAR         BYTE
         mdmData         VAR         BYTE
       ErrModem      VAR         BYTE

         ' GPS Verisi Paketler İçin
         gpsTarih      VAR         BYTE[6]
         gpsGun        VAR         BYTE[2]
         gpsAy        VAR         BYTE[2]
         gpsYil        VAR         BYTE[2]
         gpsSaat        VAR         BYTE[2]
         gpsDakika     VAR         BYTE[2]
         gpsSaniye     VAR         BYTE[2]
         gpsStatu     VAR         BYTE
         gpsKuzey     VAR         BYTE[10]
         gpsDogu        VAR         BYTE[11]
         gpsHiz        VAR         BYTE[7]
         gpsSapma     VAR         BYTE[6]
         gpsData         VAR         BYTE
         gpsTmp1         VAR         BYTE
         gpsTmp2         VAR         BYTE
         ErrGPS         VAR         BYTE
         gpsCHS         VAR         BYTE

         ' SYSTEM Parametre Kayıtları
         ApnName         VAR         BYTE[10]
         ApnUser         VAR         BYTE[8]
         ApnPass         VAR         BYTE[8]
         KonsolID      VAR         BYTE[5]
         usrAdmin     VAR       BYTE[8]
         pasAdmin     VAR       BYTE[4]
         telMerkez    VAR       BYTE[15]
         ipServer      VAR         BYTE[12]
         prtServer     VAR       BYTE[5]
         telAcil1     VAR       BYTE[15]
         cagAcil1     VAR       BYTE
         telAcil2     VAR       BYTE[15]
         cagAcil2     VAR       BYTE
         msgAlarm     VAR       BYTE[40]

         ' Kontrolü Yapılacaklar
         kntAcil    VAR       BYTE
         kntSuphe      VAR         BYTE
         kntAlarm     VAR       BYTE
         kntKontak     VAR       BYTE
         kntAku     VAR       BYTE
         kntBloke     VAR       BYTE
         kntKamera      VAR         BYTE
         kntTakip     VAR       BYTE
         kntYer     VAR       BYTE
         kntMrkzBilgi   VAR         BYTE
         kntSysReset      VAR         BYTE

         ' SYSTEM Güvenlik Birimi
         usrKontrol    VAR       BYTE[8]
         pasKontrol    VAR       BYTE[4]
         usrType         VAR         BYTE


         ' SYSTEM Ana Birimi
         wr            VAR       BYTE
         Sender         VAR         BYTE
       KnslRstDeg      VAR         WORD
         strComp         VAR         BYTE
         addr         VAR         BYTE
         GprsPacType VAR         BYTE
         SysCalType     VAR       BYTE
         EtkenCalType VAR         BYTE
         RegGeneral      VAR         BYTE[256]

         ' SYSTEM G24 GPS Birimi
         i            VAR         BYTE
         j            VAR         BYTE
         VirSay         VAR         BYTE

         ' SYSTEM G24 GPRS Birimi
         GWR            VAR         BYTE
         Deger         VAR         BYTE
         WhoIs         VAR         BYTE
         GpKomut         VAR         BYTE
         G24SAYAC      VAR         WORD
         GpTaWait      VAR         WORD
         TmpGpWait      VAR         WORD
         G24ADDR         VAR         WORD
         G24TMP1         VAR         BYTE
         G24TMP2         VAR         BYTE
         G24TMP3         VAR         BYTE
       G24VERI         VAR         BYTE[350]
         GprsMesaj      VAR         BYTE[160]
         MipData1      VAR         BYTE[64]
         MipData2       VAR         BYTE[32]

         ' SYSTEM G24 SMS SOS Birimi
         telEtkin      VAR         BYTE[15]
         SosType         VAR         BYTE
         SmsPacType      VAR         BYTE[2]
         TxMesajType VAR         BYTE

         ' SYSTEM G24 SMS MESAJ Birimi
         MsgIndex      VAR         BYTE
         SmsMesaj      VAR         BYTE[160]
         SmTaWait      VAR         WORD

         ' SYSTEM I2C Birimi
       MemAddrH      VAR         BYTE
       MemAddrL      VAR         BYTE
       MemAddr         VAR         WORD
       MemData         VAR         BYTE
       MemVeri         VAR         BYTE[52]

         ' SYSTEM FLAGLAR
         FlagMsgVar      VAR         BYTE
         FlgAcil       VAR         BYTE
         FlgSuphe      VAR         BYTE
         FlgAlarm      VAR         BYTE
         FlgAku         VAR         BYTE
         FlgKontak       VAR         BYTE
         FlgTakip       VAR         BYTE
         FlgYer        VAR         BYTE
         FlgBloke      VAR         BYTE
    FlgMsgVar      VAR         BYTE
         FlgGsmReg      VAR         BYTE
         FlgGprsReg VAR         BYTE
         FlgGprsRom      VAR         BYTE
         FlgGprsNet     VAR         BYTE
         FlgGprsPing      VAR         BYTE
    FlgCalType      VAR         BYTE
    FlgGprsCom      VAR         BYTE
       FlgSosDurum      VAR         BYTE
         FlgGpTakip      VAR         BYTE
         FlgGpYer       VAR         BYTE
         FlgSmTakip      VAR         BYTE
         FlgSmsYer      VAR         BYTE
         FlgMipCall      VAR         BYTE
         FlgMipCallErr VAR         BYTE
         FlgMipOpen VAR         BYTE
         FlgMipOpenErr VAR         BYTE
         FlgMipStat      VAR         BYTE
         FlgBaglanti VAR         BYTE
         FlgPingSend      VAR         BYTE
         FlgPingRec    VAR         BYTE
         FlgPingErr VAR         BYTE
       FlgRING       VAR         BYTE
         FlgKntkGitK      VAR         BYTE
         FlgKntkGitA      VAR         BYTE
         'FlgGecVeri      VAR         BYTE
         FlgGpNoTxD      VAR         BYTE

         'SYSTEM SAYAÇLARI
         SayGsmSin      VAR         BYTE
         SayGsmReg      VAR         BYTE
         SayGprsReg      VAR         BYTE
         SayLink         VAR         BYTE
         SayG24Cev      VAR         BYTE
         SayModemRst      VAR         WORD
   SayPing       VAR         WORD
         SayPingErr      VAR         WORD
         SaySmTakip      VAR         WORD
         SayGpTakip      VAR         WORD
         SayMipOpen VAR         WORD
         SayPingWait      VAR         WORD
         SayBaglanti      VAR         WORD
         SaySoket      VAR         WORD
         SayMipCall VAR         WORD



'***************************** SABİTLER ********************************

         CR            CON       13
         LF            CON       10
         CTRLZ         CON       $1A
         XON CON $11
XOFF CON $13
         ENQ            CON       $05
         ACK            CON       $06
         NAK            CON $15
         DLE            CON    $10
         STX            CON       $02
         ETX            CON       $03
         BEL            CON       $07
         SOH            CON $01
         EOT            CON       $04
         ESC            CON       $1B

         G24_BAUD      CON         84
         GPS_BAUD      CON         84
         MAX_BAUD      CON         16416
         MCU_BAUD      CON         84

         CAM_BAUD      CON         84

         Bek10         CON         10
         Bek100         CON         100
         Bek200         CON         200
         Bek300         CON         300
         Bek500         CON         500
         Bek1000         CON         1000
         Bek1500         CON         1500
         Bek2000         CON         2000
         Bek3000         CON         3000
         Bek5000         CON         5000

         ART            CON         "+"
         BOL            CON         "/"
         ESTR         CON         "="
         DOLAR         CON         "$"
         BOSLUK         CON         " "
       VI            CON         ","
SIF            CON         "0"
BIR            CON         "1"
IKI            CON         "2"
UC            CON         "3"
DOT            CON         "4"
BES            CON         "5"
ALT            CON         "6"
YED            CON         "7"
SEK            CON         "8"
DOK            CON         "9"
AA            CON         "A"
BB            CON         "B"
CC            CON         "C"
DD            CON         "D"
EE            CON         "E"
FF            CON         "F"
GG            CON         "G"
HH            CON         "H"
II            CON         "I"
JJ            CON         "J"
KK            CON         "K"
LL            CON         "L"
MM            CON         "M"
NN            CON         "N"
OO            CON         "O"
PP            CON         "P"
RR            CON         "R"
SS            CON         "S"
TT            CON         "T"
UU            CON         "T"
WW            CON         "W"
XX            CON         "X"
VV            CON         "V"
YY            CON         "Y"
ZZ            CON         "Z"

'******************** İLK ATAMALAR **********************************
EEPROM 0, ["00"] ' System Saat
EEPROM 2, ["00"] ' System Dakika
EEPROM 4, ["00"] ' System Saniye
EEPROM 6, ["00"] ' System Gün
EEPROM 8, ["00"] ' System Ay
EEPROM 10, ["00"] ' System Yil

EEPROM 12, ["0"] ' PIO datAcil
EEPROM 13, ["0"] ' PIO datSuphe
EEPROM 14, ["0"] ' PIO datAlarm
EEPROM 15, ["0"] ' PIO datKontak
EEPROM 16, ["0"] ' PIO datAku
EEPROM 17, ["0"] ' PIO datRole
EEPROM 18, ["0"] ' PIO datMdmSPwr
EEPROM 19, ["0"] ' PIO datMdmHPwr

EEPROM 20, ["0"] ' G24 ErrModem
EEPROM 21, ["0"] ' G24 mdmBat
EEPROM 22, ["0"] ' G24 mdmSin
EEPROM 23, ["0"] ' G24 mdmReg
EEPROM 24, ["0"] ' G24 mdmMsg
EEPROM 25, ["0"] ' G24 mdmRom
EEPROM 26, ["0"] ' G24 mdmSmsFull
EEPROM 27, ["0"] ' G24 mdmGprs
EEPROM 28, ["0"] ' G24 mdmSim

EEPROM 29, ["0"] ' GPS ErrGPS
EEPROM 30, ["0"] ' GPS gpsStatu
EEPROM 31, ["00"] ' GPS gpsSaat
EEPROM 33, ["00"] ' GPS gpsDakika
EEPROM 35, ["00"] ' GPS gpsSaniye
EEPROM 37, ["00"] ' GPS gpsGun
EEPROM 39, ["00"] ' GPS gpsAy
EEPROM 41, ["00"] ' GPS gpsYil
EEPROM 43, ["0000.00000"] ' GPS gpsKuzey
EEPROM 53, ["00000.00000"] ' GPS gpsDogu
EEPROM 64, ["000.000"] ' GPS gpsHiz
EEPROM 71, ["000.00"] ' GPS gpsSapma
EEPROM 77, ["O+"] ' ISI 1 Sensör Verisi
EEPROM 79, [49,57] ' ISI 1 Sensör Verisi

EEPROM 81, ["000000000"] ' RESERVE
' SYSTEM TARAFINDAN KONTROLÜ YAPILACAK İŞLEMLER , 1 = Yapılsın , 0 = Yapılmasın
EEPROM 90, ["1"] ' Kontrol Acil
EEPROM 91, ["1"] ' Kontrol Suphe
EEPROM 92, ["1"] ' Kontrol Alarm
EEPROM 93, ["2"] ' Kontrol Kontak
EEPROM 94, ["1"] ' Kontrol Akü
EEPROM 95, ["1"] ' Kontrol Bloke
EEPROM 96, ["1"] ' Kontrol Kamera
EEPROM 97, ["1"] ' Kontrol Takip
EEPROM 98, ["1"] ' Kontrol Yer
EEPROM 99, ["1"] ' Kontrol Merkeze Bilgi
EEPROM 100,["3"] ' Kontrol System Reset
EEPROM 101,["1"] ' RESERVE

EEPROM 103, ["2"] ' Konsol Kontak Aralığı 4 = 60 Dakika
EEPROM 104, ["1"] ' Konsol Reset Aralığı, KnslRstDeg
EEPROM 105, [0] ' Memory Adres High
EEPROM 106, [0] ' Memory Adres Low

EEPROM 107, ["7"] ' GPRS Takipte Aralığı
EEPROM 108, ["1"] ' GPRS Takipte Kontak Kontrolü
EEPROM 109, ["1"] ' GPRS Takip

' SYSTEM PARAMETRE KAYITLARI YERİ
EEPROM 110,["internet??"] ' Network APN Name
EEPROM 120,["pppppp??"] ' Network APN Username
EEPROM 130,["uuuuuu??"] ' Network APN Password

EEPROM 142,["12345678"] ' User Username
EEPROM 150,["1234"] ' User Password
EEPROM 154,["00001"] ' Konsol ID

EEPROM 159,["905326220881"] ' Merkez Telefon Numarası
EEPROM 171,[255]
EEPROM 172,[255]
EEPROM 173,[255]
EEPROM 174,["905327030602"] ' Acil Telefon Numarası 1
EEPROM 186,[255]
EEPROM 187,[255]
EEPROM 188,[255]
EEPROM 189,["1"] ' Acil Telefon Numarası 1 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 190,["905428387054"] ' Acil Telefon Numarası 2
EEPROM 202,[255]
EEPROM 203,[255]
EEPROM 204,[255]
EEPROM 205,["0"] ' Acil Telefon Numarası 2 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 206,["06 TJP 22 Plakali Aracta!"] ' Acil Ve Alarm Durum Mesajı Max 25 Karakter

EEPROM 231,["088248008143"] ' Server IP
'EEPROM 231,["088248010126"] ' Server IP
'EEPROM 231,["078161058027"] ' Server IP
EEPROM 243,["48100"] ' Server Port
EEPROM 248,["0"] ' RESERVE
EEPROM 249,["0"] ' RESERVE
EEPROM 250,["0"] ' RESERVE
EEPROM 251,["0"] ' RESERVE
EEPROM 252,["0"] ' RESERVE
EEPROM 253,["0"] ' RESERVE
EEPROM 254,["0"] ' RESERVE
EEPROM 255,["1"] ' Çalışma Şekli

High G24_SPWR
'Low G24_SPWR

Low ROLE

For addr=1 TO 3
High SYS_LED
High GPRS_LED
High GPS_LED
'High ROLE
Pause 1000
Low SYS_LED
Low GPRS_LED
Low GPS_LED

Low ROLE
Pause 1000
SerOut2 PIO_TXD,MAX_BAUD,["Q",CR,LF]
Next addr

Low SYS_LED
Low GPRS_LED
Low GPS_LED

MemAddr = 0
SayModemRst = 0

'olee:

'IF PORTB.2=0 Then
'High ROLE
'EndIF

'IF PORTB.5=0 Then
'Low ROLE
'EndIF

'IF ROLE=0 Then
'Low PORTE.0
'EndIF

'IF ROLE=1 Then
'High PORTE.0
'EndIF

'GoTo olee

'*******************************************************************************
'**************** KAMERA MODÜLÜ ********************
'******************************************************************** 07.10.2007
'InitKamera :     cSync[0]=$AA0D
'             cSync[1]=$0000
'             cSync[2]=$0000
'
'
'   InitKameraL1 :
'             SerOut2 ACIL,CAM_BAUD,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cAckYok,[HEX4 cAck(0),HEX4 cAck(1),HEX4 cAck(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cSyncYok,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'
'
'
' cAckYok : GoTo InitKameraL1
'
' cSyncYok :
'
'
'******************************************************************** 07.10.2007

'*******************************************************************************
'****************        PREMAIN         ********************
'******************************************************************** 02.05.2007
PreMain : GoTo SysInit

SysInitOk : GoTo G24Init

G24InitOK : GoTo GpsInit

GpsInitOK :
GoTo Main
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'****************        MAIN         ********************
'****************        MAIN         ********************
'****************        MAIN         ********************
'*******************************************************************************
'******************************************************************** 02.05.2007

MAIN :
GoSub GpsVeriOku ' GPS KONUM VE ZAMAN BİLGİSİNİ AL

GoSub SaatOku ' SYSTEM ZAMAN BİLGİSİSİNİ AL

GoSub PioVeriOku ' ÇEVRESEL GİRİŞ BİLGİLERİNİ AL

GoSub ModemEkranOku ' G24 EKRAN BİLGİLERİNİ AL

'GoSub IsiOku       ' TEMP 1 DE BAĞLI SICAKLIK SENSÖRÜ

GoSub NormlVeriYaz ' VERİ PAKETİNİ HAFIZAYA YAZ

GoSub GsRgKnt ' GSM REGISTER KONTROLÜ

GoSub GpRgKnt ' GPRS REGISTER KONTROLÜ

GoTo GpRoKnt ' GSM ROAMING KONTROLÜ

GpRoKntOK : GoTo SmsKnt ' GSM GELEN SMS VARMI KONTROLÜ

SmsKntOK : GoTo SmKmtIc ' SMS KOMUT VARSA ICRA EDİLMESİ

SmKmtIcOK : GoTo GPBLK ' GPRS BLOK

GPBLKOK : GoTo GpKoIc ' GPRS GELEN KOMUT VARSA İCRA EDİLMESİ

GpKoIcOK : GoTo SosKontrol ' ACİL VEYA ALARM DURUMU VARSA GEREKENİ YAP

SosKontrolOK : GoTo SmTakipDur ' SMS ÜZERİNDEN TAKİP VARMI

SmTakipDurOK : GoTo SmYerSorma ' SMS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

SmYerSormaOK : GoTo KontakKont ' KONTAK KONTROL TAKİPTEN ÖNCE

KontakKontOK : GoTo GpTakipDur ' GPRS ÜZERİNDEN TAKİP VARMI

GpTakipDurOK : GoTo GpYerSor ' GPRS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

GpYerSOK : 'GoTo GpGecVeri ' GPRS ÜZERİNDEN GEÇMİŞ VERİ İSTENMİŞ Mİ

'GpGecVeriOK :
GoTo G24Rst ' G24 RESET DURUMU GELMİŞ Mİ

G24RstOk :

'SerOut2 PIO_TXD,MAX_BAUD,["20",HEX2 sysYil,".",HEX2 sysAy,".",HEX2 sysGun," ", HEX2 sysSaat,":",HEX2 sysDakika,":",HEX2 sysSaniye,13,10]

GoTo MAIN
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'******************************************************************** 29.04.2007

'*******************************************************************************
'**************** ISI OKUMA ********************
'******************************************************************** 24.10.2007
IsiOku : addr = 0

BolumTemp1 : OWOut Tmp1, 1, [$CC, $44]

   LoopTemp1 : IF addr >=10 Then
    addr = 0
    DrmTemp1 = NN ' TEMP NO
    Write 77,DrmTemp1
    Return
    EndIF

    OWIn Tmp1, 4, [strComp]

    IF strComp = 0 Then
    addr = addr + 1
    GoTo LoopTemp1
    EndIF


          OWOut Tmp1, 1, [$CC, $BE]
          OWIn Tmp1, 2, [R_Temp.Lowbyte, R_Temp.Highbyte]


          IF Cold_Bit = 1 Then
            'IF Cold_Bit = Real_Cold Then
                  Polarite = "-"
                 Dummy = 625 * ~R_Temp+1
                 TempC = Div32 10
                  'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
            Else
                 Polarite = "+"
                 Dummy = 625 * R_Temp
                 TempC = Div32 10
                TempC = (R_Temp & $0FF0) >> 4
                 Kusurat = ((R_Temp.Lowbyte & $0F) * 625)
                 'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
          EndIF

DrmTemp1 = OO ' TEMP OK
            Write 77,DrmTemp1
            Write 78,Polarite
            Write 79,TempC
            Write 80,Kusurat

Return
'******************************************************************** 24.10.2007

'*******************************************************************************
'**************** MODEM ME READY ********************
'******************************************************************** 27.04.2007
MeReady : High SYS_LED

IF WhoIs = DOK Then
WhoIs = SIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,1500,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

EndIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,300,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

G24ERR:

Low SYS_LED
High G24_RTS 'MeBusy

For G24ADDR = 0 TO 349

       IF G24VERI[G24ADDR] = "+" Then
          IF G24VERI[(G24ADDR + 1)] = "M" Then
          IF G24VERI[(G24ADDR + 2)] = "I" Then
          IF G24VERI[(G24ADDR + 3)] = "P" Then
          IF G24VERI[(G24ADDR + 4)] = "R" Then
          IF G24VERI[(G24ADDR + 5)] = "T" Then
          IF G24VERI[(G24ADDR + 6)] = "C" Then
          IF G24VERI[(G24ADDR + 7)] = "P" Then
          IF G24VERI[(G24ADDR + 8)] = ":" Then
          IF G24VERI[(G24ADDR + 9)] = " " Then
          IF G24VERI[(G24ADDR + 10)] = "1" Then
          IF G24VERI[(G24ADDR + 11)] = "," Then
          IF G24VERI[(G24ADDR + 12)] = "0" Then
          IF G24VERI[(G24ADDR + 13)] = "," Then

For G24SAYAC = 0 TO 63
          MipData1[G24SAYAC] = G24VERI[((G24ADDR + G24SAYAC ) + 14)]
          Next G24SAYAC

          GoTo MipVar

          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF

       Next G24ADDR

GoTo MipYok

MipVar:     FlgGprsCom = BIR

For addr = 0 TO 63

IF MipData1[addr]= SIF Then MipData1[addr]= $0
IF MipData1[addr]= BIR Then MipData1[addr]= $1
IF MipData1[addr]= IKI Then MipData1[addr]= $2
IF MipData1[addr]= UC Then MipData1[addr]= $3
IF MipData1[addr]= DOT Then MipData1[addr]= $4
IF MipData1[addr]= BES Then MipData1[addr]= $5
IF MipData1[addr]= ALT Then MipData1[addr]= $6
IF MipData1[addr]= YED Then MipData1[addr]= $7
IF MipData1[addr]= SEK Then MipData1[addr]= $8
IF MipData1[addr]= DOK Then MipData1[addr]= $9
IF MipData1[addr]= "A" Then MipData1[addr]= $A
IF MipData1[addr]= "B" Then MipData1[addr]= $B
IF MipData1[addr]= "C" Then MipData1[addr]= $C
IF MipData1[addr]= "D" Then MipData1[addr]= $D
IF MipData1[addr]= "E" Then MipData1[addr]= $E
IF MipData1[addr]= "F" Then MipData1[addr]= $F

Next addr

For addr = 0 TO 31

             G24TMP1 = MipData1[(addr*2)] << 4
             G24TMP2 = MipData1[((addr*2)+1)] << 4
             G24TMP2 = G24TMP2 >> 4
             G24TMP3 = G24TMP1 | G24TMP2
       MipData2[addr] = G24TMP3

            Next addr

            Return

MipYok : For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "R" Then
                 IF G24VERI[(G24ADDR + 1)] = "I" Then
                 IF G24VERI[(G24ADDR + 2)] = "N" Then
                 IF G24VERI[(G24ADDR + 3)] = "G" Then
                 FlgRING = BIR
                 SerOut2 G24_TXD,G24_BAUD,["ATA",CR,LF]
                 EndIF
                 EndIF
                 EndIF
                 EndIF

          Next G24ADDR
Return
'******************************************************************** 21.04.2007

'*****************************************************************************OK
'**************** SYSTEM INITILAZE RUTİNİ ********************
'******************************************************************** 07.01.2007
SysInit : sysSaat[0]    = SIF ' Sistem Saati Okuma Okuma
sysSaat[1]    = SIF
sysDakika[0]    = SIF
          sysDakika[1]    = SIF
          sysSaniye[0]    = SIF
          sysSaniye[1]    = SIF
          sysAy[0]       = SIF
          sysAy[1]       = SIF
          sysGun[0]       = SIF
          sysGun[1]       = SIF
          sysYil[0]       = SIF
          sysYil[1]       = SIF

SayG24Cev = 0 ' Modem Initilaze

MsgIndex = 1 ' G24 Mesaj Kontrol Mesaj Index Numarası

FlgGsmReg = SIF ' G24 Gsm Register Kontrolü
SayGsmReg = 0

FlgGprsReg = SIF ' G24 Gprs Register Kontrolü
SayGprsReg = 0

FlgMipCall = SIF ' G24 MIPCALL Bayrağı SIF ise MIPCAL Yok
SayMipCall = 0

FlgRING       = SIF ' RING i SIFIRLA

Sender          = SIF ' GPRS Paketlerini Hazırlarken Kimden ( Takip,Yer,Kontak,Reset,Acl/Alr) Geldiği

FlgSmTakip = SIF ' Çalışma Şekli Ne Olursa Olsun SMS li Takip İptal

FlgMsgVar = SIF
FlgSosDurum = SIF
FlgMipCall    = SIF
          FlgMipOpen = SIF
          FlgBaglanti = SIF
          FlgPingSend = SIF
          FlgPingRec = SIF
          FlgPingErr = SIF
FlgMipCallErr = SIF
          FlgMipOpenErr = SIF

          GpKomut    = $FF

          SayGprsReg = 0
          SayGsmReg    = 0
          SayPing = 0
SayMipCall = 0
SayMipOpen = 0
SayBaglanti = 0
    SayPingErr = 0
    SayG24Cev = 0

          MsgIndex    = 1

          FlgGprsNet    = 0
          TxMesajType = SIF

       FlgKntkGitK    = SIF ' 24.10.2007
       FlgKntkGitA    = SIF ' 24.10.2007

GoTo SysInitOk
'******************************************************************** 07.01.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM INITILAZE ***********
'*********** Modemin Açılması Ve Mesaj Formatının Set Edilmesi ***********
'*******************************************************************************
'******************************************************************** 27.04.2007
G24Init : High SYS_LED
SerOut2 PIO_TXD,MAX_BAUD,["MINIT",13,10]
GoSub G24AcSoft


G24Loop :
          Pause Bek300
             GoSub BuffDel
          SerOut2 G24_TXD,G24_BAUD,["AT",CR,LF]
          GoSub MeReady

          For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "O" Then
                 IF G24VERI[(G24ADDR + 1)] = "K" Then

                 SerOut2 PIO_TXD,MAX_BAUD,["MATOK",13,10]
                 SayG24Cev = 0
                 GoTo G24AtOk

                 EndIF
                 EndIF

          Next G24ADDR

          IF SayG24Cev > 15 Then
                High SYS_LED
                SayG24Cev = 0
                 GoSub G24KapaSoft
                 GoTo G24Init
          Else
             SayG24Cev = SayG24Cev + 1
                 GoTo G24Loop
          EndIF

G24AtOk : Low SYS_LED
SerOut2 G24_TXD,G24_BAUD,["AT+CBAUD=5",CR,LF]
Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAPATH=1,1",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MADIGITAL=0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MMICG=28",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAMUT=1,0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAFEAT=4,1",CR,LF]
'Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+IPR=5",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CPMS=",34,"SM",34,CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=1,4",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["ATE1",CR,LF]
Pause Bek100
          SerOut2 G24_TXD,G24_BAUD,["AT&K3",CR,LF]
          Pause Bek100

          GoSub BuffDel

GoTo G24InitOk

'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** uBLOX GPS INITILAZE ***********
'*********** GPS NMEA Mesaj Ve Port Ayarı ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
GpsInit : 'SerOut2 PIO_TXD,MAX_BAUD,["GPS INIT",13,10]

gpsCHS = $5A
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GGA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,GG,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5C
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GLL,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,LL,LL,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $4E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $59
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSV,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,VV,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,VTG,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
VV,TT,GG,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $44
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,ZDA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
ZZ,DD,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]

'Pause Bek200
'gpsCHS = $25
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,41,1,0007,0003,19200,",gpsCHS ,CR,LF]
'SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,BIR,VI,BIR,VI,SIF,_
'SIF,SIF,YED,VI,SIF,SIF,SIF,UC,VI,BIR,DOK,IKI,SIF,SIF,VI,gpsCHS ,CR,LF]

GoTo GpsInitOk
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'*******************************************************************************
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** TARİH VE SAAT BİLGİSİ ************
'*******************************************************************************
'******************************************************************** 02.05.2007
SaatOku: sysSaat[0] = gpsSaat[0]
sysSaat[1] = gpsSaat[1]
sysDakika[0] = gpsDakika[0]
sysDakika[1] = gpsDakika[1]
sysSaniye[0] = gpsSaniye[0]
sysSaniye[1] = gpsSaniye[1]
sysGun[0] = gpsGun[0]
sysGun[1] = gpsGun[1]
sysAy[0] = gpsAy[0]
sysAy[1] = gpsAy[1]
sysYil[0] = gpsYil[0]
sysYil[1] = gpsYil[1]

Write 0,sysSaat[0]:Write 1,sysSaat[1]
Write 2,sysDakika[0]:Write 3,sysDakika[1]
Write 4,sysSaniye[0]:Write 5,sysSaniye[1]
Write 6,sysGun[0]:Write 7,sysGun[1]
Write 8,sysAy[0]:Write 9,sysAy[1]
Write 10,sysYil[0]:Write 11,sysYil[1]

SerOut2 PIO_TXD,MAX_BAUD,["SYS TIME : ",STR sysSaat\2,":",STR sysDakika\2,":",STR sysSaniye\2," ", STR sysGun\2 ,".",STR sysAy\2,".","20",STR sysYil\2,13,10]

Return
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** ÇEVRESEL GİRİŞ/ÇIKIŞ BİLGİLERİ ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
PioVeriOku : IF ACIL = 1 Then
             datAcil =BIR
          Else
              datAcil =SIF
          EndIF

          IF SUPHE = 1 Then
             datSuphe =BIR
          Else
              datSuphe =SIF
          EndIF

          IF ALARM = 1 Then
             datAlarm =BIR
          Else
              datAlarm =SIF
          EndIF

          IF KONTAK = 1 Then
             datKontak =BIR
          Else
              datKontak =SIF
          EndIF

          IF AKU = 1 Then
             datAku =BIR
          Else
              datAku =SIF
          EndIF


          IF ROLE = 1 Then
             datRole =BIR
          Else
              datRole =SIF
          EndIF

          IF G24_SPWR = 1 Then
             datMdmSPwr =BIR
          Else
              datMdmSPwr =SIF
          EndIF

          'IF G24_HPWR = 1 Then
          ' datMdmHPwr =BIR
          'Else
              datMdmHPwr =SIF
          'EndIF

          Write 12,datAcil
          Write 13,datSuphe
          Write 14,datAlarm
          Write 15,datKontak
          Write 16,datAku
          Write 17,datRole
          Write 18,datMdmSPwr
Write 19,datMdmHPwr

SerOut2 PIO_TXD,MAX_BAUD,["PIO : ",datAcil,":",datSuphe,":",datAlarm,":",datKontak,":",datAku,":",datRole,":",datMdmSPwr,":",datMdmHPwr,CR,LF]
Return
'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM STATU KONTROL ***********
'*********** Modem Durumunun Sorgulanması ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
ModemEkranOku :    mdmBat          = ZZ
               mdmSin       = ZZ
               mdmReg          = ZZ
               mdmMsg          = ZZ
               mdmRom          = ZZ
               mdmSmsFull       = ZZ
               mdmGprs          = ZZ
               mdmSim          = ZZ
                ErrModem       = ZZ

                'WhoIs = BIR
                GoSub BuffDel
                GoSub MdmEkrON
    GoSub MeReady

                For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "+" Then
                 IF G24VERI[(G24ADDR + 1)] = "C" Then
                 IF G24VERI[(G24ADDR + 2)] = "I" Then
                 IF G24VERI[(G24ADDR + 3)] = "E" Then
                 IF G24VERI[(G24ADDR + 4)] = "V" Then

                          mdmBat = G24VERI[(G24ADDR + 9)]
                          mdmSin = G24VERI[(G24ADDR + 23)]
                          mdmReg = G24VERI[(G24ADDR + 37)]
                          mdmMsg = G24VERI[(G24ADDR + 51)]
                          mdmRom = G24VERI[(G24ADDR + 79)]
                          mdmSmsFull = G24VERI[(G24ADDR + 107)]
                          mdmGprs = G24VERI[(G24ADDR + 121)]
                          mdmSim = G24VERI[(G24ADDR + 136)]

                GoTo ModemStatuOk

                 EndIF
                 EndIF
                 EndIF
                 EndIF
                 EndIF

                 Next G24ADDR

IF SayG24Cev > 20 Then
SayG24Cev = 0
GoSub G24KapaSoft
GoTo SysInit
Else
SayG24Cev = SayG24Cev + 1
PauseUs 1
GoTo ModemEkranOku
EndIF

GoTo ModemStatuEr

ModemStatuOk: ErrModem   = NN

        Write 20,ErrModem
          Write 21,mdmBat
          Write 22,mdmSin
          Write 23,mdmReg
          Write 24,mdmMsg
          Write 25,mdmRom
          Write 26,mdmSmsFull
          Write 27,mdmGprs
          Write 28,mdmSim

SerOut2 PIO_TXD,MAX_BAUD,["MS OK:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return

ModemStatuEr: ErrModem   = EE
SerOut2 PIO_TXD,MAX_BAUD,["MS ER:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return
'*******************************************************************************
'******************************************************************** 05.05.2007

'*******************************************************************************
'*******************************************************************************
'***** uBLOX GPS VERİLERİNİN ALINMASI ************
'***** Konum Bilgisi, Hız Bilgisi Sapma Bilgisi Ve Zaman Bilgisi ************
'*******************************************************************************
'******************************************************************** 05.05.2007
GpsVeriOku : For addr=0 TO 64
            RegGeneral[addr] = SIF
          Next addr

          For addr=0 TO 9
            gpsKuzey[addr] = SIF
          Next addr

          For addr=0 TO 10
            gpsDogu[addr] = SIF
          Next addr

          For addr=0 TO 6
            gpsHiz[addr] = SIF
          Next addr

          For addr=0 TO 5
            gpsSapma[addr] = SIF
          Next addr

          gpsGun[0] = SIF
          gpsGun[1] = SIF
          gpsAy[0] = SIF
          gpsAy[1] = SIF
          gpsYil[0] = SIF
          gpsYil[1] = SIF
          gpsSaat[0] = SIF
          gpsSaat[1] = SIF
          gpsDakika[0] = SIF
          gpsDakika[1] = SIF
          gpsSaniye[0] = SIF
          gpsSaniye[1] = SIF

          ErrGPS = EE

          SerIn2 GPS_RXD,GPS_BAUD,3000,GpsErr1,[wait("$GPRMC,")]

          i = 0

Loop1 :    SerIn2 GPS_RXD,GPS_BAUD,[gpsData]

          IF (gpsData = "*") OR (i >=200) Then

          GoTo gpsDataOk

          Else

             RegGeneral[i]=gpsData
             i = i + 1
          GoTo Loop1

          EndIF


   gpsDataOk : IF RegGeneral[1] = "V" Then
               gpsStatu = VV
               GoTo gpsAntYok
            EndIF

            IF (RegGeneral[10] = "V") Then
               gpsStatu = TT
               GoTo gpsOlcYok
            EndIF

            IF RegGeneral[10] = "A" Then
               gpsStatu = AA
               GoTo gpsOlcVar
            EndIF

            IF (RegGeneral[1] = SIF) OR (RegGeneral[6] = SIF) Then
               gpsStatu = DOK
               GoTo GpsErr1
            EndIF

   gpsAntYok :   GoTo GpsErr1

   gpsOlcYok :   gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            gpsGun[0] = RegGeneral[18]
            gpsGun[1] = RegGeneral[19]

            gpsAy[0] = RegGeneral[20]
            gpsAy[1] = RegGeneral[21]

            gpsYil[0] = RegGeneral[22]
            gpsYil[1] = RegGeneral[23]

            GoTo GpsErr1

gpsOlcVar : gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            VirSay = 0
            i = 0
            j = 0

   Kuzey1 :    IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 2 Then

   Kuzey2 :               IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                           GoTo gpsKuzeyOk
                        Else
                           gpsKuzey[j] = RegGeneral[(i+1)]
                       i = i + 1
                       j = j + 1
                       GoTo Kuzey2
                       EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Kuzey1


   gpsKuzeyOk : VirSay = 0
             i = 0
             j = 0

   Dogu1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 4 Then

   Dogu2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsDoguOk
                     Else
                        gpsDogu[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Dogu2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Dogu1

   gpsDoguOk : VirSay = 0
            i = 0
            j = 0


   Hiz1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 6 Then

   Hiz2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsHizOk
                     Else
                        gpsHiz[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Hiz2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Hiz1

   gpsHizOk : VirSay = 0
             i = 0
             j = 0


   Sapma1    : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 7 Then

   Sapma2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsSapmaOk
                     Else
                        gpsSapma[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Sapma2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Sapma1

   gpsSapmaOk : VirSay = 0
             i = 0
             j = 0

   Tarih1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 8 Then

   Tarih2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsTarihOk
                     Else
                        gpsTarih[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Tarih2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Tarih1

gpsTarihOk : gpsGun[0] = gpsTarih[0]
            gpsGun[1] = gpsTarih[1]

            gpsAy[0] = gpsTarih[2]
            gpsAy[1] = gpsTarih[3]

            gpsYil[0] = gpsTarih[4]
            gpsYil[1] = gpsTarih[5]


gpsVeriOk:

GpsVeriAlOk : Low GPS_LED

ErrGPS = NN

         Write 29,ErrGPS
         Write 30,gpsStatu
         Write 31,gpsSaat[0] :Write 32,gpsSaat[1]
         Write 33,gpsDakika[0]:Write 34,gpsDakika[1]
         Write 35,gpsSaniye[0]:Write 36,gpsSaniye[1]
         Write 37,gpsGun[0] :Write 38,gpsGun[1]
         Write 39,gpsAy[0] :Write 40,gpsAy[1]
         Write 41,gpsYil[0] :Write 42,gpsYil[1]



         Write 43,gpsKuzey[0]:Write 44,gpsKuzey[1]:Write 4

armys2000 · 22 Mayıs 2008, 00:03:32

Sanırım bir sorun oldu code tam olarak görüntülenmedi

[code]
' AGS5V5.BAS
' 20.07.2007 Tarihli Modem Kartının 03.02.2008 12:46 Tarihli 18F452 Kodu
'-ampasmwin -oq -c -p18F452
' 03.02.2008 12:46
'************************ KONFİGÜRASYON ***********************************

INCLUDE "modedefs.bas"                           ' File Include

DEFINE OSC 20                                 ' OSC Speed Set 20 Mhz
adcon1 = 7

'************************ ATAMALAR ***********************************
       'ISI1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         'ISI2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         'M2_SCL            VAR            PORTA.2         ' 2:24LC512 SCL I/O
         'M2_SDA            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         'M3_SCL           VAR            PORTA.4         ' 3:24LC512 SCL I/O
         'M3_SDA        VAR            PORTA.5         ' 3:24LC512 SDA I/O

         Tmp1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         Tmp2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         GPRS_LED          VAR            PORTA.2         ' 2:24LC512 SCL I/O
         GPS_LED            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         NC1          VAR            PORTA.4         ' 3:24LC512 SCL I/O
         NC2       VAR            PORTA.5         ' 3:24LC512 SDA I/O

'         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
'         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
'         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
'         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
'         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
'         KONTAK            VAR            PORTB.5         ' RS485 RX DATA INPUT
'         TEMPIN        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
'         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &

         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
         KONTAK           VAR            PORTB.5         ' RS485 RX DATA INPUT
         PGM_B6        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &


         'G24_CTS          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         'G24_RTS          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         'MCU_TXD          VAR            PORTC.2         ' MCU TX DATA OUTPUT
         'MCU_RXD          VAR            PORTC.3         ' MCU RX DATA INPUT
         'MCU_IN           VAR            PORTC.4         ' MCU IN INPUT
         'MCU_OUT         VAR            PORTC.5         ' MCU OUT OUTPUT
         'G24_TXD        VAR            PORTC.6         ' G24 TX DATA OUTPUT
         'G24_RXD        VAR            PORTC.7         ' G24 RX DATA INPUT


         G24_AUIN          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         G24_SPWR          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         G24_LED             VAR            PORTC.2         ' MCU TX DATA OUTPUT
         G24_RI          VAR            PORTC.3         ' MCU RX DATA INPUT
         G24_CTS           VAR            PORTC.4         ' MCU IN INPUT
         G24_RTS            VAR            PORTC.5         ' MCU OUT OUTPUT
         G24_TXD           VAR            PORTC.6         ' G24 TX DATA OUTPUT
         G24_RXD           VAR            PORTC.7         ' G24 RX DATA INPUT



'        GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
'         PIO_CTS          VAR            PORTD.1         ' GPS TX DATA OUTPUT
'         PIO_RTS          VAR            PORTD.2         ' GPS RX DATA INPUT
'         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
'         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF OUTPUT
'         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
'         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
'         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT

         GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
         CAM_TXD          VAR            PORTD.1         ' CAMERA TX DATA OUTPUT
         CAM_RXD          VAR            PORTD.2         ' CAMERA RX DATA INPUT
         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF INPUT
         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT



         SYS_LED        VAR            PORTE.0         ' SYSTEM INDICATOR LED OUTPUT
         M1_SDA           VAR            PORTE.1         ' I2C Serial Data
         M1_SCL           VAR            PORTE.2         ' I2C Serial Clock

'************************ TRIS REGISTERS ***********************************

TRISA.0 = 1
TRISA.1 = 1
TRISA.2 = 0
TRISA.3 = 0
TRISA.4 = 1
TRISA.0 = 1

TRISB= %11111111
TRISC= %10011000
TRISD= %01010100

TRISE.0 = 0
TRISE.1 = 0
TRISE.2 = 0

'***************************** DEĞİŞKENLER *****************************
         ' SYSTEM KAMERA Bilgileri

         Prmtr         VAR         BYTE[6]


         cSync         VAR         BYTE
         cAck         VAR         BYTE
         cNak         VAR         BYTE


         cAckCnt         VAR         WORD
         cNakCnt         VAR         WORD

         ColorType      VAR         BYTE
         PreviewRes      VAR         BYTE
         JpegRes         VAR         BYTE
         ResimType      VAR         BYTE



         ' SYSTEM ISI 1 Bilgileri İçin

         R_Temp       VAR       WORD
         Cold_Bit     VAR          R_Temp.Bit11
         Polarite    VAR        BYTE
         Dummy    VAR        BYTE
         TempC    VAR        WORD
         Kusurat    VAR          WORD
         'Real_Cold    CON          1
         'Deg    CON          223
         DrmTemp1      VAR          BYTE



         'SYSTEM Zaman Bilgileri Paketler İçin
         sysSaat         VAR         BYTE[2]
         sysDakika      VAR         BYTE[2]
         sysSaniye      VAR         BYTE[2]
         sysHafta      VAR         BYTE[2]
         sysAy         VAR         BYTE[2]
         sysGun         VAR         BYTE[2]
         sysYil         VAR         BYTE[2]

         'PIO Veri Paketler İçin
         datAcil         VAR         BYTE
         datSuphe      VAR         BYTE
         datAlarm      VAR         BYTE
         datAku         VAR         BYTE
         datKontak      VAR         BYTE
         datRole         VAR         BYTE
         datMdmSPwr      VAR         BYTE
         datMdmHPwr      VAR         BYTE

         'Modem Ekran Bİlgisi Paketler İçin
         mdmBat         VAR         BYTE
         mdmSin         VAR         BYTE
         mdmReg         VAR         BYTE
         mdmMsg         VAR         BYTE
         mdmRom         VAR         BYTE
         mdmSmsFull      VAR         BYTE
         mdmGprs         VAR         BYTE
         mdmSim         VAR         BYTE
         mdmData         VAR         BYTE
       ErrModem      VAR         BYTE

         ' GPS Verisi Paketler İçin
         gpsTarih      VAR         BYTE[6]
         gpsGun        VAR         BYTE[2]
         gpsAy        VAR         BYTE[2]
         gpsYil        VAR         BYTE[2]
         gpsSaat        VAR         BYTE[2]
         gpsDakika     VAR         BYTE[2]
         gpsSaniye     VAR         BYTE[2]
         gpsStatu     VAR         BYTE
         gpsKuzey     VAR         BYTE[10]
         gpsDogu        VAR         BYTE[11]
         gpsHiz        VAR         BYTE[7]
         gpsSapma     VAR         BYTE[6]
         gpsData         VAR         BYTE
         gpsTmp1         VAR         BYTE
         gpsTmp2         VAR         BYTE
         ErrGPS         VAR         BYTE
         gpsCHS         VAR         BYTE

         ' SYSTEM Parametre Kayıtları
         ApnName         VAR         BYTE[10]
         ApnUser         VAR         BYTE[8]
         ApnPass         VAR         BYTE[8]
         KonsolID      VAR         BYTE[5]
         usrAdmin     VAR       BYTE[8]
         pasAdmin     VAR       BYTE[4]
         telMerkez    VAR       BYTE[15]
         ipServer      VAR         BYTE[12]
         prtServer     VAR       BYTE[5]
         telAcil1     VAR       BYTE[15]
         cagAcil1     VAR       BYTE
         telAcil2     VAR       BYTE[15]
         cagAcil2     VAR       BYTE
         msgAlarm     VAR       BYTE[40]

         ' Kontrolü Yapılacaklar
         kntAcil    VAR       BYTE
         kntSuphe      VAR         BYTE
         kntAlarm     VAR       BYTE
         kntKontak     VAR       BYTE
         kntAku     VAR       BYTE
         kntBloke     VAR       BYTE
         kntKamera      VAR         BYTE
         kntTakip     VAR       BYTE
         kntYer     VAR       BYTE
         kntMrkzBilgi   VAR         BYTE
         kntSysReset      VAR         BYTE

         ' SYSTEM Güvenlik Birimi
         usrKontrol    VAR       BYTE[8]
         pasKontrol    VAR       BYTE[4]
         usrType         VAR         BYTE


         ' SYSTEM Ana Birimi
         wr            VAR       BYTE
         Sender         VAR         BYTE
       KnslRstDeg      VAR         WORD
         strComp         VAR         BYTE
         addr         VAR         BYTE
         GprsPacType VAR         BYTE
         SysCalType     VAR       BYTE
         EtkenCalType VAR         BYTE
         RegGeneral      VAR         BYTE[256]

         ' SYSTEM G24 GPS Birimi
         i            VAR         BYTE
         j            VAR         BYTE
         VirSay         VAR         BYTE

         ' SYSTEM G24 GPRS Birimi
         GWR            VAR         BYTE
         Deger         VAR         BYTE
         WhoIs         VAR         BYTE
         GpKomut         VAR         BYTE
         G24SAYAC      VAR         WORD
         GpTaWait      VAR         WORD
         TmpGpWait      VAR         WORD
         G24ADDR         VAR         WORD
         G24TMP1         VAR         BYTE
         G24TMP2         VAR         BYTE
         G24TMP3         VAR         BYTE
       G24VERI         VAR         BYTE[350]
         GprsMesaj      VAR         BYTE[160]
         MipData1      VAR         BYTE[64]
         MipData2       VAR         BYTE[32]

         ' SYSTEM G24 SMS SOS Birimi
         telEtkin      VAR         BYTE[15]
         SosType         VAR         BYTE
         SmsPacType      VAR         BYTE[2]
         TxMesajType VAR         BYTE

         ' SYSTEM G24 SMS MESAJ Birimi
         MsgIndex      VAR         BYTE
         SmsMesaj      VAR         BYTE[160]
         SmTaWait      VAR         WORD

         ' SYSTEM I2C Birimi
       MemAddrH      VAR         BYTE
       MemAddrL      VAR         BYTE
       MemAddr         VAR         WORD
       MemData         VAR         BYTE
       MemVeri         VAR         BYTE[52]

         ' SYSTEM FLAGLAR
         FlagMsgVar      VAR         BYTE
         FlgAcil       VAR         BYTE
         FlgSuphe      VAR         BYTE
         FlgAlarm      VAR         BYTE
         FlgAku         VAR         BYTE
         FlgKontak       VAR         BYTE
         FlgTakip       VAR         BYTE
         FlgYer        VAR         BYTE
         FlgBloke      VAR         BYTE
    FlgMsgVar      VAR         BYTE
         FlgGsmReg      VAR         BYTE
         FlgGprsReg VAR         BYTE
         FlgGprsRom      VAR         BYTE
         FlgGprsNet     VAR         BYTE
         FlgGprsPing      VAR         BYTE
    FlgCalType      VAR         BYTE
    FlgGprsCom      VAR         BYTE
       FlgSosDurum      VAR         BYTE
         FlgGpTakip      VAR         BYTE
         FlgGpYer       VAR         BYTE
         FlgSmTakip      VAR         BYTE
         FlgSmsYer      VAR         BYTE
         FlgMipCall      VAR         BYTE
         FlgMipCallErr VAR         BYTE
         FlgMipOpen VAR         BYTE
         FlgMipOpenErr VAR         BYTE
         FlgMipStat      VAR         BYTE
         FlgBaglanti VAR         BYTE
         FlgPingSend      VAR         BYTE
         FlgPingRec    VAR         BYTE
         FlgPingErr VAR         BYTE
       FlgRING       VAR         BYTE
         FlgKntkGitK      VAR         BYTE
         FlgKntkGitA      VAR         BYTE
         'FlgGecVeri      VAR         BYTE
         FlgGpNoTxD      VAR         BYTE

         'SYSTEM SAYAÇLARI
         SayGsmSin      VAR         BYTE
         SayGsmReg      VAR         BYTE
         SayGprsReg      VAR         BYTE
         SayLink         VAR         BYTE
         SayG24Cev      VAR         BYTE
         SayModemRst      VAR         WORD
   SayPing       VAR         WORD
         SayPingErr      VAR         WORD
         SaySmTakip      VAR         WORD
         SayGpTakip      VAR         WORD
         SayMipOpen VAR         WORD
         SayPingWait      VAR         WORD
         SayBaglanti      VAR         WORD
         SaySoket      VAR         WORD
         SayMipCall VAR         WORD



'***************************** SABİTLER ********************************

         CR            CON       13
         LF            CON       10
         CTRLZ         CON       $1A
         XON CON $11
XOFF CON $13
         ENQ            CON       $05
         ACK            CON       $06
         NAK            CON $15
         DLE            CON    $10
         STX            CON       $02
         ETX            CON       $03
         BEL            CON       $07
         SOH            CON $01
         EOT            CON       $04
         ESC            CON       $1B

         G24_BAUD      CON         84
         GPS_BAUD      CON         84
         MAX_BAUD      CON         16416
         MCU_BAUD      CON         84

         CAM_BAUD      CON         84

         Bek10         CON         10
         Bek100         CON         100
         Bek200         CON         200
         Bek300         CON         300
         Bek500         CON         500
         Bek1000         CON         1000
         Bek1500         CON         1500
         Bek2000         CON         2000
         Bek3000         CON         3000
         Bek5000         CON         5000

         ART            CON         "+"
         BOL            CON         "/"
         ESTR         CON         "="
         DOLAR         CON         "$"
         BOSLUK         CON         " "
       VI            CON         ","
SIF            CON         "0"
BIR            CON         "1"
IKI            CON         "2"
UC            CON         "3"
DOT            CON         "4"
BES            CON         "5"
ALT            CON         "6"
YED            CON         "7"
SEK            CON         "8"
DOK            CON         "9"
AA            CON         "A"
BB            CON         "B"
CC            CON         "C"
DD            CON         "D"
EE            CON         "E"
FF            CON         "F"
GG            CON         "G"
HH            CON         "H"
II            CON         "I"
JJ            CON         "J"
KK            CON         "K"
LL            CON         "L"
MM            CON         "M"
NN            CON         "N"
OO            CON         "O"
PP            CON         "P"
RR            CON         "R"
SS            CON         "S"
TT            CON         "T"
UU            CON         "T"
WW            CON         "W"
XX            CON         "X"
VV            CON         "V"
YY            CON         "Y"
ZZ            CON         "Z"

'************************ İLK ATAMALAR **********************************
EEPROM 0, ["00"] ' System Saat
EEPROM 2, ["00"] ' System Dakika
EEPROM 4, ["00"] ' System Saniye
EEPROM 6, ["00"] ' System Gün
EEPROM 8, ["00"] ' System Ay
EEPROM 10, ["00"] ' System Yil

EEPROM 12, ["0"] ' PIO datAcil
EEPROM 13, ["0"] ' PIO datSuphe
EEPROM 14, ["0"] ' PIO datAlarm
EEPROM 15, ["0"] ' PIO datKontak
EEPROM 16, ["0"] ' PIO datAku
EEPROM 17, ["0"] ' PIO datRole
EEPROM 18, ["0"] ' PIO datMdmSPwr
EEPROM 19, ["0"] ' PIO datMdmHPwr

EEPROM 20, ["0"] ' G24 ErrModem
EEPROM 21, ["0"] ' G24 mdmBat
EEPROM 22, ["0"] ' G24 mdmSin
EEPROM 23, ["0"] ' G24 mdmReg
EEPROM 24, ["0"] ' G24 mdmMsg
EEPROM 25, ["0"] ' G24 mdmRom
EEPROM 26, ["0"] ' G24 mdmSmsFull
EEPROM 27, ["0"] ' G24 mdmGprs
EEPROM 28, ["0"] ' G24 mdmSim

EEPROM 29, ["0"] ' GPS ErrGPS
EEPROM 30, ["0"] ' GPS gpsStatu
EEPROM 31, ["00"] ' GPS gpsSaat
EEPROM 33, ["00"] ' GPS gpsDakika
EEPROM 35, ["00"] ' GPS gpsSaniye
EEPROM 37, ["00"] ' GPS gpsGun
EEPROM 39, ["00"] ' GPS gpsAy
EEPROM 41, ["00"] ' GPS gpsYil
EEPROM 43, ["0000.00000"] ' GPS gpsKuzey
EEPROM 53, ["00000.00000"] ' GPS gpsDogu
EEPROM 64, ["000.000"] ' GPS gpsHiz
EEPROM 71, ["000.00"] ' GPS gpsSapma
EEPROM 77, ["O+"] ' ISI 1 Sensör Verisi
EEPROM 79, [49,57] ' ISI 1 Sensör Verisi

EEPROM 81, ["000000000"] ' RESERVE
' SYSTEM TARAFINDAN KONTROLÜ YAPILACAK İŞLEMLER , 1 = Yapılsın , 0 = Yapılmasın
EEPROM 90, ["1"] ' Kontrol Acil
EEPROM 91, ["1"] ' Kontrol Suphe
EEPROM 92, ["1"] ' Kontrol Alarm
EEPROM 93, ["2"] ' Kontrol Kontak
EEPROM 94, ["1"] ' Kontrol Akü
EEPROM 95, ["1"] ' Kontrol Bloke
EEPROM 96, ["1"] ' Kontrol Kamera
EEPROM 97, ["1"] ' Kontrol Takip
EEPROM 98, ["1"] ' Kontrol Yer
EEPROM 99, ["1"] ' Kontrol Merkeze Bilgi
EEPROM 100,["3"] ' Kontrol System Reset
EEPROM 101,["1"] ' RESERVE

EEPROM 103, ["2"] ' Konsol Kontak Aralığı 4 = 60 Dakika
EEPROM 104, ["1"] ' Konsol Reset Aralığı, KnslRstDeg
EEPROM 105, [0] ' Memory Adres High
EEPROM 106, [0] ' Memory Adres Low

EEPROM 107, ["7"] ' GPRS Takipte Aralığı
EEPROM 108, ["1"] ' GPRS Takipte Kontak Kontrolü
EEPROM 109, ["1"] ' GPRS Takip

' SYSTEM PARAMETRE KAYITLARI YERİ
EEPROM 110,["internet??"] ' Network APN Name
EEPROM 120,["pppppp??"] ' Network APN Username
EEPROM 130,["uuuuuu??"] ' Network APN Password

EEPROM 142,["12345678"] ' User Username
EEPROM 150,["1234"] ' User Password
EEPROM 154,["00001"] ' Konsol ID

EEPROM 159,["905326220881"] ' Merkez Telefon Numarası
EEPROM 171,[255]
EEPROM 172,[255]
EEPROM 173,[255]
EEPROM 174,["905327030602"] ' Acil Telefon Numarası 1
EEPROM 186,[255]
EEPROM 187,[255]
EEPROM 188,[255]
EEPROM 189,["1"] ' Acil Telefon Numarası 1 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 190,["905428387054"] ' Acil Telefon Numarası 2
EEPROM 202,[255]
EEPROM 203,[255]
EEPROM 204,[255]
EEPROM 205,["0"] ' Acil Telefon Numarası 2 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 206,["06 TJP 22 Plakali Aracta!"] ' Acil Ve Alarm Durum Mesajı Max 25 Karakter

EEPROM 231,["088248008143"] ' Server IP
'EEPROM 231,["088248010126"] ' Server IP
'EEPROM 231,["078161058027"] ' Server IP
EEPROM 243,["48100"] ' Server Port
EEPROM 248,["0"] ' RESERVE
EEPROM 249,["0"] ' RESERVE
EEPROM 250,["0"] ' RESERVE
EEPROM 251,["0"] ' RESERVE
EEPROM 252,["0"] ' RESERVE
EEPROM 253,["0"] ' RESERVE
EEPROM 254,["0"] ' RESERVE
EEPROM 255,["1"] ' Çalışma Şekli

High G24_SPWR
'Low G24_SPWR

Low ROLE

For addr=1 TO 3
High SYS_LED
High GPRS_LED
High GPS_LED
'High ROLE
Pause 1000
Low SYS_LED
Low GPRS_LED
Low GPS_LED

Low ROLE
Pause 1000
SerOut2 PIO_TXD,MAX_BAUD,["Q",CR,LF]
Next addr

Low SYS_LED
Low GPRS_LED
Low GPS_LED

MemAddr = 0
SayModemRst = 0

'olee:

'IF PORTB.2=0 Then
'High ROLE
'EndIF

'IF PORTB.5=0 Then
'Low ROLE
'EndIF

'IF ROLE=0 Then
'Low PORTE.0
'EndIF

'IF ROLE=1 Then
'High PORTE.0
'EndIF

'GoTo olee

'*******************************************************************************
'**************** KAMERA MODÜLÜ ********************
'******************************************************************** 07.10.2007
'InitKamera :     cSync[0]=$AA0D
'             cSync[1]=$0000
'             cSync[2]=$0000
'
'
'   InitKameraL1 :
'             SerOut2 ACIL,CAM_BAUD,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cAckYok,[HEX4 cAck(0),HEX4 cAck(1),HEX4 cAck(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cSyncYok,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'
'
'
' cAckYok : GoTo InitKameraL1
'
' cSyncYok :
'
'
'******************************************************************** 07.10.2007

'*******************************************************************************
'****************        PREMAIN         ********************
'******************************************************************** 02.05.2007
PreMain : GoTo SysInit

SysInitOk : GoTo G24Init

G24InitOK : GoTo GpsInit

GpsInitOK :
GoTo Main
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'****************        MAIN         ********************
'****************        MAIN         ********************
'****************        MAIN         ********************
'*******************************************************************************
'******************************************************************** 02.05.2007

MAIN :
GoSub GpsVeriOku ' GPS KONUM VE ZAMAN BİLGİSİNİ AL

GoSub SaatOku ' SYSTEM ZAMAN BİLGİSİSİNİ AL

GoSub PioVeriOku ' ÇEVRESEL GİRİŞ BİLGİLERİNİ AL

GoSub ModemEkranOku ' G24 EKRAN BİLGİLERİNİ AL

'GoSub IsiOku       ' TEMP 1 DE BAĞLI SICAKLIK SENSÖRÜ

GoSub NormlVeriYaz ' VERİ PAKETİNİ HAFIZAYA YAZ

GoSub GsRgKnt ' GSM REGISTER KONTROLÜ

GoSub GpRgKnt ' GPRS REGISTER KONTROLÜ

GoTo GpRoKnt ' GSM ROAMING KONTROLÜ

GpRoKntOK : GoTo SmsKnt ' GSM GELEN SMS VARMI KONTROLÜ

SmsKntOK : GoTo SmKmtIc ' SMS KOMUT VARSA ICRA EDİLMESİ

SmKmtIcOK : GoTo GPBLK ' GPRS BLOK

GPBLKOK : GoTo GpKoIc ' GPRS GELEN KOMUT VARSA İCRA EDİLMESİ

GpKoIcOK : GoTo SosKontrol ' ACİL VEYA ALARM DURUMU VARSA GEREKENİ YAP

SosKontrolOK : GoTo SmTakipDur ' SMS ÜZERİNDEN TAKİP VARMI

SmTakipDurOK : GoTo SmYerSorma ' SMS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

SmYerSormaOK : GoTo KontakKont ' KONTAK KONTROL TAKİPTEN ÖNCE

KontakKontOK : GoTo GpTakipDur ' GPRS ÜZERİNDEN TAKİP VARMI

GpTakipDurOK : GoTo GpYerSor ' GPRS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

GpYerSOK : 'GoTo GpGecVeri ' GPRS ÜZERİNDEN GEÇMİŞ VERİ İSTENMİŞ Mİ

'GpGecVeriOK :
GoTo G24Rst ' G24 RESET DURUMU GELMİŞ Mİ

G24RstOk :

'SerOut2 PIO_TXD,MAX_BAUD,["20",HEX2 sysYil,".",HEX2 sysAy,".",HEX2 sysGun," ", HEX2 sysSaat,":",HEX2 sysDakika,":",HEX2 sysSaniye,13,10]

GoTo MAIN
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'******************************************************************** 29.04.2007

'*******************************************************************************
'**************** ISI OKUMA ********************
'******************************************************************** 24.10.2007
IsiOku : addr = 0

BolumTemp1 : OWOut Tmp1, 1, [$CC, $44]

   LoopTemp1 : IF addr >=10 Then
    addr = 0
    DrmTemp1 = NN ' TEMP NO
    Write 77,DrmTemp1
    Return
    EndIF

    OWIn Tmp1, 4, [strComp]

    IF strComp = 0 Then
    addr = addr + 1
    GoTo LoopTemp1
    EndIF


          OWOut Tmp1, 1, [$CC, $BE]
          OWIn Tmp1, 2, [R_Temp.Lowbyte, R_Temp.Highbyte]


          IF Cold_Bit = 1 Then
            'IF Cold_Bit = Real_Cold Then
                  Polarite = "-"
                 Dummy = 625 * ~R_Temp+1
                 TempC = Div32 10
                  'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
            Else
                 Polarite = "+"
                 Dummy = 625 * R_Temp
                 TempC = Div32 10
                TempC = (R_Temp & $0FF0) >> 4
                 Kusurat = ((R_Temp.Lowbyte & $0F) * 625)
                 'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
          EndIF

DrmTemp1 = OO ' TEMP OK
            Write 77,DrmTemp1
            Write 78,Polarite
            Write 79,TempC
            Write 80,Kusurat

Return
'******************************************************************** 24.10.2007

'*******************************************************************************
'**************** MODEM ME READY ********************
'******************************************************************** 27.04.2007
MeReady : High SYS_LED

IF WhoIs = DOK Then
WhoIs = SIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,1500,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

EndIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,300,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

G24ERR:

Low SYS_LED
High G24_RTS 'MeBusy

For G24ADDR = 0 TO 349

       IF G24VERI[G24ADDR] = "+" Then
          IF G24VERI[(G24ADDR + 1)] = "M" Then
          IF G24VERI[(G24ADDR + 2)] = "I" Then
          IF G24VERI[(G24ADDR + 3)] = "P" Then
          IF G24VERI[(G24ADDR + 4)] = "R" Then
          IF G24VERI[(G24ADDR + 5)] = "T" Then
          IF G24VERI[(G24ADDR + 6)] = "C" Then
          IF G24VERI[(G24ADDR + 7)] = "P" Then
          IF G24VERI[(G24ADDR + 8)] = ":" Then
          IF G24VERI[(G24ADDR + 9)] = " " Then
          IF G24VERI[(G24ADDR + 10)] = "1" Then
          IF G24VERI[(G24ADDR + 11)] = "," Then
          IF G24VERI[(G24ADDR + 12)] = "0" Then
          IF G24VERI[(G24ADDR + 13)] = "," Then

For G24SAYAC = 0 TO 63
          MipData1[G24SAYAC] = G24VERI[((G24ADDR + G24SAYAC ) + 14)]
          Next G24SAYAC

          GoTo MipVar

          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF

       Next G24ADDR

GoTo MipYok

MipVar:     FlgGprsCom = BIR

For addr = 0 TO 63

IF MipData1[addr]= SIF Then MipData1[addr]= $0
IF MipData1[addr]= BIR Then MipData1[addr]= $1
IF MipData1[addr]= IKI Then MipData1[addr]= $2
IF MipData1[addr]= UC Then MipData1[addr]= $3
IF MipData1[addr]= DOT Then MipData1[addr]= $4
IF MipData1[addr]= BES Then MipData1[addr]= $5
IF MipData1[addr]= ALT Then MipData1[addr]= $6
IF MipData1[addr]= YED Then MipData1[addr]= $7
IF MipData1[addr]= SEK Then MipData1[addr]= $8
IF MipData1[addr]= DOK Then MipData1[addr]= $9
IF MipData1[addr]= "A" Then MipData1[addr]= $A
IF MipData1[addr]= "B" Then MipData1[addr]= $B
IF MipData1[addr]= "C" Then MipData1[addr]= $C
IF MipData1[addr]= "D" Then MipData1[addr]= $D
IF MipData1[addr]= "E" Then MipData1[addr]= $E
IF MipData1[addr]= "F" Then MipData1[addr]= $F

Next addr

For addr = 0 TO 31

             G24TMP1 = MipData1[(addr*2)] << 4
             G24TMP2 = MipData1[((addr*2)+1)] << 4
             G24TMP2 = G24TMP2 >> 4
             G24TMP3 = G24TMP1 | G24TMP2
       MipData2[addr] = G24TMP3

            Next addr

            Return

MipYok : For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "R" Then
                 IF G24VERI[(G24ADDR + 1)] = "I" Then
                 IF G24VERI[(G24ADDR + 2)] = "N" Then
                 IF G24VERI[(G24ADDR + 3)] = "G" Then
                 FlgRING = BIR
                 SerOut2 G24_TXD,G24_BAUD,["ATA",CR,LF]
                 EndIF
                 EndIF
                 EndIF
                 EndIF

          Next G24ADDR
Return
'******************************************************************** 21.04.2007

'*****************************************************************************OK
'**************** SYSTEM INITILAZE RUTİNİ ********************
'******************************************************************** 07.01.2007
SysInit : sysSaat[0]    = SIF ' Sistem Saati Okuma Okuma
sysSaat[1]    = SIF
sysDakika[0]    = SIF
          sysDakika[1]    = SIF
          sysSaniye[0]    = SIF
          sysSaniye[1]    = SIF
          sysAy[0]       = SIF
          sysAy[1]       = SIF
          sysGun[0]       = SIF
          sysGun[1]       = SIF
          sysYil[0]       = SIF
          sysYil[1]       = SIF

SayG24Cev = 0 ' Modem Initilaze

MsgIndex = 1 ' G24 Mesaj Kontrol Mesaj Index Numarası

FlgGsmReg = SIF ' G24 Gsm Register Kontrolü
SayGsmReg = 0

FlgGprsReg = SIF ' G24 Gprs Register Kontrolü
SayGprsReg = 0

FlgMipCall = SIF ' G24 MIPCALL Bayrağı SIF ise MIPCAL Yok
SayMipCall = 0

FlgRING       = SIF ' RING i SIFIRLA

Sender          = SIF ' GPRS Paketlerini Hazırlarken Kimden ( Takip,Yer,Kontak,Reset,Acl/Alr) Geldiği

FlgSmTakip = SIF ' Çalışma Şekli Ne Olursa Olsun SMS li Takip İptal

FlgMsgVar = SIF
FlgSosDurum = SIF
FlgMipCall    = SIF
          FlgMipOpen = SIF
          FlgBaglanti = SIF
          FlgPingSend = SIF
          FlgPingRec = SIF
          FlgPingErr = SIF
FlgMipCallErr = SIF
          FlgMipOpenErr = SIF

          GpKomut    = $FF

          SayGprsReg = 0
          SayGsmReg    = 0
          SayPing = 0
SayMipCall = 0
SayMipOpen = 0
SayBaglanti = 0
    SayPingErr = 0
    SayG24Cev = 0

          MsgIndex    = 1

          FlgGprsNet    = 0
          TxMesajType = SIF

       FlgKntkGitK    = SIF ' 24.10.2007
       FlgKntkGitA    = SIF ' 24.10.2007

GoTo SysInitOk
'******************************************************************** 07.01.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM INITILAZE ***********
'*********** Modemin Açılması Ve Mesaj Formatının Set Edilmesi ***********
'*******************************************************************************
'******************************************************************** 27.04.2007
G24Init : High SYS_LED
SerOut2 PIO_TXD,MAX_BAUD,["MINIT",13,10]
GoSub G24AcSoft


G24Loop :
          Pause Bek300
             GoSub BuffDel
          SerOut2 G24_TXD,G24_BAUD,["AT",CR,LF]
          GoSub MeReady

          For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "O" Then
                 IF G24VERI[(G24ADDR + 1)] = "K" Then

                 SerOut2 PIO_TXD,MAX_BAUD,["MATOK",13,10]
                 SayG24Cev = 0
                 GoTo G24AtOk

                 EndIF
                 EndIF

          Next G24ADDR

          IF SayG24Cev > 15 Then
                High SYS_LED
                SayG24Cev = 0
                 GoSub G24KapaSoft
                 GoTo G24Init
          Else
             SayG24Cev = SayG24Cev + 1
                 GoTo G24Loop
          EndIF

G24AtOk : Low SYS_LED
SerOut2 G24_TXD,G24_BAUD,["AT+CBAUD=5",CR,LF]
Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAPATH=1,1",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MADIGITAL=0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MMICG=28",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAMUT=1,0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAFEAT=4,1",CR,LF]
'Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+IPR=5",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CPMS=",34,"SM",34,CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=1,4",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["ATE1",CR,LF]
Pause Bek100
          SerOut2 G24_TXD,G24_BAUD,["AT&K3",CR,LF]
          Pause Bek100

          GoSub BuffDel

GoTo G24InitOk

'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** uBLOX GPS INITILAZE ***********
'*********** GPS NMEA Mesaj Ve Port Ayarı ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
GpsInit : 'SerOut2 PIO_TXD,MAX_BAUD,["GPS INIT",13,10]

gpsCHS = $5A
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GGA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,GG,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5C
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GLL,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,LL,LL,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $4E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $59
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSV,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,VV,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,VTG,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
VV,TT,GG,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $44
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,ZDA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
ZZ,DD,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]

'Pause Bek200
'gpsCHS = $25
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,41,1,0007,0003,19200,",gpsCHS ,CR,LF]
'SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,BIR,VI,BIR,VI,SIF,_
'SIF,SIF,YED,VI,SIF,SIF,SIF,UC,VI,BIR,DOK,IKI,SIF,SIF,VI,gpsCHS ,CR,LF]

GoTo GpsInitOk
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'*******************************************************************************
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** TARİH VE SAAT BİLGİSİ ************
'*******************************************************************************
'******************************************************************** 02.05.2007
SaatOku: sysSaat[0] = gpsSaat[0]
sysSaat[1] = gpsSaat[1]
sysDakika[0] = gpsDakika[0]
sysDakika[1] = gpsDakika[1]
sysSaniye[0] = gpsSaniye[0]
sysSaniye[1] = gpsSaniye[1]
sysGun[0] = gpsGun[0]
sysGun[1] = gpsGun[1]
sysAy[0] = gpsAy[0]
sysAy[1] = gpsAy[1]
sysYil[0] = gpsYil[0]
sysYil[1] = gpsYil[1]

Write 0,sysSaat[0]:Write 1,sysSaat[1]
Write 2,sysDakika[0]:Write 3,sysDakika[1]
Write 4,sysSaniye[0]:Write 5,sysSaniye[1]
Write 6,sysGun[0]:Write 7,sysGun[1]
Write 8,sysAy[0]:Write 9,sysAy[1]
Write 10,sysYil[0]:Write 11,sysYil[1]

SerOut2 PIO_TXD,MAX_BAUD,["SYS TIME : ",STR sysSaat\2,":",STR sysDakika\2,":",STR sysSaniye\2," ", STR sysGun\2 ,".",STR sysAy\2,".","20",STR sysYil\2,13,10]

Return
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** ÇEVRESEL GİRİŞ/ÇIKIŞ BİLGİLERİ ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
PioVeriOku : IF ACIL = 1 Then
             datAcil =BIR
          Else
              datAcil =SIF
          EndIF

          IF SUPHE = 1 Then
             datSuphe =BIR
          Else
              datSuphe =SIF
          EndIF

          IF ALARM = 1 Then
             datAlarm =BIR
          Else
              datAlarm =SIF
          EndIF

          IF KONTAK = 1 Then
             datKontak =BIR
          Else
              datKontak =SIF
          EndIF

          IF AKU = 1 Then
             datAku =BIR
          Else
              datAku =SIF
          EndIF


          IF ROLE = 1 Then
             datRole =BIR
          Else
              datRole =SIF
          EndIF

          IF G24_SPWR = 1 Then
             datMdmSPwr =BIR
          Else
              datMdmSPwr =SIF
          EndIF

          'IF G24_HPWR = 1 Then
          ' datMdmHPwr =BIR
          'Else
              datMdmHPwr =SIF
          'EndIF

          Write 12,datAcil
          Write 13,datSuphe
          Write 14,datAlarm
          Write 15,datKontak
          Write 16,datAku
          Write 17,datRole
          Write 18,datMdmSPwr
Write 19,datMdmHPwr

SerOut2 PIO_TXD,MAX_BAUD,["PIO : ",datAcil,":",datSuphe,":",datAlarm,":",datKontak,":",datAku,":",datRole,":",datMdmSPwr,":",datMdmHPwr,CR,LF]
Return
'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM STATU KONTROL ***********
'*********** Modem Durumunun Sorgulanması ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
ModemEkranOku :    mdmBat          = ZZ
               mdmSin       = ZZ
               mdmReg          = ZZ
               mdmMsg          = ZZ
               mdmRom          = ZZ
               mdmSmsFull       = ZZ
               mdmGprs          = ZZ
               mdmSim          = ZZ
                ErrModem       = ZZ

                'WhoIs = BIR
                GoSub BuffDel
                GoSub MdmEkrON
    GoSub MeReady

                For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "+" Then
                 IF G24VERI[(G24ADDR + 1)] = "C" Then
                 IF G24VERI[(G24ADDR + 2)] = "I" Then
                 IF G24VERI[(G24ADDR + 3)] = "E" Then
                 IF G24VERI[(G24ADDR + 4)] = "V" Then

                          mdmBat = G24VERI[(G24ADDR + 9)]
                          mdmSin = G24VERI[(G24ADDR + 23)]
                          mdmReg = G24VERI[(G24ADDR + 37)]
                          mdmMsg = G24VERI[(G24ADDR + 51)]
                          mdmRom = G24VERI[(G24ADDR + 79)]
                          mdmSmsFull = G24VERI[(G24ADDR + 107)]
                          mdmGprs = G24VERI[(G24ADDR + 121)]
                          mdmSim = G24VERI[(G24ADDR + 136)]

                GoTo ModemStatuOk

                 EndIF
                 EndIF
                 EndIF
                 EndIF
                 EndIF

                 Next G24ADDR

IF SayG24Cev > 20 Then
SayG24Cev = 0
GoSub G24KapaSoft
GoTo SysInit
Else
SayG24Cev = SayG24Cev + 1
PauseUs 1
GoTo ModemEkranOku
EndIF

GoTo ModemStatuEr

ModemStatuOk: ErrModem   = NN

        Write 20,ErrModem
          Write 21,mdmBat
          Write 22,mdmSin
          Write 23,mdmReg
          Write 24,mdmMsg
          Write 25,mdmRom
          Write 26,mdmSmsFull
          Write 27,mdmGprs
          Write 28,mdmSim

SerOut2 PIO_TXD,MAX_BAUD,["MS OK:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return

ModemStatuEr: ErrModem   = EE
SerOut2 PIO_TXD,MAX_BAUD,["MS ER:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return
'*******************************************************************************
'******************************************************************** 05.05.2007

'*******************************************************************************
'*******************************************************************************
'***** uBLOX GPS VERİLERİNİN ALINMASI ************
'***** Konum Bilgisi, Hız Bilgisi Sapma Bilgisi Ve Zaman Bilgisi ************
'*******************************************************************************
'******************************************************************** 05.05.2007
GpsVeriOku : For addr=0 TO 64
            RegGeneral[addr] = SIF
          Next addr

          For addr=0 TO 9
            gpsKuzey[addr] = SIF
          Next addr

          For addr=0 TO 10
            gpsDogu[addr] = SIF
          Next addr

          For addr=0 TO 6
            gpsHiz[addr] = SIF
          Next addr

          For addr=0 TO 5
            gpsSapma[addr] = SIF
          Next addr

          gpsGun[0] = SIF
          gpsGun[1] = SIF
          gpsAy[0] = SIF
          gpsAy[1] = SIF
          gpsYil[0] = SIF
          gpsYil[1] = SIF
          gpsSaat[0] = SIF
          gpsSaat[1] = SIF
          gpsDakika[0] = SIF
          gpsDakika[1] = SIF
          gpsSaniye[0] = SIF
          gpsSaniye[1] = SIF

          ErrGPS = EE

          SerIn2 GPS_RXD,GPS_BAUD,3000,GpsErr1,[wait("$GPRMC,")]

          i = 0

Loop1 :    SerIn2 GPS_RXD,GPS_BAUD,[gpsData]

          IF (gpsData = "*") OR (i >=200) Then

          GoTo gpsDataOk

          Else

             RegGeneral[i]=gpsData
             i = i + 1
          GoTo Loop1

          EndIF


   gpsDataOk : IF RegGeneral[1] = "V" Then
               gpsStatu = VV
               GoTo gpsAntYok
            EndIF

            IF (RegGeneral[10] = "V") Then
               gpsStatu = TT
               GoTo gpsOlcYok
            EndIF

            IF RegGeneral[10] = "A" Then
               gpsStatu = AA
               GoTo gpsOlcVar
            EndIF

            IF (RegGeneral[1] = SIF) OR (RegGeneral[6] = SIF) Then
               gpsStatu = DOK
               GoTo GpsErr1
            EndIF

   gpsAntYok :   GoTo GpsErr1

   gpsOlcYok :   gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            gpsGun[0] = RegGeneral[18]
            gpsGun[1] = RegGeneral[19]

            gpsAy[0] = RegGeneral[20]
            gpsAy[1] = RegGeneral[21]

            gpsYil[0] = RegGeneral[22]
            gpsYil[1] = RegGeneral[23]

            GoTo GpsErr1

gpsOlcVar : gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            VirSay = 0
            i = 0
            j = 0

   Kuzey1 :    IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 2 Then

   Kuzey2 :               IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                           GoTo gpsKuzeyOk
                        Else
                           gpsKuzey[j] = RegGeneral[(i+1)]
                       i = i + 1
                       j = j + 1
                       GoTo Kuzey2
                       EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Kuzey1


   gpsKuzeyOk : VirSay = 0
             i = 0
             j = 0

   Dogu1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 4 Then

   Dogu2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsDoguOk
                     Else
                        gpsDogu[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Dogu2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Dogu1

   gpsDoguOk : VirSay = 0
            i = 0
            j = 0


   Hiz1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 6 Then

   Hiz2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsHizOk
                     Else
                        gpsHiz[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Hiz2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Hiz1

   gpsHizOk : VirSay = 0
             i = 0
             j = 0


   Sapma1    : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 7 Then

   Sapma2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsSapmaOk
                     Else
                        gpsSapma[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Sapma2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Sapma1

   gpsSapmaOk : VirSay = 0
             i = 0
             j = 0

   Tarih1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 8 Then

   Tarih2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsTarihOk
                     Else
                        gpsTarih[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Tarih2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Tarih1

gpsTarihOk : gpsGun[0] = gpsTarih[0]
            gpsGun[1] = gpsTarih[1]

            gpsAy[0] = gpsTarih[2]
            gpsAy[1] = gpsTarih[3]

            gpsYil[0] = gpsTarih[4]
            gpsYil[1] = gpsTarih[5]


gpsVeriOk:

GpsVeriAlOk : Low GPS_LED

ErrGPS = NN

         Write 29,ErrGPS
         Write 30,gpsStatu
         Write 31,gpsSaat[0] :Write 32,gpsSaat[1]
         Write 33,gpsDakika[0]:Write 34,gpsDakika[1]
         Write 35,gpsSaniye[0]:Write 36,gpsSaniye[1]
         Write 37,gpsGun[0] :Write 38,gpsGun[1]
         Write 39,gpsAy[0] :Write 40,gpsAy[1]
         Write 41,gpsYil[0] :Write 42,gpsYil[1]



         Write 43,gpsKuzey[0]:Write 44,gpsKuzey[1]:Write 45,gpsKuzey[2]:Write 46,gpsKuzey[3]:Write 47,gpsK

armys2000 · 22 Mayıs 2008, 00:04:36

arkadaşlar kaynak kodu tam olarak yükleyemiyorum

armys2000 · 22 Mayıs 2008, 00:06:55

[code]

' AGS5V5.BAS
' 20.07.2007 Tarihli Modem Kartının 03.02.2008 12:46 Tarihli 18F452 Kodu
'-ampasmwin -oq -c -p18F452
' 03.02.2008 12:46
'************************ KONFİGÜRASYON ***********************************

INCLUDE "modedefs.bas"                           ' File Include

DEFINE OSC 20                                 ' OSC Speed Set 20 Mhz
adcon1 = 7

'************************ ATAMALAR ***********************************
       'ISI1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         'ISI2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         'M2_SCL            VAR            PORTA.2         ' 2:24LC512 SCL I/O
         'M2_SDA            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         'M3_SCL           VAR            PORTA.4         ' 3:24LC512 SCL I/O
         'M3_SDA        VAR            PORTA.5         ' 3:24LC512 SDA I/O

         Tmp1            VAR            PORTA.0         ' 1:24LC512 SCL I/O
         Tmp2            VAR            PORTA.1         ' 1:24LC512 SDA I/O
         GPRS_LED          VAR            PORTA.2         ' 2:24LC512 SCL I/O
         GPS_LED            VAR            PORTA.3         ' 2:24LC512 SDA I/O
         NC1          VAR            PORTA.4         ' 3:24LC512 SCL I/O
         NC2       VAR            PORTA.5         ' 3:24LC512 SDA I/O

'         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
'         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
'         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
'         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
'         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
'         KONTAK            VAR            PORTB.5         ' RS485 RX DATA INPUT
'         TEMPIN        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
'         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &

         ACIL            VAR            PORTB.0         ' ACIL TETIK INPUT
         SUPHE            VAR            PORTB.1         ' ALARM TETIK INPUT
         ALARM            VAR            PORTB.2         ' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
         AKU          VAR            PORTB.3         ' Programmer Port B3 I/O (INPUT) & AKU
         Gprs_Det         VAR            PORTB.4         ' RS485 TX DATA OUTPUT
         KONTAK           VAR            PORTB.5         ' RS485 RX DATA INPUT
         PGM_B6        VAR            PORTB.6         ' Programmer Port B6 I/O (INPUT) & KONTAK
         PGM_B7           VAR            PORTB.7         ' Programmer Port B7 I/O (INPUT) &


         'G24_CTS          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         'G24_RTS          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         'MCU_TXD          VAR            PORTC.2         ' MCU TX DATA OUTPUT
         'MCU_RXD          VAR            PORTC.3         ' MCU RX DATA INPUT
         'MCU_IN           VAR            PORTC.4         ' MCU IN INPUT
         'MCU_OUT         VAR            PORTC.5         ' MCU OUT OUTPUT
         'G24_TXD        VAR            PORTC.6         ' G24 TX DATA OUTPUT
         'G24_RXD        VAR            PORTC.7         ' G24 RX DATA INPUT


         G24_AUIN          VAR            PORTC.0         ' G24 CTS SIGNAL INPUT
         G24_SPWR          VAR            PORTC.1         ' G24 RTS SIGNAL OUTPUT
         G24_LED             VAR            PORTC.2         ' MCU TX DATA OUTPUT
         G24_RI          VAR            PORTC.3         ' MCU RX DATA INPUT
         G24_CTS           VAR            PORTC.4         ' MCU IN INPUT
         G24_RTS            VAR            PORTC.5         ' MCU OUT OUTPUT
         G24_TXD           VAR            PORTC.6         ' G24 TX DATA OUTPUT
         G24_RXD           VAR            PORTC.7         ' G24 RX DATA INPUT



'        GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
'         PIO_CTS          VAR            PORTD.1         ' GPS TX DATA OUTPUT
'         PIO_RTS          VAR            PORTD.2         ' GPS RX DATA INPUT
'         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
'         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF OUTPUT
'         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
'         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
'         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT

         GPS_RST            VAR            PORTD.0         ' GPS RESET OUTPUT
         CAM_TXD          VAR            PORTD.1         ' CAMERA TX DATA OUTPUT
         CAM_RXD          VAR            PORTD.2         ' CAMERA RX DATA INPUT
         PIO_TXD          VAR            PORTD.3         ' G24 HARDWARE ON/OF OUTPUT
         PIO_RXD          VAR            PORTD.4         ' G24 SOFTWARE ON/OF INPUT
         ROLE           VAR            PORTD.5         ' CLOCK SCL I/O
         GPS_RXD        VAR            PORTD.6         ' CLOCK SDA I/O
         GPS_TXD          VAR            PORTD.7         ' G24 SOUND IN OUTPUT



         SYS_LED        VAR            PORTE.0         ' SYSTEM INDICATOR LED OUTPUT
         M1_SDA           VAR            PORTE.1         ' I2C Serial Data
         M1_SCL           VAR            PORTE.2         ' I2C Serial Clock

'************************ TRIS REGISTERS ***********************************

TRISA.0 = 1
TRISA.1 = 1
TRISA.2 = 0
TRISA.3 = 0
TRISA.4 = 1
TRISA.0 = 1

TRISB= %11111111
TRISC= %10011000
TRISD= %01010100

TRISE.0 = 0
TRISE.1 = 0
TRISE.2 = 0

'***************************** DEĞİŞKENLER *****************************
         ' SYSTEM KAMERA Bilgileri

         Prmtr         VAR         BYTE[6]


         cSync         VAR         BYTE
         cAck         VAR         BYTE
         cNak         VAR         BYTE


         cAckCnt         VAR         WORD
         cNakCnt         VAR         WORD

         ColorType      VAR         BYTE
         PreviewRes      VAR         BYTE
         JpegRes         VAR         BYTE
         ResimType      VAR         BYTE



         ' SYSTEM ISI 1 Bilgileri İçin

         R_Temp       VAR       WORD
         Cold_Bit     VAR          R_Temp.Bit11
         Polarite    VAR        BYTE
         Dummy    VAR        BYTE
         TempC    VAR        WORD
         Kusurat    VAR          WORD
         'Real_Cold    CON          1
         'Deg    CON          223
         DrmTemp1      VAR          BYTE



         'SYSTEM Zaman Bilgileri Paketler İçin
         sysSaat         VAR         BYTE[2]
         sysDakika      VAR         BYTE[2]
         sysSaniye      VAR         BYTE[2]
         sysHafta      VAR         BYTE[2]
         sysAy         VAR         BYTE[2]
         sysGun         VAR         BYTE[2]
         sysYil         VAR         BYTE[2]

         'PIO Veri Paketler İçin
         datAcil         VAR         BYTE
         datSuphe      VAR         BYTE
         datAlarm      VAR         BYTE
         datAku         VAR         BYTE
         datKontak      VAR         BYTE
         datRole         VAR         BYTE
         datMdmSPwr      VAR         BYTE
         datMdmHPwr      VAR         BYTE

         'Modem Ekran Bİlgisi Paketler İçin
         mdmBat         VAR         BYTE
         mdmSin         VAR         BYTE
         mdmReg         VAR         BYTE
         mdmMsg         VAR         BYTE
         mdmRom         VAR         BYTE
         mdmSmsFull      VAR         BYTE
         mdmGprs         VAR         BYTE
         mdmSim         VAR         BYTE
         mdmData         VAR         BYTE
       ErrModem      VAR         BYTE

         ' GPS Verisi Paketler İçin
         gpsTarih      VAR         BYTE[6]
         gpsGun        VAR         BYTE[2]
         gpsAy        VAR         BYTE[2]
         gpsYil        VAR         BYTE[2]
         gpsSaat        VAR         BYTE[2]
         gpsDakika     VAR         BYTE[2]
         gpsSaniye     VAR         BYTE[2]
         gpsStatu     VAR         BYTE
         gpsKuzey     VAR         BYTE[10]
         gpsDogu        VAR         BYTE[11]
         gpsHiz        VAR         BYTE[7]
         gpsSapma     VAR         BYTE[6]
         gpsData         VAR         BYTE
         gpsTmp1         VAR         BYTE
         gpsTmp2         VAR         BYTE
         ErrGPS         VAR         BYTE
         gpsCHS         VAR         BYTE

         ' SYSTEM Parametre Kayıtları
         ApnName         VAR         BYTE[10]
         ApnUser         VAR         BYTE[8]
         ApnPass         VAR         BYTE[8]
         KonsolID      VAR         BYTE[5]
         usrAdmin     VAR       BYTE[8]
         pasAdmin     VAR       BYTE[4]
         telMerkez    VAR       BYTE[15]
         ipServer      VAR         BYTE[12]
         prtServer     VAR       BYTE[5]
         telAcil1     VAR       BYTE[15]
         cagAcil1     VAR       BYTE
         telAcil2     VAR       BYTE[15]
         cagAcil2     VAR       BYTE
         msgAlarm     VAR       BYTE[40]

         ' Kontrolü Yapılacaklar
         kntAcil    VAR       BYTE
         kntSuphe      VAR         BYTE
         kntAlarm     VAR       BYTE
         kntKontak     VAR       BYTE
         kntAku     VAR       BYTE
         kntBloke     VAR       BYTE
         kntKamera      VAR         BYTE
         kntTakip     VAR       BYTE
         kntYer     VAR       BYTE
         kntMrkzBilgi   VAR         BYTE
         kntSysReset      VAR         BYTE

         ' SYSTEM Güvenlik Birimi
         usrKontrol    VAR       BYTE[8]
         pasKontrol    VAR       BYTE[4]
         usrType         VAR         BYTE


         ' SYSTEM Ana Birimi
         wr            VAR       BYTE
         Sender         VAR         BYTE
       KnslRstDeg      VAR         WORD
         strComp         VAR         BYTE
         addr         VAR         BYTE
         GprsPacType VAR         BYTE
         SysCalType     VAR       BYTE
         EtkenCalType VAR         BYTE
         RegGeneral      VAR         BYTE[256]

         ' SYSTEM G24 GPS Birimi
         i            VAR         BYTE
         j            VAR         BYTE
         VirSay         VAR         BYTE

         ' SYSTEM G24 GPRS Birimi
         GWR            VAR         BYTE
         Deger         VAR         BYTE
         WhoIs         VAR         BYTE
         GpKomut         VAR         BYTE
         G24SAYAC      VAR         WORD
         GpTaWait      VAR         WORD
         TmpGpWait      VAR         WORD
         G24ADDR         VAR         WORD
         G24TMP1         VAR         BYTE
         G24TMP2         VAR         BYTE
         G24TMP3         VAR         BYTE
       G24VERI         VAR         BYTE[350]
         GprsMesaj      VAR         BYTE[160]
         MipData1      VAR         BYTE[64]
         MipData2       VAR         BYTE[32]

         ' SYSTEM G24 SMS SOS Birimi
         telEtkin      VAR         BYTE[15]
         SosType         VAR         BYTE
         SmsPacType      VAR         BYTE[2]
         TxMesajType VAR         BYTE

         ' SYSTEM G24 SMS MESAJ Birimi
         MsgIndex      VAR         BYTE
         SmsMesaj      VAR         BYTE[160]
         SmTaWait      VAR         WORD

         ' SYSTEM I2C Birimi
       MemAddrH      VAR         BYTE
       MemAddrL      VAR         BYTE
       MemAddr         VAR         WORD
       MemData         VAR         BYTE
       MemVeri         VAR         BYTE[52]

         ' SYSTEM FLAGLAR
         FlagMsgVar      VAR         BYTE
         FlgAcil       VAR         BYTE
         FlgSuphe      VAR         BYTE
         FlgAlarm      VAR         BYTE
         FlgAku         VAR         BYTE
         FlgKontak       VAR         BYTE
         FlgTakip       VAR         BYTE
         FlgYer        VAR         BYTE
         FlgBloke      VAR         BYTE
    FlgMsgVar      VAR         BYTE
         FlgGsmReg      VAR         BYTE
         FlgGprsReg VAR         BYTE
         FlgGprsRom      VAR         BYTE
         FlgGprsNet     VAR         BYTE
         FlgGprsPing      VAR         BYTE
    FlgCalType      VAR         BYTE
    FlgGprsCom      VAR         BYTE
       FlgSosDurum      VAR         BYTE
         FlgGpTakip      VAR         BYTE
         FlgGpYer       VAR         BYTE
         FlgSmTakip      VAR         BYTE
         FlgSmsYer      VAR         BYTE
         FlgMipCall      VAR         BYTE
         FlgMipCallErr VAR         BYTE
         FlgMipOpen VAR         BYTE
         FlgMipOpenErr VAR         BYTE
         FlgMipStat      VAR         BYTE
         FlgBaglanti VAR         BYTE
         FlgPingSend      VAR         BYTE
         FlgPingRec    VAR         BYTE
         FlgPingErr VAR         BYTE
       FlgRING       VAR         BYTE
         FlgKntkGitK      VAR         BYTE
         FlgKntkGitA      VAR         BYTE
         'FlgGecVeri      VAR         BYTE
         FlgGpNoTxD      VAR         BYTE

         'SYSTEM SAYAÇLARI
         SayGsmSin      VAR         BYTE
         SayGsmReg      VAR         BYTE
         SayGprsReg      VAR         BYTE
         SayLink         VAR         BYTE
         SayG24Cev      VAR         BYTE
         SayModemRst      VAR         WORD
   SayPing       VAR         WORD
         SayPingErr      VAR         WORD
         SaySmTakip      VAR         WORD
         SayGpTakip      VAR         WORD
         SayMipOpen VAR         WORD
         SayPingWait      VAR         WORD
         SayBaglanti      VAR         WORD
         SaySoket      VAR         WORD
         SayMipCall VAR         WORD



'***************************** SABİTLER ********************************

         CR            CON       13
         LF            CON       10
         CTRLZ         CON       $1A
         XON CON $11
XOFF CON $13
         ENQ            CON       $05
         ACK            CON       $06
         NAK            CON $15
         DLE            CON    $10
         STX            CON       $02
         ETX            CON       $03
         BEL            CON       $07
         SOH            CON $01
         EOT            CON       $04
         ESC            CON       $1B

         G24_BAUD      CON         84
         GPS_BAUD      CON         84
         MAX_BAUD      CON         16416
         MCU_BAUD      CON         84

         CAM_BAUD      CON         84

         Bek10         CON         10
         Bek100         CON         100
         Bek200         CON         200
         Bek300         CON         300
         Bek500         CON         500
         Bek1000         CON         1000
         Bek1500         CON         1500
         Bek2000         CON         2000
         Bek3000         CON         3000
         Bek5000         CON         5000

         ART            CON         "+"
         BOL            CON         "/"
         ESTR         CON         "="
         DOLAR         CON         "$"
         BOSLUK         CON         " "
       VI            CON         ","
SIF            CON         "0"
BIR            CON         "1"
IKI            CON         "2"
UC            CON         "3"
DOT            CON         "4"
BES            CON         "5"
ALT            CON         "6"
YED            CON         "7"
SEK            CON         "8"
DOK            CON         "9"
AA            CON         "A"
BB            CON         "B"
CC            CON         "C"
DD            CON         "D"
EE            CON         "E"
FF            CON         "F"
GG            CON         "G"
HH            CON         "H"
II            CON         "I"
JJ            CON         "J"
KK            CON         "K"
LL            CON         "L"
MM            CON         "M"
NN            CON         "N"
OO            CON         "O"
PP            CON         "P"
RR            CON         "R"
SS            CON         "S"
TT            CON         "T"
UU            CON         "T"
WW            CON         "W"
XX            CON         "X"
VV            CON         "V"
YY            CON         "Y"
ZZ            CON         "Z"

'************************ İLK ATAMALAR **********************************
EEPROM 0, ["00"] ' System Saat
EEPROM 2, ["00"] ' System Dakika
EEPROM 4, ["00"] ' System Saniye
EEPROM 6, ["00"] ' System Gün
EEPROM 8, ["00"] ' System Ay
EEPROM 10, ["00"] ' System Yil

EEPROM 12, ["0"] ' PIO datAcil
EEPROM 13, ["0"] ' PIO datSuphe
EEPROM 14, ["0"] ' PIO datAlarm
EEPROM 15, ["0"] ' PIO datKontak
EEPROM 16, ["0"] ' PIO datAku
EEPROM 17, ["0"] ' PIO datRole
EEPROM 18, ["0"] ' PIO datMdmSPwr
EEPROM 19, ["0"] ' PIO datMdmHPwr

EEPROM 20, ["0"] ' G24 ErrModem
EEPROM 21, ["0"] ' G24 mdmBat
EEPROM 22, ["0"] ' G24 mdmSin
EEPROM 23, ["0"] ' G24 mdmReg
EEPROM 24, ["0"] ' G24 mdmMsg
EEPROM 25, ["0"] ' G24 mdmRom
EEPROM 26, ["0"] ' G24 mdmSmsFull
EEPROM 27, ["0"] ' G24 mdmGprs
EEPROM 28, ["0"] ' G24 mdmSim

EEPROM 29, ["0"] ' GPS ErrGPS
EEPROM 30, ["0"] ' GPS gpsStatu
EEPROM 31, ["00"] ' GPS gpsSaat
EEPROM 33, ["00"] ' GPS gpsDakika
EEPROM 35, ["00"] ' GPS gpsSaniye
EEPROM 37, ["00"] ' GPS gpsGun
EEPROM 39, ["00"] ' GPS gpsAy
EEPROM 41, ["00"] ' GPS gpsYil
EEPROM 43, ["0000.00000"] ' GPS gpsKuzey
EEPROM 53, ["00000.00000"] ' GPS gpsDogu
EEPROM 64, ["000.000"] ' GPS gpsHiz
EEPROM 71, ["000.00"] ' GPS gpsSapma
EEPROM 77, ["O+"] ' ISI 1 Sensör Verisi
EEPROM 79, [49,57] ' ISI 1 Sensör Verisi

EEPROM 81, ["000000000"] ' RESERVE
' SYSTEM TARAFINDAN KONTROLÜ YAPILACAK İŞLEMLER , 1 = Yapılsın , 0 = Yapılmasın
EEPROM 90, ["1"] ' Kontrol Acil
EEPROM 91, ["1"] ' Kontrol Suphe
EEPROM 92, ["1"] ' Kontrol Alarm
EEPROM 93, ["2"] ' Kontrol Kontak
EEPROM 94, ["1"] ' Kontrol Akü
EEPROM 95, ["1"] ' Kontrol Bloke
EEPROM 96, ["1"] ' Kontrol Kamera
EEPROM 97, ["1"] ' Kontrol Takip
EEPROM 98, ["1"] ' Kontrol Yer
EEPROM 99, ["1"] ' Kontrol Merkeze Bilgi
EEPROM 100,["3"] ' Kontrol System Reset
EEPROM 101,["1"] ' RESERVE

EEPROM 103, ["2"] ' Konsol Kontak Aralığı 4 = 60 Dakika
EEPROM 104, ["1"] ' Konsol Reset Aralığı, KnslRstDeg
EEPROM 105, [0] ' Memory Adres High
EEPROM 106, [0] ' Memory Adres Low

EEPROM 107, ["7"] ' GPRS Takipte Aralığı
EEPROM 108, ["1"] ' GPRS Takipte Kontak Kontrolü
EEPROM 109, ["1"] ' GPRS Takip

' SYSTEM PARAMETRE KAYITLARI YERİ
EEPROM 110,["internet??"] ' Network APN Name
EEPROM 120,["pppppp??"] ' Network APN Username
EEPROM 130,["uuuuuu??"] ' Network APN Password

EEPROM 142,["12345678"] ' User Username
EEPROM 150,["1234"] ' User Password
EEPROM 154,["00001"] ' Konsol ID

EEPROM 159,["905326220881"] ' Merkez Telefon Numarası
EEPROM 171,[255]
EEPROM 172,[255]
EEPROM 173,[255]
EEPROM 174,["905327030602"] ' Acil Telefon Numarası 1
EEPROM 186,[255]
EEPROM 187,[255]
EEPROM 188,[255]
EEPROM 189,["1"] ' Acil Telefon Numarası 1 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 190,["905428387054"] ' Acil Telefon Numarası 2
EEPROM 202,[255]
EEPROM 203,[255]
EEPROM 204,[255]
EEPROM 205,["0"] ' Acil Telefon Numarası 2 Çağrı Tipi 1 = SMS , 0 = Çağrı
EEPROM 206,["06 TJP 22 Plakali Aracta!"] ' Acil Ve Alarm Durum Mesajı Max 25 Karakter

EEPROM 231,["088248008143"] ' Server IP
'EEPROM 231,["088248010126"] ' Server IP
'EEPROM 231,["078161058027"] ' Server IP
EEPROM 243,["48100"] ' Server Port
EEPROM 248,["0"] ' RESERVE
EEPROM 249,["0"] ' RESERVE
EEPROM 250,["0"] ' RESERVE
EEPROM 251,["0"] ' RESERVE
EEPROM 252,["0"] ' RESERVE
EEPROM 253,["0"] ' RESERVE
EEPROM 254,["0"] ' RESERVE
EEPROM 255,["1"] ' Çalışma Şekli

High G24_SPWR
'Low G24_SPWR

Low ROLE

For addr=1 TO 3
High SYS_LED
High GPRS_LED
High GPS_LED
'High ROLE
Pause 1000
Low SYS_LED
Low GPRS_LED
Low GPS_LED

Low ROLE
Pause 1000
SerOut2 PIO_TXD,MAX_BAUD,["Q",CR,LF]
Next addr

Low SYS_LED
Low GPRS_LED
Low GPS_LED

MemAddr = 0
SayModemRst = 0

'olee:

'IF PORTB.2=0 Then
'High ROLE
'EndIF

'IF PORTB.5=0 Then
'Low ROLE
'EndIF

'IF ROLE=0 Then
'Low PORTE.0
'EndIF

'IF ROLE=1 Then
'High PORTE.0
'EndIF

'GoTo olee

'*******************************************************************************
'**************** KAMERA MODÜLÜ ********************
'******************************************************************** 07.10.2007
'InitKamera :     cSync[0]=$AA0D
'             cSync[1]=$0000
'             cSync[2]=$0000
'
'
'   InitKameraL1 :
'             SerOut2 ACIL,CAM_BAUD,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cAckYok,[HEX4 cAck(0),HEX4 cAck(1),HEX4 cAck(2)]
'
'             SerIn2 SUPHE,CAM_BAUD,1000,cSyncYok,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'
'
'
'
' cAckYok : GoTo InitKameraL1
'
' cSyncYok :
'
'
'******************************************************************** 07.10.2007

'*******************************************************************************
'****************        PREMAIN         ********************
'******************************************************************** 02.05.2007
PreMain : GoTo SysInit

SysInitOk : GoTo G24Init

G24InitOK : GoTo GpsInit

GpsInitOK :
GoTo Main
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'****************        MAIN         ********************
'****************        MAIN         ********************
'****************        MAIN         ********************
'*******************************************************************************
'******************************************************************** 02.05.2007

MAIN :
GoSub GpsVeriOku ' GPS KONUM VE ZAMAN BİLGİSİNİ AL

GoSub SaatOku ' SYSTEM ZAMAN BİLGİSİSİNİ AL

GoSub PioVeriOku ' ÇEVRESEL GİRİŞ BİLGİLERİNİ AL

GoSub ModemEkranOku ' G24 EKRAN BİLGİLERİNİ AL

'GoSub IsiOku       ' TEMP 1 DE BAĞLI SICAKLIK SENSÖRÜ

GoSub NormlVeriYaz ' VERİ PAKETİNİ HAFIZAYA YAZ

GoSub GsRgKnt ' GSM REGISTER KONTROLÜ

GoSub GpRgKnt ' GPRS REGISTER KONTROLÜ

GoTo GpRoKnt ' GSM ROAMING KONTROLÜ

GpRoKntOK : GoTo SmsKnt ' GSM GELEN SMS VARMI KONTROLÜ

SmsKntOK : GoTo SmKmtIc ' SMS KOMUT VARSA ICRA EDİLMESİ

SmKmtIcOK : GoTo GPBLK ' GPRS BLOK

GPBLKOK : GoTo GpKoIc ' GPRS GELEN KOMUT VARSA İCRA EDİLMESİ

GpKoIcOK : GoTo SosKontrol ' ACİL VEYA ALARM DURUMU VARSA GEREKENİ YAP

SosKontrolOK : GoTo SmTakipDur ' SMS ÜZERİNDEN TAKİP VARMI

SmTakipDurOK : GoTo SmYerSorma ' SMS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

SmYerSormaOK : GoTo KontakKont ' KONTAK KONTROL TAKİPTEN ÖNCE

KontakKontOK : GoTo GpTakipDur ' GPRS ÜZERİNDEN TAKİP VARMI

GpTakipDurOK : GoTo GpYerSor ' GPRS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ

GpYerSOK : 'GoTo GpGecVeri ' GPRS ÜZERİNDEN GEÇMİŞ VERİ İSTENMİŞ Mİ

'GpGecVeriOK :
GoTo G24Rst ' G24 RESET DURUMU GELMİŞ Mİ

G24RstOk :

'SerOut2 PIO_TXD,MAX_BAUD,["20",HEX2 sysYil,".",HEX2 sysAy,".",HEX2 sysGun," ", HEX2 sysSaat,":",HEX2 sysDakika,":",HEX2 sysSaniye,13,10]

GoTo MAIN
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'******************************************************************** 29.04.2007

'*******************************************************************************
'**************** ISI OKUMA ********************
'******************************************************************** 24.10.2007
IsiOku : addr = 0

BolumTemp1 : OWOut Tmp1, 1, [$CC, $44]

   LoopTemp1 : IF addr >=10 Then
    addr = 0
    DrmTemp1 = NN ' TEMP NO
    Write 77,DrmTemp1
    Return
    EndIF

    OWIn Tmp1, 4, [strComp]

    IF strComp = 0 Then
    addr = addr + 1
    GoTo LoopTemp1
    EndIF


          OWOut Tmp1, 1, [$CC, $BE]
          OWIn Tmp1, 2, [R_Temp.Lowbyte, R_Temp.Highbyte]


          IF Cold_Bit = 1 Then
            'IF Cold_Bit = Real_Cold Then
                  Polarite = "-"
                 Dummy = 625 * ~R_Temp+1
                 TempC = Div32 10
                  'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
            Else
                 Polarite = "+"
                 Dummy = 625 * R_Temp
                 TempC = Div32 10
                TempC = (R_Temp & $0FF0) >> 4
                 Kusurat = ((R_Temp.Lowbyte & $0F) * 625)
                 'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
          EndIF

DrmTemp1 = OO ' TEMP OK
            Write 77,DrmTemp1
            Write 78,Polarite
            Write 79,TempC
            Write 80,Kusurat

Return
'******************************************************************** 24.10.2007

'*******************************************************************************
'**************** MODEM ME READY ********************
'******************************************************************** 27.04.2007
MeReady : High SYS_LED

IF WhoIs = DOK Then
WhoIs = SIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,1500,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

EndIF

G24ADDR = 0
Low G24_RTS
While G24ADDR < 350
SerIn2 G24_RXD,G24_BAUD,300,G24ERR,[G24VERI(G24ADDR)]
G24ADDR = G24ADDR + 1
Wend

GoTo G24ERR

G24ERR:

Low SYS_LED
High G24_RTS 'MeBusy

For G24ADDR = 0 TO 349

       IF G24VERI[G24ADDR] = "+" Then
          IF G24VERI[(G24ADDR + 1)] = "M" Then
          IF G24VERI[(G24ADDR + 2)] = "I" Then
          IF G24VERI[(G24ADDR + 3)] = "P" Then
          IF G24VERI[(G24ADDR + 4)] = "R" Then
          IF G24VERI[(G24ADDR + 5)] = "T" Then
          IF G24VERI[(G24ADDR + 6)] = "C" Then
          IF G24VERI[(G24ADDR + 7)] = "P" Then
          IF G24VERI[(G24ADDR + 8)] = ":" Then
          IF G24VERI[(G24ADDR + 9)] = " " Then
          IF G24VERI[(G24ADDR + 10)] = "1" Then
          IF G24VERI[(G24ADDR + 11)] = "," Then
          IF G24VERI[(G24ADDR + 12)] = "0" Then
          IF G24VERI[(G24ADDR + 13)] = "," Then

For G24SAYAC = 0 TO 63
          MipData1[G24SAYAC] = G24VERI[((G24ADDR + G24SAYAC ) + 14)]
          Next G24SAYAC

          GoTo MipVar

          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF
          EndIF

       Next G24ADDR

GoTo MipYok

MipVar:     FlgGprsCom = BIR

For addr = 0 TO 63

IF MipData1[addr]= SIF Then MipData1[addr]= $0
IF MipData1[addr]= BIR Then MipData1[addr]= $1
IF MipData1[addr]= IKI Then MipData1[addr]= $2
IF MipData1[addr]= UC Then MipData1[addr]= $3
IF MipData1[addr]= DOT Then MipData1[addr]= $4
IF MipData1[addr]= BES Then MipData1[addr]= $5
IF MipData1[addr]= ALT Then MipData1[addr]= $6
IF MipData1[addr]= YED Then MipData1[addr]= $7
IF MipData1[addr]= SEK Then MipData1[addr]= $8
IF MipData1[addr]= DOK Then MipData1[addr]= $9
IF MipData1[addr]= "A" Then MipData1[addr]= $A
IF MipData1[addr]= "B" Then MipData1[addr]= $B
IF MipData1[addr]= "C" Then MipData1[addr]= $C
IF MipData1[addr]= "D" Then MipData1[addr]= $D
IF MipData1[addr]= "E" Then MipData1[addr]= $E
IF MipData1[addr]= "F" Then MipData1[addr]= $F

Next addr

For addr = 0 TO 31

             G24TMP1 = MipData1[(addr*2)] << 4
             G24TMP2 = MipData1[((addr*2)+1)] << 4
             G24TMP2 = G24TMP2 >> 4
             G24TMP3 = G24TMP1 | G24TMP2
       MipData2[addr] = G24TMP3

            Next addr

            Return

MipYok : For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "R" Then
                 IF G24VERI[(G24ADDR + 1)] = "I" Then
                 IF G24VERI[(G24ADDR + 2)] = "N" Then
                 IF G24VERI[(G24ADDR + 3)] = "G" Then
                 FlgRING = BIR
                 SerOut2 G24_TXD,G24_BAUD,["ATA",CR,LF]
                 EndIF
                 EndIF
                 EndIF
                 EndIF

          Next G24ADDR
Return
'******************************************************************** 21.04.2007

'*****************************************************************************OK
'**************** SYSTEM INITILAZE RUTİNİ ********************
'******************************************************************** 07.01.2007
SysInit : sysSaat[0]    = SIF ' Sistem Saati Okuma Okuma
sysSaat[1]    = SIF
sysDakika[0]    = SIF
          sysDakika[1]    = SIF
          sysSaniye[0]    = SIF
          sysSaniye[1]    = SIF
          sysAy[0]       = SIF
          sysAy[1]       = SIF
          sysGun[0]       = SIF
          sysGun[1]       = SIF
          sysYil[0]       = SIF
          sysYil[1]       = SIF

SayG24Cev = 0 ' Modem Initilaze

MsgIndex = 1 ' G24 Mesaj Kontrol Mesaj Index Numarası

FlgGsmReg = SIF ' G24 Gsm Register Kontrolü
SayGsmReg = 0

FlgGprsReg = SIF ' G24 Gprs Register Kontrolü
SayGprsReg = 0

FlgMipCall = SIF ' G24 MIPCALL Bayrağı SIF ise MIPCAL Yok
SayMipCall = 0

FlgRING       = SIF ' RING i SIFIRLA

Sender          = SIF ' GPRS Paketlerini Hazırlarken Kimden ( Takip,Yer,Kontak,Reset,Acl/Alr) Geldiği

FlgSmTakip = SIF ' Çalışma Şekli Ne Olursa Olsun SMS li Takip İptal

FlgMsgVar = SIF
FlgSosDurum = SIF
FlgMipCall    = SIF
          FlgMipOpen = SIF
          FlgBaglanti = SIF
          FlgPingSend = SIF
          FlgPingRec = SIF
          FlgPingErr = SIF
FlgMipCallErr = SIF
          FlgMipOpenErr = SIF

          GpKomut    = $FF

          SayGprsReg = 0
          SayGsmReg    = 0
          SayPing = 0
SayMipCall = 0
SayMipOpen = 0
SayBaglanti = 0
    SayPingErr = 0
    SayG24Cev = 0

          MsgIndex    = 1

          FlgGprsNet    = 0
          TxMesajType = SIF

       FlgKntkGitK    = SIF ' 24.10.2007
       FlgKntkGitA    = SIF ' 24.10.2007

GoTo SysInitOk
'******************************************************************** 07.01.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM INITILAZE ***********
'*********** Modemin Açılması Ve Mesaj Formatının Set Edilmesi ***********
'*******************************************************************************
'******************************************************************** 27.04.2007
G24Init : High SYS_LED
SerOut2 PIO_TXD,MAX_BAUD,["MINIT",13,10]
GoSub G24AcSoft


G24Loop :
          Pause Bek300
             GoSub BuffDel
          SerOut2 G24_TXD,G24_BAUD,["AT",CR,LF]
          GoSub MeReady

          For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "O" Then
                 IF G24VERI[(G24ADDR + 1)] = "K" Then

                 SerOut2 PIO_TXD,MAX_BAUD,["MATOK",13,10]
                 SayG24Cev = 0
                 GoTo G24AtOk

                 EndIF
                 EndIF

          Next G24ADDR

          IF SayG24Cev > 15 Then
                High SYS_LED
                SayG24Cev = 0
                 GoSub G24KapaSoft
                 GoTo G24Init
          Else
             SayG24Cev = SayG24Cev + 1
                 GoTo G24Loop
          EndIF

G24AtOk : Low SYS_LED
SerOut2 G24_TXD,G24_BAUD,["AT+CBAUD=5",CR,LF]
Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAPATH=1,1",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MADIGITAL=0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MMICG=28",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAMUT=1,0",CR,LF]
'Pause Bek100
'SerOut2 G24_TXD,G24_BAUD,["AT+MAFEAT=4,1",CR,LF]
'Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+IPR=5",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CPMS=",34,"SM",34,CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=1,4",CR,LF]
Pause Bek100
SerOut2 G24_TXD,G24_BAUD,["ATE1",CR,LF]
Pause Bek100
          SerOut2 G24_TXD,G24_BAUD,["AT&K3",CR,LF]
          Pause Bek100

          GoSub BuffDel

GoTo G24InitOk

'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** uBLOX GPS INITILAZE ***********
'*********** GPS NMEA Mesaj Ve Port Ayarı ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
GpsInit : 'SerOut2 PIO_TXD,MAX_BAUD,["GPS INIT",13,10]

gpsCHS = $5A
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GGA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,GG,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5C
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GLL,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,LL,LL,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $4E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $59
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSV,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
GG,SS,VV,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $5E
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,VTG,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
VV,TT,GG,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
Pause Bek200

gpsCHS = $44
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,ZDA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
ZZ,DD,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]

'Pause Bek200
'gpsCHS = $25
'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,41,1,0007,0003,19200,",gpsCHS ,CR,LF]
'SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,BIR,VI,BIR,VI,SIF,_
'SIF,SIF,YED,VI,SIF,SIF,SIF,UC,VI,BIR,DOK,IKI,SIF,SIF,VI,gpsCHS ,CR,LF]

GoTo GpsInitOk
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'***** VERİLERİN TOPLANMASI ************
'*******************************************************************************
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** TARİH VE SAAT BİLGİSİ ************
'*******************************************************************************
'******************************************************************** 02.05.2007
SaatOku: sysSaat[0] = gpsSaat[0]
sysSaat[1] = gpsSaat[1]
sysDakika[0] = gpsDakika[0]
sysDakika[1] = gpsDakika[1]
sysSaniye[0] = gpsSaniye[0]
sysSaniye[1] = gpsSaniye[1]
sysGun[0] = gpsGun[0]
sysGun[1] = gpsGun[1]
sysAy[0] = gpsAy[0]
sysAy[1] = gpsAy[1]
sysYil[0] = gpsYil[0]
sysYil[1] = gpsYil[1]

Write 0,sysSaat[0]:Write 1,sysSaat[1]
Write 2,sysDakika[0]:Write 3,sysDakika[1]
Write 4,sysSaniye[0]:Write 5,sysSaniye[1]
Write 6,sysGun[0]:Write 7,sysGun[1]
Write 8,sysAy[0]:Write 9,sysAy[1]
Write 10,sysYil[0]:Write 11,sysYil[1]

SerOut2 PIO_TXD,MAX_BAUD,["SYS TIME : ",STR sysSaat\2,":",STR sysDakika\2,":",STR sysSaniye\2," ", STR sysGun\2 ,".",STR sysAy\2,".","20",STR sysYil\2,13,10]

Return
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'***** ÇEVRESEL GİRİŞ/ÇIKIŞ BİLGİLERİ ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
PioVeriOku : IF ACIL = 1 Then
             datAcil =BIR
          Else
              datAcil =SIF
          EndIF

          IF SUPHE = 1 Then
             datSuphe =BIR
          Else
              datSuphe =SIF
          EndIF

          IF ALARM = 1 Then
             datAlarm =BIR
          Else
              datAlarm =SIF
          EndIF

          IF KONTAK = 1 Then
             datKontak =BIR
          Else
              datKontak =SIF
          EndIF

          IF AKU = 1 Then
             datAku =BIR
          Else
              datAku =SIF
          EndIF


          IF ROLE = 1 Then
             datRole =BIR
          Else
              datRole =SIF
          EndIF

          IF G24_SPWR = 1 Then
             datMdmSPwr =BIR
          Else
              datMdmSPwr =SIF
          EndIF

          'IF G24_HPWR = 1 Then
          ' datMdmHPwr =BIR
          'Else
              datMdmHPwr =SIF
          'EndIF

          Write 12,datAcil
          Write 13,datSuphe
          Write 14,datAlarm
          Write 15,datKontak
          Write 16,datAku
          Write 17,datRole
          Write 18,datMdmSPwr
Write 19,datMdmHPwr

SerOut2 PIO_TXD,MAX_BAUD,["PIO : ",datAcil,":",datSuphe,":",datAlarm,":",datKontak,":",datAku,":",datRole,":",datMdmSPwr,":",datMdmHPwr,CR,LF]
Return
'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'*********** MODEM STATU KONTROL ***********
'*********** Modem Durumunun Sorgulanması ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
ModemEkranOku :    mdmBat          = ZZ
               mdmSin       = ZZ
               mdmReg          = ZZ
               mdmMsg          = ZZ
               mdmRom          = ZZ
               mdmSmsFull       = ZZ
               mdmGprs          = ZZ
               mdmSim          = ZZ
                ErrModem       = ZZ

                'WhoIs = BIR
                GoSub BuffDel
                GoSub MdmEkrON
    GoSub MeReady

                For G24ADDR = 0 TO 349

                 IF G24VERI[G24ADDR] = "+" Then
                 IF G24VERI[(G24ADDR + 1)] = "C" Then
                 IF G24VERI[(G24ADDR + 2)] = "I" Then
                 IF G24VERI[(G24ADDR + 3)] = "E" Then
                 IF G24VERI[(G24ADDR + 4)] = "V" Then

                          mdmBat = G24VERI[(G24ADDR + 9)]
                          mdmSin = G24VERI[(G24ADDR + 23)]
                          mdmReg = G24VERI[(G24ADDR + 37)]
                          mdmMsg = G24VERI[(G24ADDR + 51)]
                          mdmRom = G24VERI[(G24ADDR + 79)]
                          mdmSmsFull = G24VERI[(G24ADDR + 107)]
                          mdmGprs = G24VERI[(G24ADDR + 121)]
                          mdmSim = G24VERI[(G24ADDR + 136)]

                GoTo ModemStatuOk

                 EndIF
                 EndIF
                 EndIF
                 EndIF
                 EndIF

                 Next G24ADDR

IF SayG24Cev > 20 Then
SayG24Cev = 0
GoSub G24KapaSoft
GoTo SysInit
Else
SayG24Cev = SayG24Cev + 1
PauseUs 1
GoTo ModemEkranOku
EndIF

GoTo ModemStatuEr

ModemStatuOk: ErrModem   = NN

        Write 20,ErrModem
          Write 21,mdmBat
          Write 22,mdmSin
          Write 23,mdmReg
          Write 24,mdmMsg
          Write 25,mdmRom
          Write 26,mdmSmsFull
          Write 27,mdmGprs
          Write 28,mdmSim

SerOut2 PIO_TXD,MAX_BAUD,["MS OK:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return

ModemStatuEr: ErrModem   = EE
SerOut2 PIO_TXD,MAX_BAUD,["MS ER:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF]

WhoIs = BIR
GoSub BuffDel
          GoSub MdmEkrOF
GoSub MeReady

Return
'*******************************************************************************
'******************************************************************** 05.05.2007

'*******************************************************************************
'*******************************************************************************
'***** uBLOX GPS VERİLERİNİN ALINMASI ************
'***** Konum Bilgisi, Hız Bilgisi Sapma Bilgisi Ve Zaman Bilgisi ************
'*******************************************************************************
'******************************************************************** 05.05.2007
GpsVeriOku : For addr=0 TO 64
            RegGeneral[addr] = SIF
          Next addr

          For addr=0 TO 9
            gpsKuzey[addr] = SIF
          Next addr

          For addr=0 TO 10
            gpsDogu[addr] = SIF
          Next addr

          For addr=0 TO 6
            gpsHiz[addr] = SIF
          Next addr

          For addr=0 TO 5
            gpsSapma[addr] = SIF
          Next addr

          gpsGun[0] = SIF
          gpsGun[1] = SIF
          gpsAy[0] = SIF
          gpsAy[1] = SIF
          gpsYil[0] = SIF
          gpsYil[1] = SIF
          gpsSaat[0] = SIF
          gpsSaat[1] = SIF
          gpsDakika[0] = SIF
          gpsDakika[1] = SIF
          gpsSaniye[0] = SIF
          gpsSaniye[1] = SIF

          ErrGPS = EE

          SerIn2 GPS_RXD,GPS_BAUD,3000,GpsErr1,[wait("$GPRMC,")]

          i = 0

Loop1 :    SerIn2 GPS_RXD,GPS_BAUD,[gpsData]

          IF (gpsData = "*") OR (i >=200) Then

          GoTo gpsDataOk

          Else

             RegGeneral[i]=gpsData
             i = i + 1
          GoTo Loop1

          EndIF


   gpsDataOk : IF RegGeneral[1] = "V" Then
               gpsStatu = VV
               GoTo gpsAntYok
            EndIF

            IF (RegGeneral[10] = "V") Then
               gpsStatu = TT
               GoTo gpsOlcYok
            EndIF

            IF RegGeneral[10] = "A" Then
               gpsStatu = AA
               GoTo gpsOlcVar
            EndIF

            IF (RegGeneral[1] = SIF) OR (RegGeneral[6] = SIF) Then
               gpsStatu = DOK
               GoTo GpsErr1
            EndIF

   gpsAntYok :   GoTo GpsErr1

   gpsOlcYok :   gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            gpsGun[0] = RegGeneral[18]
            gpsGun[1] = RegGeneral[19]

            gpsAy[0] = RegGeneral[20]
            gpsAy[1] = RegGeneral[21]

            gpsYil[0] = RegGeneral[22]
            gpsYil[1] = RegGeneral[23]

            GoTo GpsErr1

gpsOlcVar : gpsSaat[0] = RegGeneral[0]
            gpsSaat[1] = RegGeneral[1]

            gpsDakika[0] = RegGeneral[2]
            gpsDakika[1] = RegGeneral[3]

          gpsSaniye[0] = RegGeneral[4]
            gpsSaniye[1] = RegGeneral[5]

            VirSay = 0
            i = 0
            j = 0

   Kuzey1 :    IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 2 Then

   Kuzey2 :               IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                           GoTo gpsKuzeyOk
                        Else
                           gpsKuzey[j] = RegGeneral[(i+1)]
                       i = i + 1
                       j = j + 1
                       GoTo Kuzey2
                       EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Kuzey1


   gpsKuzeyOk : VirSay = 0
             i = 0
             j = 0

   Dogu1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 4 Then

   Dogu2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsDoguOk
                     Else
                        gpsDogu[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Dogu2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Dogu1

   gpsDoguOk : VirSay = 0
            i = 0
            j = 0


   Hiz1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 6 Then

   Hiz2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsHizOk
                     Else
                        gpsHiz[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Hiz2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Hiz1

   gpsHizOk : VirSay = 0
             i = 0
             j = 0


   Sapma1    : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 7 Then

   Sapma2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsSapmaOk
                     Else
                        gpsSapma[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Sapma2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Sapma1

   gpsSapmaOk : VirSay = 0
             i = 0
             j = 0

   Tarih1 : IF    (RegGeneral[i] = VI) OR ( i >= 200) Then

          VirSay = VirSay + 1

             IF VirSay = 8 Then

   Tarih2 :        IF    (RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
                        GoTo gpsTarihOk
                     Else
                        gpsTarih[j] = RegGeneral[(i+1)]
                   i = i + 1
                   j = j + 1
                   GoTo Tarih2
                   EndIF

                  EndIF

            EndIF

            i = i + 1

   GoTo Tarih1

gpsTarihOk : gpsGun[0] = gpsTarih[0]
            gpsGun[1] = gpsTarih[1]

            gpsAy[0] = gpsTarih[2]
            gpsAy[1] = gpsTarih[3]

            gpsYil[0] = gpsTarih[4]
            gpsYil[1] = gpsTarih[5]


gpsVeriOk:

GpsVeriAlOk : Low GPS_LED

ErrGPS = NN

         Write 29,ErrGPS
         Write 30,gpsStatu
         Write 31,gpsSaat[0] :Write 32,gpsSaat[1]
         Write 33,gpsDakika[0]:Write 34,gpsDakika[1]
         Write 35,gpsSaniye[0]:Write 36,gpsSaniye[1]
         Write 37,gpsGun[0] :Write 38,gpsGun[1]
         Write 39,gpsAy[0] :Write 40,gpsAy[1]
         Write 41,gpsYil[0] :Write 42,gpsYil[1]



         Write 43,gpsKuzey[0]:Write 44,gpsKuzey[1]:Write 45,gpsKuzey[2]:Write 46,gpsKuzey[3]:Write 47,gpsKuzey[4]
         Write 48,gpsKuzey[5]:Write 49,gpsKuzey

armys2000 · 22 Mayıs 2008, 00:08:34

parça parça gönderiyorum artık

' AGS5V5.BAS
' 20.07.2007 Tarihli Modem Kartının 03.02.2008 12:46 Tarihli 18F452 Kodu
'-ampasmwin -oq -c -p18F452
' 03.02.2008 12:46
'************************   KONFİGÜRASYON    ***********************************

INCLUDE "modedefs.bas"									' File Include


DEFINE OSC 20											' OSC Speed  Set 20 Mhz
adcon1  = 7	



'************************      ATAMALAR      ***********************************
		    'ISI1				VAR				PORTA.0			' 1:24LC512 SCL I/O
			'ISI2				VAR				PORTA.1			' 1:24LC512 SDA I/O
			'M2_SCL				VAR				PORTA.2			' 2:24LC512 SCL I/O
			'M2_SDA				VAR				PORTA.3			' 2:24LC512 SDA I/O
			'M3_SCL  			VAR				PORTA.4			' 3:24LC512 SCL I/O
			'M3_SDA      		VAR				PORTA.5			' 3:24LC512 SDA I/O
			
			Tmp1				VAR				PORTA.0			' 1:24LC512 SCL I/O
			Tmp2				VAR				PORTA.1			' 1:24LC512 SDA I/O
			GPRS_LED 			VAR				PORTA.2			' 2:24LC512 SCL I/O
			GPS_LED				VAR				PORTA.3			' 2:24LC512 SDA I/O
			NC1     			VAR				PORTA.4			' 3:24LC512 SCL I/O
			NC2         		VAR				PORTA.5			' 3:24LC512 SDA I/O
				
'			ACIL				VAR				PORTB.0			' ACIL TETIK INPUT 
'			SUPHE				VAR				PORTB.1			' ALARM TETIK INPUT
'			ALARM				VAR				PORTB.2			' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
'			AKU     			VAR				PORTB.3			' Programmer Port B3 I/O (INPUT) & AKU
'			Gprs_Det			VAR				PORTB.4			' RS485 TX DATA OUTPUT
'			KONTAK				VAR				PORTB.5			' RS485 RX DATA INPUT
'			TEMPIN      		VAR				PORTB.6			' Programmer Port B6 I/O (INPUT) & KONTAK
'			PGM_B7    			VAR				PORTB.7			' Programmer Port B7 I/O (INPUT) & 

			ACIL				VAR				PORTB.0			' ACIL TETIK INPUT 
			SUPHE				VAR				PORTB.1			' ALARM TETIK INPUT
			ALARM				VAR				PORTB.2			' RS485 RECEIVER & TRANSMITTER ENABLE/DISABLE OUTPUT
			AKU     			VAR				PORTB.3			' Programmer Port B3 I/O (INPUT) & AKU
			Gprs_Det			VAR				PORTB.4			' RS485 TX DATA OUTPUT
			KONTAK    			VAR				PORTB.5			' RS485 RX DATA INPUT
			PGM_B6      		VAR				PORTB.6			' Programmer Port B6 I/O (INPUT) & KONTAK
			PGM_B7    			VAR				PORTB.7			' Programmer Port B7 I/O (INPUT) & 
						

			'G24_CTS   			VAR				PORTC.0			' G24 CTS SIGNAL INPUT  
			'G24_RTS   			VAR				PORTC.1			' G24 RTS SIGNAL OUTPUT
			'MCU_TXD 			VAR				PORTC.2			' MCU TX DATA OUTPUT
			'MCU_RXD   			VAR				PORTC.3			' MCU RX DATA INPUT
			'MCU_IN  			VAR				PORTC.4			' MCU IN INPUT
			'MCU_OUT			VAR				PORTC.5			' MCU OUT OUTPUT
			'G24_TXD    		VAR				PORTC.6			' G24 TX DATA OUTPUT
			'G24_RXD    		VAR				PORTC.7			' G24 RX DATA INPUT
			
			
			G24_AUIN   			VAR				PORTC.0			' G24 CTS SIGNAL INPUT  
			G24_SPWR   			VAR				PORTC.1			' G24 RTS SIGNAL OUTPUT
			G24_LED	 			VAR				PORTC.2			' MCU TX DATA OUTPUT
			G24_RI   			VAR				PORTC.3			' MCU RX DATA INPUT
			G24_CTS  			VAR				PORTC.4			' MCU IN INPUT
			G24_RTS				VAR				PORTC.5			' MCU OUT OUTPUT
			G24_TXD	    		VAR				PORTC.6			' G24 TX DATA OUTPUT
			G24_RXD	    		VAR				PORTC.7			' G24 RX DATA INPUT
			
						
			
'	    	GPS_RST				VAR				PORTD.0			' GPS RESET OUTPUT
'			PIO_CTS   			VAR				PORTD.1			' GPS TX DATA OUTPUT
'			PIO_RTS   			VAR				PORTD.2			' GPS RX DATA INPUT
'			PIO_TXD   			VAR				PORTD.3			' G24 HARDWARE ON/OF OUTPUT
'			PIO_RXD 			VAR				PORTD.4			' G24 SOFTWARE ON/OF OUTPUT
'			ROLE    			VAR				PORTD.5			' CLOCK SCL I/O 
'			GPS_RXD        		VAR				PORTD.6			' CLOCK SDA I/O
'			GPS_TXD 			VAR				PORTD.7			' G24 SOUND IN OUTPUT
			
			GPS_RST				VAR				PORTD.0			' GPS RESET OUTPUT
			CAM_TXD   			VAR				PORTD.1			' CAMERA TX DATA OUTPUT
			CAM_RXD   			VAR				PORTD.2			' CAMERA RX DATA INPUT
			PIO_TXD   			VAR				PORTD.3			' G24 HARDWARE ON/OF OUTPUT
			PIO_RXD 			VAR				PORTD.4			' G24 SOFTWARE ON/OF INPUT
			ROLE    			VAR				PORTD.5			' CLOCK SCL I/O 
			GPS_RXD        		VAR				PORTD.6			' CLOCK SDA I/O
			GPS_TXD 			VAR				PORTD.7			' G24 SOUND IN OUTPUT
			
			
								
			SYS_LED      		VAR				PORTE.0			' SYSTEM INDICATOR LED OUTPUT
			M1_SDA  			VAR				PORTE.1			' I2C Serial Data
			M1_SCL  			VAR				PORTE.2			' I2C Serial Clock

'************************   TRIS REGISTERS   ***********************************
            
            TRISA.0 = 1
            TRISA.1 = 1
            TRISA.2 = 0
            TRISA.3 = 0
            TRISA.4 = 1
            TRISA.0 = 1
            
            TRISB= %11111111
            TRISC= %10011000
            TRISD= %01010100
            
            TRISE.0 = 0
            TRISE.1 = 0
            TRISE.2 = 0
            
  
'*****************************     DEĞİŞKENLER    *****************************
			' SYSTEM KAMERA Bilgileri
			
			Prmtr			VAR			BYTE[6]
			
			
			cSync			VAR			BYTE
			cAck			VAR			BYTE
			cNak			VAR			BYTE
			
			
			cAckCnt			VAR			WORD
			cNakCnt			VAR			WORD
			
			ColorType		VAR			BYTE
			PreviewRes		VAR			BYTE
			JpegRes			VAR			BYTE
			ResimType		VAR			BYTE
			
			
			
			' SYSTEM ISI 1 Bilgileri  İçin			
			
			R_Temp     		VAR		     WORD        
			Cold_Bit    	VAR			 R_Temp.Bit11
			Polarite       	VAR 		 BYTE        
			Dummy       	VAR 		 BYTE  
			TempC       	VAR 		 WORD       
			Kusurat       	VAR			 WORD        
			'Real_Cold   	CON			 1           
			'Deg         	CON			 223
			DrmTemp1		VAR			 BYTE

			
			
			'SYSTEM Zaman Bilgileri Paketler İçin			
			sysSaat			VAR			BYTE[2]
			sysDakika		VAR			BYTE[2]
			sysSaniye		VAR			BYTE[2]
			sysHafta		VAR			BYTE[2]
			sysAy			VAR			BYTE[2]
			sysGun			VAR			BYTE[2]
			sysYil			VAR			BYTE[2]
			
			'PIO Veri Paketler İçin
			datAcil			VAR			BYTE
			datSuphe		VAR			BYTE
			datAlarm		VAR			BYTE
			datAku			VAR			BYTE
			datKontak		VAR			BYTE
			datRole			VAR			BYTE
			datMdmSPwr		VAR			BYTE
			datMdmHPwr		VAR			BYTE

			'Modem Ekran Bİlgisi Paketler İçin
			mdmBat			VAR			BYTE
			mdmSin			VAR			BYTE
			mdmReg			VAR			BYTE
			mdmMsg			VAR			BYTE
			mdmRom			VAR			BYTE
			mdmSmsFull		VAR			BYTE
			mdmGprs			VAR			BYTE
			mdmSim			VAR			BYTE
			mdmData			VAR			BYTE
		    ErrModem		VAR			BYTE

			' GPS Verisi Paketler İçin
			gpsTarih		VAR			BYTE[6]
			gpsGun	    	VAR			BYTE[2]
			gpsAy	    	VAR			BYTE[2]
			gpsYil	    	VAR			BYTE[2]
			gpsSaat	    	VAR			BYTE[2]
			gpsDakika    	VAR			BYTE[2]
			gpsSaniye    	VAR			BYTE[2]
			gpsStatu    	VAR			BYTE
			gpsKuzey    	VAR			BYTE[10]
			gpsDogu	    	VAR			BYTE[11]
			gpsHiz	    	VAR			BYTE[7]
			gpsSapma    	VAR			BYTE[6]
			gpsData			VAR			BYTE
			gpsTmp1			VAR			BYTE
			gpsTmp2			VAR			BYTE
			ErrGPS			VAR			BYTE
			gpsCHS			VAR			BYTE

			' SYSTEM Parametre Kayıtları
			ApnName			VAR			BYTE[10]
			ApnUser			VAR			BYTE[8]
			ApnPass			VAR			BYTE[8]
			KonsolID		VAR			BYTE[5]
			usrAdmin    	VAR 		BYTE[8]
			pasAdmin    	VAR 		BYTE[4]
			telMerkez   	VAR 		BYTE[15]
			ipServer		VAR			BYTE[12]
			prtServer    	VAR 		BYTE[5]
			telAcil1    	VAR 		BYTE[15]
			cagAcil1    	VAR 		BYTE
			telAcil2    	VAR 		BYTE[15]
			cagAcil2    	VAR 		BYTE
			msgAlarm    	VAR 		BYTE[40]
			
			' Kontrolü Yapılacaklar
			kntAcil     	VAR 		BYTE
			kntSuphe		VAR			BYTE
			kntAlarm    	VAR 		BYTE
			kntKontak      	VAR 		BYTE
			kntAku      	VAR 		BYTE
			kntBloke    	VAR 		BYTE
			kntKamera		VAR			BYTE
			kntTakip    	VAR 		BYTE
			kntYer      	VAR 		BYTE
			kntMrkzBilgi	VAR			BYTE
			kntSysReset		VAR			BYTE
			
			' SYSTEM Güvenlik Birimi
			usrKontrol   	VAR 		BYTE[8]
			pasKontrol   	VAR 		BYTE[4]
			usrType			VAR			BYTE
			
			
			' SYSTEM Ana Birimi
			wr				VAR 		BYTE
			Sender			VAR			BYTE
		    KnslRstDeg		VAR			WORD
			strComp			VAR			BYTE
			addr			VAR			BYTE
			GprsPacType     VAR			BYTE
			SysCalType  	VAR 		BYTE
			EtkenCalType    VAR			BYTE
			RegGeneral		VAR			BYTE[256]
			
			' SYSTEM G24 GPS Birimi
			i				VAR			BYTE
			j				VAR			BYTE
			VirSay			VAR			BYTE
			
			' SYSTEM G24 GPRS Birimi
			GWR				VAR			BYTE
			Deger			VAR			BYTE
			WhoIs			VAR			BYTE
			GpKomut			VAR			BYTE
			G24SAYAC		VAR			WORD
			GpTaWait		VAR			WORD
			TmpGpWait		VAR			WORD
			G24ADDR			VAR			WORD
			G24TMP1			VAR			BYTE
			G24TMP2			VAR			BYTE
			G24TMP3			VAR			BYTE			
		    G24VERI			VAR			BYTE[350]
   			GprsMesaj		VAR			BYTE[160]
			MipData1		VAR			BYTE[64]
			MipData2 		VAR			BYTE[32]
			
			' SYSTEM G24 SMS SOS Birimi
			telEtkin		VAR			BYTE[15]
			SosType			VAR			BYTE 
			SmsPacType		VAR			BYTE[2]			
			TxMesajType     VAR			BYTE
 
			' SYSTEM G24 SMS MESAJ Birimi
			MsgIndex		VAR			BYTE
			SmsMesaj		VAR			BYTE[160]			
			SmTaWait		VAR			WORD

			' SYSTEM I2C Birimi
		    MemAddrH		VAR			BYTE
		    MemAddrL		VAR			BYTE
		    MemAddr			VAR			WORD
		    MemData			VAR			BYTE
		    MemVeri			VAR			BYTE[52]
			
			' SYSTEM FLAGLAR
			FlagMsgVar		VAR			BYTE
			FlgAcil		    VAR			BYTE
			FlgSuphe		VAR			BYTE
			FlgAlarm		VAR			BYTE
			FlgAku 	    	VAR			BYTE
			FlgKontak 		VAR			BYTE
			FlgTakip 		VAR			BYTE
			FlgYer  		VAR			BYTE
			FlgBloke		VAR			BYTE
	        FlgMsgVar		VAR			BYTE
			FlgGsmReg		VAR			BYTE		
			FlgGprsReg      VAR			BYTE
			FlgGprsRom		VAR			BYTE
			FlgGprsNet 	    VAR			BYTE
			FlgGprsPing		VAR			BYTE
	        FlgCalType		VAR			BYTE
	        FlgGprsCom		VAR			BYTE
	     	FlgSosDurum		VAR			BYTE
			FlgGpTakip		VAR			BYTE
			FlgGpYer 		VAR			BYTE
			FlgSmTakip		VAR			BYTE
			FlgSmsYer		VAR			BYTE
			FlgMipCall		VAR			BYTE
			FlgMipCallErr   VAR			BYTE
			FlgMipOpen      VAR			BYTE
			FlgMipOpenErr   VAR			BYTE
			FlgMipStat		VAR			BYTE
			FlgBaglanti     VAR			BYTE
			FlgPingSend		VAR			BYTE
			FlgPingRec   	VAR			BYTE			
			FlgPingErr      VAR			BYTE
		    FlgRING		    VAR			BYTE
			FlgKntkGitK		VAR			BYTE
			FlgKntkGitA		VAR			BYTE
			'FlgGecVeri		VAR			BYTE
			FlgGpNoTxD		VAR			BYTE

			'SYSTEM SAYAÇLARI
			SayGsmSin		VAR			BYTE
			SayGsmReg		VAR			BYTE
			SayGprsReg		VAR			BYTE
			SayLink			VAR			BYTE
			SayG24Cev		VAR			BYTE
			SayModemRst		VAR			WORD
           	SayPing 		VAR			WORD
			SayPingErr		VAR			WORD
			SaySmTakip		VAR			WORD
			SayGpTakip		VAR			WORD
			SayMipOpen      VAR			WORD
			SayPingWait		VAR			WORD
			SayBaglanti		VAR			WORD
			SaySoket		VAR			WORD
			SayMipCall      VAR			WORD
		     
		   
			
'*****************************     SABİTLER    ********************************

			CR				CON		   13
			LF				CON		   10
			CTRLZ			CON		   $1A
			XON             CON        $11
            XOFF            CON        $13
			ENQ				CON		   $05
			ACK				CON		   $06
			NAK				CON        $15
			DLE				CON	       $10
			STX				CON		   $02
			ETX				CON		   $03	
			BEL				CON		   $07
			SOH				CON        $01
			EOT				CON		   $04	
			ESC				CON		   $1B
			
			G24_BAUD		CON			84
			GPS_BAUD		CON			84
			MAX_BAUD		CON			16416
			MCU_BAUD		CON			84
			
			CAM_BAUD		CON			84
			
			Bek10			CON			10
			Bek100			CON			100
			Bek200			CON			200
			Bek300			CON			300
			Bek500			CON			500
			Bek1000			CON			1000
			Bek1500			CON			1500
			Bek2000			CON			2000
			Bek3000			CON			3000
			Bek5000			CON			5000
			
			ART				CON			"+"
			BOL				CON			"/"
			ESTR			CON			"="
			DOLAR			CON			"$"
			BOSLUK			CON			" "
		    VI				CON			","
            SIF				CON			"0"
            BIR				CON			"1"
            IKI				CON			"2"
            UC				CON			"3"
            DOT				CON			"4"
            BES				CON			"5"
            ALT				CON			"6"
            YED				CON			"7"
            SEK				CON			"8"
            DOK				CON			"9"
            AA				CON			"A"
            BB				CON			"B"
            CC				CON			"C"
            DD				CON			"D"
            EE				CON			"E"
            FF				CON			"F"
            GG				CON			"G"
            HH				CON			"H"
            II				CON			"I"
            JJ				CON			"J"
            KK				CON			"K"
            LL				CON			"L"
            MM				CON			"M"
            NN				CON			"N"
            OO				CON			"O"
            PP				CON			"P"
            RR				CON			"R"
            SS				CON			"S"
            TT				CON			"T"
            UU				CON			"T"
            WW				CON			"W"
            XX				CON			"X"
            VV				CON			"V"
            YY				CON			"Y"
            ZZ				CON			"Z"
            
             
'************************    İLK ATAMALAR    **********************************
EEPROM 0,  ["00"]                        ' System Saat 
EEPROM 2,  ["00"]                        ' System Dakika 
EEPROM 4,  ["00"]                        ' System Saniye 
EEPROM 6,  ["00"]                        ' System Gün  
EEPROM 8,  ["00"]                        ' System Ay 
EEPROM 10, ["00"]                        ' System Yil 

EEPROM 12, ["0"]                         ' PIO datAcil 
EEPROM 13, ["0"]                         ' PIO datSuphe
EEPROM 14, ["0"]                         ' PIO datAlarm
EEPROM 15, ["0"]                         ' PIO datKontak
EEPROM 16, ["0"]                         ' PIO datAku
EEPROM 17, ["0"]                         ' PIO datRole
EEPROM 18, ["0"]                         ' PIO datMdmSPwr
EEPROM 19, ["0"]                         ' PIO datMdmHPwr

EEPROM 20, ["0"]                         ' G24 ErrModem 
EEPROM 21, ["0"]                         ' G24 mdmBat 
EEPROM 22, ["0"]                         ' G24 mdmSin 
EEPROM 23, ["0"]                         ' G24 mdmReg 
EEPROM 24, ["0"]                         ' G24 mdmMsg 
EEPROM 25, ["0"]                         ' G24 mdmRom 
EEPROM 26, ["0"]                         ' G24 mdmSmsFull 
EEPROM 27, ["0"]                         ' G24 mdmGprs 
EEPROM 28, ["0"]                         ' G24 mdmSim 
			
EEPROM 29, ["0"]                         ' GPS ErrGPS 
EEPROM 30, ["0"]                         ' GPS gpsStatu 
EEPROM 31, ["00"]                        ' GPS gpsSaat 
EEPROM 33, ["00"]                        ' GPS gpsDakika 
EEPROM 35, ["00"]                        ' GPS gpsSaniye 
EEPROM 37, ["00"]                        ' GPS gpsGun 
EEPROM 39, ["00"]                        ' GPS gpsAy 
EEPROM 41, ["00"]                        ' GPS gpsYil 
EEPROM 43, ["0000.00000"]                ' GPS gpsKuzey 
EEPROM 53, ["00000.00000"]               ' GPS gpsDogu
EEPROM 64, ["000.000"]                   ' GPS gpsHiz
EEPROM 71, ["000.00"]                    ' GPS gpsSapma
EEPROM 77, ["O+"]                        ' ISI 1 Sensör Verisi
EEPROM 79, [49,57]                       ' ISI 1 Sensör Verisi


EEPROM 81, ["000000000"]                 ' RESERVE
' SYSTEM TARAFINDAN KONTROLÜ YAPILACAK İŞLEMLER  , 1 = Yapılsın , 0 = Yapılmasın
EEPROM 90, ["1"]                         ' Kontrol Acil
EEPROM 91, ["1"]                         ' Kontrol Suphe 
EEPROM 92, ["1"]                         ' Kontrol Alarm
EEPROM 93, ["2"]                         ' Kontrol Kontak   
EEPROM 94, ["1"]                         ' Kontrol Akü
EEPROM 95, ["1"]                         ' Kontrol Bloke
EEPROM 96, ["1"]                         ' Kontrol Kamera
EEPROM 97, ["1"]                         ' Kontrol Takip
EEPROM 98, ["1"]                         ' Kontrol Yer
EEPROM 99, ["1"]                         ' Kontrol Merkeze Bilgi
EEPROM 100,["3"]                         ' Kontrol System Reset 
EEPROM 101,["1"]                         ' RESERVE

EEPROM 103, ["2"]                        ' Konsol Kontak Aralığı 4 = 60 Dakika
EEPROM 104, ["1"]                        ' Konsol Reset Aralığı, KnslRstDeg
EEPROM 105, [0]                          ' Memory Adres High
EEPROM 106, [0]                          ' Memory Adres Low

EEPROM 107, ["7"]                        ' GPRS Takipte Aralığı
EEPROM 108, ["1"]                        ' GPRS Takipte Kontak Kontrolü
EEPROM 109, ["1"]                        ' GPRS Takip 

' SYSTEM PARAMETRE KAYITLARI YERİ
EEPROM 110,["internet??"]                ' Network APN Name
EEPROM 120,["pppppp??"]                  ' Network APN Username
EEPROM 130,["uuuuuu??"]                  ' Network APN Password

EEPROM 142,["12345678"]                  ' User Username
EEPROM 150,["1234"]                      ' User Password
EEPROM 154,["00001"]                     ' Konsol ID

EEPROM 159,["905326220881"]              ' Merkez Telefon Numarası
EEPROM 171,[255]
EEPROM 172,[255]
EEPROM 173,[255]
EEPROM 174,["905327030602"]              ' Acil Telefon Numarası 1
EEPROM 186,[255]
EEPROM 187,[255]
EEPROM 188,[255]
EEPROM 189,["1"]                         ' Acil Telefon Numarası 1 Çağrı Tipi 1 = SMS , 0 = Çağrı 
EEPROM 190,["905428387054"]              ' Acil Telefon Numarası 2
EEPROM 202,[255]
EEPROM 203,[255]
EEPROM 204,[255]
EEPROM 205,["0"]                         ' Acil Telefon Numarası 2 Çağrı Tipi 1 = SMS , 0 = Çağrı 
EEPROM 206,["06 TJP 22 Plakali Aracta!"] ' Acil Ve Alarm Durum Mesajı Max 25 Karakter





EEPROM 231,["088248008143"]              ' Server IP 
'EEPROM 231,["088248010126"]             ' Server IP 
'EEPROM 231,["078161058027"]             ' Server IP 
EEPROM 243,["48100"]                     ' Server Port 
EEPROM 248,["0"]                         ' RESERVE
EEPROM 249,["0"]                         ' RESERVE
EEPROM 250,["0"]                         ' RESERVE
EEPROM 251,["0"]                         ' RESERVE
EEPROM 252,["0"]                         ' RESERVE
EEPROM 253,["0"]                         ' RESERVE
EEPROM 254,["0"]                         ' RESERVE
EEPROM 255,["1"]                         ' Çalışma Şekli

High G24_SPWR
'Low G24_SPWR

Low ROLE

For addr=1 TO 3
    High SYS_LED
    High GPRS_LED
    High GPS_LED
    'High ROLE
    Pause 1000
    Low SYS_LED
    Low GPRS_LED
    Low GPS_LED
    
    Low ROLE
    Pause 1000
    SerOut2 PIO_TXD,MAX_BAUD,["Q",CR,LF]
Next addr


Low SYS_LED
Low GPRS_LED
Low GPS_LED
   

MemAddr = 0
SayModemRst = 0



'olee: 

'IF PORTB.2=0 Then
'High ROLE
'EndIF

'IF PORTB.5=0 Then
'Low ROLE
'EndIF
 

'IF ROLE=0 Then
'Low PORTE.0
'EndIF

'IF ROLE=1 Then
'High PORTE.0
'EndIF




'GoTo olee


'*******************************************************************************
'****************                KAMERA MODÜLÜ              ********************
'******************************************************************** 07.10.2007
'InitKamera : 	   cSync[0]=$AA0D
'				   cSync[1]=$0000
'				   cSync[2]=$0000
'				
'				
'	InitKameraL1 :			
'				   SerOut2 ACIL,CAM_BAUD,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'				
'				   SerIn2 SUPHE,CAM_BAUD,1000,cAckYok,[HEX4 cAck(0),HEX4 cAck(1),HEX4 cAck(2)]
'				
'				   SerIn2 SUPHE,CAM_BAUD,1000,cSyncYok,[HEX4 cSync(0),HEX4 cSync(1),HEX4 cSync(2)]
'				   
'				   
'				   
'				
'    cAckYok      : GoTo InitKameraL1
'    
'    cSyncYok     : 
'    
'
'******************************************************************** 07.10.2007

armys2000 · 22 Mayıs 2008, 00:09:22

'*******************************************************************************
'****************         		    PREMAIN    		        ********************
'******************************************************************** 02.05.2007
PreMain        :  GoTo SysInit
  
  SysInitOk    :  GoTo G24Init		
  
  G24InitOK    :  GoTo GpsInit

  GpsInitOK    :                   
                  GoTo Main
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'****************         		    MAIN    		        ********************
'****************         		    MAIN    		        ********************
'****************         		    MAIN    		        ********************
'*******************************************************************************
'******************************************************************** 02.05.2007

MAIN :  
                       GoSub GpsVeriOku     ' GPS KONUM VE ZAMAN BİLGİSİNİ AL
                       
                       GoSub SaatOku        ' SYSTEM ZAMAN BİLGİSİSİNİ AL
                       
                       GoSub PioVeriOku     ' ÇEVRESEL GİRİŞ BİLGİLERİNİ AL
                       
                       GoSub ModemEkranOku  ' G24 EKRAN BİLGİLERİNİ AL
                       
                       'GoSub IsiOku 		' TEMP 1 DE BAĞLI SICAKLIK SENSÖRÜ
                       
                       GoSub NormlVeriYaz   ' VERİ PAKETİNİ HAFIZAYA YAZ
                        
                       GoSub GsRgKnt        ' GSM REGISTER KONTROLÜ
               
                       GoSub GpRgKnt        ' GPRS REGISTER KONTROLÜ
                       
                
                       GoTo GpRoKnt         ' GSM ROAMING KONTROLÜ

      GpRoKntOK      : GoTo SmsKnt          ' GSM GELEN SMS VARMI KONTROLÜ      
                      
      SmsKntOK       : GoTo SmKmtIc         ' SMS KOMUT VARSA ICRA EDİLMESİ
         
      SmKmtIcOK      : GoTo GPBLK           ' GPRS BLOK
                      
      GPBLKOK        : GoTo GpKoIc          ' GPRS GELEN KOMUT VARSA İCRA EDİLMESİ
      
      GpKoIcOK       : GoTo SosKontrol      ' ACİL VEYA ALARM DURUMU VARSA GEREKENİ YAP
      
      SosKontrolOK   : GoTo SmTakipDur      ' SMS ÜZERİNDEN TAKİP VARMI
      
      SmTakipDurOK   : GoTo SmYerSorma      ' SMS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ
                        
      SmYerSormaOK   : GoTo KontakKont      ' KONTAK KONTROL TAKİPTEN ÖNCE
      
      KontakKontOK   : GoTo GpTakipDur      ' GPRS ÜZERİNDEN TAKİP VARMI
      
      GpTakipDurOK   : GoTo GpYerSor        ' GPRS ÜZERİNDEN YER BİLGİSİ İSTENMİŞ Mİ
      
      GpYerSOK       : 'GoTo GpGecVeri       ' GPRS ÜZERİNDEN GEÇMİŞ VERİ İSTENMİŞ Mİ
       
      'GpGecVeriOK    : 
                       GoTo G24Rst          ' G24 RESET DURUMU GELMİŞ Mİ      
      
      G24RstOk  :  
       
      'SerOut2 PIO_TXD,MAX_BAUD,["20",HEX2 sysYil,".",HEX2 sysAy,".",HEX2 sysGun,"  ", HEX2 sysSaat,":",HEX2 sysDakika,":",HEX2 sysSaniye,13,10]

GoTo MAIN 
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'******************************************************************** 29.04.2007



'*******************************************************************************
'****************               ISI   OKUMA                 ********************
'******************************************************************** 24.10.2007
IsiOku   : addr = 0

BolumTemp1 : OWOut Tmp1, 1, [$CC, $44]

	LoopTemp1 : IF addr >=10 Then
	               addr = 0
	               DrmTemp1 = NN ' TEMP NO
	               Write 77,DrmTemp1
	               Return
	            EndIF
	               
	            OWIn Tmp1, 4, [strComp] 

	            IF  strComp = 0 Then 
	                addr =  addr + 1
	                GoTo LoopTemp1
	            EndIF
	                  
    	
    			OWOut Tmp1, 1, [$CC, $BE]
    			OWIn  Tmp1, 2, [R_Temp.Lowbyte, R_Temp.Highbyte]
    	
    			
    			IF Cold_Bit = 1 Then 
				'IF Cold_Bit = Real_Cold Then 
						Polarite  = "-"            
		    			Dummy  = 625 * ~R_Temp+1
		    			TempC  = Div32 10       
						'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
				Else
		    			Polarite  = "+"
		    			Dummy = 625 * R_Temp     
		    			TempC = Div32 10         
		    	    	TempC  = (R_Temp & $0FF0) >> 4 
		    			Kusurat = ((R_Temp.Lowbyte & $0F) * 625) 
		    			'LCDOut $fe,1,"Sns1= ",Polarite,DEC TempC,".",DEC2 Kusurat,Deg,"C "
    			EndIF


                DrmTemp1 = OO  ' TEMP OK
				Write 77,DrmTemp1
				Write 78,Polarite
				Write 79,TempC
				Write 80,Kusurat

Return
'******************************************************************** 24.10.2007


'*******************************************************************************
'****************                MODEM ME READY             ********************
'******************************************************************** 27.04.2007
MeReady : High SYS_LED
          
          
          IF WhoIs = DOK  Then
             WhoIs = SIF
             
             G24ADDR = 0
             Low G24_RTS 
             While  G24ADDR < 350
                 SerIn2 G24_RXD,G24_BAUD,1500,G24ERR,[G24VERI(G24ADDR)]
                 G24ADDR = G24ADDR + 1 
             Wend
          
            GoTo G24ERR
          
          EndIF
          
       
          G24ADDR = 0
          Low G24_RTS 
          While  G24ADDR < 350
                 SerIn2 G24_RXD,G24_BAUD,300,G24ERR,[G24VERI(G24ADDR)]
                 G24ADDR = G24ADDR + 1 
          Wend
          
          GoTo G24ERR
          
          G24ERR:
          
          Low SYS_LED
          High G24_RTS  'MeBusy
          
          For G24ADDR = 0 TO 349
				   	    
		      IF G24VERI[G24ADDR] = "+"  Then
			  IF G24VERI[(G24ADDR + 1)] = "M"  Then 
			  IF G24VERI[(G24ADDR + 2)] = "I"  Then 
			  IF G24VERI[(G24ADDR + 3)] = "P"  Then 
			  IF G24VERI[(G24ADDR + 4)] = "R"  Then 
			  IF G24VERI[(G24ADDR + 5)] = "T"  Then 
			  IF G24VERI[(G24ADDR + 6)] = "C"  Then  
			  IF G24VERI[(G24ADDR + 7)] = "P"  Then  
			  IF G24VERI[(G24ADDR + 8)] = ":"  Then 
			  IF G24VERI[(G24ADDR + 9)] = " "  Then 
			  IF G24VERI[(G24ADDR + 10)] = "1"  Then 
			  IF G24VERI[(G24ADDR + 11)] = ","  Then 
			  IF G24VERI[(G24ADDR + 12)] = "0"  Then 
			  IF G24VERI[(G24ADDR + 13)] = ","  Then
              
                 For G24SAYAC = 0 TO 63
			         MipData1[G24SAYAC] = G24VERI[((G24ADDR + G24SAYAC ) + 14)]
			     Next G24SAYAC
							   	                                    
			     GoTo MipVar
							   	                                    
			  EndIF				   	                                      
			  EndIF
			  EndIF   
			  EndIF  
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
			  EndIF
				   	 
		  Next G24ADDR   
                     
          GoTo MipYok
                     
MipVar:      	FlgGprsCom = BIR

                For addr = 0 TO 63
                
                IF MipData1[addr]= SIF Then MipData1[addr]= $0
                IF MipData1[addr]= BIR Then MipData1[addr]= $1
                IF MipData1[addr]= IKI Then MipData1[addr]= $2
                IF MipData1[addr]= UC  Then MipData1[addr]= $3
                IF MipData1[addr]= DOT Then MipData1[addr]= $4
                IF MipData1[addr]= BES Then MipData1[addr]= $5
                IF MipData1[addr]= ALT Then MipData1[addr]= $6
                IF MipData1[addr]= YED Then MipData1[addr]= $7
                IF MipData1[addr]= SEK Then MipData1[addr]= $8
                IF MipData1[addr]= DOK Then MipData1[addr]= $9
                IF MipData1[addr]= "A" Then MipData1[addr]= $A
                IF MipData1[addr]= "B" Then MipData1[addr]= $B
                IF MipData1[addr]= "C" Then MipData1[addr]= $C
                IF MipData1[addr]= "D" Then MipData1[addr]= $D
                IF MipData1[addr]= "E" Then MipData1[addr]= $E
                IF MipData1[addr]= "F" Then MipData1[addr]= $F
                
                Next addr
                
                For addr = 0 TO 31
				
				    G24TMP1        = MipData1[(addr*2)] << 4
				    G24TMP2        = MipData1[((addr*2)+1)] << 4
				    G24TMP2        = G24TMP2 >> 4
				    G24TMP3        = G24TMP1 | G24TMP2		 
		            MipData2[addr] = G24TMP3
				    
				Next addr

				Return
         
MipYok :       For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR] = "R"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "I"  Then 
				   	          IF G24VERI[(G24ADDR + 2)] = "N"  Then 
				   	             IF G24VERI[(G24ADDR + 3)] = "G"  Then 
				   	                 FlgRING = BIR
				   	                 SerOut2 G24_TXD,G24_BAUD,["ATA",CR,LF]
				   	             EndIF
				   	          EndIF
				   	       EndIF
				   	    EndIF
				   	 
			   Next G24ADDR   
Return
'******************************************************************** 21.04.2007

'*****************************************************************************OK
'****************           SYSTEM INITILAZE RUTİNİ         ********************
'******************************************************************** 07.01.2007
SysInit    : sysSaat[0]	       = SIF     ' Sistem Saati Okuma Okuma
             sysSaat[1]	       = SIF     
             sysDakika[0]	   = SIF      
			 sysDakika[1]	   = SIF     
			 sysSaniye[0]	   = SIF
			 sysSaniye[1]	   = SIF     
			 sysAy[0]		   = SIF            
			 sysAy[1]		   = SIF      
			 sysGun[0]		   = SIF
			 sysGun[1]		   = SIF      
			 sysYil[0]		   = SIF
			 sysYil[1]		   = SIF      

             SayG24Cev         = 0        ' Modem Initilaze
             
             MsgIndex          = 1        ' G24 Mesaj Kontrol Mesaj Index Numarası   
                         
             FlgGsmReg         = SIF      ' G24 Gsm Register Kontrolü
             SayGsmReg         = 0
             
             FlgGprsReg        = SIF      ' G24 Gprs Register Kontrolü  
             SayGprsReg        = 0
              
             FlgMipCall        = SIF      ' G24 MIPCALL Bayrağı SIF ise MIPCAL Yok
             SayMipCall        = 0
              
             FlgRING		   = SIF     ' RING i SIFIRLA
             
             Sender			   = SIF     ' GPRS Paketlerini Hazırlarken Kimden ( Takip,Yer,Kontak,Reset,Acl/Alr) Geldiği
             
             FlgSmTakip        = SIF     ' Çalışma Şekli Ne Olursa Olsun SMS li Takip İptal
             
             FlgMsgVar         = SIF
             FlgSosDurum       = SIF
             FlgMipCall	       = SIF
			 FlgMipOpen        = SIF
			 FlgBaglanti       = SIF
			 FlgPingSend       = SIF
			 FlgPingRec        = SIF
			 FlgPingErr        = SIF
             FlgMipCallErr     = SIF
			 FlgMipOpenErr     = SIF
          	 
			 GpKomut	       = $FF

			 SayGprsReg        = 0
			 SayGsmReg	       = 0
			 SayPing           = 0
             SayMipCall        = 0
             SayMipOpen        = 0
             SayBaglanti       = 0 
           	 SayPingErr        = 0
           	 SayG24Cev         = 0
           	 
			 MsgIndex	       = 1
			
			 FlgGprsNet	       = 0
			 TxMesajType       = SIF			
		     
		     FlgKntkGitK	   = SIF ' 24.10.2007
		     FlgKntkGitA	   = SIF ' 24.10.2007
		      
GoTo SysInitOk     
'******************************************************************** 07.01.2007

'*****************************************************************************OK
'*******************************************************************************
'***********                      MODEM INITILAZE                    ***********
'***********   Modemin Açılması Ve Mesaj Formatının Set Edilmesi     ***********
'*******************************************************************************
'******************************************************************** 27.04.2007
G24Init        : High SYS_LED
                 SerOut2 PIO_TXD,MAX_BAUD,["MINIT",13,10]
                 GoSub G24AcSoft
             	 
             	 
G24Loop       : 
			     Pause Bek300
				 GoSub BuffDel
			     SerOut2 G24_TXD,G24_BAUD,["AT",CR,LF]
			     GoSub MeReady
			     
			     For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR] = "O"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "K"  Then 
				   	          
				   	          SerOut2 PIO_TXD,MAX_BAUD,["MATOK",13,10]
				   	          SayG24Cev = 0
				   	          GoTo G24AtOk
				   	      
				   	       EndIF
				   	    EndIF
				   	 
			     Next G24ADDR   
  
			     IF SayG24Cev > 15 Then
			   		High SYS_LED
			   		SayG24Cev = 0
			  		GoSub G24KapaSoft
			  		GoTo G24Init
			     Else
			     	SayG24Cev = SayG24Cev + 1
			  		GoTo G24Loop
			     EndIF
          
G24AtOk    :     Low SYS_LED
                 SerOut2 G24_TXD,G24_BAUD,["AT+CBAUD=5",CR,LF]
                 Pause Bek100
                 'SerOut2 G24_TXD,G24_BAUD,["AT+MAPATH=1,1",CR,LF]
                 'Pause Bek100
                 'SerOut2 G24_TXD,G24_BAUD,["AT+MADIGITAL=0",CR,LF]
                 'Pause Bek100
                 'SerOut2 G24_TXD,G24_BAUD,["AT+MMICG=28",CR,LF]
                 'Pause Bek100
                 'SerOut2 G24_TXD,G24_BAUD,["AT+MAMUT=1,0",CR,LF]
                 'Pause Bek100
                 'SerOut2 G24_TXD,G24_BAUD,["AT+MAFEAT=4,1",CR,LF]
                 'Pause Bek100
                 SerOut2 G24_TXD,G24_BAUD,["AT+IPR=5",CR,LF]
                 Pause Bek100
                 SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
                 Pause Bek100
                 SerOut2 G24_TXD,G24_BAUD,["AT+CPMS=",34,"SM",34,CR,LF]
                 Pause Bek100
                 SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=1,4",CR,LF]
                 Pause Bek100
                 SerOut2 G24_TXD,G24_BAUD,["ATE1",CR,LF]
                 Pause Bek100
			     SerOut2 G24_TXD,G24_BAUD,["AT&K3",CR,LF]
			     Pause Bek100
			   
			     GoSub BuffDel

GoTo G24InitOk
			  
'*******************************************************************************
'******************************************************************** 02.05.2007

armys2000 · 22 Mayıs 2008, 00:10:38

'*****************************************************************************OK
'*******************************************************************************
'***********                  uBLOX GPS INITILAZE                    ***********
'***********              GPS NMEA Mesaj Ve Port Ayarı               ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
GpsInit : 'SerOut2 PIO_TXD,MAX_BAUD,["GPS INIT",13,10]
             
          gpsCHS = $5A   
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GGA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  GG,GG,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          Pause Bek200 
          
          gpsCHS = $5C   
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GLL,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  GG,LL,LL,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          Pause Bek200 
          
          gpsCHS = $4E   
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  GG,SS,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          Pause Bek200 
          
          gpsCHS = $59   
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,GSV,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  GG,SS,VV,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          Pause Bek200 
          
          gpsCHS = $5E   
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,VTG,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  VV,TT,GG,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          Pause Bek200 
          
          gpsCHS = $44  
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,40,ZDA,0,0,0,0*",HEX2 gpsCHS ,CR,LF]
          SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,SIF,VI,_
                  ZZ,DD,AA,VI,SIF,VI,SIF,VI,SIF,VI,gpsCHS ,CR,LF]
          
          'Pause Bek200 
          'gpsCHS = $25  
          'SerOut2 GPS_TXD,GPS_BAUD,["$PUBX,41,1,0007,0003,19200,",gpsCHS ,CR,LF]
          'SerOut2 GPS_TXD,GPS_BAUD,[DOLAR,PP,UU,BB,XX,VI,DOT,BIR,VI,BIR,VI,SIF,_
          'SIF,SIF,YED,VI,SIF,SIF,SIF,UC,VI,BIR,DOK,IKI,SIF,SIF,VI,gpsCHS ,CR,LF]
          
GoTo GpsInitOk
'******************************************************************** 02.05.2007


'*****************************************************************************OK
'*******************************************************************************
'*****                      VERİLERİN TOPLANMASI                    ************
'*****                      VERİLERİN TOPLANMASI                    ************
'*****                      VERİLERİN TOPLANMASI                    ************
'*****                      VERİLERİN TOPLANMASI                    ************
'*******************************************************************************
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'*****                       TARİH VE SAAT BİLGİSİ                  ************
'*******************************************************************************
'******************************************************************** 02.05.2007
SaatOku:    sysSaat[0]   = gpsSaat[0]
            sysSaat[1]   = gpsSaat[1]
            sysDakika[0] = gpsDakika[0]
            sysDakika[1] = gpsDakika[1]
            sysSaniye[0] = gpsSaniye[0]
            sysSaniye[1] = gpsSaniye[1]
            sysGun[0]    = gpsGun[0]
            sysGun[1]    = gpsGun[1]
            sysAy[0]     = gpsAy[0]
            sysAy[1]     = gpsAy[1]
            sysYil[0]    = gpsYil[0]
            sysYil[1]    = gpsYil[1]
       
            Write 0,sysSaat[0]:Write 1,sysSaat[1]
            Write 2,sysDakika[0]:Write 3,sysDakika[1]
            Write 4,sysSaniye[0]:Write 5,sysSaniye[1]
            Write 6,sysGun[0]:Write 7,sysGun[1]
            Write 8,sysAy[0]:Write 9,sysAy[1]
            Write 10,sysYil[0]:Write 11,sysYil[1]
            
            SerOut2 PIO_TXD,MAX_BAUD,["SYS TIME : ",STR sysSaat\2,":",STR sysDakika\2,":",STR sysSaniye\2,"  ", STR sysGun\2 ,".",STR sysAy\2,".","20",STR sysYil\2,13,10]
		    
Return
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'*****                  ÇEVRESEL GİRİŞ/ÇIKIŞ BİLGİLERİ               ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
PioVeriOku   : IF ACIL = 1 Then
				  datAcil =BIR
			   Else
			   	  datAcil =SIF
 			   EndIF
 			   
 			   IF SUPHE = 1 Then
				  datSuphe =BIR
			   Else
			   	  datSuphe =SIF
 			   EndIF
 			   
 			   IF ALARM = 1 Then
				  datAlarm =BIR
			   Else
			   	  datAlarm =SIF
 			   EndIF
 			   
 			   IF KONTAK = 1 Then
				  datKontak =BIR
			   Else
			   	  datKontak =SIF
 			   EndIF
 			   
 			   IF AKU = 1 Then
				  datAku =BIR
			   Else
			   	  datAku =SIF
 			   EndIF
 			  
 			   			   
 			   IF ROLE = 1 Then
				  datRole =BIR
			   Else
			   	  datRole =SIF
 			   EndIF
 			    			   
 			   IF G24_SPWR = 1 Then
				  datMdmSPwr =BIR
			   Else
			   	  datMdmSPwr =SIF
 			   EndIF
 			   
 			   'IF G24_HPWR = 1 Then
			   '  datMdmHPwr =BIR
			   'Else
			   	  datMdmHPwr =SIF
 			   'EndIF
 			   
 			   Write 12,datAcil
			   Write 13,datSuphe 
			   Write 14,datAlarm
			   Write 15,datKontak 
			   Write 16,datAku
			   Write 17,datRole
			   Write 18,datMdmSPwr
               Write 19,datMdmHPwr 
               
               SerOut2 PIO_TXD,MAX_BAUD,["PIO : ",datAcil,":",datSuphe,":",datAlarm,":",datKontak,":",datAku,":",datRole,":",datMdmSPwr,":",datMdmHPwr,CR,LF]
Return
'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************************************************************************
'***********                    MODEM STATU KONTROL                  ***********
'***********                Modem Durumunun Sorgulanması             ***********
'*******************************************************************************
'******************************************************************** 02.05.2007
ModemEkranOku : 	mdmBat			 =  ZZ		
					mdmSin		     =  ZZ
					mdmReg			 =  ZZ
					mdmMsg			 =  ZZ
					mdmRom			 =  ZZ
					mdmSmsFull		 =  ZZ
					mdmGprs			 =  ZZ
					mdmSim			 =  ZZ
				   	ErrModem		 =  ZZ	
				   	
				   	'WhoIs = BIR
				   	GoSub BuffDel
				   	GoSub MdmEkrON
	                GoSub MeReady
				   	
				   	For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR] = "+"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "C"  Then 
				   	          IF G24VERI[(G24ADDR + 2)] = "I"  Then 
				   	             IF G24VERI[(G24ADDR + 3)] = "E"  Then 
				   	                IF G24VERI[(G24ADDR + 4)] = "V"  Then 
				   	                   
							   	       mdmBat     = G24VERI[(G24ADDR + 9)]
							   	       mdmSin     = G24VERI[(G24ADDR + 23)]
							   	       mdmReg     = G24VERI[(G24ADDR + 37)]
							   	       mdmMsg     = G24VERI[(G24ADDR + 51)]
							   	       mdmRom     = G24VERI[(G24ADDR + 79)]
							   	       mdmSmsFull = G24VERI[(G24ADDR + 107)]
							   	       mdmGprs    = G24VERI[(G24ADDR + 121)] 
							   	       mdmSim     = G24VERI[(G24ADDR + 136)]
	                  
	                  		   	       GoTo ModemStatuOk
				   	       
				   	               EndIF
				   	             EndIF
				   	          EndIF
				   	       EndIF
				   	    EndIF
				   	 
				   	 Next G24ADDR   
                     
                     
                     IF SayG24Cev > 20 Then
                        SayG24Cev = 0              
                        GoSub G24KapaSoft
                        GoTo SysInit
                     Else
                        SayG24Cev = SayG24Cev + 1
                        PauseUs 1
                        GoTo ModemEkranOku
                     EndIF
                    
                    
                    
                    GoTo ModemStatuEr	   	 
				   
ModemStatuOk: ErrModem	=  NN  
             
    		  Write 20,ErrModem 
			  Write 21,mdmBat 
			  Write 22,mdmSin 
			  Write 23,mdmReg 
			  Write 24,mdmMsg 
			  Write 25,mdmRom 
			  Write 26,mdmSmsFull 
			  Write 27,mdmGprs 
			  Write 28,mdmSim 
              
              SerOut2 PIO_TXD,MAX_BAUD,["MS OK:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF] 				   	
                    
              WhoIs = BIR
              GoSub BuffDel
			  GoSub MdmEkrOF
              GoSub MeReady
			  
Return

ModemStatuEr: ErrModem	=  EE  
              SerOut2 PIO_TXD,MAX_BAUD,["MS ER:",mdmBat,":",mdmSin,":",mdmReg,":",mdmMsg,":",mdmRom,":",mdmSmsFull,":",mdmGprs,":",mdmSim,CR,LF] 				   	
                    
              WhoIs = BIR
              GoSub BuffDel
			  GoSub MdmEkrOF
              GoSub MeReady
			  
Return				
'*******************************************************************************
'******************************************************************** 05.05.2007

'*******************************************************************************
'*******************************************************************************
'*****                 uBLOX GPS VERİLERİNİN ALINMASI               ************
'*****   Konum Bilgisi, Hız Bilgisi Sapma Bilgisi Ve Zaman Bilgisi  ************
'*******************************************************************************
'******************************************************************** 05.05.2007
GpsVeriOku : For addr=0 TO 64 
				RegGeneral[addr] = SIF
			 Next addr
			 
			 For addr=0 TO 9 
				gpsKuzey[addr] = SIF
			 Next addr
			 
			 For addr=0 TO 10 
				gpsDogu[addr] = SIF
			 Next addr
			 
			 For addr=0 TO 6 
				gpsHiz[addr] = SIF
			 Next addr
			 
			 For addr=0 TO 5 
				gpsSapma[addr] = SIF
			 Next addr
			 
			 gpsGun[0]     = SIF
			 gpsGun[1]     = SIF
			 gpsAy[0]      = SIF
			 gpsAy[1]      = SIF
			 gpsYil[0]     = SIF
			 gpsYil[1]     = SIF
			 gpsSaat[0]    = SIF
			 gpsSaat[1]    = SIF
			 gpsDakika[0]  = SIF
			 gpsDakika[1]  = SIF
			 gpsSaniye[0]  = SIF
			 gpsSaniye[1]  = SIF
			 
			 ErrGPS     = EE 
			 
			 SerIn2 GPS_RXD,GPS_BAUD,3000,GpsErr1,[wait("$GPRMC,")]
		 
			 i = 0
			 
    Loop1 :	 SerIn2 GPS_RXD,GPS_BAUD,[gpsData]		 
			 
			 IF (gpsData = "*") OR (i >=200) Then
			  	
			    GoTo gpsDataOk 
			  
			 Else
			 
			 	RegGeneral[i]=gpsData
			 	i = i + 1
			    GoTo Loop1
			    
			 EndIF
			 	 
			 
	gpsDataOk : IF RegGeneral[1] = "V" Then
					gpsStatu = VV
					GoTo gpsAntYok
				EndIF
					
				IF (RegGeneral[10] = "V") Then 
					gpsStatu = TT
					GoTo gpsOlcYok
				EndIF
				
				IF RegGeneral[10] = "A" Then
					gpsStatu = AA
					GoTo gpsOlcVar
				EndIF
				
				IF (RegGeneral[1] = SIF) OR (RegGeneral[6] = SIF)  Then
					gpsStatu = DOK
					GoTo GpsErr1
				EndIF
				
	gpsAntYok :	GoTo GpsErr1

	gpsOlcYok :	gpsSaat[0]   = RegGeneral[0] 
				gpsSaat[1]   = RegGeneral[1]
							
				gpsDakika[0]   = RegGeneral[2] 
				gpsDakika[1]   = RegGeneral[3]
				
	       		gpsSaniye[0]   = RegGeneral[4] 
				gpsSaniye[1]   = RegGeneral[5] 
				
				gpsGun[0]   = RegGeneral[18] 
				gpsGun[1]   = RegGeneral[19] 
				
				gpsAy[0]  = RegGeneral[20]
				gpsAy[1]   = RegGeneral[21] 
					
				gpsYil[0]   = RegGeneral[22] 
				gpsYil[1]   = RegGeneral[23] 
				
				GoTo GpsErr1

gpsOlcVar     : gpsSaat[0]   = RegGeneral[0] 
				gpsSaat[1]   = RegGeneral[1]
							
				gpsDakika[0]   = RegGeneral[2] 
				gpsDakika[1]   = RegGeneral[3]
				
	       		gpsSaniye[0]   = RegGeneral[4] 
				gpsSaniye[1]   = RegGeneral[5] 
				
				VirSay = 0
				i = 0
				j = 0	
		
	Kuzey1 : 	IF 	(RegGeneral[i] = VI) OR ( i >= 200) Then
			            
			        VirSay = VirSay + 1    
			              
			         	IF  VirSay = 2 Then
							
	Kuzey2 :					IF 	(RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
									GoTo gpsKuzeyOk
								Else
									gpsKuzey[j] = RegGeneral[(i+1)]
						        	i =  i + 1
						        	j = j + 1
						        	GoTo Kuzey2
						    	EndIF
						
						EndIF
					
				EndIF

				i =  i + 1			
					
	GoTo Kuzey1	
					
			
	gpsKuzeyOk : VirSay = 0
				 i = 0
				 j = 0	
					
	Dogu1      :  IF 	(RegGeneral[i] = VI) OR ( i >= 200) Then
			            
			        VirSay = VirSay + 1    
			              
			         	IF  VirSay = 4 Then
							
	Dogu2      :    		IF 	(RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
								GoTo gpsDoguOk
							Else
								gpsDogu[j] = RegGeneral[(i+1)]
						        i =  i + 1
						        j = j + 1
						        GoTo Dogu2
						    EndIF
						
						EndIF
					
				EndIF

				i =  i + 1			
					
	GoTo Dogu1	  				

	gpsDoguOk : VirSay = 0
				i = 0
				j = 0
				
						
	Hiz1       :  IF 	(RegGeneral[i] = VI) OR ( i >= 200) Then
			            
			        VirSay = VirSay + 1    
			              
			         	IF  VirSay = 6 Then
							
	Hiz2      :    		IF 	(RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
								GoTo gpsHizOk
							Else
								gpsHiz[j] = RegGeneral[(i+1)]
						        i =  i + 1
						        j = j + 1
						        GoTo Hiz2
						    EndIF
						
						EndIF
					
				EndIF

				i =  i + 1			
					
	GoTo Hiz1	  				
	
	gpsHizOk   : VirSay = 0
				 i = 0
				 j = 0
				 
							 
	Sapma1	   :  IF 	(RegGeneral[i] = VI) OR ( i >= 200) Then
			            
			        VirSay = VirSay + 1    
			              
			         	IF  VirSay = 7 Then
							
	Sapma2      :    		IF 	(RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
								GoTo gpsSapmaOk
							Else
								gpsSapma[j] = RegGeneral[(i+1)]
						        i =  i + 1
						        j = j + 1
						        GoTo Sapma2
						    EndIF
						
						EndIF
					
				EndIF

				i =  i + 1			
					
	GoTo Sapma1	  				

	gpsSapmaOk : VirSay = 0
				 i = 0
				 j = 0
	
	Tarih1     : IF 	(RegGeneral[i] = VI) OR ( i >= 200) Then
			            
			        VirSay = VirSay + 1    
			              
			         	IF  VirSay = 8 Then
							
	Tarih2      :    		IF 	(RegGeneral[(i+1)] = VI) OR ( i >= 200) Then
								GoTo gpsTarihOk
							Else
								gpsTarih[j] = RegGeneral[(i+1)]
						        i =  i + 1
						        j = j + 1
						        GoTo Tarih2
						    EndIF
						
						EndIF
					
				EndIF

				i =  i + 1			
					
	GoTo Tarih1	 
	
gpsTarihOk    : gpsGun[0]   = gpsTarih[0] 
				gpsGun[1]   = gpsTarih[1] 
				
				gpsAy[0]  = gpsTarih[2]
				gpsAy[1]   = gpsTarih[3] 
					
				gpsYil[0]   = gpsTarih[4] 
				gpsYil[1]   = gpsTarih[5] 
                    
                 
					
gpsVeriOk:	  
			
GpsVeriAlOk :  Low GPS_LED
            
            ErrGPS = NN
			
			Write 29,ErrGPS 
			Write 30,gpsStatu 
			Write 31,gpsSaat[0]  :Write 32,gpsSaat[1]
			Write 33,gpsDakika[0]:Write 34,gpsDakika[1]
			Write 35,gpsSaniye[0]:Write 36,gpsSaniye[1]
			Write 37,gpsGun[0]   :Write 38,gpsGun[1]
			Write 39,gpsAy[0]    :Write 40,gpsAy[1]
			Write 41,gpsYil[0]   :Write 42,gpsYil[1]
			
			
			  
			Write 43,gpsKuzey[0]:Write 44,gpsKuzey[1]:Write 45,gpsKuzey[2]:Write 46,gpsKuzey[3]:Write 47,gpsKuzey[4]
			Write 48,gpsKuzey[5]:Write 49,gpsKuzey[6]:Write 50,gpsKuzey[7]:Write 51,gpsKuzey[8]:Write 52,gpsKuzey[9]
			Write 53,gpsDogu[0] :Write 54,gpsDogu[1] :Write 55,gpsDogu[2] :Write 56,gpsDogu[3] :Write 57,gpsDogu[4]
			Write 58,gpsDogu[5] :Write 59,gpsDogu[6] :Write 60,gpsDogu[7] :Write 61,gpsDogu[8] :Write 62,gpsDogu[9] :Write 63,gpsDogu[10]
			Write 64,gpsHiz[0]  :Write 65,gpsHiz[1]  :Write 66,gpsHiz[2]  :Write 67,gpsHiz[3]  :Write 68,gpsHiz[4]  :Write 69,gpsHiz[5]  :Write 70,gpsHiz[6]
			Write 71,gpsSapma[0]:Write 72,gpsSapma[1]:Write 73,gpsSapma[2]:Write 74,gpsSapma[3]:Write 75,gpsSapma[4]:Write 76,gpsSapma[5]
			
            For addr = 77 TO 89
                Write addr,SIF
            Next addr
            
            SerOut2 PIO_TXD,MAX_BAUD,["GPS TIME : ",STR gpsSaat\2,":",STR gpsDakika\2,":",STR gpsSaniye\2,"  ", STR gpsGun\2 ,".",STR gpsAy\2,".","20",STR gpsYil\2,13,10]
			SerOut2 PIO_TXD,MAX_BAUD,["KUZEY ",STR gpsKuzey\10,13,10]
			'SerOut2 PIO_TXD,MAX_BAUD,["DOGU ",STR gpsDogu\11,13,10]
			'SerOut2 PIO_TXD,MAX_BAUD,["HIZ ",STR gpsHiz\7,13,10]
			'SerOut2 PIO_TXD,MAX_BAUD,["SAPMA ",STR gpsSapma\6,13,10,13,10]
                        
   			Return			
			
GpsErr1     :   High GPS_LED
                ErrGPS = EE
				Write 29,ErrGPS 
			    Write 30,gpsStatu 
				Write 31,gpsSaat[0]:Write 32,gpsSaat[1]
		    	Write 33,gpsDakika[0]:Write 34,gpsDakika[1]
			    Write 35,gpsSaniye[0]:Write 36,gpsSaniye[1]
			    Write 37,gpsGun[0]:Write 38,gpsGun[1]
			    Write 39,gpsAy[0]:Write 40,gpsAy[1]
			    Write 41,gpsYil[0]:Write 42,gpsYil[1]
			
				
				For addr = 43 TO 89
                    Write addr,SIF
                Next addr
                
                SerOut2 PIO_TXD,MAX_BAUD,["GPS TIME : ",STR gpsSaat\2,":",STR gpsDakika\2,":",STR gpsSaniye\2,"  ", STR gpsGun\2 ,".",STR gpsAy\2,".","20",STR gpsYil\2,13,10] ' SerOut2 PIO_TXD,MAX_BAUD,["GPS DEC TIME : ",DEC2 gpsSaat,":",DEC2 gpsDakika,":",DEC2 gpsSaniye,"  ", DEC2 gpsGun ,".",DEC2 gpsAy,".","20",DEC2 gpsYil,13,10]
                SerOut2 PIO_TXD,MAX_BAUD,["KUZEY ",STR gpsKuzey\10,13,10]
				'SerOut2 PIO_TXD,MAX_BAUD,["DOGU ",STR gpsDogu\11,13,10]
				'SerOut2 PIO_TXD,MAX_BAUD,["HIZ ",STR gpsHiz\7,13,10]
				'SerOut2 PIO_TXD,MAX_BAUD,["SAPMA ",STR gpsSapma\6,13,10,13,10]
                
                         
                Return			 'GoTo GpsVeriOku
  
'*******************************************************************************
'******************************************************************** 05.05.2007

armys2000 · 22 Mayıs 2008, 00:11:41

'*****************************************************************************OK
'****************        GPRS  ROAMING KONTROL RUTİNİ       ********************
'******************************************************************** 05.05.2007
GpRoKnt  :  wr = RR
            GoSub WRCalType
            
            SerOut2 PIO_TXD,MAX_BAUD,["ROAM: ",SysCalType,":",DEC2 FlgCalType,CR,LF]
            
            IF SysCalType = SIF Then
               'EtkenCalType = 49
               'wr = RR
               'GoSub WRCalType
               'GoTo GpRoKntOK
               FlgCalType = 97
            EndIF
                   
            IF SysCalType = BIR Then
	            
	            IF mdmRom = SIF Then        ' NOT ROAMING
	               'EtkenCalType = 50
	               'FlgGprsRom = SIF
	               'wr = RR
	               'GoSub WRCalType
	               'GoTo GpRoKntOK
	               IF FlgGprsReg = SIF Then ' GPRS HAT YOK
	                  FlgCalType = 97       ' Çalışma Şekli SMS ten Devam Et
	               Else
	                  FlgCalType = 98       ' SMS / GPRS MODUNDA KAL
	               EndIF
	            EndIF
	              
	            IF mdmRom = BIR Then        ' ROAMING ENABLE
	               'EtkenCalType = 49
	               'FlgGprsRom = BIR
	               'wr = RR
	               'GoSub WRCalType
	               FlgCalType = 97          ' SMS MODUNA GEÇ
	               
	               IF FlgBaglanti = BIR Then
	                  FlgGpYer = SIF          ' Roaming e Girildiğinde Birkereliğine YER Bilgisi Gönder
	                  
	                  FlgBaglanti = SIF
	                  GoSub G24KapaSoft
	                  GoTo SysInit
	               EndIF
	               
	            EndIF
	            
	        EndIF
GoTo GpRoKntOK
'******************************************************************** 05.05.2007


'*****************************************************************************OK
'*******************************************************************************
'*********************              SMS KONTROL             ********************
'*******************************************************************************
'******************************************************************** 05.05.2007
SmsKnt  :  SerOut2 PIO_TXD,MAX_BAUD,["SmsKnt: ",mdmMsg,":",DEC2 MsgIndex,CR,LF]
                     
           IF mdmMsg = SIF Then  
              GoTo SmsKntOK
           EndIF
           
           IF MsgIndex < 6 Then  ' Mesaj Fazlası Varsa Hepsini Sil İlk 5 Mesaj Önemli
              GoTo SmsKntLoop
           Else
              GoSub BuffDel
              Pause Bek200
              SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=1,4",CR,LF]
              Pause Bek1000
              GoSub MeReady
              GoTo SmsKntOK
           EndIF
        
     SmsKntLoop :   
           
           For addr= 0 TO 255
               RegGeneral[addr]=BOSLUK
           Next addr
                     
           For addr= 0 TO 159
               SmsMesaj[addr]=BOSLUK
           Next addr
           
           GoSub BuffDel
           Pause Bek200
           SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
           GoSub MeReady				
           
           GoSub BuffDel
           Pause Bek300
           SerOut2 G24_TXD,G24_BAUD,["AT+CPMS=",34,"SM",34,CR,LF]		
           GoSub MeReady
           
           WhoIs = DOK
           GoSub BuffDel
           Pause Bek300
           SerOut2 G24_TXD,G24_BAUD,["AT+CMGR=",#MsgIndex,CR,LF]	
           GoSub MeReady
           
  		   'SerOut2 PIO_TXD,MAX_BAUD,["G24VERI:@"]
           'For G24ADDR=0 TO 349
           '    SerOut2 PIO_TXD,MAX_BAUD,[G24VERI(G24ADDR)]
           'Next G24ADDR
           'SerOut2 PIO_TXD,MAX_BAUD,["@",CR,LF]
          
           For G24ADDR = 0 TO 349
				   	    
		   	    IF G24VERI[G24ADDR]       = "+"  Then
		   	    IF G24VERI[(G24ADDR + 1)] = "C"  Then 
		   	    IF G24VERI[(G24ADDR + 2)] = "M"  Then 
		   	    IF G24VERI[(G24ADDR + 3)] = "G"  Then 
		   	    IF G24VERI[(G24ADDR + 4)] = "R"  Then 
		   	    IF G24VERI[(G24ADDR + 5)] = ":"  Then 
		   	    IF G24VERI[(G24ADDR + 6)] = " "  Then 
		   	                        
		   	       i       = 0
				   j       = 0
				   addr    = 7
				   strComp = "O"
						              
                   MsgLoop1: IF G24VERI[( G24ADDR + 7 )] = strComp  Then
											  	
			                    IF j = 0 Then 
						           strComp = "K"
						        EndIF
						        
						        IF j = 1 Then 
						           strComp = CR
						        EndIF
						      
						        IF j = 2 Then 
						           strComp = LF
						        EndIF
						      
						        IF j >= 3 Then
						           VirSay = 0
						           i      = 0
						           j      = 0	 
						           GoTo MsgOkundu
						        EndIF
						    
			                    j = j + 1
						     
						     Else
						 
						        j       = 0	
						        strComp = "O"
						  
						     EndIF
			           
						     RegGeneral[i]=G24VERI[( G24ADDR + 7 )]
							 i = i + 1
							 G24ADDR = G24ADDR + 1 
							 GoTo MsgLoop1
	           	
	           	EndIF
		   	    EndIF
		   	    EndIF
		   	    EndIF
		   	    EndIF
		   	    EndIF
		   	    EndIF
		   	 
		   Next G24ADDR   
	                  
	       GoTo MsgIslOk                 
	            
	 MsgOkundu :  
	       
	       IF 	(RegGeneral[i] = CR) AND ( RegGeneral[(i+1)] = LF) Then
		        i =  i + 1
		        GoTo MsgLoop2
		   Else
		        i= i + 1
		        GoTo MsgOkundu
		   EndIF
						            
						    							
	 MsgLoop2  :  
	       
	       IF 	(RegGeneral[i] = CR) AND ( RegGeneral[(i+1)] = LF) Then
		       	GoTo MsgLoop3
		   Else
		        SmsMesaj[j]=RegGeneral[(i+1)]
		        i = i + 1
		        j = j + 1
		        GoTo MsgLoop2
		   EndIF
						     		 
						
	 MsgLoop3  :  
	 
	       SerOut2 PIO_TXD,MAX_BAUD,["Q",STR SmsMesaj\160,"W",CR,LF]
	                 
	       wr = RR              		    
	       GoSub WRusrAdmin
	       GoSub WRpasAdmin
	               
	       usrKontrol[0] = SmsMesaj[0]
           usrKontrol[1] = SmsMesaj[1]
           usrKontrol[2] = SmsMesaj[2]
           usrKontrol[3] = SmsMesaj[3]
           usrKontrol[4] = SmsMesaj[4]
           usrKontrol[5] = SmsMesaj[5]
           usrKontrol[6] = SmsMesaj[6]
           usrKontrol[7] = SmsMesaj[7]
      
           pasKontrol[0] = SmsMesaj[8]
           pasKontrol[1] = SmsMesaj[9]
           pasKontrol[2] = SmsMesaj[10]
           pasKontrol[3] = SmsMesaj[11]
      	                 
           GoSub usrTypeSor
      
           IF usrType = 9 Then
                  
              FlgMsgVar	= SIF
                  
              For addr= 0 TO 159
                  SmsMesaj[addr] = BOSLUK
              Next addr
                  
              GoSub BuffDel
              Pause Bek300
              GoSub MesajSil
    		  GoSub MeReady	   
    		  
           Else
              
              GoSub BuffDel
              Pause Bek300
              GoSub MesajSil
              GoSub MeReady
              FlgMsgVar = BIR
               	
               
           EndIF
	               
MsgIslOk : IF  MsgIndex >= 5 Then
		       MsgIndex = 1
		   Else
		       MsgIndex =  MsgIndex + 1
		   EndIF     		         
   	  
GoTo SmsKntOK
'*******************************************************************************
'******************************************************************** 02.05.2007

'*******************************************************************************
'*******************************************************************************
'********************            SMS KOMUT İCRA            *********************
'*******************************************************************************
'******************************************************************** 02.05.2007
SmKmtIc       :  
                 IF FlgMsgVar = SIF Then			'SMS Komut Varmı
                    GoTo SmKmtIcOK
                 EndIF    
                 
                 IF SmsMesaj[12] = RR    Then  'SYSTEM RESET "R" 
                    
                     IF  SmsMesaj[13] = MM Then 'Modemi Reset Et 
                         GoSub G24KapaSoft
                         GoTo SysInit
                     EndIF
                    
                 EndIF
                 
                 IF SmsMesaj[12] = DOK    Then  'SMS Bloke 
                    
                     IF  ((SmsMesaj[13] = BIR ) AND (SmsMesaj[14] = BIR )) Then
                          High ROLE
                     Else
                          Low ROLE
                     EndIF
                    
                 EndIF
                 
                 
                 IF SmsMesaj[12] = YED  Then   ' Konsol ID Kayıt
				    KonsolID[0] = SmsMesaj[13]
				    KonsolID[1] = SmsMesaj[14]
					KonsolID[2] = SmsMesaj[15]
					KonsolID[3] = SmsMesaj[16]
					KonsolID[4] = SmsMesaj[17]
				    wr =WW
				   GoSub WRKonsolID
				 EndIF
                 
                 IF SmsMesaj[12] = ALT    Then  'Server IP ve Port Kaydı 
                    
                    ipServer[0] = SmsMesaj[13]
		            ipServer[1] = SmsMesaj[14]
		            ipServer[2] = SmsMesaj[15]
		            ipServer[3] = SmsMesaj[16]
		            ipServer[4] = SmsMesaj[17]
		            ipServer[5] = SmsMesaj[18]
		            ipServer[6] = SmsMesaj[19]
		            ipServer[7] = SmsMesaj[20]
		            ipServer[8] = SmsMesaj[21]
		            ipServer[9] = SmsMesaj[22]
		            ipServer[10] = SmsMesaj[23]
		            ipServer[11] = SmsMesaj[24]
		            prtServer[0] =  SmsMesaj[25]
		            prtServer[1] =  SmsMesaj[26]
		            prtServer[2] =  SmsMesaj[27]
		            prtServer[3] =  SmsMesaj[28]
		            prtServer[4] =  SmsMesaj[29]
                     
                    wr =WW
                    GoSub WRipServer
					GoSub WRprtServer
                    
                    SysCalType = SmsMesaj[30]
                    
                    IF FlgBaglanti = BIR Then 
                       wr=WW
                       GoSub WRCalType
                       GoSub G24KapaSoft
                       GoTo SysInit
                    EndIF
   
                    wr = WW
                    GoSub WRCalType
                    
                 EndIF
                 
                  
                 IF SmsMesaj[12] = BES    Then  'Çalışma Şekli Belirleme 
                 
                    SysCalType = SmsMesaj[13]
                    
                    IF FlgBaglanti = BIR Then 
                       wr=WW
                       GoSub WRCalType
                       GoSub G24KapaSoft
                       GoTo SysInit
                    EndIF
   
                    wr = WW
                    GoSub WRCalType
                     
                 EndIF
                 
                 IF SmsMesaj[12] = DOT  Then 'SMS APN KAYIT
                        
                    ApnName[0]   = SmsMesaj[13]
			        ApnName[1]   = SmsMesaj[14]
			        ApnName[2]   = SmsMesaj[15]
			        ApnName[3]   = SmsMesaj[16]
			        ApnName[4]   = SmsMesaj[17]
			        ApnName[5]   = SmsMesaj[18]
			        ApnName[6]   = SmsMesaj[19]
			        ApnName[7]   = SmsMesaj[20]
			        ApnName[8]   = SmsMesaj[21]
			        ApnName[9]   = SmsMesaj[22]
			        ApnName[10]  = SmsMesaj[23]
			        				        
			        ApnUser[0]  = SmsMesaj[24]
			        ApnUser[1]  = SmsMesaj[25]
			        ApnUser[2]  = SmsMesaj[26]
			        ApnUser[3]  = SmsMesaj[27]
			        ApnUser[4]  = SmsMesaj[28]
			        ApnUser[5]  = SmsMesaj[29]
			        ApnUser[6]  = SmsMesaj[30]
			        ApnUser[7]  = SmsMesaj[31]
			        
			        ApnPass[0]  = SmsMesaj[32]
			        ApnPass[1]  = SmsMesaj[33]
			        ApnPass[2]  = SmsMesaj[34]
			        ApnPass[3]  = SmsMesaj[35]
			        ApnPass[4]  = SmsMesaj[36]
			        ApnPass[5]  = SmsMesaj[37]
			        ApnPass[6]  = SmsMesaj[38]
			        ApnPass[7]  = SmsMesaj[39]
			        
			        wr=WW  
			        GoSub WRApnKayit
			         
                 EndIF
                     
                 
                 IF SmsMesaj[12] = UC    Then  'SMS UserName Şifre Değiştirme
                    
                    usrAdmin[0]= SmsMesaj[13]
				    usrAdmin[1]= SmsMesaj[14]
				    usrAdmin[2]= SmsMesaj[15]
				    usrAdmin[3]= SmsMesaj[16]
				    usrAdmin[4]= SmsMesaj[17]
				    usrAdmin[5]= SmsMesaj[18]
				    usrAdmin[6]= SmsMesaj[19]
				    usrAdmin[7]= SmsMesaj[20]
				          
				    pasAdmin[0]= SmsMesaj[21]
				    pasAdmin[1]= SmsMesaj[22]
				    pasAdmin[2]= SmsMesaj[23]
				    pasAdmin[3]= SmsMesaj[24]
				         
				    wr = WW
				    GoSub WRusrAdmin
				    GoSub WRpasAdmin
				    
                 EndIF
                  
                 
                 
                 IF SmsMesaj[12] = IKI    Then  'SMS Yer 
                    
                    FlgSmsYer = BIR 
                                       
                 EndIF
                 
                 IF SmsMesaj[12] = BIR    Then  'SMS Takip 
                           
                    IF SmsMesaj[13]=SIF Then 
					    FlgSmTakip = SIF
					EndIF   
				    IF SmsMesaj[13]=BIR Then 
					    FlgSmTakip = BIR
					EndIF   
				    IF SmsMesaj[14]=SIF Then 
					   	SmTaWait = 2
					EndIF   
					IF SmsMesaj[14]=BIR Then 
					   	SmTaWait = 15
					EndIF   
					IF SmsMesaj[14]=IKI Then 
					   	SmTaWait = 38
					EndIF   
					IF SmsMesaj[14]=UC Then 
					   	SmTaWait = 75
					EndIF   
					IF SmsMesaj[14]=DOT Then 
					   	SmTaWait = 230
					EndIF   
					IF SmsMesaj[14]=BES Then 
					  	SmTaWait = 450
					EndIF   
				
				 EndIF
                 
                 IF SmsMesaj[12]=SIF    Then  'GPRS Takip Durumu Kayıdı
                    
                    IF SmsMesaj[13]=SIF    Then
                       FlgGpTakip = SIF
				       Write 109,FlgGpTakip
                    EndIF
                    IF SmsMesaj[13]=BIR    Then
                       FlgGpTakip = BIR
				       Write 109,FlgGpTakip
                    EndIF
                    
         	     EndIF
         	     
         	     FlgMsgVar = SIF
GoTo SmKmtIcOK
'******************************************************************** 02.05.2007



                                        

'*******************************************************************************
'****************                 GPRS BLOK                 ********************
'****************                 GPRS BLOK                 ********************
'****************                 GPRS BLOK                 ********************
'******************************************************************** 27.04.2007
GPBLK :  'SerOut2 PIO_TXD,MAX_BAUD,["GPBLK: ",DEC2 FlgCalType,CR,LF]

'*******************************************************************************
'****************                GPRS MIPCALL               ********************
'******************************************************************** 27.04.2007
GpMipCall :        SerOut2 PIO_TXD,MAX_BAUD,["MIPCAL: ",DEC2 FlgCalType,":",FlgGsmReg,":",FlgGprsReg,":",FlgMipCall,":",DEC3 SayMipCall,CR,LF] 
                   
                   IF FlgCalType < 98 Then
                      GoTo GPBLKOK
                   EndIF
                   
                   IF FlgGsmReg = SIF Then
                      SerOut2 PIO_TXD,MAX_BAUD,["GPMC2:",FlgGsmReg,CR,LF] 
                      GoTo GPBLKOK
                   EndIF
                   
                   IF FlgGprsReg = SIF Then
                      GoTo GPBLKOK
                   EndIF
                   
                                 
                   IF FlgMipCall = BIR Then 
                      GoTo GpMipOpen
                   EndIF
                   
                   wr = RR
                   GoSub WRApnKayit
                   
                   
                   GoSub BuffDel
                   SerOut2 G24_TXD,G24_BAUD,["at+mipcall=1,",34]
                   
                   For addr = 0 TO 9
             
                       IF ApnName[addr] = 63 Then   ' ? İşareti İle Sonlandır
			              GoTo  DMipCik1
			           Else
				          SerOut2 G24_TXD,G24_BAUD,[ApnName(addr)]
				       EndIF
				             
				   Next addr
                  
              DMipCik1: SerOut2 G24_TXD,G24_BAUD,[34,VI,34]    
                   
                   For addr = 0 TO 7
             
                       IF ApnUser[addr] = 63 Then   ' ? İşareti İle Sonlandır
			              GoTo  DMipCik2
			           Else
				          SerOut2 G24_TXD,G24_BAUD,[ApnUser(addr)]
				       EndIF
				             
				   Next addr
                   
              DMipCik2: SerOut2 G24_TXD,G24_BAUD,[34,VI,34]        
                   
                   For addr = 0 TO 7
             
                       IF ApnPass[addr] = 63 Then   ' ? İşareti İle Sonlandır
			              GoTo  DMipCik3
			           Else
				          SerOut2 G24_TXD,G24_BAUD,[ApnPass(addr)]
				       EndIF
				             
				   Next addr
                   
              DMipCik3: SerOut2 G24_TXD,G24_BAUD,[34,CR,LF]
                   
                   
                   
                   GoSub MeReady
                   
                   For G24ADDR = 0 TO 349
				   	    IF G24VERI[G24ADDR] = "O"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "K"  Then 
				   	          SerOut2 PIO_TXD,MAX_BAUD,["MIPCALL OK1",CR,LF]
				   	       EndIF
				   	    EndIF
	        	   Next G24ADDR   
                   SerOut2 PIO_TXD,MAX_BAUD,["MIPCALL ER1",CR,LF]
                        
                   
                   addr = 0
              MipCalL1:   
                  
                   GoSub BuffDel
                   SerOut2 G24_TXD,G24_BAUD,["at+mipcall?",CR,LF]
				   GoSub MeReady
				   
				   
				   For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR] = "+"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "M"  Then 
				   	          IF G24VERI[(G24ADDR + 2)] = "I"  Then 
				   	             IF G24VERI[(G24ADDR + 3)] = "P"  Then 
				   	                IF G24VERI[(G24ADDR + 4)] = "C"  Then 
				   	                   IF G24VERI[(G24ADDR + 5)] = "A"  Then
				   	                      IF G24VERI[(G24ADDR + 6)] = "L"  Then
				   	                         IF G24VERI[(G24ADDR + 7)] = "L"  Then
				   	                            IF G24VERI[(G24ADDR + 8)] = ":"  Then
				   	                               IF G24VERI[(G24ADDR + 9)] = " "  Then
				   	                                  IF G24VERI[(G24ADDR + 10)] = "1"  Then
				   	                                     IF G24VERI[(G24ADDR + 11)] = ","  Then
				   	                                        SerOut2 PIO_TXD,MAX_BAUD,["MIPCALL OK2",CR,LF]
				   	                                        FlgMipCall = BIR       ' MODEM NETTE 
				   	                                        SayMipCall = 0
				   	                                        GoTo DMipCik4
				   	                                     EndIF
				   	                                  EndIF
				   	                               EndIF
				   	                            EndIF
				   	                         EndIF
				   	                      EndIF
				   	                   EndIF
				   	                EndIF
				   	             EndIF
				   	          EndIF
				   	       EndIF
				   	    EndIF
	
				   Next G24ADDR   
           		   
				               
				   MipCalEr   :   SerOut2 PIO_TXD,MAX_BAUD,["MIPCALL ER2 ",DEC3 addr,CR,LF]
				                  
				                  For G24ADDR = 0 TO 349
				                  SerOut2 PIO_TXD,MAX_BAUD,["MC=",G24VERI(G24ADDR),cr,lf]
				                  
				                  Next G24ADDR
				                  
				                  Pause Bek1000
				                  
				                  IF addr >= 40 Then
				                     addr = 0
				                     FlgMipCall = SIF       ' MODEM NETTE DEĞİL
                                     SayMipCall = SayMipCall + 1
                                     GoTo DMipCik4 
				                  Else
				                     addr = addr + 1
				                     GoTo MipCalL1
				                  EndIF
				                  
				                  
				                  
				                
			      
			      
			      DMipCik4: 
                                  
'******************************************************************** 27.04.2007

'*******************************************************************************
'****************                GPRS MIPOPEN               ********************
'******************************************************************** 27.04.2007
GpMipOpen :        SerOut2 PIO_TXD,MAX_BAUD,["MIPOPEN: ",FlgMipCall,":",FlgMipOpen,":",DEC3 SayMipOpen,CR,LF] 
                   IF FlgMipCall = SIF Then 
                      GoTo GPBLKOK
                   EndIF
                   
                   IF FlgMipOpen = BIR Then 
                      GoTo GpPing
                   EndIF
                   
                   wr=RR
                   GoSub WRipServer
                   GoSub WRprtServer
                   GoSub WRKonsolID 
				                    
                   GoSub BuffDel
                   
                   'SerOut2 G24_TXD,G24_BAUD,["at+mipopen=1,1234,",34,"088.248.010.126",34,",","48100,0",CR,LF]
                   SerOut2 G24_TXD,G24_BAUD,["at+mipopen=1,1234,",34,ipServer(0),ipServer(1),ipServer(2),".",ipServer(3),ipServer(4),ipServer(5),".",ipServer(6),ipServer(7),ipServer(8),".",ipServer(9),ipServer(10),ipServer(11),34,VI,STR prtServer\5,VI,"0",CR,LF]
                   
                    addr = 0
              MipOpL1:   
                  
                   GoSub BuffDel
                   SerOut2 G24_TXD,G24_BAUD,["at+mipopen?",CR,LF]
				   GoSub MeReady
				   
				   
				   For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR] = "+"  Then
				   	       IF G24VERI[(G24ADDR + 1)] = "M"  Then 
				   	          IF G24VERI[(G24ADDR + 2)] = "I"  Then 
				   	             IF G24VERI[(G24ADDR + 3)] = "P"  Then 
				   	                IF G24VERI[(G24ADDR + 4)] = "O"  Then 
				   	                   IF G24VERI[(G24ADDR + 5)] = "P"  Then
				   	                      IF G24VERI[(G24ADDR + 6)] = "E"  Then
				   	                         IF G24VERI[(G24ADDR + 7)] = "N"  Then
				   	                            IF G24VERI[(G24ADDR + 8)] = ":"  Then
				   	                               IF G24VERI[(G24ADDR + 9)] = " "  Then
				   	                                  IF G24VERI[(G24ADDR + 10)] = "2"  Then
				   	                                        SerOut2 PIO_TXD,MAX_BAUD,["MIPOPEN OK",CR,LF]
				   	                                        FlgMipOpen  = BIR     ' MODEM SOKET BAĞLANTI YAPMIŞ
				                                            FlgBaglanti = BIR
				                                            SayMipOpen = 0 
				                                            Low GPRS_LED
				   	                                        GoTo DMipCik5
				   	                                  EndIF
				   	                               EndIF
				   	                            EndIF
				   	                         EndIF
				   	                      EndIF
				   	                   EndIF
				   	                EndIF
				   	             EndIF
				   	          EndIF
				   	       EndIF
				   	    EndIF
	
				   Next G24ADDR   
           		   
				               
				   MipOpEr   :   SerOut2 PIO_TXD,MAX_BAUD,["MIPOPEN ER ",DEC3 addr,CR,LF]
				                  
				                  Pause Bek1000
				                  
				                  IF addr >= 30 Then
				                     addr = 0
				                     FlgMipOpen  = SIF     ' MODEM SOKET BAĞLANTI YAPAMAMIŞ
				                     FlgBaglanti = SIF
                                     SayMipOpen = SayMipOpen + 1
                                     High GPRS_LED
                                     GoTo DMipCik6
                                      
				                  Else
				                     addr = addr + 1
				                     GoTo MipOpL1
				                  EndIF
		          
		          DMipCik5: 
                                     'SerOut2 G24_TXD,G24_BAUD,["at+mipsets=1,6",CR,LF]
				                     'Pause Bek100
				                     GoSub BuffDel
				                     SerOut2 G24_TXD,G24_BAUD,["at+mipsend=1",VI,34,HEX2 STX,HEX2 KonsolID(0),HEX2 KonsolID(1),HEX2 KonsolID(2),HEX2 KonsolID(3),HEX2 KonsolID(4),"49",HEX2 ETX,34,CR,LF]
				                     Pause Bek100
				                     SerOut2 G24_TXD,G24_BAUD,["at+mippush=1",CR,LF]   
				                     GoSub MeReady
				                     
				   DMipCik6:                  
				                      GoTo GpPing   
				                       
				                     
				                
				                 
                                  
                                   
'******************************************************************** 27.04.2007

'*******************************************************************************
'****************                 GPRS PING                 ********************
'******************************************************************** 27.04.2007
GpPing    :       SerOut2 PIO_TXD,MAX_BAUD,["MIP PING: ",FlgBaglanti,":",FlgPingSend,":",FlgPingRec,":",DEC3 SayPingErr,":",DEC3 SayPing,CR,LF]

                  IF FlgBaglanti = SIF Then 
                     GoTo GPBLKOK
                  EndIF
                                    
                  
                  IF FlgPingSend = BIR Then
                     
                     SayPingErr = SayPingErr + 1
                     
                     IF FlgPingRec  = BIR Then
                        SayPing    = 0
                        SayPingErr = 0
                        FlgPingSend = SIF
                        FlgPingRec  = SIF
                        GoTo GPBLKOK
                     EndIF
                     
                     IF SayPingErr > 15 Then
                        SayPingErr = 0
                        GoSub G24KapaSoft
                        GoTo SysInit
                     EndIF
                       
                        
                  EndIF
                      
                  
                  
                         
                  IF SayPing < 100 Then
                     SayPing = SayPing + 1
                     GoTo GPBLKOK
                  EndIF
                  
                  'SerOut2 PIO_TXD,MAX_BAUD,["PING SEND",13,10]
                  
                  Deger = BOSLUK
                  wr=RR
                  GoSub WRKonsolID 
                  
                  'SerOut2 G24_TXD,G24_BAUD,["at+mipsend=1",VI,34,STR KonsolID\5,"50",34,CR,LF]
				  
				  GoSub BuffDel
				  'SerOut2 G24_TXD,G24_BAUD,["at+mipsets=1,6",CR,LF]
				  'Pause Bek100
				  SerOut2 G24_TXD,G24_BAUD,["at+mipsend=1",VI,34,HEX2 STX,HEX2 KonsolID(0),HEX2 KonsolID(1),HEX2 KonsolID(2),HEX2 KonsolID(3),HEX2 KonsolID(4),"50",HEX2 ETX,34,CR,LF]
				  Pause Bek100
				  SerOut2 G24_TXD,G24_BAUD,["at+mippush=1",CR,LF]   
                  
                  GoSub MeReady
                 
                  
                  
                  FlgPingSend = BIR
                  FlgPingRec  = SIF
                  SayPingErr  = 0			  
                  SayPing	  = 0
             
                  
                  
GoTo GPBLKOK

'******************************************************************************
'******************************************************************************
'******************************************************************************
'******************************************************************* 27.04.2007



'*****************************************************************************OK
'*******************************************************************************
'********************           GPRS KOMUT İCRA            *********************
'*******************************************************************************
'******************************************************************** 06.10.2007
GpKoIc       :  SerOut2 PIO_TXD,MAX_BAUD,["GPKOIC: ",DEC3 MipData2[2],":",DEC3 MipData2[3],CR,LF] 

				IF FlgCaltype < 98 Then
                     FlgGprsCom = SIF
                     GoTo GpKoIcOk 
                 EndIF
                 
                 IF FlgGprsCom = SIF Then			'GPRS Komut Varmı
                    GoTo GpKoIcOK
                 EndIF
                 
                 'IF MipData2[0] <> STX Then	    'Komutun Başlığı STX Varmı
                 '   GoTo GpKoIcOK
                 'EndIF
                  
                 IF MipData2[1] = RR Then
                    GWR =RR
                 EndIF
                  
                 IF MipData2[1] = WW Then
                    GWR =WW
                 EndIF
                 
                 GpKomut = MipData2[2]
                 
                 IF GWR =WW Then
                                      
                     IF GpKomut = $30 Then          'GPRS Konsol Şifre Ayarları
                       
                        usrAdmin[0]= MipData2[3]
				        usrAdmin[1]= MipData2[4]
				        usrAdmin[2]= MipData2[5]
				        usrAdmin[3]= MipData2[6]
				        usrAdmin[4]= MipData2[7]
				        usrAdmin[5]= MipData2[8]
				        usrAdmin[6]= MipData2[9]
				        usrAdmin[7]= MipData2[10]
				        pasAdmin[0]= MipData2[11]
				        pasAdmin[1]= MipData2[12]
				        pasAdmin[2]= MipData2[13]
				        pasAdmin[3]= MipData2[14]
				          
				        wr = WW
				        GoSub WRusrAdmin
				        GoSub WRpasAdmin
				        
				     EndIF

				     IF GpKomut = $31 Then      ' Konsol ID Kayıdı
				        
				        KonsolID[0] = MipData2[3]
						KonsolID[1] = MipData2[4]
						KonsolID[2] = MipData2[5]
						KonsolID[3] = MipData2[6]
						KonsolID[4] = MipData2[7]
					    
					    wr =WW
				        GoSub WRKonsolID
				        
				     EndIF
				     
				     
			         IF GpKomut = $32 Then        'GPRS APN Kayıtları
				        
				        ApnName[0]   = MipData2[3]
				        ApnName[1]   = MipData2[4]
				        ApnName[2]   = MipData2[5]
				        ApnName[3]   = MipData2[6]
				        ApnName[4]   = MipData2[7]
				        ApnName[5]   = MipData2[8]
				        ApnName[6]   = MipData2[9]
				        ApnName[7]   = MipData2[10]
				        ApnName[8]   = MipData2[11]
				        ApnName[9]   = MipData2[12]
				        ApnName[10]  = MipData2[13]
				        				        
				        ApnUser[0]  = MipData2[14]
				        ApnUser[1]  = MipData2[15]
				        ApnUser[2]  = MipData2[16]
				        ApnUser[3]  = MipData2[17]
				        ApnUser[4]  = MipData2[18]
				        ApnUser[5]  = MipData2[19]
				        ApnUser[6]  = MipData2[20]
				        ApnUser[7]  = MipData2[21]
				        
				        ApnPass[0]  = MipData2[22]
				        ApnPass[1]  = MipData2[23]
				        ApnPass[2]  = MipData2[24]
				        ApnPass[3]  = MipData2[25]
				        ApnPass[4]  = MipData2[26]
				        ApnPass[5]  = MipData2[27]
				        ApnPass[6]  = MipData2[28]
				        ApnPass[7]  = MipData2[29]
				        
				        wr=WW  
				        GoSub WRApnKayit
				          
				     EndIF
				          

				     IF GpKomut = $33 Then            'GPRS Server IP Port Ayarları
                 
                        ipServer[0]  = MipData2[3]
			            ipServer[1]  = MipData2[4]
			            ipServer[2]  = MipData2[5]
			            ipServer[3]  = MipData2[6]
			            ipServer[4]  = MipData2[7]
			            ipServer[5]  = MipData2[8]
			            ipServer[6]  = MipData2[9]
			            ipServer[7]  = MipData2[10]
			            ipServer[8]  = MipData2[11]
			            ipServer[9]  = MipData2[12]
			            ipServer[10] = MipData2[13]
			            ipServer[11] = MipData2[14]
			    
			            prtServer[0] = MipData2[15]
			            prtServer[1] = MipData2[16]
			            prtServer[2] = MipData2[17]
			            prtServer[3] = MipData2[18]
			            prtServer[4] = MipData2[19]
			           
			            wr = WW
			            GoSub WRipServer
			            GoSub WRprtServer
			            
	                 EndIF


				     IF GpKomut = $34 Then               'SMS Merkez Telefon Numarası
                        
                         telMerkez[0]  = MipData2[3]
						 telMerkez[1]  = MipData2[4]
						 telMerkez[2]  = MipData2[5]
						 telMerkez[3]  = MipData2[6]
						 telMerkez[4]  = MipData2[7]
						 telMerkez[5]  = MipData2[8]
						 telMerkez[6]  = MipData2[9]
						 telMerkez[7]  = MipData2[10]
						 telMerkez[8]  = MipData2[11]
						 telMerkez[9]  = MipData2[12]
						 telMerkez[10] = MipData2[13]
						 telMerkez[11] = MipData2[14]
						 telMerkez[12] = MipData2[15]
						 telMerkez[13] = MipData2[16]
						 telMerkez[14] = MipData2[17]
						 
				         wr=WW  
				         GoSub WRtelMerkez
				         
				     EndIF
					     
				     IF GpKomut = $35 Then               'SMS Acil1 Telefon Numarası
				      
				        telAcil1[0]   =  MipData2[3]
						telAcil1[1]   =  MipData2[4]
						telAcil1[2]   =  MipData2[5]
						telAcil1[3]   =  MipData2[6]
						telAcil1[4]   =  MipData2[7]
						telAcil1[5]   =  MipData2[8]
						telAcil1[6]   =  MipData2[9]
						telAcil1[7]   =  MipData2[10]
						telAcil1[8]   =  MipData2[11]
						telAcil1[9]   =  MipData2[12]
						telAcil1[10]  =  MipData2[13]
						telAcil1[11]  =  MipData2[14]
						telAcil1[12]  =  MipData2[15]
						telAcil1[13]  =  MipData2[16]
						telAcil1[14]  =  MipData2[17]
						cagAcil1      =  MipData2[18]
						
						wr =WW
						GoSub WRtelAcil1
						
				     EndIF
				         
				     
				      IF GpKomut = $36 Then               'SMS Acil2 Telefon Numarası
				        
				         telAcil2[0]   =  MipData2[3]
						 telAcil2[1]   =  MipData2[4]
						 telAcil2[2]   =  MipData2[5]
						 telAcil2[3]   =  MipData2[6]
						 telAcil2[4]   =  MipData2[7]
						 telAcil2[5]   =  MipData2[8]
						 telAcil2[6]   =  MipData2[9]
						 telAcil2[7]   =  MipData2[10]
						 telAcil2[8]   =  MipData2[11]
						 telAcil2[9]   =  MipData2[12]
						 telAcil2[10]  =  MipData2[13]
						 telAcil2[11]  =  MipData2[14]
						 telAcil2[12]  =  MipData2[15]
						 telAcil2[13]  =  MipData2[16]
						 telAcil2[14]  =  MipData2[17]
						 
						 cagAcil2      =  MipData2[18]
						
						 wr =WW
						 GoSub WRtelAcil2
						 
				     EndIF
				      
				     IF GpKomut = $37 Then    'SMS ACİL ALARM Mesajı Ve Merkeze Bilgi
				  
				         msgAlarm [0]   = MipData2[3]
						 msgAlarm [1]   = MipData2[4]
						 msgAlarm [2]   = MipData2[5]
						 msgAlarm [3]   = MipData2[6]
						 msgAlarm [4]   = MipData2[7]
						 msgAlarm [5]   = MipData2[8]
						 msgAlarm [6]   = MipData2[9]
						 msgAlarm [7]   = MipData2[10]
						 msgAlarm [8]   = MipData2[11]
						 msgAlarm [9]   = MipData2[12]
						 msgAlarm [10]  = MipData2[13]
						 msgAlarm [11]  = MipData2[14]
						 msgAlarm [12]  = MipData2[15]
						 msgAlarm [13]  = MipData2[16]
						 msgAlarm [14]  = MipData2[17]
						 msgAlarm [15]  = MipData2[18]
						 msgAlarm [16]  = MipData2[19]
						 msgAlarm [17]  = MipData2[20]
						 msgAlarm [18]  = MipData2[21]
						 msgAlarm [19]  = MipData2[22]
						 msgAlarm [20]  = MipData2[23]
						 msgAlarm [21]  = MipData2[24]
						 msgAlarm [22]  = MipData2[25]
						 msgAlarm [23]  = MipData2[26]
						 msgAlarm [24]  = MipData2[27]
					
				         wr =WW
				         GoSub WRmsgAlarm
				         
				     EndIF




				          
				     IF GpKomut = $38 Then       'GPRS Konsol Çalışma Şekli Ayarı
                          
                        FlgGprsCom = SIF
                        GpKomut = $FF
                        SysCalType = MipData2[3]
                      
                        wr=WW
                        GoSub WRCalType          
                        
                        IF SysCalType=SIF Then
                        
	                        IF FlgBaglanti = BIR Then 
	                         
	                           wr=WW        
	                           GoSub WRCalType  
	                         
	                           GoTo SystemReset
			             
			                EndIF

                        EndIF
                        
                         
				     EndIF
				     
				     
					 IF GpKomut = $39 Then       'GPRS Konsol RESET Ayarı
                          
                        FlgGprsCom = SIF
                        GpKomut = $FF
                        kntSysReset = MipData2[3]
                        wr=WW
                        GoSub WRSysReset        
                        
				     EndIF			

					 IF GpKomut = $40 Then       'GPRS Konsol KONTAK Ayarı
                          
                        FlgGprsCom = SIF
                        GpKomut = $FF
                        kntKontak = MipData2[3]
                        wr=WW
                        GoSub WRSysKontak      
				     EndIF			

				          
				     IF GpKomut = $41 Then               'GPRS Kontrol Ayarları

                        FlgGprsCom = SIF
                        GpKomut = $FF
		     
                        kntAcil   = MipData2[3]
                        kntSuphe  = MipData2[4]
				        kntAlarm  = MipData2[5]
				        kntAku    = MipData2[6]
				        kntBloke  = MipData2[7]
				        kntKamera = MipData2[8]
				        kntTakip  = MipData2[9]
				        kntYer    = MipData2[10]
				        kntMrkzBilgi = MipData2[11]
        
				        wr=WW  
				        GoSub WRkntKontrol
				        			           
				     EndIF
				     
				     
                      
				     IF GpKomut = $50 Then          'GPRS Takip  Durumu
				            
				        IF MipData2[3]=SIF Then 
					       FlgGpTakip = SIF
					       Write 109,FlgGpTakip
					    EndIF   
					        
				        IF MipData2[3]=BIR Then 
				           FlgGpTakip = BIR
				           Write 109,FlgGpTakip
					    EndIF   
					        
					    Write 107,MipData2[4]   ' GPRS Takip Aralığı
				          
				     EndIF
				     
				     
				     IF GpKomut = $51 Then           'GPRS Bloke
				        
				        FlgBloke= MipData2[3]
				           
				        IF FlgBloke = BIR Then
				           High ROLE
				        EndIF
				              
				        IF FlgBloke = SIF Then
				           Low ROLE
				        EndIF
				     
				     EndIF


                     IF GpKomut = $52 Then   ' Yer Bilgisi İste
                        FlgGprsCom = SIF
                        GpKomut = $FF
                        FlgGpYer = BIR 
                     EndIF


				     IF GpKomut = $53 Then   'ACİL DURUM VER
				         SosType = BIR
				         FlgGprsCom = SIF
                         GpKomut = $FF
				         GoTo AlarmVer       
                     EndIF
				     
				     IF GpKomut = $54 Then   'ACİL DURUM İptal
				        SosType = SIF
				        FlgSosDurum = SIF
				     EndIF
				     
				     IF GpKomut = $55 Then   'ALARM DURUM VER
				        SosType = IKI
				        FlgGprsCom = SIF
                        GpKomut = $FF
				        GoTo AlarmVer       
                     EndIF
				     
				     IF GpKomut = $56 Then   'ALARM İptal
				        FlgSosDurum = SIF
				        SosType = SIF
				     EndIF




  				     IF GpKomut = $99 Then          'GPRS PING Cevabı
                 
                        IF ((MipData2[3] = ALT ) AND (MipData2[4] = ALT )) Then
                           FlgPingSend = SIF
                           FlgPingRec  =  BIR
                           FlgPingErr  = SIF
                           SayPingErr  = 0
                           SayPing     = 0
                        EndIF
                        
                     EndIF

						         
					         
					          
                 EndIF
	 
                 FlgGprsCom = SIF
                 GpKomut = $FF
                 
GoTo GpKoIcOK
'******************************************************************** 06.10.2007



'*****************************************************************************OK
'****************          SOS  DURUM VARSA UYGULA          ********************
'******************************************************************** 02.05.2007
SosKontrol    : GoSub SosOku
            
                IF FlgSosDurum = SIF Then
                   GoTo SosKontrolOK
                EndIF

     AlarmVer : IF FlgRING =  BIR Then   ' Komut İle Alarm Verdirmek İçin
                   SerOut2 PIO_TXD,MAX_BAUD,[SS,II,MM,BOSLUK,EE,RR,RR,13,10]
                   GoTo SosKontrolOK          
                EndIF
                
                
                IF mdmSim = SIF Then   ' SIM Kart Takılı Değilse Vazgeç
                   GoSub CagriKapa              
                EndIF
                    
                For addr=0 TO 159
                    SmsMesaj[addr] = BOSLUK
                Next addr
                
                For addr=0 TO 159
                    GprsMesaj[addr] = BOSLUK
                Next addr
                
                
                IF FlgCaltype > 97 Then ' Çalışma Şekli SMS/GPRS İse
                
                   IF FlgBaglanti = BIR Then  ' GPRS Bağlantısı Varsa Server a da ALARM/ACİL Durumunu Gönder
                
                      TxMesajType =  IKI      ' Gönderme Modu Büyük Paket
                      'Sender     =  BIR      ' Burda Önemi Yok
                      For addr= 0  TO 89
                          Read addr,Deger
			              RegGeneral[addr]=Deger
			          Next addr
   
                      
                      GoSub GpPakHaz          ' Paketi Hazırla Gel
                      SerOut2 PIO_TXD,MAX_BAUD,["GA SNDG",13,10]	        
				  
				     GoSub GpMsgTX
			   
			       EndIF
               
                EndIF
                      
                     
                GoSub MdmEkrOF
     
AclAlrDurumu  : wr = RR
                GoSub WRkntKontrol
               
	            GoSub WRKonsolID
			    GoSub WRtelMerkez
			    GoSub WRtelAcil1
			    GoSub WRtelAcil2
			    GoSub WRmsgAlarm
			                    
                IF kntMrkzBilgi = BIR Then
		           
		           For addr = 0 TO 14
		               telEtkin[addr] = telMerkez[addr]
		           Next addr
		           
		           
		           IF SosType = BIR Then
		              SmsPacType[0]=BES : SmsPacType[1]=IKI    ' ACİL
		           EndIF
		           
		           IF SosType = IKI Then
		              SmsPacType[0]=BES : SmsPacType[1]=UC     ' ALARM
		           EndIF
		           
		           IF SosType = UC Then
		              SmsPacType[0]=BES : SmsPacType[1]=DOT    ' ŞÜPHE
		           EndIF
		          
		           			 	           
				   SmsMesaj[0] = KonsolID[0]
				   SmsMesaj[1] = KonsolID[1]
				   SmsMesaj[2] = KonsolID[2]
				   SmsMesaj[3] = KonsolID[3]
				   SmsMesaj[4] = KonsolID[4]
				   SmsMesaj[5] = SmsPacType[0]
				   SmsMesaj[6] = SmsPacType[1]


                   For addr= 0  TO 89
	                   Read addr,Deger
	                   SmsMesaj[(addr+7)] = deger
	               Next addr
	                     
	               For addr= 97  TO 159
	                   SmsMesaj[addr] = SIF
	               Next addr
		           
		           
		           SerOut2 PIO_TXD,MAX_BAUD,["SMS MESAJ:",STR SmsMesaj\160,13,10] 
		            
		           GoSub SmMsgTx
		                     
		        EndIF
                 
                    
                IF cagAcil1 = BIR Then   ' Mesaj Gönder
                   
                   For addr = 0 TO 14
		               telEtkin[addr] = telAcil1[addr]
		           Next addr
                   
                   GoSub SmAlarmPakHaz
		                     
		           GoSub SmMsgTx
		                     
                EndIF
              
                IF cagAcil1 = SIF Then     ' Çağrı Yap
                           
                   For addr = 0 TO 14
		               telEtkin[addr] = telAcil1[addr]
		           Next addr
		             
                   GoSub DialUp
               
                EndIF
    
                IF cagAcil2 = BIR Then   ' Mesaj Gönder
                
                   For addr = 0 TO 14
		               telEtkin[addr] = telAcil2[addr]
		           Next addr
		             
		           GoSub SmAlarmPakHaz
		           	                     
		           GoSub SmMsgTx
		           
		        EndIF
                        
                IF cagAcil2 = SIF Then  ' Çağrı Yap
	                        
	               For addr = 0 TO 14
			           telEtkin[addr] = telAcil2[addr]
			       Next addr
			     
			       GoSub DialUp
			      
                EndIF
                  
                FlgSosDurum = SIF 
                  
GoTo SosKontrolOK         
'******************************************************************** 07.01.2007

armys2000 · 22 Mayıs 2008, 00:12:37

'*****************************************************************************OK
'****************               SMS TAKIP DURUMU            ********************
'******************************************************************** 02.05.2007
SmTakipDur   : IF FlgCalType > 97 Then ' GPRS Bağlantısı ve Takibi Varsa Çık
                  GoTo SmTakipDurOK
               EndIF
                  
               IF FlgSmTakip = BIR Then
                     
                  IF SaySmTakip >= SmTaWait  Then
                         
		              SaySmTakip = 0
		              wr = RR
		              GoSub WRtelMerkez
		                       
		              For addr = 0 TO 14
		                  telEtkin[addr] = telMerkez[addr]
		              Next addr
		          
		              SmsPacType[0]=ALT : SmsPacType[1]=SIF    ' TAKIP
		           	 	          
				      SmsMesaj[0] = KonsolID[0]
				      SmsMesaj[1] = KonsolID[1]
					  SmsMesaj[2] = KonsolID[2]
					  SmsMesaj[3] = KonsolID[3]
					  SmsMesaj[4] = KonsolID[4]
					  SmsMesaj[5] = SmsPacType[0]
					  SmsMesaj[6] = SmsPacType[1]
		 
		              For addr= 0  TO 89
			              Read addr,Deger
			              SmsMesaj[(addr+7)]=Deger
			          Next addr
			                   
			          For addr= 97  TO 159
			              SmsMesaj[addr] = BOSLUK
			          Next addr
				          
				      GoSub SmMsgTx
				           
		          EndIF
		                       
		          SaySmTakip  = SaySmTakip + 1
	                  
               EndIF
                   
GoTo SmTakipDurOK       
'******************************************************************** 02.05.2007                   
                    
'*****************************************************************************OK
'****************           SMS YER SORMA DURUMU            ********************
'******************************************************************** 02.05.2007
SmYerSorma   :  SerOut2 PIO_TXD,MAX_BAUD,["SMS YER:",FlgSmsYer,13,10] 
                   IF FlgSmsYer = BIR  Then
                         
                   FlgSmsYer = SIF
                         
                   wr = RR
                   GoSub WRtelMerkez
                         
	               For addr = 0 TO 14
	                   telEtkin[addr] = telMerkez[addr]
	               Next addr
	          
	               SmsPacType[0]=ALT : SmsPacType[1]=BIR    ' YER
	           	 	           
			       SmsMesaj[0] = KonsolID[0]
			       SmsMesaj[1] = KonsolID[1]
				   SmsMesaj[2] = KonsolID[2]
				   SmsMesaj[3] = KonsolID[3]
				   SmsMesaj[4] = KonsolID[4]
				   SmsMesaj[5] = SmsPacType[0]
				   SmsMesaj[6] = SmsPacType[1]
	   
	               For addr= 0  TO 89
		               Read addr,Deger
		               SmsMesaj[(addr+7)]=Deger
		           Next addr
		             
		           For addr= 97  TO 159
		               SmsMesaj[addr] = BOSLUK
		           Next addr
			          
				   GoSub SmMsgTx
				  
				EndIF
				  
GoTo SmYerSormaOK
'******************************************************************** 02.05.2007                  

'*****************************************************************************OK
'****************                KONTAK KONTROL             ********************
'******************************************************************** 02.05.2007
KontakKont    :   IF FlgCalType < 98 Then       ' Çalışma Şekli  SMS se Çık
                     GoTo KontakKontOK
                  EndIF
                 
				  wr=RR
			      GoSub WRkntKontrol
                                   
                  IF kntKontak = SIF Then		' Kontak Kontrolü Yapılmayacaksa
                     FlgKontak = SIF
                     GoTo KontakKontOK
                  EndIF
                 
                                    
                  
                  ' 24.10.2007 
                  IF KONTAK = 0 Then           ' Kontak Anahtarı Açık İse
			         FlgKontak = SIF
			         'FlgKntkGitA = SIF
			         FlgKntkGitK = SIF
			      EndIF
			      
			      ' 24.10.2007 
			      IF KONTAK = 1 Then           ' Kontak Anahtarı Kapalı İse
			         FlgKontak = BIR
			         FlgKntkGitA = SIF
			         'FlgKntkGitK = SIF
			      EndIF
			      
                  
                     
	              'IF KONTAK = 0 Then
			      '   FlgKontak = BIR
			      '   FlgKntkGit = SIF
			      'Else
			      '   FlgKontak = SIF
				  'EndIF

                 SerOut2 PIO_TXD,MAX_BAUD,["kontak:",kntKontak,":",DEC2 FlgKontak,CR,LF]
                 
                 
                  Write 15 ,FlgKontak ' Kontak Bilgisinide Yaz
                 
                  IF FlgBaglanti = SIF Then ' GPRS  Yoksa Çık
                     GoTo KontakKontOK
                  EndIF
                  
                  
                  ' 24.10.2007 
                  IF FlgKontak = SIF Then             ' Kontak Açıldı Bilgisi
                     
                     
                     IF FlgKntkGitA = SIF Then                  
                     
                        SerOut2 PIO_TXD,MAX_BAUD,["kontak ACIK :",CR,LF]
                        
                        FlgKntkGitA = BIR
                        
                        TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                        Sender      =  UC  ' Gönderici Kontak
                        
                        For addr= 0  TO 89
			                Read addr,Deger
			                RegGeneral[addr]=Deger
			            Next addr
               
                        GoSub GpPakHaz
				         
				        GoSub GpMsgTX

                     EndIF
                  
                  EndIF
                  
                  
                  
                  IF FlgKontak = BIR Then              ' Kontak Kapatıldı Bilgisi
                     
                     IF FlgKntkGitK = SIF Then                  
                        
                        SerOut2 PIO_TXD,MAX_BAUD,["kontak KAPALI :",CR,LF]
                        
                        FlgKntkGitK = BIR
                        
                        TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                        Sender      =  UC  ' Gönderici Kontak
                        
                        For addr= 0  TO 89
			                Read addr,Deger
			                RegGeneral[addr]=Deger
			            Next addr
               
                        GoSub GpPakHaz
				         
				        GoSub GpMsgTX

                     EndIF
                  
                  EndIF
                  
                  
                  
                  'IF FlgKontak = SIF Then
                     
                  '   IF FlgKntkGit = SIF Then                  
                        
                  '      FlgKntkGit = BIR
                        
                  '      TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                  '      Sender      =  UC  ' Gönderici Kontak
                        
                  '      For addr= 0  TO 89
			      '          Read addr,Deger
			      '          RegGeneral[addr]=Deger
			      '      Next addr
               
                  '      GoSub GpPakHaz
				         
				  '      GoSub GpMsgTX

                  '   EndIF
                  
                  'EndIF
                     
GoTo KontakKontOK
'******************************************************************** 02.05.2007

'*******************************************************************************
'****************              GPRS TAKIP DURUMU            ********************
'******************************************************************** 07.01.2007
GpTakipDur  :   wr=RR
			    GoSub WRkntKontrol

                IF kntTakip = SIF Then      ' Takip Kontrolü Yapılmayacaksa
                   GoTo GpTakipDurOK
                EndIF

               
                IF FlgCalType < 98 Then ' Çalışma Şekli  SMS se Çık
                   GoTo GpTakipDurOK
                EndIF
                  
                IF FlgBaglanti = SIF Then ' GPRS  Yoksa Çık
                   GoTo GpTakipDurOK
                EndIF
                
                Read 109,FlgGpTakip       ' Takip Varmı Yokmu  
                Read 107,addr             ' Takip Süresi Ne Olacak
	            
                IF FlgGpTakip = BIR Then
                   
                    ' Main Loop Süresi Yaklaşık 5 Saniye  Değerler Yaklaşık  
		            IF addr=SIF Then TmpGpWait = 1     ' 4  Saniyede 1    *4 = 5
				    IF addr=BIR Then TmpGpWait = 3     ' 10 Saniyede 2    *4 = 10
				    IF addr=IKI Then TmpGpWait = 4     ' 15 Saniyede 3    *4 = 15
				    IF addr=UC  Then TmpGpWait = 6     ' 20 Saniyede 4    *4 = 20
				    IF addr=DOT Then TmpGpWait = 8     ' 30 Saniyede 6    *4 = 30
				    IF addr=BES Then TmpGpWait = 11    ' 40 Saniyede 8    *4 = 40
				    IF addr=ALT Then TmpGpWait = 13    ' 50 Saniyede 9    *4 = 50
				    IF addr=YED Then TmpGpWait = 16    ' 1  Dakikada 10   *4 = 1
				    IF addr=SEK Then TmpGpWait = 33    ' 2  Dakikada 20   *4 = 2
				    IF addr=DOK Then TmpGpWait = 76    ' 5  Dakikada 50   *4 = 5
				    IF addr=AA  Then TmpGpWait = 180   ' 10 Dakikada 100  *4 = 10
				    IF addr=BB  Then TmpGpWait = 250   ' 15 Dakikada 150  *4 = 15
				    IF addr=CC  Then TmpGpWait = 340   ' 20 Dakikada 300  *4 = 20
				    IF addr=DD  Then TmpGpWait = 480   ' 30 Dakikada 450  *4 = 30
				    IF addr=EE  Then TmpGpWait = 700   ' 45 Dakikada 450  *4 = 45
				    IF addr=FF  Then TmpGpWait = 780   ' 50 Dakikada 450  *4 = 50
				    IF addr=GG  Then TmpGpWait = 930   ' 1  Saatte   600  *4 = 1
				    IF addr=HH  Then TmpGpWait = 2790  ' 3  Saatte   1800 *4 = 3
				    IF addr=JJ  Then TmpGpWait = 4650  ' 5  Saatte   2400 *4 = 5
			     
	                
	                GpTaWait = TmpGpWait
	                
	                IF FlgKontak = BIR Then   
	                   
	                   'Read 93,addr
	                   
	                   'IF addr=BIR Then GpTaWait = 930     ' 1  Saat    *4 = 10
				       'IF addr=IKI Then GpTaWait = 4650    ' 5  Saat    *4 = 15
				       'IF addr=UC  Then GpTaWait = 11160   ' 12 Saat    *4 = 20
				       
				       ' Kontak Kapalıysa 1 Saatte Bir Gönder
	                'Else
	                '    GpTaWait = TmpGpWait  ' Kontak Açıksa Normal Peryodunda  Gönder
	                
	                GoTo GpTakipDurOK   ' 03.11.2007 tarihinde eklendi kontak bilgisini tamamen off etmek için    
	                
	                
	                EndIF
	                 
                   
                         
                    IF (SayGpTakip = GpTaWait ) OR (SayGpTakip > GpTaWait ) Then
                         
                        SayGpTakip = 0
                         
                        TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                        Sender      =  BIR ' Gönderici Takip
                         
                        For addr= 0  TO 89
			                Read addr,Deger
			                RegGeneral[addr]=Deger
			            Next addr
               
                        GoSub GpPakHaz
				         
				        GoSub GpMsgTX
				           
                     EndIF
                         
                     SayGpTakip  = SayGpTakip + 1
                 
                 EndIF
                
SerOut2 PIO_TXD,MAX_BAUD,["GP TAKIP:",DEC2 FlgCalType,":",FlgBaglanti,CR,LF]
                   
GoTo GpTakipDurOK       
'******************************************************************** 07.01.2007                    

'*****************************************************************************OK
'****************          GPRS YER SORMA DURUMU            ********************
'******************************************************************** 02.05.2007
GpYerSor     :  wr=RR
			    GoSub WRkntKontrol

                IF kntYer = SIF Then      ' Yer Kontrolü Yapılmayacaksa
                   FlgGpYer = SIF     ' Tekrarı Önlemek İçin
                   GoTo GpYerSOK
                EndIF

                IF FlgCalType < 98 Then ' Çalışma Şekli  SMS se Çık
                   GoTo GpYerSOK
                EndIF 
                
                IF FlgBaglanti = SIF Then ' GPRS  Yoksa Çık
                   GoTo GpYerSOK
                EndIF
                
                IF FlgGpYer = BIR  Then
            
                   FlgGpYer = SIF     ' Tekrarı Önlemek İçin
                   TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                   Sender      =  IKI ' Gönderici Yer Sorma
                   
                   For addr= 0  TO 89
			           Read addr,Deger
			           RegGeneral[addr]=Deger
			       Next addr
                
                   GoSub GpPakHaz     
				   GoSub GpMsgTX
				    
				EndIF
GoTo GpYerSOK
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'****************          GPRS GEÇMİŞ VERİ SORMA           ********************
'******************************************************************** 03.05.2007
'GpGecVeri     :  IF FlgCalType < 98 Then ' Çalışma Şekli  SMS se Çık
'                   GoTo GpGecVeriOK
'                EndIF 
'                
'                IF FlgBaglanti = SIF Then ' GPRS  Yoksa Çık
'                   GoTo GpGecVeriOK
'                EndIF
'                
'                IF FlgGecVeri = BIR  Then
'            
'                   FlgGecVeri = SIF     ' Tekrarı Önlemek İçin
'                  
'                   For FindAddrH = 0 TO 65520 STEP 52
'						
'						I2CRead M1_SDA,M1_SCL,$A0,FindAddrH,[STR FindTime\11]
'						Pause 10
'						
'						IF FindTime[1]  = sorYilB[0]    Then
'						IF FindTime[2]  = sorYilB[1]    Then
'						IF FindTime[3]  = sorAyB[0]     Then
'						IF FindTime[4]  = sorAyB[1]     Then
'						IF FindTime[5]  = sorGunB[0]    Then	
'						IF FindTime[6]  = sorGunB[1]    Then
'						IF FindTime[7]  = sorSaatB[0]   Then
'						IF FindTime[8]  = sorSaatB[1]   Then
'						IF FindTime[9]  = sorDakikaB[0] Then
'						IF FindTime[10] = sorDakikaB[1] Then
'					
'						   FindAddrL = FindAddrH + 1	
'							
'						   For addr=0 TO  51 
'						       I2CRead M1_SDA,M1_SCL,$A0,FindAddrL,[MemData]
'							   Pause 10	
'							   RegGeneral[addr] = MemData
'						   Next addr	
'                           
'                           
'                           TxMesajType =  BIR ' Gönderme Modu Düşük Paket
'                           Sender      =  DOT ' Gönderici Yer Sorma
'                   
'                           GoSub GpPakHaz     '
'				           GoSub GpMsgTX
'				           
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        EndIF
'				        
'				   Next FindAddrH
'				    
'				EndIF
'GoTo GpGecVeriOK
'******************************************************************** 02.05.2007



'****************************************************************************OK
'****************             MODEM RESET RUTİNİ            *******************
'******************************************************************* 06.10.2007
G24Rst :     SerOut2 PIO_TXD,MAX_BAUD,["G24 RESET SAY: ",DEC5 SayModemRst,CR,LF]
             
             KnslRstDeg = 4500						' Eğer Hafızadan Düzgün Okunmassa Sabit 5 Saat
             
             Read 100,addr
             
             IF addr = SIF Then						' Reset Yap
                addr = UC							' Reset Tekrar 5 Saate Ayarlandı
                Write 100,addr						' Reset ten Sonra Tekrar Reset Bilgisini Kaydet
                GoTo SystemReset
             EndIF
             
             IF addr = BIR Then						' Reset Kontrolünü Yapma
                SayModemRst = 0
	            GoTo G24RstOk 
             EndIF
             	
             IF addr = IKI Then KnslRstDeg = 900    ' 1  Saatte Bir RESET
             IF addr = UC  Then KnslRstDeg = 4500   ' 5  Saatte Bir RESET
             IF addr = DOT Then KnslRstDeg = 10800  ' 12 Saatte Bir RESET
             
             SerOut2 PIO_TXD,MAX_BAUD,["RST: ",DEC3 addr,":",DEC5 KnslRstDeg,CR,LF]
            
             IF SayModemRst > KnslRstDeg Then
                
                GoTo SystemReset
             
             Else
             
                SayModemRst = SayModemRst + 1
             
             EndIF
             
             GoTo G24RstOk
'******************************************************************* 06.10.2007


'*****************************************************************************OK
'****************             SYSTEM  RESET  RUTİNİ         ********************
'******************************************************************** 06.10.2007
SystemReset    :   SayModemRst = 0
                                
                IF FlgBaglanti = BIR Then
                
                   TxMesajType =  BIR ' Gönderme Modu Düşük Paket
                   Sender      =  DOK ' Gönderici Yer Sorma
                   
                   For addr= 0  TO 89
			           Read addr,Deger
			           RegGeneral[addr]=Deger
			       Next addr
               
                   GoSub GpPakHaz     
				   GoSub GpMsgTX
				   
                EndIF
                
                SerOut2 PIO_TXD,MAX_BAUD,["RESET TIME : ",STR sysSaat\2,":",_
                        STR sysDakika\2,":",STR sysSaniye\2,"  ", STR sysGun\2 ,_
                        ".",STR sysAy\2,".","20",STR sysYil\2,13,10]
                        
               
                GoSub G24KapaSoft
                GoTo SysInit
'******************************************************************** 06.10.2007


'*****************************************************************************OK
'****************        GPRS MESAJ GÖNDERME RUTİNİ         ********************
'******************************************************************** 02.05.2007
GpMsgTX :      wr =RR
               GoSub WRKonsolID
               
		       GoSub BuffDel

		       SerOut2 G24_TXD,G24_BAUD,["at+mipsend=1",VI,34,HEX2 STX,HEX2 KonsolID(0),_
		       HEX2 KonsolID(1),HEX2 KonsolID(2),HEX2 KonsolID(3),HEX2 KonsolID(4),HEX2 GprsPacType]
		       	  
			   IF TxMesajType =  BIR Then     ' GPRS TAKIP Merkeze  Gidecek Şekil
                         
                  For addr = 0  TO 50 
			          SerOut2 G24_TXD,G24_BAUD,[HEX2 GprsMesaj(addr)]
			          Pause Bek10
			      Next addr
					     
			      SerOut2 G24_TXD,G24_BAUD,[HEX2 ETX,34,CR,LF]
					    
			   EndIF
		    
			   IF TxMesajType =  IKI Then     ' GPRS SOS Durumları Merkeze  Gidecek Şekil
                  
			      For addr = 0  TO 63 
			          SerOut2 G24_TXD,G24_BAUD,[HEX2 GprsMesaj(addr)]
			      Next addr
				        
				  SerOut2 G24_TXD,G24_BAUD,[HEX2 ETX,34,CR,LF]
					    
			   EndIF
			   
			   GoSub BuffDel
		       GoSub MeReady
			   	      
			   Pause Bek100
				      
			   SerOut2 G24_TXD,G24_BAUD,["at+mippush=1",CR,LF]
					  
			   SerOut2 PIO_TXD,MAX_BAUD,["GPRS SENDED",13,10]	            
		
		       TxMesajType =  SIF
		       GoSub BuffDel
		       GoSub MeReady
Return             
'*******************************************************************************
'******************************************************************** 02.05.2007


'*****************************************************************************OK
'*******************         SMS MESAJ GÖNDERME       **************************
'******************************************************************** 26.10.2005
SmMsgTx:      GoSub BuffDel
              SerOut2 G24_TXD,G24_BAUD,["AT+CMGF=1",CR,LF]
              Pause Bek100           
              GoSub MeReady
              
              GoSub BuffDel
              SerOut2 G24_TXD,G24_BAUD,["AT+CMGS=",34]
              Pause Bek100 
              
              For addr = 0 TO 14
                  IF telEtkin[addr] = $FF Then
                     GoTo DonguCik 
                  Else
                     SerOut2 G24_TXD,G24_BAUD,[telEtkin(addr)]
                  EndIF
              Next addr
             
DonguCik  :  
             SerOut2 G24_TXD,G24_BAUD,[34,",145",CR]     
             
             WhoIs = DOK
             
             addr = 0
             
             
SmMsgLp1  :  GoSub MeReady
             
             For G24ADDR = 0 TO 349
				   	    
				 IF G24VERI[G24ADDR] = ">"  Then
				    SerOut2 PIO_TXD,MAX_BAUD,["> OK",13,10]
				    GoTo MsgTxRdy
				 EndIF
				   	 
		  	 Next G24ADDR   
             
             Pause Bek200
             
             IF addr > 6 Then
                SerOut2 PIO_TXD,MAX_BAUD,["> ER",13,10]
                GoTo MsgTxErr
             Else
                addr = addr + 1
                GoSub BuffDel
                GoTo SmMsgLp1
             EndIF
             
            
MsgTxRdy:   GoSub BuffDel
            
            Pause Bek200
	        SerOut2 G24_TXD,G24_BAUD,[STR SmsMesaj\160]
          
            Pause Bek100
            SerOut2 G24_TXD,G24_BAUD,[26]
             
            addr = 0 
             
            
            TxMesajType =  SIF
             
MsgTxDon:   GoSub MeReady
            
             For G24ADDR = 0 TO 349
				   	    
				 IF G24VERI[G24ADDR]       = "+"  Then
				 IF G24VERI[(G24ADDR + 1)] = "C"  Then 
				 IF G24VERI[(G24ADDR + 2)] = "M"  Then 
				 IF G24VERI[(G24ADDR + 3)] = "G"  Then 
				 IF G24VERI[(G24ADDR + 4)] = "S"  Then 
				 
				     SerOut2 PIO_TXD,MAX_BAUD,["+CMGS OK",13,10]
				     GoTo MsgSendOk
			   	 
			   	 EndIF
				 EndIF
				 EndIF
				 EndIF
				 EndIF
			   	 
			 Next G24ADDR   
            
             Pause bek500
      
             IF addr > 49 Then
                SerOut2 PIO_TXD,MAX_BAUD,["+CMGS ER",DEC3 G24SAYAC,13,10]
                GoTo MsgTxErr
             Else
                addr = addr + 1
                GoSub BuffDel
                GoTo  MsgTxDon
             EndIF
                  
MsgSendOk : GoSub BuffDel
            SerOut2 G24_TXD,G24_BAUD,[ESC]
            GoSub MeReady
            Return
            
MsgTxErr  : GoSub BuffDel
            SerOut2 G24_TXD,G24_BAUD,[ESC]
            GoSub MeReady
           
             Return             
'*******************************************************************************
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*********************               DIAL UP             ***********************
'******************************************************************** 02.05.2007
DialUp       :  GoSub BuffDel
			    GoSub MdmEkrON
			    GoSub MeReady
	               
	            GoSub BuffDel
	            SerOut2 G24_TXD, G24_BAUD,[AA,TT,DD]
	                           
	            For addr = 0 TO 14
	                IF telEtkin[(addr+1)] = $FF Then
				       GoTo DialLoop1
				    Else
				       SerOut2 G24_TXD,G24_BAUD,[telEtkin(addr+1)]
				    EndIF
				Next addr
                   
                           
 DialLoop1   :   SerOut2 G24_TXD, G24_BAUD,[";",CR,LF]
                 addr = 0
                 
                   
 DialLoop2   :    GoSub MeReady
	                       
                   For G24ADDR = 0 TO 349
				   	    
				   	    IF G24VERI[G24ADDR]       = "+"  Then
				   	    IF G24VERI[(G24ADDR + 1)] = "C"  Then 
				   	    IF G24VERI[(G24ADDR + 2)] = "I"  Then 
				   	    IF G24VERI[(G24ADDR + 3)] = "E"  Then 
				   	    IF G24VERI[(G24ADDR + 4)] = "V"  Then 
				   	    IF G24VERI[(G24ADDR + 5)] = ":"  Then 
				   	    IF G24VERI[(G24ADDR + 6)] = " "  Then 
				   	    IF G24VERI[(G24ADDR + 7)] = "4"  Then 
				   	    IF G24VERI[(G24ADDR + 8)] = ","  Then 
				   	    IF G24VERI[(G24ADDR + 9)] = "1"  Then 
				   	    
				   	       Sound G24_AUIN,[115,10,110,10,115,10,110,10]
				   	       GoTo DialUpSon
				   	    
				   	    EndIF
				   	    EndIF
				   	    EndIF
				   	    EndIF
				   	    EndIF       
				   	    EndIF
				   	    EndIF
				   	    EndIF
				   	    EndIF
				   	    EndIF
				   	    
				   	    
				   Next G24ADDR   
                     
                   Pause bek1000
                   GoSub BuffDel
                   
                   IF  addr > 10 Then   ' Dial Up Cevap Verme Süresi Yaklaşık 2 Çaldırma
                       GoTo DialUpSon
                   Else
                       addr = addr + 1
                       GoTo DialLoop2
                   EndIF
                   
   DialUpSon :     GoSub BuffDel
                   GoSub MdmEkrOF
                   Pause Bek100
                   GoSub CagriKapa               
                   GoSub MeReady
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'****************         GPRS PAKET HAZIRLA DURUMU         ********************
'******************************************************************** 02.05.2007
GpPakHaz :     
               IF TxMesajType =  BIR  Then  ' TAKİP YER KONTAK RESET PAKET TİPİ
                         
	              IF Sender = BIR Then
	                 GprsPacType = TT   ' TAKİP
	              EndIF
	           	 	   
	           	  IF Sender = IKI Then
	                 GprsPacType = YY   ' YER
	              EndIF
	           	 	   		           	 	   
	           	  IF Sender = UC Then
        	         GprsPacType = KK   ' KONTAK
               	  EndIF
	           	 	   
	           	  
	           	  IF Sender = DOT Then
        	         GprsPacType = KK   ' GEÇMİŞ VERİ
               	  EndIF
	           	 
	           	  
	           	  IF Sender = DOK Then
	                 GprsPacType = RR   ' RESET 
	              EndIF
		          
		          Sender = SIF
		           
		          'System Zaman
	              GprsMesaj[0]   =  RegGeneral[10] ' sysYıl[0]
		          GprsMesaj[1]   =  RegGeneral[11] ' sysYıl[1]
		          GprsMesaj[2]   =  RegGeneral[8]  ' sysAy[0]
		          GprsMesaj[3]   =  RegGeneral[9]  ' sysAy[1]
		          GprsMesaj[4]   =  RegGeneral[6]  ' sysGun[0]
		          GprsMesaj[5]   =  RegGeneral[7]  ' sysGun[1]
		          GprsMesaj[6]   =  RegGeneral[0]  ' sysSaat[0]
		          GprsMesaj[7]   =  RegGeneral[1]  ' sysSaat[1]
		          GprsMesaj[8]   =  RegGeneral[2]  ' sysDakika[0]
		          GprsMesaj[9]   =  RegGeneral[3]  ' sysDakika[1]
		          GprsMesaj[10]  =  RegGeneral[4]  ' sysSaniye[0]
		          GprsMesaj[11]  =  RegGeneral[5]  ' sysSaniye[1]
		         
	              'Kuzey 
		          GprsMesaj[12]  =  RegGeneral[43]
		          GprsMesaj[13]  =  RegGeneral[44]
		          GprsMesaj[14]  =  RegGeneral[45]
		          GprsMesaj[15]  =  RegGeneral[46]
		          GprsMesaj[16]  =  RegGeneral[47]
		          GprsMesaj[17]  =  RegGeneral[48]
		          GprsMesaj[18]  =  RegGeneral[49]
		          GprsMesaj[19]  =  RegGeneral[50]
		          GprsMesaj[20]  =  RegGeneral[51]
		          GprsMesaj[21]  =  RegGeneral[52]
		         
		          'Dogu
		          GprsMesaj[22]  =  RegGeneral[53]
		          GprsMesaj[23]  =  RegGeneral[54]
		          GprsMesaj[24]  =  RegGeneral[55]
		          GprsMesaj[25]  =  RegGeneral[56]
		          GprsMesaj[26]  =  RegGeneral[57]
		          GprsMesaj[27]  =  RegGeneral[58]
		          GprsMesaj[28]  =  RegGeneral[59]
		          GprsMesaj[29]  =  RegGeneral[60]
		          GprsMesaj[30]  =  RegGeneral[61]
		          GprsMesaj[31]  =  RegGeneral[62]
		          GprsMesaj[32]  =  RegGeneral[63]
		         
		          'Hiz
		          GprsMesaj[33]  =  RegGeneral[64]
		          GprsMesaj[34]  =  RegGeneral[65]
		          GprsMesaj[35]  =  RegGeneral[66]
		          GprsMesaj[36]  =  RegGeneral[67]
		          GprsMesaj[37]  =  RegGeneral[68]
		          GprsMesaj[38]  =  RegGeneral[69]
		          GprsMesaj[39]  =  RegGeneral[70]
		         
		          'Sapma
		          GprsMesaj[40]  =  RegGeneral[71]
		          GprsMesaj[41]  =  RegGeneral[72]
		          GprsMesaj[42]  =  RegGeneral[73]
		          GprsMesaj[43]  =  RegGeneral[74]
		          GprsMesaj[44]  =  RegGeneral[75]
		          GprsMesaj[45]  =  RegGeneral[76]
		        
		          GprsMesaj[46]  =  RegGeneral[30]  ' GPS STATU
		          GprsMesaj[47]  =  RegGeneral[17]  ' ROLE
		          GprsMesaj[48]  =  RegGeneral[15]  ' KONTAK
		          GprsMesaj[49]  =  RegGeneral[25]  ' G24 ROM
                  GprsMesaj[50]  =  RegGeneral[22]  ' G24 SIN
                 
               EndIF
               
               IF TxMesajType =  IKI  Then  ' ACİL VE ALARM DURUMUNDAKİ PAKET TİPİ
                          
                  IF SosType = BIR Then
                     GprsPacType = AA  ' ACIL
                  EndIF
     	 	   
     	 	      IF SosType = IKI Then
                     GprsPacType = LL   ' ALARM
                  EndIF
     	 	   	   
		          IF SosType = UC Then
                     GprsPacType = HH   ' ŞÜPHE
                  EndIF
                  	 
                          
                  'System Zaman
	              GprsMesaj[0]   =  RegGeneral[11] ' sysYıl[0]
		          GprsMesaj[1]   =  RegGeneral[10] ' sysYıl[1]
		          GprsMesaj[2]   =  RegGeneral[9]  ' sysAy[0]
		          GprsMesaj[3]   =  RegGeneral[8]  ' sysAy[1]
		          GprsMesaj[4]   =  RegGeneral[7]  ' sysGun[0]
		          GprsMesaj[5]   =  RegGeneral[6]  ' sysGun[1]
		          GprsMesaj[6]   =  RegGeneral[0]  ' sysSaat[0]
		          GprsMesaj[7]   =  RegGeneral[1]  ' sysSaat[1]
		          GprsMesaj[8]   =  RegGeneral[2]  ' sysDakika[0]
		          GprsMesaj[9]   =  RegGeneral[3]  ' sysDakika[1]
		          GprsMesaj[10]  =  RegGeneral[4]  ' sysSaniye[0]
		          GprsMesaj[11]  =  RegGeneral[5]  ' sysSaniye[1]
		        
		          'Gps Statü
		          GprsMesaj[12]   =  RegGeneral[30]
		         
		          'Kuzey ,Dogu,Hiz,Sapma
		          GprsMesaj[13]  =  RegGeneral[43]
		          GprsMesaj[14]  =  RegGeneral[44]
		          GprsMesaj[15]  =  RegGeneral[45]
		          GprsMesaj[16]  =  RegGeneral[46]
		          GprsMesaj[17]  =  RegGeneral[47]
		          GprsMesaj[18]  =  RegGeneral[48]
		          GprsMesaj[19]  =  RegGeneral[49]
		          GprsMesaj[20]  =  RegGeneral[50]
		          GprsMesaj[21]  =  RegGeneral[51]
		          GprsMesaj[22]  =  RegGeneral[52]
		          GprsMesaj[23]  =  RegGeneral[53]
		          GprsMesaj[24]  =  RegGeneral[54]
		          GprsMesaj[25]  =  RegGeneral[55]
		          GprsMesaj[26]  =  RegGeneral[56]
		          GprsMesaj[27]  =  RegGeneral[57]
		          GprsMesaj[28]  =  RegGeneral[58]
		          GprsMesaj[29]  =  RegGeneral[59]
		          GprsMesaj[30]  =  RegGeneral[60]
		          GprsMesaj[31]  =  RegGeneral[61]
		          GprsMesaj[32]  =  RegGeneral[62]
		          GprsMesaj[33]  =  RegGeneral[63]
		          GprsMesaj[34]  =  RegGeneral[64]
		          GprsMesaj[35]  =  RegGeneral[65]
		          GprsMesaj[36]  =  RegGeneral[66]
		          GprsMesaj[37]  =  RegGeneral[67]
		          GprsMesaj[38]  =  RegGeneral[68]
		          GprsMesaj[39]  =  RegGeneral[69]
		          GprsMesaj[40]  =  RegGeneral[70]
		          GprsMesaj[41]  =  RegGeneral[71]
		          GprsMesaj[42]  =  RegGeneral[72]
		          GprsMesaj[43]  =  RegGeneral[73]
		          GprsMesaj[44]  =  RegGeneral[74]
		          GprsMesaj[45]  =  RegGeneral[75]
		          GprsMesaj[46]  =  RegGeneral[76]
		        
		          'Modem Ekran Bilgisi
		          GprsMesaj[47]  =  RegGeneral[21]
		          GprsMesaj[48]  =  RegGeneral[22]
		          GprsMesaj[49]  =  RegGeneral[23]
		          GprsMesaj[50]  =  RegGeneral[24]
		          GprsMesaj[51]  =  RegGeneral[25]
		          GprsMesaj[52]  =  RegGeneral[26]
		          GprsMesaj[53]  =  RegGeneral[27]
		          GprsMesaj[54]  =  RegGeneral[28]
		        
		          'PIO Bilgisi
		          GprsMesaj[55]  =  RegGeneral[12]
		          GprsMesaj[56]  =  RegGeneral[13]
		          GprsMesaj[57]  =  RegGeneral[14]
		          GprsMesaj[58]  =  RegGeneral[15]
		          GprsMesaj[59]  =  RegGeneral[16]
		          GprsMesaj[60]  =  RegGeneral[17]
		          GprsMesaj[61]  =  RegGeneral[18]
		          GprsMesaj[62]  =  RegGeneral[19]
                
               EndIF
Return
'******************************************************************** 02.05.2007

armys2000 · 22 Mayıs 2008, 00:13:45

'*****************************************************************************OK
'****************          SMS ALARM PAKETİ HAZIRLA         ********************
'******************************************************************** 02.05.2007
SmAlarmPakHaz  :   SmsMesaj[0] = KonsolID[0]
				   SmsMesaj[1] = KonsolID[1]
				   SmsMesaj[2] = KonsolID[2]
				   SmsMesaj[3] = KonsolID[3]
				   SmsMesaj[4] = KonsolID[4]
				   SmsMesaj[5] = BOSLUK       
				   SmsMesaj[6] = BOSLUK
				   SmsMesaj[7] = BOSLUK
				   SmsMesaj[8] = BOSLUK
				   
				   
				   IF SosType = BIR Then
		              SmsMesaj[9]  = "A"
			          SmsMesaj[10] = "C"
			          SmsMesaj[11] = "I"
			          SmsMesaj[12] = "L"
			          SmsMesaj[13] = BOSLUK
		              SmsMesaj[14] = BOSLUK
		           EndIF
		           
		           IF SosType = IKI Then
		              SmsMesaj[9]  = "A"
			          SmsMesaj[10] = "L"
			          SmsMesaj[11] = "A"
			          SmsMesaj[12] = "R"
			          SmsMesaj[13] = "M"
		              SmsMesaj[14] = BOSLUK
		           EndIF
		    
		           IF SosType = UC Then
		              SmsMesaj[9]  = "S"
			          SmsMesaj[10] = "U"
			          SmsMesaj[11] = "P"
			          SmsMesaj[12] = "H"
			          SmsMesaj[13] = "E"
		              SmsMesaj[14] = BOSLUK
		           EndIF
		    
		           Deger = 48
                            
                   Read 0,Deger
		           SmsMesaj[15]=Deger
                   Read 1,Deger
		           SmsMesaj[16]=Deger
                                     
                   SmsMesaj[17]=":"
                            
                   Read 2,Deger
		           SmsMesaj[18]=Deger
                   Read 3,Deger
		           SmsMesaj[19]=Deger
                   
                   SmsMesaj[20]=":"
                            
                   Read 4,Deger
		           SmsMesaj[21]=Deger
                   Read 5,Deger
		           SmsMesaj[22]=Deger
                   
                   SmsMesaj[23]=" "
                            
                   Read 6,Deger
		           SmsMesaj[24]=Deger
                   Read 7,Deger
		           SmsMesaj[25]=Deger
                   
                   SmsMesaj[26]="."
                            
                   Read 8,Deger
		           SmsMesaj[27]=Deger
                   Read 9,Deger
		           SmsMesaj[28]=Deger
                   
                   SmsMesaj[29]="."
                            
                   Read 10,Deger
		           SmsMesaj[30]=Deger
                   Read 11,Deger
		           SmsMesaj[31]=Deger
                   
                   SmsMesaj[32]=" "
                            
                            
		           For addr= 0  TO 24
		               SmsMesaj[(addr+33)] = msgAlarm[addr]
		           Next addr
		                     
		           For addr= 58  TO 159
		               SmsMesaj[addr] = BOSLUK
		           Next addr
Return
'******************************************************************** 02.05.2007

'*******************************************************************************
'****************           MEMORY VERİ YAZ  		        ********************
'******************************************************************** 03.05.2007
NormlVeriYaz :   Read 105,MemAddrH
                 Read 106,MemAddrL
              
                 MemAddr.byte1 = MemAddrH
                 MemAddr.byte0 = MemAddrL
                 
                 IF FlgBaglanti = SIF Then
                    IF FlgTakip = BIR Then
                        MemVeri[0]= "*"
                    Else
                        MemVeri[0]= " "
                    EndIF
                 EndIF
                 
                 Read 11,addr                   ' SYS YIL[0]
                 MemVeri[1]= addr  
                 Read 10,addr                   ' SYS YIL[1]
                 MemVeri[2]= addr  
                 Read 9,addr                    ' SYS AY[0]
                 MemVeri[3]= addr  
                 Read 8,addr                    ' SYS AY[1]
                 MemVeri[4]= addr  
                 Read 7,addr                    ' SYS GUN[0]
                 MemVeri[5]= addr  
                 Read 6,addr                    ' SYS GUN[1]
                 MemVeri[6]= addr  
                 Read 0,addr                    ' SYS SAAT[0]
                 MemVeri[7]= addr  
                 Read 1,addr                    ' SYS SAAT[1]
                 MemVeri[8]= addr  
                 Read 2,addr                    ' SYS DAKİKA[0]
                 MemVeri[9]= addr  
                 Read 3,addr                    ' SYS DAKİKA[1]
                 MemVeri[10]= addr  
                 Read 4,addr                    ' SYS SANİYE[0]
                 MemVeri[11]= addr  
                 Read 5,addr                    ' SYS SANİYE[1]
                 MemVeri[12]= addr  
             
                 For addr = 43 TO 76             ' Kuzey,Dogu,Hız,Sapma    
                     Read addr,MemVeri[(addr-30)]
                 Next addr
                 
                 Read 30,addr                    ' GPS Statü
                 MemVeri[47]= addr  
                 Read 17,addr                    ' Röle
                 MemVeri[48]= addr  
                 Read 14,addr                    ' Kontak
                 MemVeri[49]= addr  
                 Read 25,addr                    ' Roaming 
                 MemVeri[50]= addr  
                 Read 22,addr                    ' Sinyal
                 MemVeri[51]= addr  
                 
                 For addr= 0 TO 51
                     
                     MemData = MemVeri[addr]
                     
                     I2CWrite M1_SDA,M1_SCL,$A0,MemAddr,[MemData]
                     Pause Bek10
                     MemAddr = MemAddr + 1
                     
                 Next addr
                 
                 IF MemAddr > 65520 Then
                    MemAddr = 0
                 EndIF
                 
                 MemAddrH = MemAddr.byte1
                 MemAddrL = MemAddr.byte0

                 Write 105,MemAddrH
                 Write 106,MemAddrL
                
                 
Return
'******************************************************************** 03.05.2007


'*******************************************************************************
'****************           MEMORY VERİ OKU  		        ********************
'******************************************************************** 03.05.2007
NormlVeriOku :
Return
'******************************************************************** 03.05.2007

'*****************************************************************************OK
'*****************            USER TYPE SORGULA              *******************
'******************************************************************** 02.05.2007
 usrTypeSor   : IF usrKontrol[0] = BIR Then 
 				 IF usrKontrol[1] = DOT Then 
 				  IF usrKontrol[2] = ALT Then 
 				   IF usrKontrol[3] = SEK Then 
 				    IF usrKontrol[4] = BIR Then 
 				     IF usrKontrol[5] = DOT Then 
 				      IF usrKontrol[6] = ALT Then
 				       IF usrKontrol[7] = SEK Then 	
 					    IF pasKontrol[0] = BIR Then 
 				         IF pasKontrol[1] = DOT Then 
 				          IF pasKontrol[2] = ALT Then 
 				           IF pasKontrol[3] = SEK Then 
 				   
 				              usrType = 1
 				              GoTo usrTypeOk
 				
 						   EndIF
 						  EndIF
 						 EndIF
 						EndIF
 				       EndIF
 				      EndIF
 				     EndIF
 				    EndIF
 				   EndIF
 				  EndIF
 				 EndIF
 				EndIF
 				
				IF usrKontrol[0]= usrAdmin[0] Then
 				 IF usrKontrol[1]= usrAdmin[1] Then
 				  IF usrKontrol[2]= usrAdmin[2] Then
 				   IF usrKontrol[3]= usrAdmin[3] Then
 				    IF usrKontrol[4]= usrAdmin[4] Then
 					 IF usrKontrol[5]= usrAdmin[5] Then
 					  IF usrKontrol[6]= usrAdmin[6] Then
 					   IF usrKontrol[7]= usrAdmin[7] Then	
 					    IF pasKontrol[0]= pasAdmin[0] Then
 						 IF pasKontrol[1]= pasAdmin[1] Then
 						  IF pasKontrol[2]= pasAdmin[2] Then
 						   IF pasKontrol[3]= pasAdmin[3] Then
 						
 						      usrType = 2
 							  GoTo usrTypeOk
 							  
 						   EndIF
 						  EndIF
 						 EndIF
 						EndIF
 					   EndIF
 					  EndIF
 					 EndIF
 					EndIF
 				   EndIF
 				  EndIF
 			     EndIF
 			    EndIF

 usrTypeErr : usrType = 9
 			  Return		
 usrTypeOk  : 
 
 Return 
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*************************          SOS OKU            *************************
'******************************************************************** 06.10.2007
SosOku    :    wr=RR
			   GoSub WRkntKontrol
         
               IF kntAcil = BIR Then
                  IF ACIL = 0 Then
				     FlgAcil = BIR
				     FlgSosDurum =BIR
				     SosType = BIR
				  Else
				     FlgAcil = SIF
				  EndIF
		       EndIF
		       
		       
		       IF kntSuphe = BIR Then
                  IF SUPHE = 0 Then
				     FlgSuphe = BIR
				     FlgSosDurum =BIR
				     SosType = UC
				  Else
				     FlgAcil = SIF
				  EndIF
		       EndIF
		       
		 
               IF kntAlarm = BIR Then
	              IF ALARM = 0 Then
			         
			        Pause Bek3000
			         
			        IF ALARM = 0 Then
			            FlgAlarm=BIR
			            FlgSosDurum =BIR
			            SosType = IKI
			        Else
			            FlgAlarm=SIF
			        EndIF
			     EndIF
			   EndIF
		       
		      
Return
'******************************************************************** 02.05.2007



'*****************************************************************************OK
'****************        GSM  REGISTER KONTROL RUTİNİ       ********************
'******************************************************************** 02.05.2007
GsRgKnt  :   IF mdmReg = BIR Then 
                FlgGsmReg = SIF
                SayGsmReg = SayGsmReg + 1
                SayModemRst = SayModemRst + 20
             EndIF
                 
             IF mdmReg = SIF Then 
                SayGsmReg = 0
                FlgGsmReg = BIR
             EndIF
Return
'******************************************************************** 02.05.2007                                        

'*****************************************************************************OK
'****************       GPRS  REGISTER KONTROL RUTİNİ       ********************
'******************************************************************** 02.05.2007
GpRgKnt  :  IF mdmGprs = SIF Then 
               FlgGprsReg = SIF    ' GPRS YOK
               FlgPingRec = SIF
               SayGprsReg = SayGprsReg + 1
            EndIF
                 
            IF mdmGprs = BIR Then 
               SayGprsReg = 0
               FlgGprsReg = BIR 
            EndIF
Return
'******************************************************************** 02.05.2007                                        

'*****************************************************************************OK
'***********            Modemin Software  olarak Açılması           ************
'******************************************************************** 02.05.2007
G24AcSoft  : Low G24_SPWR
			 Pause Bek1500	
			 High G24_SPWR
			 Pause Bek5000
             Pause Bek5000
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'***********            Modemin Software olarak Kapatılması          ***********
'******************************************************************** 02.05.2007
G24KapaSoft: Low G24_SPWR
             Pause Bek3000
             High G24_SPWR
             Pause Bek5000
             Pause Bek5000
Return       
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'***********              MODEM EKRAN BİLGİ İSTEĞİ AÇ               ************
'******************************************************************** 02.05.2007
MdmEkrON : 'SerOut2 G24_TXD,G24_BAUD,["AT+CMER=0,0,0,1,0",CR,LF]
           SerOut2 G24_TXD,G24_BAUD,[AA,TT,ART,CC,MM,EE,RR,ESTR,SIF,VI,SIF,_
           VI,SIF,VI,BIR,VI,SIF,CR,LF]
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'***********            MODEM EKRAN BİLGİ İSTEĞİ KAPA               ************
'******************************************************************** 02.05.2007
MdmEkrOF : 'SerOut2 G24_TXD,G24_BAUD,["AT+CMER=0,0,0,0,0",CR,LF]
           SerOut2 G24_TXD,G24_BAUD,[AA,TT,ART,CC,MM,EE,RR,ESTR,SIF,VI,SIF,_
           VI,SIF,VI,SIF,VI,SIF,CR,LF]
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'********************       OKUNAN MESAJIN SİLİNMESİ       *********************
'******************************************************************** 02.05.2007
MesajSil : 'SerOut2 G24_TXD,G24_BAUD,["AT+CMGD=",#MsgIndex,CR,LF]             
           SerOut2 G24_TXD,G24_BAUD,[AA,TT,ART,CC,MM,GG,DD,ESTR,#MsgIndex,CR,LF]             
           Pause Bek100
Return
'******************************************************************** 02.05.2007


'*****************************************************************************OK
'****************             ÇAĞRI SONLANDIRMA             ********************
'******************************************************************** 02.05.2007
CagriKapa	: FlgRING = SIF
              SerOut2 G24_TXD,G24_BAUD,[AA,TT,HH,CR,LF]
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'****************                MODEM ME BUSY              ********************
'******************************************************************** 02.05.2007
MeBusy	:  High G24_RTS
           'SerOut2 G24_TXD,G24_BAUD,[XOFF,13,10]
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'****************            G24 BUFFER DELETE              ********************
'******************************************************************** 02.05.2007
BuffDel	:  For G24ADDR = 0 TO 349
               G24VERI(G24ADDR)=$FF
           Next G24ADDR
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'*******************       APN NAME/USER/PASS KAYIT       **********************
'******************************************************************** 02.05.2007
WRApnKayit    : IF wr = WW Then				
					For addr=110 TO 119
				    	Write addr,ApnName[(addr-110)]
					Next addr
					For addr=120 TO 127
				    	Write addr,ApnUser[(addr-120)]
					Next addr
					For addr=130 TO 137
				    	Write addr,ApnPass[(addr-130)]
					Next addr
				EndIF
				IF wr = RR Then
					For addr=110 TO 119
				    	Read addr,ApnName[(addr-110)]
					Next addr
					For addr=120 TO 127
				    	Read addr,ApnUser[(addr-120)]
					Next addr
					For addr=130 TO 137
				    	Read addr,ApnPass[(addr-130)]
					Next addr
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'**********************         ADMIN USERNAME          ************************
'******************************************************************** 02.05.2007
WRusrAdmin    : IF wr = WW Then				
					For addr=142 TO 149
				    	Write addr,usrAdmin[(addr-142)]
					Next addr
				EndIF
				IF wr = RR Then
					For addr=142 TO 149
				 		Read addr,usrAdmin[(addr-142)]
					Next addr
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'**********************          ADMIN PASSWORD         ************************
'******************************************************************** 02.05.2007
WRpasAdmin    : IF wr = WW Then			
				   For addr=150 TO 153
				       Write addr,pasAdmin[(addr-150)]
				   Next addr
				EndIF
				IF wr = RR Then
				   For addr=150 TO 153
				       Read addr,pasAdmin[(addr-150)]
				   Next addr
				EndIF
Return
'******************************************************************** 02.05.2007
	
'*****************************************************************************OK
'**********************         KONSOL ID KAYDI         ************************
'******************************************************************** 02.05.2007
WRKonsolID    :	IF wr = WW Then
				   For addr = 154 TO 158
				       Write addr,KonsolID(addr-154)
				   Next addr   
				EndIF
				IF wr = RR Then
				   For addr = 154 TO 158
				       Read addr,KonsolID(addr-154)
				   Next addr   
				EndIF
Return
'******************************************************************** 02.05.2007
	
'*****************************************************************************OK
'**********************      MERKEZ TELEFON NUMARASI    ************************
'******************************************************************** 02.05.2007
WRtelMerkez   :	IF wr = WW Then
				   For addr = 159 TO 173
				       Write addr,telMerkez(addr-159)
				   Next addr   
				EndIF
				IF wr = RR Then
				   For addr = 159 TO 173
				       Read addr,telMerkez(addr-159)
				   Next addr   
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'************      ACİL ÇAĞRI TELEFONU 1 VE ÇAĞRI TİPİ     *********************
'******************************************************************** 02.05.2007
WRtelAcil1    :	IF wr = WW Then			
				   For addr = 174 TO 188
				       Write addr,telAcil1(addr-174)
				   Next addr   
				   addr = 189
				   Write addr,cagAcil1
				EndIF
				IF wr = RR Then
				   For addr = 174 TO 188
				       Read addr,telAcil1(addr-174)
				   Next addr   
				   addr = 189
				   Read addr,cagAcil1
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'************      ACİL ÇAĞRI TELEFONU 2 VE ÇAĞRI TİPİ     *********************
'******************************************************************** 02.05.2007
WRtelAcil2    :	IF wr = WW Then							
				   For addr = 190 TO 204
				       Write addr,telAcil2(addr-190)
				   Next addr   
				   addr = 205
				   Write addr,cagAcil2
				EndIF
				IF wr = RR Then
				   For addr = 190 TO 204
				       Read addr,telAcil2(addr-190)
				   Next addr   
				   addr = 205
				   Read addr,cagAcil2
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'**********************            ALARM MESAJI         ************************
'******************************************************************** 02.05.2007
WRmsgAlarm    :	IF wr = WW Then
	   			   For addr = 206 TO 230
				       Write addr,msgAlarm(addr-206)
				   Next addr   
				EndIF
				IF wr = RR Then
	   			   For addr = 206 TO 230
				       Read addr,msgAlarm(addr-206)
				   Next addr   
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'**********************         SERVER   IP KAYDI       ************************
'******************************************************************** 02.05.2007
WRipServer   :	IF wr = WW Then
				   For addr = 231 TO 242
				       Write addr,ipServer(addr-231)
				   Next addr   
				EndIF
				IF wr = RR Then
				   For addr = 231 TO 242
				       Read addr,ipServer(addr-231)
				   Next addr   
				EndIF
Return
'******************************************************************** 02.05.2007

'*****************************************************************************OK
'**********************         SERVER   PORT KAYDI     ************************
'******************************************************************** 02.05.2007
WRprtServer  :	IF wr = WW Then				
				   For addr = 243 TO 247
				       Write addr,prtServer(addr-243)
				   Next addr   
			    EndIF
				IF wr = RR Then
				   For addr = 243 TO 247
				       Read addr,prtServer(addr-243)
				   Next addr   
				EndIF
Return
'******************************************************************** 02.05.2007


'*****************************************************************************OK
'************  KONTROLÜ YAPILACAKLAR / YAPILMAYACAKLAR      ********************
'******************************************************************** 06.10.2007
WRkntKontrol  :	IF wr = WW Then
				   addr = 90
	     		   Write addr,kntAcil
				   addr = 91
	     		   Write addr,kntSuphe
				   addr = 92
	     		   Write addr,kntAlarm
				   'addr = 93
	     		   'Write addr,kntKontak
	     		   addr = 94
	     		   Write addr,kntAku
	     		   addr = 95
	     		   Write addr,kntBloke
	     		   addr = 96
	     		   Write addr,kntKamera
	     		   addr = 97
	     		   Write addr,kntTakip
				   addr = 98
	     		   Write addr,kntYer
	     		   addr = 99
				   Write addr,kntMrkzBilgi
                EndIF
				
				IF wr = RR Then
				   addr = 90
	     		   Read addr,kntAcil
				   addr = 91
	     		   Read addr,kntSuphe
				   addr = 92
	     		   Read addr,kntAlarm
				   'addr = 93
	     		   'Read addr,kntKontak
	     		   addr = 94
	     		   Read addr,kntAku
	     		   addr = 95
	     		   Read addr,kntBloke
	     		   addr = 96
	     		   Read addr,kntKamera
	     		   addr = 97
	     		   Read addr,kntTakip
				   addr = 98
	     		   Read addr,kntYer
	     		   addr = 99
	     		   Read addr,kntMrkzBilgi
				EndIF
Return		
'******************************************************************** 06.10.2007

'*****************************************************************************OK
'**********************           RESET  BİLGİ          ************************
'******************************************************************** 06.10.2007
WRSysReset   :  IF wr = WW Then	
                    addr = 100
				    Write addr,kntSysReset
                 EndIF
                 IF wr = RR Then	   
                   addr = 100
	     		   Read addr,kntSysReset
	     	     EndIF
Return
'******************************************************************** 06.10.2007


'*****************************************************************************OK
'**********************         KONTAK   BİLGİ          ************************
'******************************************************************** 06.10.2007
WRSysKontak   :  IF wr = WW Then	
                    addr = 93
				    Write addr,kntKontak
                 EndIF
                 IF wr = RR Then	   
                   addr = 93
	     		   Read addr,kntKontak
	     	     EndIF
Return
'******************************************************************** 06.10.2007


                    
'*****************************************************************************OK
'**********************         SMS GPRS SEÇİM          ************************
'******************************************************************** 02.05.2007
WRCalType  :	IF wr = WW Then
				   addr = 255
				   Write addr,SysCalType
				EndIF
				IF wr = RR Then
		           addr = 255
	     		   Read addr,SysCalType
	     		   'FlgCalType = SysCalType + EtkenCalType
				EndIF
Return			
'******************************************************************** 02.05.2007



'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'**********************            END OF CODE          ************************
'**********************            END OF CODE          ************************
'*******************************************************************************
'*******************************************************************************
'***************************************************************** JUST BUILDING

End

armys2000 · 22 Mayıs 2008, 00:25:58

kamera modülü ve ısı modülü aktif değildir dikkate almayın yapmak isteyen arkadaşlar uğraşabilir.

atioky_216 · 22 Mayıs 2008, 01:34:37

gps modulu kullandıgın yazıyordu yanlıs anlamadı isem verdiğin adresteki sitede.modul ne sekillerdeki AGS5V1 yazan parcamı?
Bir de PBC sini sen yaptıysan bana cok profesyonelce geldi gerci hiç kendi yapmıslıgım yok ta..
çok teşekkür ederim armys200 kardesim.Her ne kadar daha elektronik talebesi oldugumuzdan daha bişey bilemesemde hep bu proje nin hayalini kuruyordum...

Andromeda · 22 Mayıs 2008, 16:03:37

paylaşım için sağol.
aslında programı sayfaya eklemesende olur.
zaten web sayfanı vermişsin.

OG · 24 Mayıs 2008, 23:45:57

Alıntı yapılan: "armys2000"Arkadaşlar şema ve pcb demo programı vs dokümanı www.endofcode.com sitesinde bulabilirsiniz. son hali bu. Hatalar vs varsa arkadaşlar düzeltsin.

Dosyaların şifreli ?

armys2000 · 25 Mayıs 2008, 16:06:49

dosyalarda şifre vs yok OG hocam.

Picproje Elektronik Sitesi

Haberler:

SMS / GPRS İle Araç Takip Güvenlik Sistemi

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

armys2000

atioky_216

Andromeda

OG

armys2000