Postingan

Tips SMS Murah Telkomsel

untuk mengirim sms banyak ke nomor telkomsel, tentu harus beli paket SMS agar tidak dikenakan pulsa normal, caranya ada 2 yaitu : paket SMS 5000, yaitu paket kirim 1000 sms dengan biaya Rp 5.000,- dan berlaku 5 hari, untuk mendapatkan paket ini bisa dengan 2 cara beli di agen pulsa, misalnya dg sms/telegram dg keyword sms5.nomorhp.pin kirim dari hp lain, jadi bisa juga kirim dari hp lain dari nomor telkomsel, kirim paket sms 5000 ke nomor lain, caranya ketik ketik *500# lalu pilih 6 => 3 => 1 => masukan nomor hp yang mau dikirim sms gratis nya => pilih 2 untuk 1000 sms paket SMS serbu, paket ini dapat 1900 SMS ke sesama telkomsel,dan 100 SMS ke luar telkomsel, dengan biaya Rp 2.750,- paket ini tidak bisa dibeli tapi harus daftar dg cara kirim SMS, ketik serbu sms dan kirim ke 8999,  mana yg cocok bila hari ini ingin kirim hanya kurang dari 500 sms bisa pakai cara pertama, karena besoknya masih ada sisa kuota sms berlaku 5 hari bila hari ini ingin kirim sms

Kegiatan Sekolah Pasca Pandemi COvid19

katakanlah misalnya tanggal 1 juli 2020 PSBB sudah ditiadakan karena pandemi sudah turun tren grafiknya, maka aktifitas pendidikan disekolah tetap harus ekstra hati-hati, karena anak2 lebih susah diatur dibanding orang dewasa tulisan ini dibuat tgl 20 mei 2020 dimana PSBB masih berlangsung, saran pribadi saya untuk sekolahan adalah: sekolah sudah mulai beraktifitas belajar mengajar jumlah rombongan belajar tiap kelas sebaiknya dikurangi 50% jadi misalnya biasanya tiap kelas ada 40 siswa maka sebaiknya tiap kelas cukup 20 siswa saja karena ruang kelas tidak cukup maka sistem belajar dibuat shift bergantian, ada 2 model ganti hari atau ganti setengah hari 2 model gantian yg dimaksud adalah : ganti hari berarti siswa masuk senen rabu jumat, rombongan siswa lainya masuk hari selasa kamis dan sabtu ganti setengah hari berarti siswa masuk jam 6.30 s.d jam 11.30 dan rombongan siswa lainnya masuk jam 12.00  s.d 17.00 dan juga protokol kesehatan harus dijalankan misalnya utk m

aplikasi pemetaan suara pemilu 2019 untuk persiapan pemilu 2024

LATAR BELAKANG Salah satu strategi yang dipakai untuk pemenangan pilkada atau untuk bisnis adalah memetakan kekuatan dan kelemahan sendiri dan juga mengetahui letak kekuatan dan kelamahan lawan. kami membuat software pemetaan suara pemilu 2019 yang dirancang khusus untuk partai politik dalam rangka membuat pemetaan suara internal partai atau caleg dan kekuatan partai pesaing.

Fingerprint yang support ADMS

SOLUTION X100-C ZKTECO MB460 ZKTeco P160 MBB 5700 MBB 800 Wifi MB160 ADMS

membagi baris excel dari 1 file menjadi banyak file

kode ini utk split file excel yang terlalu banyak barisnya dan dipecah2 menjadi beberapa file , metode ini saya pakai utk import data DPT KPU ke aplikasi apdalih pro, dimana filenya sangat besar sampai 65.000 baris. karena terlalu besar dan aplikasi gagal import nya maka saya bagi menjadi 1 file utk setiap 3000 baris

kirim sms ke berbagai operator

Gambar
malam ini tgl 21 nov 2017 saya kirim sms dengan jumlah 5600 sms pengiriman ke telkomsel, pakai kartu as tidak ada kendala, kirim 1000 sms sekaligus terkirim semua, lama waktu sekitar 2jam kirim ke tri, saya daftar pake dulu bisa kirim sms ke 660 sms berhasil terkirim semua kirim ke axis juga saya daftar pake dulu, bisa utk 6 hari sebenarnya, terkiri msemua 215 sms tanpa blokir kirim ke indosat tidak ada kendala, daftar dulu si *123*11# biar dapat 1450 sms gratis kirim ke XL, hanya bisa kirim 250 sms, sisanya tidak terkirim,

VBA Macro convert XLS to XLSX

Sub ChangeFileFormat()     Dim strCurrentFileExt   As String     Dim strNewFileExt       As String     Dim objFSO              As Object     Dim objFolder           As Object     Dim objFile             As Object     Dim xlFile              As Workbook     Dim strNewName          As String     Dim strFolderPath       As String     strCurrentFileExt = ".xls"     strNewFileExt = ".xlsx"     strFolderPath = "e:\data\garut\xlsxsemua\aswandi"     If Right(strFolderPath, 1) <> "\" Then         strFolderPath = strFolderPath & "\"     End If     Set objFSO = CreateObject("Scripting.FileSystemObject")     Set objFolder = objFSO.getfolder(strFolderPath)     For Each objFile In objFolder.Files         strNewName = objFile.Name         If Right(strNewName, Len(strCurrentFileExt)) = strCurrentFileExt Then             Set xlFile = Workbooks.Open(objFile.Path, , True)             strNewName = Replace(strNe