www.abdiradit.com

Seperti yang sudah kami janjikan pada postingan sebelumnya yaitu Hal-Hal yang Unik di Dalam Nilai Pi bahwa kami akan memberikan script sederhana yang kami gunakan untuk menghitung/mencari data statistik dari kumpulan angka (dalam hal ini: Nilai Pi). [Download Center]

Sebelum memulai, pastikan dahulu bahwa Autohotkey sudah terinstal di komputer anda. Jika belum, silahkan download dari [Download Center].

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#SingleInstance,Force
Gui, Font, s8, Verdana
Gui, Add, Edit, x10 y10 w500 h500 vDATA,
Gui, Add, Button, x10 y520 w80 gHITUNG,Cari Statistik
Gui, Add, Button, x100 y520 w80 gRESET,Reset
Gui, Add, Text, x200 y522 gWeb,Copyright: www.abdiradit.com
Gui, Show, ,Statistik 1.0
return
RESET:
GuiControl,,DATA,
Return
HITUNG:
Gui,Submit,NoHide
JLHKAR := StrLen(DATA)
ANGKA1:=0
ANGKA2:=0
ANGKA3:=0
ANGKA4:=0
ANGKA5:=0
ANGKA6:=0
ANGKA7:=0
ANGKA8:=0
ANGKA9:=0ANGKA0:=0
Loop,%JLHKAR%
{
ANGKA =
ANGKA := SubStr(DATA, A_Index, 1)
If ( ANGKA = 1 )
ANGKA1 += 1
If ( ANGKA = 2 )
ANGKA2 += 1
If ( ANGKA = 3 )
ANGKA3 += 1
If ( ANGKA = 4 )
ANGKA4 += 1
If ( ANGKA = 5 )
ANGKA5 += 1
If ( ANGKA = 6 )
ANGKA6 += 1
If ( ANGKA = 7 )
ANGKA7 += 1
If ( ANGKA = 8 )
ANGKA8 += 1
If ( ANGKA = 9 )
ANGKA9 += 1
If ( ANGKA = 0 )
ANGKA0 += 1
}
MsgBox,0,Statistik,
(
Jlh.Karakter = %JLHKAR%
0 = %ANGKA0% buah
1 = %ANGKA1% buah
2 = %ANGKA2% buah
3 = %ANGKA3% buah
4 = %ANGKA4% buah
5 = %ANGKA5% buah
6 = %ANGKA6% buah
7 = %ANGKA7% buah
8 = %ANGKA8% buah
9 = %ANGKA9% buah
)
FileAppend,Jumlah karakter: %JLHKAR%`n---------------------`nAngka 0 = %ANGKA0% buah`nAngka 1 = %ANGKA1% buah`nAngka 2 = %ANGKA2% buah`nAngka 3 = %ANGKA3% buah`nAngka 4 = %ANGKA4% buah`nAngka 5 = %ANGKA5% buah`nAngka 6 = %ANGKA6% buah`nAngka 7 = %ANGKA7% buah`nAngka 8 = %ANGKA8% buah`nAngka 9 = %ANGKA9% buah`n`n,Statistik.txt
Return
Web:
Run,http://www.abdiradit.com
Return
GuiClose:
#x::< Run,http://www.abdiradit.com
ExitApp


Setelah disimpan, coba jalankan script tersebut dengan cara dobel-klik. Masukkan angka yang akan dicari statistiknya pada kolom yang tersedia, kemudian klik tombol [Cari Statistik].

Kalau gak mau repot, silahkan download compiled versionnya di [Download Center].

Selamat mencoba, sampai bertemu di artikel berikutnya...