Skip to main content

Sms controller (via sms controlling) by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts.



 Sms controller (via sms controlling) by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts.

I have learned sending sms by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts.
 just for fun, since I already learn how to send sms by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts.
. In principle, sms delivery process is conducted by using communication serial, both between pc and modem or could be between modem and microcontroller. Basically, sms sending process is communication with AT command. AT command used to send SMS as below:
At+cmgs = 085743320xxx [enter]
Write the messages will be sent, then press ctrl + z simultaneously (programming code ascii for rl + z is #26). It should appear OK as the sign that sms already sent.
Here is the source code sending sms using bascom:
   Print "AT+CMGS=";   
  Print "085729169629" '---- cellphone numbers : , replaceable
  Waitms 700    '----- wait 700 ms
  Print "DEVICE SHIFT, INDICATION OF THEFT ";    '----- sms content sent
   Print Chr(26) '----- final code for sending sms command
  Wait 1  '----- wait 1 second
Above code will send command
At+cmgs = 085729169629 [enter]
Then, DEVICE MOVE, INDICATION OF THEFT, and character ctrl + Z to modem. It means we command modem to send sms contains DEVICE MOVE, INDICATION OF THEFT to 085729169629
The complete source code as follows:



$regfile = "m8def.dat"                                      'Mikrokontroler ATMega8
$crystal = 12000000 ‘ cristal dipergunakan 12 mhz
$baud = 9600 ‘baudrate 9600
'------- konfigurasi anti maling
Config Int0 = Low Level ‘(konsep maling akan mengangkat alat sehingga limit switch akan belogika 0)
On Int0 Int_ext0
Enable Interrupts
Enable Int0
$hwstack = 20
$swstack = 8
$framesize = 8
Config Serialin = Buffered , Size = 72
Waitms 500
print "AT"
'------ sistem interupsi diaktifkan
Enable Interrupts
Waitms 500                                                  'Tunggu modem stabil
'------ tes komunikasi dengan modem
Do
  Print "AT" :                                              ' kirim text “AT” keodem
  Getline Sret                                              ' get data from modem
Loop Until Sret = "OK"                                      ' modem harus send OK ke mikrokontroller
'------ tunggu 2 detik
Wait 2
'Print "AT+CMGF=1";
'wait 1
Int_ext0:
   Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print "085729169629"
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "DDEVICE MOVE, INDICATION OF THEFT";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
   Wait 1
   Return




Video 1 Sms controller (via sms controlling) by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts.

Video 2 Sms controller (via sms controlling) by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts



Video 3 Sms controller (via sms controlling) by using modem serial wavecom fastrack M1306B being interfaced with microcontroller of bascom scripts




 

Popular posts from this blog

Login Form Delphi by Connecting to Ms Access Database.

this the step by step  to making application :

Login Form Delphi by Connecting Ms Access Database.

In making/ building application in Delphi, login Form is an important to protect application so that cannot be open by irresponsible person. This login Form is connected with database so that able to keep a lot of username data and password. Before make the application, please create a database as the picture below:
Picture :Login  form Delphi database Microsoft Access
Save the database in the folder which use to save the application


Next step is create the application

Enter the component and the source code as follows.


No Component NameProperties Value1Label1CaptionUsername2Label2CaptionPassword3Edit1Text -4Edit2Text -5Button1CaptionLogin6Adoconnection1--7AdoQuery1ConnectionADOConnection1

Arrange the component as the picture below:


Figure. Login Form Delphi design form



 Create new form



Form properties can be check in the table below
No Component NameProperties Value1Form1CaptionSuccess…

Step by step Accessing SMS With Delphi: Sending SMS Using Borland Delphi 7 Exploit Comport Component (Siemens))

In this example, will present the way how making SMS delivery program with Delphi, basically, data in data communication series between Delphi and mobile phone happen in Format Protocol Data Unit (PDU). The destination number of sending Message and message that will be sent through Delphi program that is made have to be changed into PDU Form first, next is the data will be sent through serial port to mobile phone. To make the send SMS Application , please enter the following component to Form 1.

No Component NameProperties ValueButton1CaptionConnectButton2CaptionDisConnectButton3CaptionConvert to PDUButton4CaptionSend to HPButton5CaptionClearButton6CaptionStart Send SMSButton7CaptionSet PortEdit1Text-Edit2Text<Type The SMS here>Edit3Text-Label1Caption1) Destination Number :Label2Caption2Label3CaptionPDU lengthLabel4CaptionLabel lengthComLed1--Memo1--Memo2--Comport1--Arrange the Component  in such away so that the visualization program is as follows:


Then type the follow…

The Example Using Chart In Borland Delphi 7

The Example Using Chart In Borland Delphi 7




In this writing will discuss about how to use the chart in Delphi 7. In the example that is made by using Delphi 7, chart will appear 2 data in the form of incremental data number, the first data named data 1 and the second data named data 2. Data 1 is incremental data 1 that is begun from 0 until 10; while data 2 is same. Yet, in the beginning condition of data 1 start from 0 while data 2 start from 1.


To make application as the explanation above, please enter the components in the table below into design form.


NoComponentPropertiesValueNote1Form1CaptionThe Chart of Data on Delphi 72GroupBox1CaptionThe Chart of Data on Delphi 73Label1CaptionData 14Label2CaptionData 25Edit1Text06Edit2Text07Button1CaptionShow to Chart8Button2CaptionClose9Timer1EnabledFalse10Chart--Check the NoteNote:

Double click on chart component, set the property of chart as below:


Click on  Add.. Button

Then the following chart gallery will be shown:



Choose the…