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 carabeli di agen pulsa, misalnya dg sms/telegram dg keyword sms5.nomorhp.pinkirim 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 lebih dari 500 sebai…

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 mengajarjumlah rombongan belajar tiap kelas sebaiknya dikurangi 50% jadi misalnya biasanya tiap kelas ada 40 siswa maka sebaiknya tiap kelas cukup 20 siswa sajakarena 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 sabtuganti 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 meja yg selama ini 1 me…

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-CZKTECO MB460ZKTeco P160MBB 5700MBB 800 WifiMB160 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(strNewName, strCurrentFileExt, strNewFileExt)
      …