SMSGATEWAY NEXMO - Di nexmo, kita bisa menggunakan versi gratis dengan limit credit 2 euro yang bisa kita gunakan testing atau belajar membuat sms gateway dengan nexmo.OK, langsung saja kita pada langkah pertama. 1. Langkah pertama adalah dengan membuat account di nexmo.com. Setelah berhasil membuat account di nexmo, maka kita akan mendapatkan Key dan secret seperti gambar di bawah ini.
Kitamulai langkah setting SMS gateway menggunakaan Gammu: 1. Copy file gammurc dan smsdrc ke folder C:\gammu\bin\ Langkah pertama membuat sms gateway adalah dengan melakukan copy file gammurc dan smsdrc ke folder C:\gammu\bin\. Dimana letak kedua file tersebut? gammurc dan smsdrc ada di dalam folder: C:\gammu\share\doc\gammu\examples\config\.
Sedariawal, package SMS gateway ini didesain untuk mendukung layanan SMS dari berbagai vendor, namun untuk saat ini saya fokuskan pada layanan SMSGateway.me. Vendor lain yang dapat digunakan
DenganGili-SMS, anda dapat mengirim SMS dengan Identitas nama Perusahaan. Pada HP penerima, yang tertera sebagai pengirim bukan nomor kartu, melainkan nama Perusahaan. SMS ini disebut dengan ID Sender atau SMS masking. Mengirim SMS menggunakan ID Sender dapat meningkatkan citra Perusahaan di mata pelanggan dan nasabah.
CaraMembuat SMS Gateway dengan Mudah. Langkah-langkah untuk membuat sms gateway dengan menggunakan aplikasi basis web yaitu Gammu, Kalkun, dan Xampp. anda bisa membuat aplikasi ini dengan mudah
CaraSMS Gratis 1. Cara SMS Gratis Melalui Web Internet. Ada beberapa situs penyedia layanan sms gratis di internet, diantaranya: https://www.sms-gratis.xyz; http://www.freesms4us.com/ http://www.kusms.com/ Akan kami contohkan satu situs untuk mengirim sms gratis yaitu dengan sms-gratis.xyz: 1. Kunjungi situs https://www.sms-gratis.xyz/.
. Bingung bagaimana cara membuat WhatsApp gateway secara gratis? Tenang, Anda bisa simak tutorial lengkap di artikel WhatsApp gateway sendiri yaitu sebuah sistem yang memungkinkan Anda untuk mengirim dan menerima pesan otomatis di WhatsApp secara Anda bisa membuat WhatsApp gateway, Anda harus mendapatkan API WhatsApp terlebih dahulu yang akan membuat bot dari WhatsApp bisa mendapatkan API WhatsApp, Anda bisa menggunakan beberapa website seperti atau sayangnya untuk membuat akun maupun mengakses fitur dari kedua website tersebut, tidak bisa dilakukan secara gratis dan harus membayar biaya langganan terlebih Cara Membuat WhatsApp Gateway API Secara GratisPada umumnya, WhatsApp memang bisa digunakan untuk berbagai fungsi yaitu bisa untuk WhatsApp messenger maupun WhatsApp WhatsApp bussines memang bisa Anda manfaatkan untuk urusan bisnis, salah satunya dengan cara membuat WhatsApp berbagai macam keuntungan yang akan didapatkan ketika menggunakan WhatsApp gateway seperti kirim pesan WhatsApp dengan php atau mengakses WhatsApp gateway seperti yang sudah dibahas sebelumnya bahwa untuk mendapatkan API WhatsApp Anda perlu daftar di website yang sudah disebutkan caranya, silahkan Anda bisa langsung ikuti tutorial berikut Melalui Website website merupakan sebuah website yang bisa Anda gunakan untuk membuat WhatsApp API gateway auto post ini memang cukup bisa diandalkan dengan berbagai fitur yang menarik dan mudah untuk Anda belum tahu cara mengaksesnya, bisa ikuti langkah di bawah iniPertama, buka browser lalu kunjungi situs buat akun dengan klik Sign akun sudah dibuat, silahkan Login terlebih itu, klik My Phone untuk membuat aplikasi WhatsApp API gateway auto post message. Jika api token sudah terisi, silahkan klik klik Add on weboxapp di browser atau masukkan api token pada kolom yang tersedia lalu klik api sudah tervalidasi, silahkan buka WhatsApp versi web di pc kembali ke halaman waboxapp, klik api rest lalu salin link agar sudah, silahkan buat script php dan teks pesan dengan format Setelah itu, salin dan tempelkan pada script silakan simpan sript tersebut di file komputer mencoba script tersebut, Anda bisa kunjungi http//localhost/whatsappAPI/ lalu klik Kirim Melalui Website cara membuat WhatsApp gateway dengan mungkin lebih mudah dibanding dengan metode yang prosesnya juga terbilang rumit dan membutuhkan kejelian yang cukup tinggi agar tidak salah saat mengatur caranya, bisa Anda simak di bawah iniBuka browser lalu masuk ke situs Anda sudah memiliki akun, silahkan Login terlebih berhasil masuk, klik Add new number pada website aplikasi WhatsApp di ponsel Anda lalu pilih WhatsApp scan ke QR code yang muncul di halaman sudah, silahkan klik My number lalu salin api bot WhatsApp gateway bisa membaca pesan, Anda perlu membuat script php seperti iniFrom;$To_temp = $Item->To;$Text_temp = $Item->Text;$Type_temp = $Item->Type;Echo âPengirim â.$From_temp;Echo âPesan â.$Text_temp;Echo ââ;}?>Untuk cek script yang sudah Anda buat berhasil atau tidak, Anda bisa buka browser kemudian buka alamat http//localhost/whatsapp/ Juga Cara Mengatasi WhatsApp Blank Putih di PC 100% WorkNah, jadi begitulah pembahasan Saya kali ini tentang 2 cara membuat WhatsApp gateway untuk kirim pesan secara otomatis.
Keterangan SMS gateway adalah sebuah perangkat yang menawarkan layanan transit SMS, mentransformasikan pesan ke jaringan selular dari media lain, atau sebaliknya, sehingga memungkinkan pengiriman atau penerimaan pesan SMS dengan atau tanpa menggunakan ponsel. Nah pada kesempatan ini PONDOKSOFT Berbagi Full Source code tentang APLIKASI SMS GATEWAY BERBASIS WEB .. Berdasarkan hasil pengujian program maka dapat disimpulkan bahwa program ini dapat berjalan dengan baik dan sudah memenuhi kebutuhan pemakai serta layak diimplementasikan. Aplikasi ini dapat diakses melalui Web Browser, Dengan begitu setiap orang dapat menggunakan aplikasi ini nanti .. Adapun fitur/Komponen yang terdapat di dalam APLIKASI SMS GATEWAY BERBASIS WEB adalah sebagai berikut FITUR 1. Menerima & Mengirim SMS Masuk 2. Menyimpan data Phonebook 3. Pesan Brodcast kepada Group 4. Jawaban SMS secara otomatis dengan Autoreply Sederhana. 5. Notifikasi SMS masuk dengan suara ringtone 6. Report Kotak Masuk ke PDF 7. Statistik SMS Masuk Per bulan APLIKASI SMS GATEWAY BERBASIS WEB ini siap pakai atau pun di kembangkan sesuai dengan keinginan.. Demikian lah Keterangan/penjelasan dari Aplikasi/fitur di atas adalah sebagian dari aplikasi ini , Dan ada banyak lagi keunggulan dari aplikasi ini,untuk melihat lebih lanjut tentang APLIKASI SMS GATEWAY BERBASIS WEB , Silahkan download dan jangan lupa di share ya .. Terimakasih.. Baca Juga Cara Instalasi - Download file Pendukung yaitu web server xampp bisa download di sarankan php atau versi - Text editor untuk membongkar coding di rekomendasikan sublime text atau notepad ++ - install xampp seperti biasa dan subimetext nya - copy folder Download aplikasi sms gateway berbasis web gratis yang sudah di download ke direktory c/xampp/htocs - kemudian buka bowser google chorme kemudian ketikan localhost/phpmyadmin/ - selanjutnya buat database dengan nama yang ada di folder htdocs tadi yang telah di pindahkan ada di folder db atau database dengan format .sql, kemudian import - setelah itu sesuaikan setingan koneksi database dengan membuka aplikasi texteditor tadi, file koneksi di application/config/ atau di file lalu save - kemudian buka browser ketikan localhost/project_nama nama project tadi - selesai Akun Login Username admin Pasword admin atau anda bisa cek di tabel admin atau user anda bisa juga cek website source code aplikasi berbasis web Yang di dapat dari aplikasi Download aplikasi sms gateway berbasis web gratis ini adalah 1. Komplit Full Source Code Open source 2. Kompit Full Database Mysql Format .sql 3. E-book PDF Penginstalan Atau Petunjuk 4. VIDEO .MP4 Cara Penggunaan Aplikasi 5. Dukungan / Support 24 JAM Gratis Konsultasi Kode Aplikasi PS2072 Sumber / Developer Publish 10/23/2016 LIVE DEMO DOWNLOAD Rating Download LISENSI RESMI
0% found this document useful 0 votes4K views11 pagesOriginal TitleTutorial SMS Gateway Gratis _ Membuat Sendiri Kirim SMS Gratis via Web Dengan PHP Dan MySQLCopyright© Attribution Non-Commercial BY-NCAvailable FormatsPDF, TXT or read online from ScribdShare this documentDid you find this document useful?0% found this document useful 0 votes4K views11 pagesTutorial SMS Gateway Gratis - Membuat Sendiri Kirim SMS Gratis Via Web Dengan PHP Dan MySQLOriginal TitleTutorial SMS Gateway Gratis _ Membuat Sendiri Kirim SMS Gratis via Web Dengan PHP Dan MySQLJump to Page You are on page 1of 11 You're Reading a Free Preview Pages 6 to 10 are not shown in this preview. Reward Your CuriosityEverything you want to Anywhere. Any Commitment. Cancel anytime.
Hi sahabat kali ini saya coba shering pengalaman membuat SMS Gateway dengan aplikasi opensource, yakni gammu, dan kalkun sebagai sms managernya, dan tutorial ini saya buat menggunakan windows XP dan win 7. Kelebihan dari aplikasi ini kita dapat instal di laptop dan mudah untuk digunakan, karena hanya menggunakan modem biasa, dan kita tinggal membawa laptop kemanapun kita bisa monitoring bro đ Untuk lebih lengkapnya tutorial ini saya buat di blog pribadi saya di Cara membuat sms center gratis. Sms gateway ini saya cb buat berdasarkan pengalaman di kantor menggunakan sms center ini, semoga bermanfaat.
SMS Gateway Adalah satu platform yang menyediakan mekanisme untuk menghantar dan menerima SMS dan Merupakan pintu gerbang bagi penyebaran Informasi dengan menggunakan SMS, sehingga memudahkan dalam menyebarkan pesan ke ratusan nomor secara otomatis dan cepat yang langsung terhubung dengan database nomor-nomor ponsel. Sms sekarang bisa jadi sudah mulai di tinggalkan karena sudah banyak aplikasi yang dapat mengirimkan yang lebih baik mulai dari BBM, Whatsapp, chat On dan masih banyak lagi fasilitas untuk mengirim pesan pada smartphone pada saat ini, walaupun sms ketinggalan jaman tapi tetap bisa menjadi salah satu alat mengirim pesan sederhana yang memiliki pusa terbatas, kali ini saya coba shering cara membangun SMS Gateway atau Sebutan yang kerennya saat ini SMS Center, pasti pada penasaran yup untuk alat dan bahan sederhana yakni Alat dan Bahan yang Digunakan PC/Laptop Minimal Dengan Sistem Operasi Windows XP Sp 3 Modem GSM/CDMA Kartu operator GSM/CDMA dan tentunya jangan lupa kartunya di isi pulsa Download Software yang Akan Digunakan Kalkun program opensource untuk mengatur sms yang keluar dan masuk Gammu Engine untuk penghubungnya dengan modem dan Kalkun agar sms yang masuk lansung di transfer ke Inbox Aplikasi Kalkun, dengan Alat dan bahan yang dipersiapkan adalah Modem GSM. XAMPP sebagai webserver dan database server. Untuk lebih lengkapnya tutorial SMS Gateway dapat di Download disini. Saat ini fungsi sms tidak sekedar untuk berkirim pesan kepada kerabat saja, tapi sudah beralih ke fungsi yang lain misalnya quiz sms, polling sms, layanan Info On Demand, dan sebagainya. Semua aplikasi tersebut membutuhkan suatu aplikasi yang disebut sms gateway. Aplikasi SMS gateway bisa diterapkan pada CafĂ©, Toko, Rumah sakit, Sekolah, maupun instansi pemerintah. Contoh aplikasi Info On Demand untuk Sekolah misalnya -> Info nilai ujian siswa. cara kerja client mengirim siswa diikuti mata pelajaran ke nomor server lalu server akan mengirim nilai ujian secara otomatis -> Info jadwal ujian, pendaftaran siswa baru dsb. Sebenarnya untuk membuat SMS gateway tidak terlalu sulit. Bahkan bagi yang awam coding sekalipun. Cukup sedikit pengetahuan tentang Visual Basic dan MsAccess, anda bisa membuat apikasi SMS Gateway sendiri. Yang diperlukan untuk membuat aplikasi SMS Gateway Hardware â Computer â GSM Modem atau HP Nokia series sebagai sms gateway â Kabel Data USB /serial Software â Visual Basic â FBus Activex sebagai komponen Visual Basic â MsAccess sebagai database Dengan SMS Activex, kita sudah bisa menerima sms, membaca inbox, maupun mengirim sms melalui PC. Lalu gimana caranya agar kita bisa membuat sms gateway yang bisa memberikan layanan Info On demand? Berikut langkah-langkahnya 1. Koneksikan database MsAccess dengan Visual Basic 2. Isi database MsAccess dengan database Buku Telepon 3. Memodifikasi script dari smsactivex. Sehingga setiap ada pesan masuk, program akan membalas secara otomatis. Source Codenya plus Componentnya. Silahkan anda Download TUTORIAL Oke jadi kasusnya apa nih, kita ambil aja sample sederhana yaitu âpembuatan sms gateway untuk request nilai siswaâ dan untuk menyederhanakan pembahasan keywordnya kita batasi saja yaitu request nilai tugas dan ulangan. Apa yang harus di persiapkan, pertama kita rancang dulu databasenya dan berhubung artikelsaya yang membahas tentang database SQLite masih hangat jadi untuk databasenya kita menggunakan SQLite saja. SQLite adalah database standalone yang kecil, mungil dan gratis. Bagaimana cara membuat database di SQLite sudah saya bahas disini kemudian bagaimana mengaksesnya dari aplikasi juga sudah saya bahasa disini. Berikut adalah rancangan sederhana database sms yang akan kita buat Ada banyak cara untuk membaca sms masuk dan membalasanya, salah satunya adalah menggunakan perintah AT COMMAND dan Microsoft sendiri sudah menyediakan komponenyang bisa mengeksekusi perintah-perintah tersebut. Tentunya cara ini menggunakan AT COMMAND bukan cara yang favorit dikalangan programmer instan seperti Anda dan Saya , jadi diartikel ini saya menggunakan komponenpihak ketiga. Ingat komponen ini adalah shareware, segala resiko kemudahan dalam membuat aplikasi sms gateway ditanggung sendiri , saya disini hanya share dan tidak terikat kerja sama dengan pihak ketiga tersebut. Halah pernyataan ngawur Berikut adalah cuplikan source code untuk membaca dan mengirim sms menggunakan komponen ActiveXpert SMS 1. Membaca SMS Masuk Private Sub cmdBacaSMS_Click Dim objGsmIn As Set objGsmIn = New With objGsmIn .Activate "XXX-XXXX-XXXX-XXXXX" 'diisi serial number yg Anda dapatkan secara ilegal .Device = "COM1" 'disesuaikan dengan port COM yang digunakan .DeviceSpeed = 19200 'default = 0 .Storage = 2 '0=sim 1=device 2=any .DeleteAfterReceive = True .Receive If .LastError = 0 Or .LastError = 23140 Then ' Success .GetFirstMessage While .LastError = 0 "Pengirim " & .MessageSender "Isi SMS " & .MessageData 'TODO INSERT KE TABEL SMS_IN .GetNextMessage Wend End If End With Set objGsmIn = Nothing End Sub 2. Mengirim sms Private Sub cmdKirimSMS_Click Dim objGsmOut As Dim objConstants As Set objGsmOut = New Set objConstants = New With objGsmOut .Activate "XXX-XXXX-XXXX-XXXXX" 'diisi serial number yg Anda dapatkan secara ilegal .Device = "COM1" 'disesuaikan dengan port COM yang digunakan .DeviceSpeed = 19200 'default = 0 .RequestStatusReport = False .MessageType = 'mengirim pesan maksimal 160 karakter '.MessageType = 'jika lebih dari 160 karakter gunakan opsi ini .MessageRecipient = "nomor tujuan" 'biasanya menggunakan prefix +62 .MessageData = "isi pesan" .Send 'kirim End With Set objConstants = Nothing Set objGsmOut = Nothing End Sub Jadi cukup dengan bermodalkan 2 cuplikan kode diatas kita akan menyelesaikan aplikasi yg dibahas pada artikel kali ini. Adapun untuk keyword yang akan digunakan sebagai berikut 1. Request nilai tugas keyword tgsnis contoh tgs9941224165 balasan Nilai tugas NAMA SISWA BI=95, IPA=75, IPS=80, MTK=85 2. Request nilai ulangan harian keyword uhnis contoh uh9941224165 balasan Nilai ulangan NAMA SISWA BI=95, IPA=75, IPS=80, MTK=85 Berikut penjelasan ringkas beberapa cuplikan source code yang digunakan dalam pembuatan aplikasi sms gateway ini. Private Function connectToDeviceByVal device As String As Boolean Dim objGsm As Dim manufaktur As String On Error GoTo errHandle Set objGsm = New With objGsm .Activate SERIAL_NUMBER .device = device manufaktur = .SendCommand"AT+CGMI", 500 'menampilkan informasi manufactur manufaktur = Replace$manufaktur, vbCrLf, "" manufaktur = Replace$manufaktur, "OK", "" manufaktur = Replace$manufaktur, "ERROR", "" manufaktur = Replace$manufaktur, "AT+CGMI", "" End With Set objGsm = Nothing If Lenmanufaktur > 0 Then = manufaktur connectToDevice = True End If Exit Function errHandle connectToDevice = False End Function Sesuai namanya fungsi connectToDevice digunakan untuk mengecek status modem sms yang terpasang, salah satu caranya adalah dengan mengirimkan AT COMMAND âAT+CGMâ, AT COMMAND ini berfungsi untuk mendapatkan informasi manufaktur. Sebagai contoh jika modem sms yg digunakan adalah hp siemens maka nilai yg dihasilkan dari perintah ini adalah âSIEMENSâ dan tentunya hp yg bersangkutan juga harus mendukung AT COMMAND. Private Sub readSMS Dim objGsmIn As Dim objConstants As Dim cmd As cCommand Dim keyword As String Dim phoneNumber As String Dim i As Integer On Error GoTo errHandle = vbHourglass = False = False DoEvents Set objGsmIn = New Set objConstants = New With objGsmIn .Activate SERIAL_NUMBER .device = .DeviceSpeed = 0 .Storage = .DeleteAfterReceive = True 'hapus sms jika sudah dibaca .Receive If .LastError = 0 Or .LastError = 23140 Then 'baca sms sukses .GetFirstMessage strSql = "INSERT INTO sms_in phone_number, sms_keyword, date_in, time_in VALUES ?, ?, ?, ?" Set cmd = i = 1 While .LastError = 0 phoneNumber = rep0to62.MessageSender keyword = .MessageData 1, phoneNumber 2, keyword 3, FormatNow, "yyyy/MM/dd" 4, FormatNow, "hhmmss" If i Mod 10 = 0 Then DoEvents End If i = i + 1 .GetNextMessage Wend Set cmd = Nothing End If End With Set objGsmIn = Nothing If cekSMSIn Then Call sendSMS Else Call Wait5000 End If = True = vbDefault = True Exit Sub errHandle = True End Sub Prosedur readSMS digunakan untuk membaca sms masuk dan menyimpannya ke tabel sms_in, berhubung komponen ActiveXpert SMS tidak mempunyai event yg menandai adanya sms masuk maka sebagai gantinya kita menggunakan timer untuk memanggil prosedur readSMS. Salah satu properties penting yang dimiliki oleh ActiveXpert SMS adalah DeleteAfterReceive, jika nilainya diset true maka sms yg masuk akan otomatis dihapus dan tentunya setelah smsnya dibaca. Private Function cekSMSIn As Boolean Dim ret As Integer strSql = "SELECT COUNT* FROM sms_in WHERE status = 0" 'jika status = 0 berarti sms masuk belum di proses ret = CIntdbGetValuestrSql, 0 If ret > 0 Then 'ada sms yg belum diproses cekSMSIn = True End If End Function Prosedur cekSMSIn dibutuhkan oleh prosedur readSMS, jadi dengan adanya prosedur cekSMSIn ini program akan mengetahui kapan waktu yg tepat untuk memanggil prosedur sendSMS. Private Sub sendSMS Dim rsSend As cRecordset Dim cmd As cCommand Dim objGsmOut As Dim objConstants As Dim phoneNumber As String Dim keyword As String Dim smsBalasan As String On Error GoTo errHandle 'cek sms yang belum di proses, ditandai dg status = 0 strSql = "SELECT id, phone_number, sms_keyword " & _ "FROM sms_in " & _ "WHERE status = 0 " & _ "ORDER BY id" Set rsSend = If Not Then Set objGsmOut = New Set objConstants = New SERIAL_NUMBER = = 0 = False = Do While Not 'ganti prefix nomor hp 0 -> +62 phoneNumber = rep0to62"" & rsSend"phone_number".Value keyword = rsSend"sms_keyword".Value smsBalasan = getBalasanSmskeyword, phoneNumber = phoneNumber = smsBalasan If = 0 Or = 23140 Then 'sms sukses dikirim 'update status sms -> 1 strSql = "UPDATE sms_in SET status = ?, no_ref = ? " & _ "WHERE id = ?" Set cmd = With cmd .SetInt32 1, 1 .SetInt32 2, .SetInt32 3, rsSend"id".Value .Execute End With Set cmd = Nothing 'insert ke tabel sms_out, untuk histori sms keluar strSql = "INSERT INTO sms_out phone_number, replay_msg, date_out, time_out VALUES ?, ?, ?, ?" Set cmd = With cmd .SetText 1, phoneNumber .SetText 2, smsBalasan .SetDate 3, FormatNow, "yyyy/MM/dd" .SetTime 4, FormatNow, "hhmmss" .Execute End With Set cmd = Nothing Else 'sms gagal dikirim 'update status sms -> 1 'ini masih bisa dikembangkan lagi dengan menambah kolom max_jumlah_kirim di tabel sms_in 'jadi bisa diberi aturan sms yg gagal dikirim > 3x baru status smsnya diupdate menjadi 1 strSql = "UPDATE sms_in SET status = ?, no_ref = ? " & _ "WHERE id = ?" Set cmd = With cmd .SetInt32 1, 1 .SetInt32 2, .SetInt32 3, rsSend"id".Value .Execute End With Set cmd = Nothing End If Call Wait5000 Loop Set objConstants = Nothing Set objGsmOut = Nothing End If Exit Sub errHandle Resume Next End Sub Prosedur sendSMS akan mengolah sms masuk yg belum di proses ditandai dengan status = 0, mengupdate statusnya menjadi 1 jika berhasil mengirimkan sms, kemudian menyimpannya ke tabel sms_out sebagai histori pengiriman sms. Public Function rep0to62ByVal phoneNumber As String As String 'fungsi untuk mengganti prefix 0 -> +62 rep0to62 = phoneNumber If LeftphoneNumber, 1 = "0" Then rep0to62 = "+62" & RightphoneNumber, LenphoneNumber - 1 End Function Sesuai namanya fungsi ini berguna untuk mengganti prefix nomor hp 0 menjadi +62 kode indonesia. Terakhir fungsi untuk memproses keyword sms yang masuk dan sekaligus sebagai balasan untuk sms keluar. Public Function getBalasanSmsByVal keywordSms As String, ByVal phoneNumber As String As String Dim rs As cRecordset Dim param1 As String Dim arrKeyword As String Dim prefix As String Dim nilai As String Dim nama As String Dim tha As String Dim semester As String If LenkeywordSms > 0 Then If InStr1, keywordSms, "" > 0 Then 'karakter -> separator keyword arrKeyword = SplitkeywordSms, "" If Not LenarrKeyword0 > 0 Then getBalasanSms = "Keyword sms salah" Exit Function Else 'do nothing End If Else ReDim arrKeyword0 arrKeyword0 = keywordSms End If Else getBalasanSms = "Keyword sms salah" Exit Function End If prefix = arrKeyword0 prefix = UCase$prefix If UBoundarrKeyword > 0 Then param1 = arrKeyword1 'untuk contoh disini param1 bernilai nomor induk siswa 'untuk pengembangan lebih lanjut tahun ajaran dan semester dibuat settingan tersendiri tha = "2009/2010" semester = 2 Select Case prefix Case "TGS" 'validasi nis siswa If Not isValidNISparam1 Then getBalasanSms = ReplaceNIS_SALAH, "", param1 Exit Function 'validasi no hp siswa 'nama sekolah sebaiknya disimpan didalam variabel If Not isValidHPSiswaparam1, phoneNumber Then getBalasanSms = ReplaceHP_UNREG, "", "SMA Negeri Yogyakarta" getBalasanSms = ReplacegetBalasanSms, "", phoneNumber Exit Function End If strSql = "SELECT UPPERnama FROM siswa WHERE nis = '" & param1 & "'" nama = CStrdbGetValuestrSql, "" 'mulai proses pencarian nilai strSql = "SELECT matapelajaran_kode, nilai " & _ "FROM nilai_tugas " & _ "WHERE siswa_nis = '" & param1 & "' AND tahun_ajaran = '" & tha & "' AND semester = " & semester & " " & _ "ORDER BY matapelajaran_kode" Set rs = If Not Then Do While Not nilai = nilai & rs"matapelajaran_kode".Value & "=" & rs"nilai".Value & ", " Loop End If If Lennilai > 0 Then nilai = Leftnilai, Lennilai - 2 getBalasanSms = "Nilai tugas " & nama & " " & nilai Else getBalasanSms = "Nilai tugas " & nama & " sedang dalam proses pendataan" End If Case "UH" 'validasi nis siswa If Not isValidNISparam1 Then getBalasanSms = ReplaceNIS_SALAH, "", param1 Exit Function 'validasi no hp siswa 'nama sekolah sebaiknya disimpan didalam variabel If Not isValidHPSiswaparam1, phoneNumber Then getBalasanSms = ReplaceHP_UNREG, "", "SMA Negeri Yogyakarta" getBalasanSms = ReplacegetBalasanSms, "", phoneNumber Exit Function End If strSql = "SELECT UPPERnama FROM siswa WHERE nis = '" & param1 & "'" nama = CStrdbGetValuestrSql, "" 'mulai proses pencarian nilai strSql = "SELECT matapelajaran_kode, nilai " & _ "FROM nilai_ulangan " & _ "WHERE siswa_nis = '" & param1 & "' AND tahun_ajaran = '" & tha & "' AND semester = " & semester & " " & _ "ORDER BY matapelajaran_kode" Set rs = If Not Then Do While Not nilai = nilai & rs"matapelajaran_kode".Value & "=" & rs"nilai".Value & ", " Loop End If If Lennilai > 0 Then nilai = Leftnilai, Lennilai - 2 getBalasanSms = "Nilai ulangan " & nama & " " & nilai Else getBalasanSms = "Nilai ulangan " & nama & " sedang dalam proses pendataan" End If Case Else getBalasanSms = "Keyword sms salah" End Select End Function Untuk mengetahui daftar hp/modem apa saja yang didukung, jangan sungkan dan malu-malu
cara buat sms gateway gratis
