Selasa, 24 Desember 2013

Tutorial Kreplin dan Paulin

Haii guys !!!
Yeah, buat para jobseeker pasti butuh nih apalagi yang sebel sama test kreplin atau pauli. Mau latihan test ini? bisa . Gimana caranya? gampang kok, kita bisa bikin sendiri. Yuk mari, ini nih ada tutorialnya, Cek this out guys..

1. Open  Microsoft Word, nah yang gue pakek ini kebetulan microsoft word 2007
2. Selanjutnya tekan ALT + F11, sampai keluar Microsoft Visual Basic kayak gini nih
Gambar1. Halaman Microsoft VB
3. Pilih INSERT pada menu, kemudian pilih MODULE, masukkan kode berikut:
    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
Gambar2. Memasukkan Program di Module Microsoft VB
4. Kembali ke Microsoft Word, lalu tekan tombol ALT + F8 dan pilih RUN
Gambar3. Tampilan RUN
5. Masukkan jumlah angka yang diinginkan, misalkan 500.
Gambar4. Tampilan Insert Jumlah Angka yang Diinginkan

Gambar5. Hasil Akhir
and the last jadi deh, Selamat mencoba :D


Tidak ada komentar:

Posting Komentar

Selasa, 24 Desember 2013

Tutorial Kreplin dan Paulin

Haii guys !!!
Yeah, buat para jobseeker pasti butuh nih apalagi yang sebel sama test kreplin atau pauli. Mau latihan test ini? bisa . Gimana caranya? gampang kok, kita bisa bikin sendiri. Yuk mari, ini nih ada tutorialnya, Cek this out guys..

1. Open  Microsoft Word, nah yang gue pakek ini kebetulan microsoft word 2007
2. Selanjutnya tekan ALT + F11, sampai keluar Microsoft Visual Basic kayak gini nih
Gambar1. Halaman Microsoft VB
3. Pilih INSERT pada menu, kemudian pilih MODULE, masukkan kode berikut:
    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
Gambar2. Memasukkan Program di Module Microsoft VB
4. Kembali ke Microsoft Word, lalu tekan tombol ALT + F8 dan pilih RUN
Gambar3. Tampilan RUN
5. Masukkan jumlah angka yang diinginkan, misalkan 500.
Gambar4. Tampilan Insert Jumlah Angka yang Diinginkan

Gambar5. Hasil Akhir
and the last jadi deh, Selamat mencoba :D


Tidak ada komentar:

Posting Komentar