Angka Random Dengan WSF
Dunia perkuliahan mungkin dapat dikatakan sebagai dunia yang dipenuhi dengan kegiatan
eksperimen dan mencari penemuan baru. Dapat kita lihat dalam kehidupan sehari-hari beberapa
hal yang sering kita gunakan merupakan hasil penemuan yang di dapat dari hasil eksperimen.
Sebagai contoh yaitu sistem operasi, aplikasi maupun perangkat keras yang kita gunakan dalam
kehidupan sehari-hari dapat dibilang sebagai hasil dari eksperimen.
Berikut ini merupakan salah satu hasil karya yang dapat dibilang hasil eksperimen yaitu
menciptakan 200 angka random(acak) yang ideal dengan susunan seperti matrix. Angka random
yang ideal adalah angka yang tidak ada tanda minus dan angka awal harus 0, contoh: 0.384. Jika
salah satu angka dalam sekumpulan angka random ada yang memiliki tanda minus atau tidak
berawalan 0 berarti kumpulan angka tersebut bukanlah angka random yang ideal.
Percobaan ini telah dilakukan di salah satu universitas swasta terkemuka di daerah Depok.
Dengan menggunakan script WSH dapat dihasilkan 200 angka random yang ideal. Kenapa
harus menggunakan WSH? Karena dosen di universitas tidak memperbolehkan mahasiswanya
untuk menggunakan VBA, dan program yang digunakan harus dapat menciptakan 200 angka
random yang ideal. Oleh karena itu digunakanlah WSH sebagai pengganti VBA tersebut dalam
menciptakan 200 angka random yang ideal. WSH sangat fleksibel karena dapat disisipi
beberapa bahasa pemrograman seperti VBScript, JavaScript dan Perl. Selain itu WSH tidak
memerlukan editor tambahan, cukup dengan menggunakan editor bawaan Windows® sudah
dapat diimplementasikan.
Pembuatan 200 angka random ideal ini dipergunakan dalam perkuliahan Simulasi&Pemodelan
yang sangat penting dalam menciptakan sebuah sample(contoh) dimana nantinya akan
digunakan dalam perhitungan matematis untuk mencari jumlah populasi maupun perhitungan
simulasi lainnya.
Tentunya dengan banyaknya angka random tersebut diperlukan program yang ringkas dan cepat
dalam menghasilkan 200 angka random. Ingin tau cara penyelesaiannya? Ikutilah tuntunan
berikut ini.
Trik yang satu ini pernah dimuat di Tabloid PCplus pada edisi 277 (20 Februari-05 Maret 2007)
melalui rubrik trik.
Trik Angka Random Dengan WSF
Ketikkan script program berikut ini melalui Notepad lalu simpanlah dengan nama
acakVB2.wsf dan ubah Save as type yang tadinya dari Text Documents (*.txt) menjadi All Files.
Nonaktifkan pula Word Wrap yang ada di Notepad pada saat pengetikan script program agar
program dapat berjalan dengan mulus.
<job id="Program Angka Random dengan Windows Scripting Host">
<script language="VBScript">
acak()
sub acak()
dim i, batas
dim kumpul, pesan, total, jeda, tanya, natan
jeda = " "
set natan = WScript.CreateObject("WScript.Shell")
batas = 9
for i = 1 to 200
randomize
total = total & Round(Rnd(i),4) & jeda
if i = batas then
jeda = vbcrlf
batas = batas + 10
else
jeda = " "
end if
next
pesan="Klik 'Yes' untuk Lihat Angka Random Lagi. 'No' untuk Keluar."
kumpul="Output Angka Random:"+vbcrlf+vbcrlf+total+vbcrlf+pesan
tanya=natan.popup(kumpul,0,"Program Angka Random",vbYesNo)
if tanya=vbYes then
acak()
else
end if
end sub
</script>
</job>
Setelah menyelesaikan script program diatas bukalah Windows Explorer, lalu cari file yang
bernama AcakVB2.wsf. Klik dua kali pada ikon file tersebut untuk mengeksekusinya. Setelah
jendela AcakVB2.wsf terbuka klik tombol Yes untuk mengacak angka hingga ideal dan tombol
No untuk keluar. Program diatas telah di uji coba di Windows XP Professional Service Pack 1. (Yonatan Prasdikatama)
Postingan
