<?
//Pass 2007-01-22 as date and output as January 22, 2007
function SafDate1V2($date){
list($y,$m,$d) = explode("-",$date);
$mycooldate = date("F d, Y",mktime(0, 0, 0, $m, $d, $y));
return $mycooldate;
}
//Pass 2007-01-22 as date and output as Jan 22, 2007
function SafDate2V2($date){
list($y,$m,$d) = explode("-",$date);
$mycooldate = date("M d, Y",mktime(0, 0, 0, $m, $d, $y));
return $mycooldate;
}
//Pass 2007-01-22 as date and output as Jan 22, 07
function SafDate3V2($date){
list($y,$m,$d) = explode("-",$date);
$mycooldate = date("M d, y",mktime(0, 0, 0, $m, $d, $y));
return $mycooldate;
}
//Pass 2007-01-22 as date and output as Sunday Jan 22, 2007
function SafDate4V2($date){
list($y,$m,$d) = explode("-",$date);
$mycooldate = date("l M d, Y",mktime(0, 0, 0, $m, $d, $y));
return $mycooldate;
}
//Pass 2007-01-22 as date and output as Sun, Jan 22, 2007
function SafDate5V2($date){
list($y,$m,$d) = explode("-",$date);
$mycooldate = date("D, M d, Y",mktime(0, 0, 0, $m, $d, $y));
return $mycooldate;
}
?>
I was designed and programmed with a php website to download tutorials. Although yet to add new development and programming tutorials, you can find and download a php tutorial if you need it.
The tutorials in pdf format, are completely free.
This is my small contribution to the programmers who need to document some programming languages. I hope you like it.
function with return in php
$num1=10;
$num2=5;
function add($num1,$num2)
{
return $num1+$num2;
}
function multi($num1,$num2)
{
return $num1*$num2;
}
echo 'add : '.add($num1,$num2).'<br>';
echo 'multiply : '.multi($num1,$num2).'<br>';
echo 'function in function : '.add(multi($num1,$num2),multi($num1,$num2)).'<br>';
?>
output :
add : 15
multiply : 50
function in function : 100
Script Auto Reply SMS Gateway dengan PHP
Setelah sekian lama tidak update blog, kangen rasanya untuk berbagi kembali pada pengunjung setia blog ini. Dalam postingan kali ini saya akan berbagi ilmu tentang bagaimana cara membuat script auto reply SMS Gateway dengan PHP dan MySQL. Topik ini sebenarnya sudah lama dinantikan oleh beberapa rekan namun baru sempat kali ini saya mewujudkannya. Maaf ya rekans…
OK deh… masih dengan menggunakan Gammu kita akan membuat contoh studi kasus yaitu tentang nilai mahasiswa. Adapun skenarionya adalah sbb: andaikan kita telah memiliki data nilai matakuliah Kalkulus mahasiswa. Nah… untuk melihat nilainya, si mahasiswa tinggal mengirim pesan melalui SMS dengan format ‘NILAI<spasi>NIM‘ dan dikirim ke nomor HP tertentu. Selang beberapa waktu si mahasiswa tadi akan mendapat SMS balasan berisi nilai matakuliah Kalkulus yang diperolehnya secara otomatis. OK paham ya skenarionya?
Sebelum kita bahas lebih lanjut mengenai pembuatan scriptnya, terlebih dahulu kita harus mengetahui ide pembuatan script auto reply SMS dengan Gammu ini.
Tentu kita sudah ketahui bersama bahwa setiap kali SMS yang diterima oleh Gammu, maka SMS tersebut akan masuk ke dalam tabel ‘INBOX‘ yang ada di database MySQL. Lantas.. mungkin Anda bertanya, bagaimana cara membedakan mana SMS yang telah diproses dan yang belum diproses (baru saja masuk)? Jawabannya adalah terletak pada field yang bernama ‘Processed‘. Begitu ada SMS masuk, maka secara default nilai pada field ini adalah ‘false‘. Nah… Bila ditemukan record SMS yang bernilai ‘false’ ini maka kita bisa proses dengan menggunakan script tertentu. Kemudian setelah data SMS tersebut diproses kita harus segera mengubah nilainya menjadi ‘true‘ untuk membedakan mana SMS yang telah diproses dengan yang belum.
Proses di atas ini harus dilakukan setiap saat. Anda dapat menggunakan script PHP atau script apapun untuk memproses data SMS yang masuk ke dalam INBOX ini. Bila Anda menggunakan script PHP, maka Anda perlu membuat script auto refresh yang secara otomatis berjalan pada selang interval waktu tertentu. Proses auto refresh ini bertujuan untuk mengecek ada tidaknya SMS baru yang masuk sekaligus memprosesnya.
OK… now back to the case… pertama kita siapkan dahulu data nilai Kalkulus mahasiswa beserta tabelnya.
CREATE TABLE `nilaikalkulus` (
`nim` varchar(10),
`nilai` int(11),
PRIMARY KEY (`nim`)
);
INSERT INTO `nilaikalkulus` VALUES ('M0197001', '80');
INSERT INTO `nilaikalkulus` VALUES ('M0197002', '79');
INSERT INTO `nilaikalkulus` VALUES ('M0197003', '86');
Oya, untuk tabel di atas Anda bisa buat pada satu database yang sama dengan tabel-tabel bawaannya Gammu atau bisa juga berbeda.
Selanjutnya, kita buat script PHP untuk pemrosesannya. Oya.. pastikan bahwa keyword dari perintah SMS yang dikirimkan adalah sesuai dengan format. Untuk memastikan bahwa keyword dari perintah itu benar, Anda harus membuat parsing terlebih dahulu. Jika format perintah benar maka SMS akan diproses untuk mengirimkan nilainya. Namun jika tidak sesuai, maka tetap diproses dengan mengirimkan pesan kesalahan dalam bentuk SMS pula.
Hal terpenting… jangan lupa mengubah status ‘processed’ menjadi ‘true’ pada setiap SMS yang telah diproses di dalam tabel INBOX nya.
Nah.. ini dia scriptnya untuk membuat auto reply, lengkap saya sertakan penjelasannya dalam bentuk komentar.
<?php
//koneksi ke mysql dan db nya
mysql_connect("dbhost", "dbuser", "dbpass");
mysql_select_db("dbname");
// query untuk membaca SMS yang belum diproses
$query = "SELECT * FROM inbox WHERE Processed = 'false'";
$hasil = mysql_query($query);
while ($data = mysql_fetch_array($hasil))
{
// membaca ID SMS
$id = $data['ID'];
// membaca no pengirim
$noPengirim = $data['SenderNumber'];
// membaca pesan SMS dan mengubahnya menjadi kapital
$msg = strtoupper($data['TextDecoded']);
// proses parsing
// memecah pesan berdasarkan karakter <spasi>
$pecah = explode(" ", $msg);
// jika kata terdepan dari SMS adalah 'NILAI' maka cari nilai Kalkulus
if ($pecah[0] == "NILAI")
{
// baca NIM dari pesan SMS
$nim = $pecah[1];
// cari nilai kalkulus berdasar NIM
$query2 = "SELECT nilai FROM nilaikalkulus WHERE nim = '$nim'";
$hasil2 = mysql_query($query2);
// cek bila data nilai tidak ditemukan
if (mysql_num_rows($hasil2) == 0) $reply = "NIM tidak ditemukan";
else
{
// bila nilai ditemukan
$data2 = mysql_fetch_array($hasil2);
$nilai = $data2['nilai'];
$reply = "Nilai Kalkulus Anda: ".$nilai;
}
}
else $reply = "Maaf perintah salah";
// membuat SMS balasan
$query3 = "INSERT INTO outbox(DestinationNumber, TextDecoded, CreatorID) VALUES ('$noPengirim', '$reply', 'Gammu')";
$hasil3 = mysql_query($query3);
// ubah nilai 'processed' menjadi 'true' untuk setiap SMS yang telah diproses
$query3 = "UPDATE inbox SET Processed = 'true' WHERE ID = '$id'";
$hasil3 = mysql_query($query3);
}
?>
Oya… mungkin Anda bertanya, mengapa untuk proses parsing di atas pesan SMS nya perlu dibuat huruf kapital dengan strtoupper(). Ya… hal ini perlu karena supaya ada keseragaman bentuk pesan. Karena terkadang SMS dikirim dengan huruf kapital semua, kecil semua atau campuran. Bila tidak seragam, maka sulit dalam proses memparsingnya, karena string ‘NILAI’ dengan ‘nilai’ itu berbeda sehingga bila ditulis huruf kecil semua nantinya bisa dianggap perintah salah. Nah.. supaya seragam, maka setiap SMS yang masuk kita buat kapital semua saja.
Keterangan:
Cara pengiriman pesan balasan pada script di atas, saya menggunakan teknik insert data pada tabel OUTBOX dengan query SQL. Anda dapat mempelajari kembali teknik ini serta menggunakan teknik lain dengan membaca artikel saya tentang ‘Teknik Dasar Mengirim SMS dengan Gammu‘.
Selanjutnya supaya script di atas berjalan secara otomatis mengecek SMS yang masuk, Anda harus buat auto refresh dalam selang beberapa detik.
sms.php
<html>
<head>
<!-- refresh script setiap 30 detik -->
<meta http-equiv="refresh" content="30; url=<?php $_SERVER['PHP_SELF']; ?>">
</head>
<body>
<h1>SMS server running....</h1>
<?php
//koneksi ke mysql dan db nya
mysql_connect("dbhost", "dbuser", "dbpass");
mysql_select_db("dbname");
// query untuk membaca SMS yang belum diproses
$query = "SELECT * FROM inbox WHERE Processed = 'false'";
$hasil = mysql_query($query);
while ($data = mysql_fetch_array($hasil))
{
// membaca ID SMS
$id = $data['ID'];
// membaca no pengirim
$noPengirim = $data['SenderNumber'];
// membaca pesan SMS dan mengubahnya menjadi kapital
$msg = strtoupper($data['TextDecoded']);
// proses parsing
// memecah pesan berdasarkan karakter <spasi>
$pecah = explode(" ", $msg);
// jika kata terdepan dari SMS adalah 'NILAI' maka cari nilai Kalkulus
if ($pecah[0] == "NILAI")
{
// baca NIM dari pesan SMS
$nim = $pecah[1];
// cari nilai kalkulus berdasar NIM
$query2 = "SELECT nilai FROM nilaikalkulus WHERE nim = '$nim'";
$hasil2 = mysql_query($query2);
// cek bila data nilai tidak ditemukan
if (mysql_num_rows($hasil2) == 0) $reply = "NIM tidak ditemukan";
else
{
// bila nilai ditemukan
$data2 = mysql_fetch_array($hasil2);
$nilai = $data2['nilai'];
$reply = "Nilai Kalkulus Anda: ".$nilai;
}
}
else $reply = "Maaf perintah salah";
// membuat SMS balasan
$query3 = "INSERT INTO outbox(DestinationNumber, TextDecoded) VALUES ('$noPengirim', '$reply')";
$hasil3 = mysql_query($query3);
// ubah nilai 'processed' menjadi 'true' untuk setiap SMS yang telah diproses
$query3 = "UPDATE inbox SET Processed = 'true' WHERE ID = '$id'";
$hasil3 = mysql_query($query3);
}
?>
</body>
</html>
Sebenarnya untuk memproses SMS dan memberikan auto reply, selain dengan auto script menggunakan auto refresh seperti di atas, Anda dapat pula menggunakan TRIGGER di MySQL nya. Namun.. bagi yang belum terbiasa membuatnya seperti saya, mungkin agak repot, apalagi bila panjang text auto reply nya di atas 160 karakter.
Script di atas sudah diuji coba dan berjalan dengan lancar di modem Wavecom Fastrack.
OK deh.. selamat mencobanya, dan silakan berkreasi sendiri ya… Anda dapat menambahkan keyword lain atau format SMS lain yang lebih dari satu.
VBA databases connection
Microsoft Excel can connect to a database and retrieve data to be used in a report. First you have to insert all necessary References in the Tools Menu.

