Laman

Sabtu, 21 September 2019

Cara Membuat Lembar Tes Kraepelin Sendiri – Terbaru 2019


1. Buka MS. WORD


2. Klik ALT+F10 atau di beberapa laptop bisa ALT+FN+F10

3. Klik INSERT

4. Klik MODULE, akan muncul seperti ini, isikan kode seperti dibawahh ini

5. Copas kode dibawah ini aja:

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

6. Kembali ke MS. WORD
7. Klik ALT+F8 atau di beberapa laptop bisa ALT+FN+F8
8. Klik RUN

9. Masukkan angka yang dibutuhkan

10. Terakhir berikut hasilnya