January 2012
1 post
Membuat Pauli dan Kraepelin Test Generator
Pauli dan Kraepelin Test Generator:
Buka Microsoft Word
Setelah Microsoft Word terbuka, tekan tombol ALT + F11
Pilih INSERT pada menu lalu pilih MODULE
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 =...