mitramitro

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 langkah-langkahnya : 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 aka...