INFORMACIÓN

La revista Psicothema fue fundada en Asturias en 1989 y está editada conjuntamente por la Facultad y el Departamento de Psicología de la Universidad de Oviedo y el Colegio Oficial de Psicología del Principado de Asturias. Publica cuatro números al año.
Se admiten trabajos tanto de investigación básica como aplicada, pertenecientes a cualquier ámbito de la Psicología, que previamente a su publicación son evaluados anónimamente por revisores externos.

PSICOTHEMA
  • Director: Laura E. Gómez Sánchez
  • Periodicidad:
         Febrero | Mayo | Agosto | Noviembre
  • ISSN: 0214-9915
  • ISSN Electrónico: 1886-144X
CONTACTO
  • Dirección: Ildelfonso Sánchez del Río, 4, 1º B
    33001 Oviedo (España)
  • Teléfono: 985 285 778
  • Fax:985 281 374
  • Email: psicothema@cop.es

Psicothema, 2000. Vol. Vol. 12 (Suplem.2). 418-422




CUESTIONARIOS DE PERSONALIDAD POR ORDENADOR EN MICROSOFT VISUAL BASIC 6.0 PARA WINDOWS

Vicente Pelechano Barberá y Ernesto Juan Darias Morales

Universidad de La Laguna

Presentamos la versión para corrección automática de siete cuestionarios de personalidad de V. Pelechano (EN, ENR, HE-A, LUCAD, MA, MOTEX y R3). Los programas incluyen la presentación de instrucciones y los items por pantalla para cumplementación individual, tiempo de cumplimentación, cambio de respuesta por parte del sujeto, puntuación individual directa y tipificada. Los programas permiten incorporar los nuevos datos a la muestra total.

Computerized Personality questionnaires in Microsoft Visual Basic 6.0 for Windows. The automatic correction version of seven Pelechano’s personality questionnaires (EN, ENR, HE-A, LUCAM, MA, MOTEX and R3) is presented. The programs include different functions, such as: instructions and item presentation by screen, timing control, changing answers, scoring, etc. The program allows incorporating the new data into the total sample.

PDF

A partir de los criterios utilizados en Darias y Pelechano (1991) y Pelechano y Darias (1997), hemos elaborado varios programas, escritos en Microsoft Visual Basic 6.0 para Windows (también están hechos en la versión 4.0, con la ventaja que cada programa cabe en un disquete). Se aplica a siete cuestionarios computerizados de orientación tanto profesional como investigadora, que evalúan dimensiones de personalidad.

Para adultos son:

- EN.EXE es Extraversión-Neuroticismo, con 36 items y 2 factores: Extraversión-introversión, Neuroticismo-estabilidad.

- HEA.EXE es Hostilidad y recelo con 37 items y 5 factores: Satisfacción social y bondad, Pacifismo en las relaciones personales, Agresividad verbal y desafio a los demás, Poder y recelo hacia los demás y Sobreocupación social.

- MOTEX.EXE es Extrema motivación de ejecución, con 45 items 3 factores: Imagen extremada y pasiva de un(a) mismo(a), Inhibición ante estrés y ansiedad perturbadora y Activación ante estrés, sobrecarga y tendencia a la acción.

- R3.EXE es Rigidez, con 58 items y 3 factores: Autoexigencia rígida en el trabajo y detallismo, Sobreesfuerzo personal y actitud de élite y Principialismo y cumplimiento rígido del deber.

Para adolescentes son:

- ENR.EXE es Extraversión-Neuroticismo-Rigidez, con 30 items y 3 factores: Extraversión-introversión, Neuroticismo-estabilidad y Rigidez.

- LUCAD.EXE es Locus de control, con 24 items) y 2 factores: Control externo depresivo y Control interno en relaciones interpersonales.

- MA.EXE es Motivación, con 36 items y 4 factores: Voluntad fantasiosa en valor de uno mismo, Ansiedad ante exámenes (inhibición), Desinterés por el estudio y Autoexigencia en el trabajo.

Todos los cuestionarios tienen tres preguntas añadidas con respecto a las versiones originales, que son:

Soy del género masculino

Estoy de acuerdo con todas las respuestas que he dado

Quiero modificar alguna de las respuestas que he dado

Y van como preguntas finales.

