it's all about computer and my daily life..

Membuat Pauli dan Kraepelin Test Generator

Pauli dan Kraepelin Test Generator:

1. Buka Microsoft Word
2. Setelah Microsoft Word terbuka, tekan tombol ALT + F11
3. Pilih INSERT pada menu lalu pilih MODULE
4. Masukan kode dibawah ini:
   
Sub PsikoNumGenerator()
Randomize Timer
theEnd = InputBox("Jumlah angka yang akan dibuat", "Jumlah Angka")
If Not IsNumeric(theEnd) Then Exit Sub
If Int(theEnd) = 0 Then Exit Sub
For i = 1 To theEnd
theText = theText & vbTab & Int(Rnd(i) * 10)
Next
Selection.TypeText Text:=theText
End Sub

5. Kembali ke Microsoft Word lalu tekan tombol ALT + F8 dan pilih RUN
6. Setelah itu masukan jumlah angka yang diinginkan
7. dan angka-angka tersebut akan secara otomatis di generate oleh perintah diatas