Forum Discussion
Altera_Forum
Honored Contributor
9 years agoprocess main
begin
SerialPortInit; -- Serial Communication – 9600-N-8-1
Send2Gsm("AT\r\n"); wait for 2 sec; -- Transmit AT to the module – GSM Modem sends OK */ DelayS(2); /* 2 sec delay */
Send2Gsm("ATE0\r\n"); wait for 2 sec; -- Echo Off */ DelayS(2); /* 2 sec delay */
Send2Gsm("AT+CMGF=1\r\n"); wait for 2 sec; -- Switch to text mode */ DelayS(2); /* 2 sec delay */
Send2Gsm("AT+CMGS=\"+919447367176\"\r\n"); wait for 2 sec; -- Send SMS to a cell number */ DelayS(2); /* 2 sec delay */
Send2Gsm("TEST DATA FROM RhydoLABZ-COCHIN"); wait for 2 sec; -- Input SMS Data */ SerialTx(0x1a); /* Ctrl-Z indicates end of SMS */ DelayS(2); /* 2 sec delay */
wait;
end process main;
Kevin