Cada programa podemos dividirlo en tres partes: Proyecto o cabecera de programa (Cuestionario.VBP), Formulario o programa principal (Cuestionario.FRM) y Módulo o subprograma. (Cuestionario.BAS). La palabra "Cuestionario" se coloca en lugar del nombre del cuestionario con ese nombre (por ejemplo EN):

a) La cabecera de programa o Proyecto, que contiene las bases del programa:

CABECERA DE PROGRAMA (Cuestionario.VBP)

Type=Exe

Form=Cuestionario.frm

Module=Module1; Cuestionario.bas

IconForm="Form1"

Startup="Form1"

HelpFile=""

Title="Cuestionario"

ExeName32="Cuestionario.exe"

Command32=""

Name="Proyecto1"

HelpContextID="0"

CompatibleMode="0"

MajorVer=1

MinorVer=0

RevisionVer=0

AutoIncrementVer=0

ServerSupportFiles=0

VersionCompanyName="Universidad de La Laguna"

CompilationType=-1

OptimizationType=0

FavorPentiumPro(tm)=0

CodeViewDebugInfo=0

NoAliasing=0

BoundsCheck=0

OverflowCheck=0

FlPointCheck=0

FDIVCheck=0

UnroundedFP=0

StartMode=0

Unattended=0

Retained=0

ThreadPerObject=0

MaxNumberOfThreads=1

b) El programa principal comprende las instrucciones y el programa de autoaprendizaje, comienza con la definición de las variables globales, declaración de procedimientos, definición de constantes. En él aparecen los datos relativos a las preguntas del cuestionario, seguido de datos relativos al número total de items (TItems), número de rasgos que estudia (TRasgos). También contiene la plantilla de corrección del cuestionario. La impresión de los datos en el fichero "Cuestionario.dat", que incluye las respuestas del mismo, las puntuaciones obtenidas en cada factor, el número de cambios de decisión y el tiempo global en responder al mismo. Si el fichero ya existe, los datos comenzarán a grabarse al final del mismo, y si no, se crea automáticamente. Es necesario que el programa ejecutable y el fichero de datos se encuentren en el mismo directorio. Y, por último, el fichero Cuestionario.txt contiene los nombres y valores de los factores y su tipificación.

REM PROGRAMA PRINCIPAL (Cuestionario.FRM)

VERSION 5.00

Begin VB.Form Form1

AutoRedraw = -1 ‘True

Caption = "CUESTIONARIO - Vicente Pelechano - Ernesto Darias - V. 2.0"

ClientHeight = 5595

ClientLeft = 60

ClientTop = 750

ClientWidth = 9375

BeginProperty Font

Name = "MS Sans Serif"

Size = 24

Charset = 0

Weight = 700

Underline = 0 ‘False

Italic = 0 ‘False

Strikethrough = 0 ‘False

EndProperty

LinkTopic = "Form1"

ScaleHeight = 5595

ScaleWidth = 9375

Begin VB.CommandButton Command4

Caption = "Omitir"

BeginProperty Font

Name = "MS Sans Serif"

Size = 8.25

Charset = 0

Weight = 400

Underline = 0 ‘False

Italic = 0 ‘False

Strikethrough = 0 ‘False

EndProperty

Height = 555

Left = 2040

TabIndex = 3

Top = 5040

Width = 1215

End

Begin VB.CommandButton Command3

Caption = "Cancelar"

BeginProperty Font

Name = "MS Sans Serif"

Size = 8.25

Charset = 0

Weight = 400

Underline = 0 ‘False

Italic = 0 ‘False

Strikethrough = 0 ‘False

EndProperty

Height = 495

Left = 5640

TabIndex = 2

Top = 5040

Width = 1215

End

Begin VB.CommandButton Command2

Caption = "No"

BeginProperty Font

Name = "MS Sans Serif"

Size = 8.25

Charset = 0

Weight = 400

Underline = 0 ‘False

Italic = 0 ‘False

Strikethrough = 0 ‘False

EndProperty

Height = 495

Left = 3840

TabIndex = 1

Top = 5040

Width = 1215

End

Begin VB.CommandButton Command1

Caption = "Si"

BeginProperty Font

Name = "MS Sans Serif"

Size = 8.25

