Cara Membuat Lembar Kerja Pauli Test [PDF]

Citation preview

Cara membuat lembar kerja pauli test dan kraepelin test sendiri menggunakan Ms. Word 2007 ( Pauli test generator). Karena inti test ini adalah dari banyaknya latihan, berikut cara membuat lembar kerja pauli test dan kraepelin test sendiri menggunakan Ms. Word 2007. Silahkan dicoba. Berikut langkahlangkahnya : • •



Buka Microsoft Word ; Setelah itu tekan tombol ALT + F11 ;



•



Pilih INSERT pada menu lalu selanjutnya pilih MODULE ;



Kemudian masukan kode dibawah ini (Copas 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 • •



Kemudian kembali ke Microsoft Word, tekan tombol ALT + F8 dan pilih RUN; Masukan jumlah angka yang kamu inginkan missal 5000 angka dan tada angka-angka tersebut akan secara otomatis di generate oleh perintah diatas.