Selasa, 27 Agustus 2024

Membuat Game Tebak Angka dengan Command Prompt (CMD) Windows

Hallo teman, kali ini saya akan share tutorial / sample script untuk membuat Game simple Tebak Angka menggunakan Command Prompt Windows (CMD), bagaimana caranya...? Ikuti langkah-langkah berikut :

  1. Buka Notepad
  2. Copy paste contoh script game Tebak Angka di bawah
  3. Simpan file dengan ekstensi .bat (contoh : TebakAngka.bat)
  4. Jalankan / dobel klik file tersebut
  5. Game siap dimainkan...!!

Script :

@echo off
:menu
mode con: cols=100 lines=100
title Tebak Angka

color 0a
cls

echo +-------------------------------------+
echo +          GAME TEBAK ANGKA           +
echo +-------------------------------------+

echo.
echo  Saya sedang memikirkan angka
echo  antara 1 sampai 100.
echo.
set /a random_number=%random% %% 100 + 1

:guess
set /p guess= Masukkan tebakan Anda: 

if %guess%==%random_number% (
    echo.
    echo  Benar! Angkanya adalah %random_number%.
    powershell -c "[console]::beep(800, 700)"
    goto playagain
) else if %guess% GTR %random_number% (
    echo.
    echo  Tebakan Anda terlalu tinggi!
    goto guess
) else if %guess% LSS %random_number% (
    echo.
    echo  Tebakan Anda terlalu rendah!
    goto guess
)

:playagain
echo.
echo  Ingin bermain lagi? (y/n)
set /p choice=

if /i "%choice%"=="y" (
    goto menu
) else (
    echo  Terima kasih telah bermain!
    pause >nul
    exit
)

Jumat, 06 Oktober 2023

Tips Atasi Jerawat Membandel

Jerawat terkadang muncul di wajah kita tanpa permisi, hehe. Dan seringkali sulit sembuhnya.

Hal itu seringkali membuat kita jengkel, bahkan juga merasa stress. Ibarat lingkaran setan yang tak berujung pangkal, antara Stress dan Jerawat layaknya seperti "Lebih dulu mana, ayam atau telur?"

Stress bisa menyebabkan timbulnya jerawat, sebaliknya jerawat juga bisa menyebabkan fikiran Stress.

Nah ada beberapa cara yang biasanya dilakukan untuk mengatasi jerawat, antara lain : menggunakan obat2an, obat / salep kulit, tradisional, dll.

Namun menurut pengalaman pribadi penulis, untuk mengatasi jerawat bisa ditempuh dengan cara2 yang sebetulnya sangat simple, namun butuh kesabaran, yakni :

1. Jangan sering bercermin

hehe, sekilas nampak gak nyambung. Namun secara psikologis, penderita jerawat yang sering bercermin justru akan semakin menambah stress, karena selalu merasa jerawatnya tidak kunjung berkurang / sembuh. Nah stress itu kemudian justru memicu jerawat2 lain muncul, sehingga akan memperburuk keadaan. So, jauh2 dari kaca cermin ya gaes.

2. Jangan sering pegang wajah

tangan yang tak terkontrol biasanya akan suka mencet-mencet jerawat, akibatnya jerawat yang secara alami sedang dalam proses penyembuhan malah terpicu untuk meradang / perih, sehingga akan membuat wajah jadi gak nyaman, ujung2nya bisa memicu stress juga. Juga tangan yang kotor akan menyebabkan jerawat muncul lagi karena kotoran dari tangan menyumbat pori2 kulit wajah.


3. Cuci muka pakai air bersih

membasuh wajah dengan air bersih yang mengalir, tetapi jangan sampai tangan menggosok wajah terlalu kuat/keras, usap dengan lembut saja. Partikel air yg kecil akan dengan efektif menjaga kebersihan kulit wajah.

4. Jangan sering pakai sabun wajah

kalau kalian pakai sabun pembersih wajah, usahakan tidak terlalu sering, cukup 2x sehari saja pas mandi. Karena sabun akan mengurangi minyak wajah sehingga wajah jadi kering, padahal minyak wajah akan secara alami menyesuaikan kondisi wajah.

5. Yakinlah bahwa sistem tubuh kita sempurna

yg terakhir ini juga wajib, karena kesehatan asalnya dari dalam jiwa kita. kita harus yakin dan percaya bahwa tubuh kita punya sistem penyembuhan otomatis yg sempurna diciptakan Sang Maha Pencipta. Semua penyakit akan bisa sembuh, yg penting hati kita tenang dan percaya bahwa Sang Pencipta akan menyembuhkan kita.