Charset = 0

Weight = 400

Underline = 0 ‘False

Italic = 0 ‘False

Strikethrough = 0 ‘False

EndProperty

Height = 495

Left = 240

TabIndex = 0

Top = 5040

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

 

Private Sub Command1_Click()

Raton = "1"

Hola

End Sub

 

Private Sub Command2_Click()

Raton = "0"

Hola

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Command4_Click()

Raton = "9"

Hola

End Sub

 

Private Sub Form_Load()

Rem Un cuestionario computerizado para aplicaci¢n profesional e investigadora.

Rem

Rem

Rem Preguntas del cuestionario

Let Pregunta(-1) =

Titulo = "Cuestionario - Vicente Pelechano - Ernesto Darias - V. 2.0"

Rem Preguntas del cuestionario

Rem Texto de ejemplo para aprender a utilizar el cuestionario

Let Longit = 39

Let TItems = 39

Let TRasgos = 2

Let Modif = -TItems

For i = 1 To TItems

Let Pregunta(i) = Str$(i) + ".- " + Pregunta(i) + "."

Next i

Rem

Rem

Rem Apertura del fichero de datos y su formato

Rem

Open "CUESTIONARIO.DAT" For Append As #1

Open "CUESTIONARIO.TXT" For Output As #2

Rem

Mensaje(1) = "Nombre y Apellidos: "

Nombre = InputBox(Mensaje(1), Titulo)

Mensaje(2) = "Domicilio (Calle, Número, Ciudad): "

Calle = InputBox(Mensaje(2), Titulo)

Mensaje(3) = "Edad: "

Edad = InputBox(Mensaje(3), Titulo)

Item = -1

Rem el formato del fichero es 1 - 55 datos del test

Rem 56 - 57 puntuaci¢n en el factor E

Rem 58 - 59 puntuaci¢n en el factor N

Rem 60 - 61 puntuaci¢n en el factor R

Rem 62 - 65 tiempo de realizaci¢n del test

Rem n£mero de cambios de opini¢n

Rem 56 - 57 Percentil E

Rem 56 - 57 Percentil N

Rem PROGRAMA PRINCIPAL

Rem Simulaci¢n del teclado

Rem

Fecha$ = Date$

Tiempo1 = Timer

Hola

End Sub

 

Sub Hola()

If Item = -1 Then

Programa

If Key(-1) = "0" Then

Item = Item + 1

Else

Let Pregunta(-1) = "Está equivocado, pulse ‘No’. "Pregunta(-1)

End If

ElseIf Item = 0 Then

Programa

If Key(0) = "1" Then

Item = Item + 1

Else

Let Pregunta (-1) "Está equivocado, pulse ‘Si’. "+ Pregunta (-1)

End If

Elself Item <= TItems Then

Programa

Item = Item + 1

Elself Item = TItems + 1 Then

If Key (TItems) = "1" Then

Mensaje(4)= "Dime el número: (‘0’ si no lo sabes)"

Cambios = InputBox(Mensaje(4), Titulo)

Item = Val(Cambios)

If Item = 0 Then Item = 1

Programa

If Cambios <> "0" Then Item = 39

Else

For i = 1 To TItems

Rem Plantilla de correcci¢n del cuestionario

If Key(i) = "1" Then

Select Case i

Rem Rasgo

Case 1, 4, 5, 6, 9, 11, 13, 19, 24, 28

Rasgo(1) = Rasgo(1) + 1

End Select

End Select

End If

Next i

Let Numero = 20

Rem factor

Let i = 1

Let Valor(0) = 16

Calcula

For Item = 1 To TItems - 1

Print #1, Key(Item + 1);

Next Item

For i = 1 To TRasgos

Print #1, Rasgo(i);

Next i

Let Tiempo% = Timer - Tiempo1

Print #1, Tiempo%;

Print #1, Modif;

Print #1, Edad;",";

Print #1, Nombre + Calle

Cls

Print Nombre

Print Calle; " "

Print Edad; " años"

Print

Print

Print #2, Nombre

Print #2, Calle

Print #2, Mensaje(3); Edad

For i = 1 To 2

Print #2, Variable(i); " = "; Rasgo(i%); ", "; "Percentil ="; Percenti(i)

