Data sensing acquisition and notification framework using moisture sensor

 ###


 
$regfile = "M16def.dat"
 $crystal = 8000000
 $framesize = 24
 $hwstack = 32
 $swstack = 8
 $baud = 19200                                               '****BAUD RATE IS AUTO DETECTED BY GSM SO YOU CAN TAKE ANY ONE
 Dim A As String * 5 , Rcvd As String * 5
 Dim I As Integer
 'Config Portc = Output
 
 Config Lcdpin = Pin , E = Portc.4 , Rs = Portc.5 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0
 Config Lcd = 16 * 2
   Config Adc = Single , Prescaler = Auto , Reference = Avcc
 
 Start Adc
 
 Dim S As Integer
 
 Dim W As Word
  Dim H As Integer
  Config Portd.6 = Output
 
 
 
 Config Serialin = Buffered , Size = 254
 Config Serialout = Buffered , Size = 254
 Enable Interrupts
 Config Portd.6 = Output
 'Set Portc.6 '
 'Waitms 500'
 'Reset Portc.6 'POWER KEY (LOW)PULSE
 'Wait 2'
 'Set Portc.6'
 ' Cls
 
  Lcd "gsm"
  Wait 1
  Cls
 
 Wait 25                                                     'WAIT FOR FINE NETWORK
 
 Do
 Cls
 
 
 For S = 0 To 100 Step 1
 
 W = Getadc()
 
 W = W / 8
  Locate 1 , 1
 
 Lcd "HUMIDITY:"
 Locate 1 , 10
 Lcd W
 
 Waitms 100
 Next
 
 Cls
 
 If W > 70 Then
 Reset Portd.6
 H = 1
 Else
  Set Portd.6
 H = 2
 End If
 
 
 Cls
 Locate 1 , 1
 Lcd "Power UP"
 Wait 2
 Cls
 
 Do
 Cls
 Locate 1 , 1
 Lcd "Waiting"
 Print "AT"                                                  'SENDING "AT" FOR CHEKING THE GSM MODEM IS WORKING
 A = Inkey()
 Loop Until A = "O"                                          'RESPONSE OF "AT" IS "OK" SO WAITING FOR  FIRST LETER "O"
 
 Rcvd = A
 
 Do
 A = Waitkey()
 Loop Until A = "K"                                          'RESPONSE OF "AT" IS "OK" SO WAITING FOR  SECOND LETER "K"
 
 Rcvd = Rcvd + A                                             'COMBINE "O & K" FOR FINAL RESPONSE"OK"
 
 
 
 
 Cls
 Lcd Rcvd
 
 Wait 2
 
 Rcvd = ""                                                   'MAKING RCVD EMPTY FOR OTHER RESONSE
 
 Cls
 Print "AT+CMGF=1"                                           'TO ENTER IN TEXT MODE OTHER WISE MODEM WILL BE IN PDU(PACKET DATA UNIT) "AT+CMGF=0"
 Locate 1 , 1
 Lcd "AT+CMGF=1"                                             'FOR DISPLAY
 
 Do
 A = Inkey()
 Loop Until A = "O"                                          'RESPONSE OF "AT+CMGF=1" IS "OK" SO WAITING FOR  FIRST LETER "0"
 
 Rcvd = A
 Do
 A = Inkey()
 Loop Until A = "K"                                          'RESPONSE OF "AT+CMFG=1" IS "OK" SO WAITING FOR  SECOND LETER "K"
 Rcvd = Rcvd + A
 
 Lowerline
 
  Lcd Rcvd
  Wait 4
 Cls
 
 Print "AT+CMGD=1"                                           'TO RECIVE THE NEW MESSAGE IN 1ST INDEX WE ARE DELETING THE FIRST ENTRY                                       ' ; I
 Lcd "AT+CMGD=1"
 Rcvd = ""
 Do
 A = Inkey()
 Loop Until A = "O"
 
 Rcvd = A
 Do
 A = Inkey()
 Loop Until A = "K"
 Rcvd = Rcvd + A                                             'RESEPONSE IS "OK"
 
 Lowerline
 
 
  Lcd Rcvd
 
 
  Wait 4
 Rcvd = ""
 Cls
 Locate 1 , 1
 
 Lcd "AT+CMGW=" + Chr(34) + "9974621247" + Chr(34)
'TO WRITE RECIPIENT'S MOBILE NUMBER TO MEMORY THE AT COMMAND IS "AT+CMGW=1"
Print "AT+CMGW=" + Chr(34) + "9409085769" + Chr(34)         
'examlpe - - > At + Cmgw = "9904353830" , Chr(34) Replaces DOUBLE QUOTATION
 
 Do
 A = Inkey()
 Loop Until A = ">"                                          'RESPONSE OF AT+CMGW="9904353830" IS ">" SO WAITING FOR ">"
 Cls
 Lcd "OK"
 Wait 1
 
 Wait 2
 Rcvd = ""
 Cls
 Locate 1 , 1
 
 Lcd "system is WORKING"
 
 
 If H = 1 Then
 
 Print "THANK YOU"
 
 Elseif H = 2 Then
 
 Print "PLZ GIVE WATER"
 
 End If
                               'TO WRITE MESSAGE TO MEMORY
 Print Chr(26)                                               'IT IS NECCESSARY TO GIVE CTRL+Z AFTER WRITING MESAGE, CHR(26) = CTRL+Z
 
 
 Do
 A = Inkey()
 Loop Until A = "O"                                          'RESPONSE AFTER CTRL+Z IS "OK" SO WAITING FOR "O"
 
 Rcvd = A
 Do
 A = Inkey()
 Loop Until A = "K"                                          'WAITING FOR "K"
 Rcvd = Rcvd + A
 
 Cls
 Locate 1 , 1
 Lcd Rcvd
 Wait 2
 Cls                                                         '***** MESSAGE IS STORED AT FIRST INDEX BEACAUSE WE ARE DELETING 1ST ENTRY
                                                             'WE HAVE CHECKED IT THROUGH HYPER TERMINAL, SEE "HYPER TERMINAL OUTPUT.DOC" FILE
 
 Print "AT+CMSS=1"                                           'TO SEND SMS STORED IN 1ST INDEX WE WRITE "AT+CMSS=1"
 Lcd "AT+CMSS=1"
 
 
 Clear Serialin
 Rcvd = ""
                                                 '****** RESPONSE OF "AT+CMSS=1" IS +CMSS: 1
 For I = 1 To 10
 A = Waitkey()
 
 Clear Serialin
 
 Rcvd = Rcvd + A                                             'RESPONSE IS COLLECTED IN Rcvd STRING VARIABLE JUST TO SEE
 
 
 Next
 
 Locate 2 , 1
 
 Lcd Rcvd
 
 
 
 
 Do
 A = Inkey()
 Loop Until A = "O"                                          'FINALLLLLLLLLLLLLLLLLLLLYYYYYYYYYYY  MESSAGE FORM MICROCONTROLLER TO MOBILE
 
 Rcvd = A
 Do
 A = Inkey()
 Loop Until A = "K"
 Rcvd = Rcvd + A
 
 Cls
 Locate 1 , 1
 Lcd Rcvd
 Lowerline
 Lcd "MES SENT"
 Wait 2
 
 Loop
 End
 
 
###