In the Project Explorer window select ThisWorkbook and insert the following lines in the code window:
Public con As New ADODB.Connection
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If con.State = adStateOpen Then con.Close
Set con = Nothing
End Sub
Private Sub Workbook_Open()
Dim r As New ADODB.Recordset
con.ConnectionString = "driver={SQL Server};Server=IP; uid=USERID;pwd=PASS"
con.CommandTimeout = 120 con.Open
con.Execute "USE DATABASE"
End Sub
You can now insert a new module in the project explorer window and start writing your code.Example:
Sub ReadTable()
Dim r As New ADODB.Recordset
i=2
r.Open "SELECT name,age FROM DATABASE WHERE age>18", ThisWorkbook.con
While NOT r.EOF
Sheets("Sheet 1").cells(i,1)=r("name")
Sheets("Sheet 1").cells(i,2)=r("age")
i=i+1
r.MoveNext
Wend
r.Close
Set r = Nothing
End Sub
Run the module and enjoy.
A Simple PHP class
Creating an instance
roll dice in php
<center><?php
$rand=rand(1,6);
echo "dice one : $rand".'<br>';
$rand1=rand(1,6);
echo "dice two : $rand1";
?>
<form action="roll_dice.php" method="POST">
<input type="submit" value="roll dice">
</form>
output :
dice one : 3
dice two : 3
dice one : 3
dice two : 5
dice one : 4
dice two : 2
dice one : 4
dice two : 3
dice one : 1
dice two : 5
note :
for basics : rand()