Next i

For i = 1 To 2

Print Variable(i); " = "; Rasgo(i%); ", "; "Percentil ="; Percenti(i)

Next i

Print "* GRACIAS POR SU COLABORACIÓN *"

Close #1, #2

Mensaje(1) = "Pulse ‘Aceptar’ para terminar"

Nombre = InputBox(Mensaje(1))

End

End If

End If

End Sub

 

Sub Calcula()

Let Fiac% = 0

Let Fai% = 0

For j = 0 To Numero

Fiac% = Fiac% + Valor(j)

Next j

For j = 0 To Numero

If Rasgo(i) = j Then Exit For

k = j

Fai% = Fai% + Valor(j)

Next j

Let Percenti(i) = ((0.5) / 1 * Valor(k) + Fai%) * 100 / Fiac%

If Percenti(i) = 100 Then Percenti(i) = 99

End Sub

 

Sub Programa()

Preg$ = Pregunta(Item)

Let Tamano% = Len(Preg$)

Cls

Tama% = 0

Do

If Tamano% <= Longit Then

Numero = Tamano%

Else

For i = 1 To Longit

If Mid$(Preg$, i, 1) = " " Then Numero = i

Next i

End If

Let Preg$ = Mid$(Preg$, Numero + 1, Tamano%)

Tamano% = Tamano% - Numero

If Tama% < Numero Then Tama% = Numero

If Tamano% = 0 Then Exit Do

Loop

Preg$ = Pregunta(Item)

Let Tamano% = Len(Preg$)

Do

If Tamano% <= Longit Then

Numero = Tamano%

Else

For i = 1 To Longit

If Mid$(Preg$, i, 1) = " " Then Numero = i

Next i

End If

Print Mid$(Preg$, 1, Numero) + Space$(Tama% - Numero)

Let Preg$ = Mid$(Preg$, Numero + 1, Tamano%)

Tamano% = Tamano% - Numero

If Tamano% = 0 Then Exit Do

Loop

If Item > 0 And Raton <> Key(Item) Then Modif = Modif + 1

Key(Item) = Raton

Print "Respuesta = "; Key(i)

End Sub

c) Existe un Módulo, destinado a captar las variables "públicas" o comunes a todo el programa principal:

SUBPROGRAMA (Cuestionario.FRM)

Attribute VB_Name = "Module1"

Public Pregunta(-1 To 40) As String, Key(-1 To 40) As String, i as Integer

Public Mensaje(1 To 4) As String, Rasgo(1 To 2) As Integer, Item As Integer

Public TItems As Integer, Longit As Integer, Nombre As String, k as Integer

Public Edad As String, Valor(0 To 20) As Integer, Numero As Integer

Public Tiempo1 As Single, Variable(0 To 2) As String, Calle As String

Public TRasgos As Integer, Percenti(0 To 2) As Integer, Raton as String

Public Titulo as String, Cambios As String, Modif as Integer

Cualquiera de estos programas, una vez compilados, puede ‘correr’ en cualquier ordenador con Windows 95 ó 98. Cada programa ocupa muy poca memoria RAM.

Todos estos cuestionarios, en su versión de papel y lápiz, han sido creados, adaptados o depurados por Pelechano (1972) de sus versiones originales, y han sido utilizados desde entonces en un conjunto de trabajos que comprenden más de 41 tesis doctorales y casi un centenar de artículos, ponencias y comunicaciones en congresos nacionales e interacciones.

Darias, E. y Pelechano, V. (1991). Un criterio para la elaboración de tests computerizados. Actas del II Simposium de Metodología de las Ciencias del Comportamiento. Qurriculum, Extra _, 157-159.

Pelechano, V. (1972). La personalidad en función de los parámetros de estímulo en la solución de problemas. Tesis doctoral. Universidad de Madrid.

Pelechano, V. y Darias, E. (1997). Cuestionarios de personalidad por ordenador en Visual Basic. Comunicación presentada al V Symposium de Metodología de las CC. Humanas y Sociales. Sevilla: Universidad de Sevilla, Septiembre, 23-26. Carácter nacional.

Impact Factor JCR SSCI Clarivate 2023 = 3.2 (Q1) / CiteScore SCOPUS 2023 = 6.5 (Q1)