Itu saja gaes yg bisa saya share, silakan komentar kalau punya pendapat yang lain.


Senin, 16 Januari 2023

Cara Edit Banyak File Excel dalam 1 Folder Menggunakan VBA Macro

 Sub RunOnAllFilesInFolder()  
   Dim folderName As String, eApp As Excel.Application, fileName As String  
   Dim wb As Workbook, ws As Worksheet, currWs As Worksheet, currWb As Workbook  
   Dim fDialog As Object: Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)  
   Set currWb = ActiveWorkbook: Set currWs = ActiveSheet  
   'Select folder in which all files are stored  
   fDialog.Title = "Select a folder"  
   fDialog.InitialFileName = currWb.Path  
   If fDialog.Show = -1 Then  
    folderName = fDialog.SelectedItems(1)  
   End If  
   'Create a separate Excel process that is invisibile  
   Set eApp = New Excel.Application: eApp.Visible = False  
   'Search for all files in folder [replace *.* with your pattern e.g. *.xlsx]  
   fileName = Dir(folderName & "\*.*")  
   Do While fileName <> ""  
     'Update status bar to indicate progress  
     Application.StatusBar = "Processing " & folderName & "\" & fileName  
     Set wb = Workbooks.Open(folderName & "\" & fileName)  
     '...  
     'YOUR CODE HERE  
     wb.Worksheets("NamaSheet").Activate  
     Range("A1:AA1000").Replace What:="Mei 2020", Replacement:="Desember 2022"  
     Range("A1:AA1000").Replace What:="Ronaldo", Replacement:="Messi"  
     Range("A1:AA1000").Replace What:="Portugal", Replacement:="Argentina"  
     '...  
     wb.Close SaveChanges:=True 'Close opened worbook saving, change as needed  
     Debug.Print "Processed " & folderName & "\" & fileName  
     fileName = Dir()  
   Loop  
   eApp.Quit  
   Set eApp = Nothing  
   'Clear statusbar and notify of macro completion  
   Application.StatusBar = ""  
   MsgBox "Completed executing macro on all workbooks"  
 End Sub  

Kamis, 10 Maret 2022

Cara Hapus Baris Kosong Source Code Dreamweaver

  1. Buka file yang akan di-edit menggunakan Dreamweaver
  2. Tekan Ctrl + F
  3. Di kotak Find ketik  [\r\n]{2,}
  4. Di kotak Replace ketik \n
  5. Klik Replace All
  6. Selesai

Selasa, 30 November 2021

Naskah Pambiworo Pernikahan Bahasa Jawa

Assalamu'alaikum Wr. Wb.


Alhamdulillah, Washsholatu Wassalamu 'ala sayyidina muhammadin wa'ala alihi washohbihi ajma'in, amma Ba'du.


Engkang tuhu kinabekten poro sepuh lan pinisepuh. Dhumateng poro alim ulama' khususipun Simbah Kyai Haji Mucharom ingkang tansah kulo ta'dzimi. 

Penganten sarimbit soho pengombyong saking dusun Jambangan ingkang kawulo hormati. Sedoyo tamu undangan, poro pilenggah ingkang kawulo hormati.


Langkung rumiyin kito tansah muji syukur dhumateng Alloh SWT ingkang sampun maringi mapinten-pinten kenikmatan sehinggo wonten siang meniko kito waget makempal wonten acara walimatul 'urusy ingkang mugi-mugi ndadosaken berkah dumateng kito sedoyo umumipun lan berkah dumateng penganten kekaleh khususipun.

Sholawat lan salam kito aturaken dhumateng Nabi Muhammad SAW ingkang kito tenggo-tenggo Syafa'atipun wonten yaumul qiyamah mbenjang.


Hadirin ingkang kawulo hormati,Kawulo wonten mriki bade ndereakaen runtuting adicoro ingkang sampun karancang, inggih meniko;


Titilaksono ingkang sepisan, Pambuko

kalajengaken engkang urut kalih, waosan ayat suci al-Qur'an

Wondene adicoro ingkang ongko, tigo atur pambagyoharjo

Adicoro urut ongko sekawan, atur pasrah penganten putri

Wondene adicoro ongko gangsal, atur penampining pinanganten putri

Adicoro ingkang ongko enem, sabdo tomo soho do'aipun

Adicoro ingkang urut pitu, penutup


Pramilo ngengeti wekdal ingkang sakwetawis sonten, monggo kito bikak sareng-sareng kanti waosan Ummul Kitab.Liridho'illa Wa lissyafa'ati Rasulillah, Alfatihah…

Maturnuwun menggah waosan Al-Fatihah, mugi-mugi dados lancaripun acara siang meniko.


Acoro ingkang ongkon kalih inggih meniko waosan ayat suci al-Qur'a, ingkang bade kaastho dening Bapak Ahmadi. Dumateng panjenenganipun kawulo aturaken.

……………………………………

Shodaqollahul 'adzim, mugi-mugi waosan ayat suci al-Qur'an dados berkah dhumateng pewaos lan lumeber dhumateng kito sedoyo.

Adicoro ingkang urut ongko tigo atur pambagyoharjo ingkang badhe kaastho dening Bopo Kyai Sobri, dhumateng Bopo Kyai Sobri kawulo sumanggaaken,

………………………………….

Mekaten, kawulo aturaken matursuwun.

Menggah adicoro ingkang ongko sekawan, atur pasrah penganten putri. Dhumateng ingkang mewakili kawulo aturaken.

………………

Dhumateng panjenenganipun kawulo aturaken matursuwun.

Adicoro selajengipun atur penampining penganten putri ingkang badhe kaastho panjenenganipun bapak kepala desa Kadipiro. Dumateng panjenenganipun kawulo aturaken.

………………

Matursuwun kawulo aturaken.

Adicoro selajengipun skors, dhumateng rencang-rencang juru ladi kawulo sumanggaaken.

………………

Ngancik adicoro ingkang urut ongko enem, sabdo tomo ingkang badhe dipun astho Simbah Kyai Haji Mucharom.

Dhumateng Simbah Kyai Haji Mucharom kawulo sumanggaaken soho dipun suwun do'aipun.

……………….

Mekaten atur pangendikan saking simbah Kyai Haji Mucharom, kawulo aturaken matursuwun.


Ngancik adicoro ingkang terakhir penutup. Hananging sakderengipun kito tutup, dhumateng pinanganten sarimbit kawulo suwun jengkar saking panggenan tinuju pintu keluar, sakperlu maringi kasempatan dhumateng poro tamu ingkang badhe jawat astho ugi nyuwun tambahing do'a restu.

Mekaten runtuting adicoro ingkang sampun kalampah,monggo sareng-sareng kito tutup pahargyan wonten siang meniko kanthi waosan tahmid, kawulo dereaken Alhamdulillahi rabbil 'alamin.

Saking kawulo anggenipun ndereaken acoro, mbok bilih kawulo anggenipun matur kathah sasar susur ingkang mboten mranani wonten penggaleh panjenengan sedoyo, kawulo nyuwun agunging samudro pangaksami.


Cekap semanten, kawulo akhiri,


Wassalamualaikum Wr Wb

Contoh Teks Pranatacara Bahasa Jawa Singkat

 assalamu'alaikum wr wb


poro sesepuh pini sepuh ingkang pantes kinabekten.

poro bapak lan poro sederek ingkang kulo hormati.

monggo hadicoro pepanggihan wonten ing dalu punika tumunten kawiwitan.


namung sakderengipun monggo kito sareng2 muji syukur wonten ing ngarso dalem Allah SWT.

ingkang sampun paring rahmat lan hidayah dumateng kito sedoyo.

sholawat sarto salam mugi tansah katetepno dateng nabi Muhammad SAW ingkang kito antu2 syafaatipun onten ing yaumil qiyamah.


poro bapak lan poro sederek sedoyo, kepareng kulo waosaken menggah susunan acara ingkang badhe kito lampahi :

1. Pambuka

2. Sambutan

3. Laporan

4. Lain2

5. Panutup


monggo pepanggihan ing dalu punika kito bikak kanti waosan basmalah.


acara saklajengipun nggih punika ...


poro bapak lan sederek sedoyo ingkang kulo hormati, minangkani atur pamundutipun ingkang kagungan dalem,

kito kacaosan unjukan soho daharan menopo kawontenanipun saking kersanipun katuran dahar soho ngunjuk ingkang prayogi.


acara saklanjengipun panutup.


milo monggo pepanggihan ing dalu punika kito syukuri kanti waosan hamdalah.


lan saking kulo ambok bilih anggen kulo nderek-aken adicoro ing dalu punika katah klenta klentu kulo nyuwun agungin pangapunten.


wassalamu'alaikum wr wb.

Selasa, 16 November 2021

Contoh Teks Doa Pembukaan Acara Resmi

 DOA PEMBUKAAN ACARA


Hadirin yang berbahagia, marilah kita berdo’a menurut agama masing-masing

Dan Izinkan, saya untuk memandunya sesuai dengan tuntunan agama Islam


A’udzubillahi mina syaitani rajiim -- Bismillahirrahmanirrahim

Alhamdulillahirabbil ‘alamin -- wassholatu wassalamu ala asrafil anbiya’i walmursalin -- Wa ala ‘alihi wa shohbihi aj’main


Allahumma ya Allah, ya Tuhan kami

Tiada kata dan rasa yang pantas kami haturkan kepada-Mu, selain syukur kami pada-Mu atas segala nikmat dan hidayah yang Engkau anugerahkan kepada kami, sehingga kami bisa hadir bersama untuk mengikuti rangkaian acara :

SOSIALISASI ROADMAP REFORMASI BIROKRASI

KABUPATEN SRAGEN TAHUN 2021

------------------------------------------------------------------------------------------------


Ya Allah ya Rahman ya karim -- jadikanlah acara kami ini sebagai acara yang engkau ridhoi, yang membawa barokah, rahmat, taufik dan hidayah-Mu bagi kami semua.


Ya Allah, Dzat yang maha kuasa


Tumbuhkanlah pada kami inovasi dan teamwork yang baik dalam setiap pelaksanaan tugas -- guna mewujudkan Kabupaten Sragen yang Mandiri, Sejahtera dan Berbudaya Berlandaskan Semangat Gotong Royong.


Ya Allah,


Berikanlah pada kami kesehatan, kekuatan dan kemampuan

sehingga kami mampu mengemban tugas dan tanggung jawab untuk kebaikan dan kemaslahatan keluarga, masyarakat, bangsa, dan negara kami.


Rabbana taqabalminna -- innaka antassami’ul ‘alim.

Watub’alaina innaka anta tawaburrahim


Rabbana atina fidunya hasanah, wafilakhirati hasanah, wakinna azabannar.


Subhana rabbika rabbil ihzati amma yashifun

Wassalamu alal mursalin

Walhamdulillahirabbil alamin


Senin, 29 Maret 2021

Membuat PDF dari Mail Merge dengan VBA

 Bahan Mail Merge :

  1. Dokumen Ms.Word
  2. Dokumen Ms.Excel (database mail merge)
Cara :
  1. Buka dokumen Ms.Word mail merge
  2. Koneksikan dengan database Excel mail merge
  3. Ketik alt + F11
  4. Insert - Module
  5. Copas skrip di bawah ini, sesuaikan Folder output dan Folder Excel nya
  6. Klik Run
  7. Baris 38-40 berfungsi untuk menghapus dokumen .docx di folder output
Sumber : dari sini

Senin, 12 November 2018

Selasa, 06 November 2018

Kumpulan Software Kantor

Cara Reset Blink Printer Fuji Xerox P115 w

Langkah-langkahnya :

1. Nyalakan printer
2. Buka kap printer
3. Lepas toner dari casing (hijau)
4. Pasang lagi casing toner
5. Pencet & tahan tombol kecil di sebelah kiri
6. Tutup kap printer
7. Saat terdengar bunyi loading printer (kemrengseng) lepas tombol selama 2 detik, lalu tekan & tahan tombol lagi
8. Tunggu sampai bunyi loading printer berhenti
9. Lepas tombol --- SELESAI


Driver Laptop ASUS

Driver VGA Windows 7, 8  32 bit

Tested on Laptop Asus X455L

Download

Rabu, 13 April 2016

Undangan ke Tanah Suci

Mendengar ceramah seorang ustad tentang pergi umrah dan haji, membuat saya menyadari bahwa dalam segala hal (ibadah) memang harus didasari niat yang ikhlas. Tanpa adanya niat (jawa : krenteg) dari hati yang semata-mata hanya kita tujukan untuk beribadah kepada Allah, semuanya akan terasa berat. Namun ketika hati kita telah sepenuhnya ikhlas, pasti akan selalu ada jalan dari Allah yang memudahkan kita untuk mewujudkannya.

Naik haji ataupun pergi umrah pada zaman sekarang ini membuat orang pada umumnya akan pertama kali berfikir masalah BIAYA & WAKTU. Padahal yang terpenting adalah NIAT. Orang cenderung berfikir dengan logika dan matematika untuk menghitung berapa banyak biaya yang akan diperlukan untuk pergi umrah/haji? bagaimana atau kapan bisa berangkat? dan banyak hal lainnya yang ujung-ujungnya hanya akan membuat niat jadi sekedar niat saja, tanpa ada ikhtiar untuk mewujudkannya, sedangkan Allah telah berfirman :

Rabu, 11 November 2015

Cara Memproteksi File MS Word 2007 Agar Tidak Bisa di-Edit

Terlebih dulu pastikan Tab Developer sudah aktif (enable), jika belum aktif caranya :
  1. Klik Office Button
  2. Klik Popular
  3. Check pada Show Developer Tab in The Ribbon
  4. Klik OK 
Kemudian lakukan langkah ini :
  1. Buka dokumen yang akan di-proteksi
  2. Klik Developer
  3. Klik Protect Document
  4. Klik Restrict Formatting and Editing
  5. Check pada Allow only this type of editing in the document
  6. Pilih Filling in form
  7. Klik Yes, Start Enforcing Protection
  8. Buat/ketik password
  9. Ulangi password
  10. KLik OK
  11. Selesai
Dengan begitu file Ms Word 2007 anda tidak bisa di format atau di-edit sebelum dibuka kembali proteksinya.
Untuk menonaktifkan proteksi,:
  1. Klik Developer
  2. Klik Protect Document
  3. Klik Restrict Formatting and editing
  4. Klik Stop Protection
  5. Ketikkan Password
  6. Klik OK
  7. Selesai

Senin, 09 November 2015

Spelling Bahasa Indonesia pada MS Office 2007


Secara default pada umumnya Ms Office hanya melakukan pemeriksaan ejaan kata-kata bahasa inggris. Dulu saya lebih senang mematikan fungsi ‘spelling & grammar’ pada office karena jika kita menulis dalam bahasa indonesia hampir semua kata terdapat titik-titik merah di bawahnya. Sekarang pengejaan kata sangat saya perlukan karena saya tidak perlu membaca ulang hanya untuk mengecek penulisan huruf. 

Agar Ms Office dapat mengecek pengejaan bahasa indonesia, yang saya lakukan sebagai berikut:
1. Download file CUSTOM.DIC di sini https://sites.google.com/site/thesuhu/ (nama file CUSTOM.RAR silahkan download dan ekstrak);
2. Ketik %userprofile%\Application Data\Microsoft\UProof pada ‘Run’ di Start Menu;
3. Timpa file CUSTOM.DIC dengan file CUSTOM.DIC hasil download tadi.

Untuk tes pengejaan bahasa indonesia silahkan buka Ms Word dan mulailah mengetik dengan bahasa indonesia.
Catatan: sebanyak 45.457 kata dalam file CUSTOM.DIC saya copy paste dari file KAMUS.DIC hasil download dari www.4shared.com.
sekian…

Sumber :  https://thesuhu.wordpress.com/2010/11/19/spelling-bahasa-indonesia-pada-ms-office-2007-2/

Kamis, 23 Oktober 2014

Reset Password Admin Zimbra

Untuk mereset :

su - zimbra zmprov sp <admin email address> <new password>

Untuk melihat list admin :

su - zimbra zmprov gaaa

Untuk mengakses admin console :

https://namahost:7071

Rabu, 08 Oktober 2014

Tugas Seorang Network Administrator


Keamanan (security)
Membuat proteksi jaringan dan data terhadap gangguan dari pihak yang tidak berhak.

Manajemen pengguna (user administration)
Membuat dan menghapus User Account serta memberikan akses kepada Jaringan.

Membuat cadangan (backups)
Melakukan backup data pada file server jaringan.

Penanganan masalah (trouble shooting)
Mengatasi dengan segera segala permasalahan yang terjadi dalam jaringan, menjaga stabilitas aktivitas jaringan setiap harinya agar tetap berjalan dengan baik.

Perbaikan dan peningkatan (upgrades)
Melakukan perbaikan dan peningkatan seiring dengan perkembangan teknologi yang terjadi.

Kamis, 25 September 2014

Iframe dengan Posisi Top dan Left Tertentu

HTML :

<div id="container">
<div id="outerdiv">     
    <iframe id="innerdiv" width="500" height="560" src="http://cnn.com" scrolling="no" frameborder="0"></iframe>
</div>
</div>

CSS :

#container { width:900px; height:800px; margin:auto; }

#outerdiv {
width:446px;
height:246px;
overflow:hidden;
position:relative;
}
#innerdiv {
position:absolute;
top:-412px;
left:-318px;
width:1280px;
height:1200px;
}



Sumber