LISTAGEM DO PROGRAMA
PERSONA: Um Programa Para a Auto-Avaliação de Personalidade Tipo A/B
Renato M.E. Sabbatini
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PERSONAL.BAS
' Teste de personalidade A-B
' Programado por: Prof.Dr. Renato M.E. Sabbatini
' (c) 1994
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DIM tipo$(6)
tipo$(1)="B1":tipo$(2)="B2":tipo$(3)="AB":tipo$(4)="A3":tipo$(5)="A2":tipo$(6)="A1"
CLS
PRINT " AVALIACAO DO TIPO DE PERSONALIDADE QUANTO AO STRESS"
PRINT " (c) 1989 Prof.Dr. Renato M.E. Sabbatini"
PRINT " Nucleo de Inform tica Biomdica da Unicamp"
PRINT
PRINT STRING$(79,196):PRINT
PRINT "As perguntas a seguir compoe-se de pares de caracteristicas contrastantes"
PRINT "de comportamento e personalidade.
PRINT:PRINT "Cada par e' separado por sete espacos. A sua caracteristica se enquadra"
PRINT "entre os dois extremos.":PRINT
PRINT "Pressione a barra de espacos no teclado varias vezes, ate' deslocar o"
PRINT "retangulo luminoso para o ponto entre os dois extremos, que voce acha"
PRINT "que mais se aplica a sua personalidade. Quanto estiver no lugar adequado"
PRINT "pressione a tecla ENTER":PRINT
PRINT STRING$(79,196):LOCATE 21,1
CALL InterrompeTela
Questionario:
soma=0:restore
FOR n=1 TO 20
CLS:READ e1$,e2$
CALL Caixa (1,1,0,7,e2$)
FOR i=5 TO 17 STEP 2
LOCATE i,38 :PRINT CHR$(218)+CHR$(196)+CHR$(191)
LOCATE i+1,38:PRINT CHR$(192)+CHR$(196)+CHR$(217)
NEXT i
CALL Caixa (20,1,0,7,e1$)
j=7
DO
LOCATE (j-1)*2+5,38:PRINT CHR$(220)+CHR$(220)
LOCATE (j-1)*2+6,38:PRINT CHR$(223)+CHR$(223)
a$=INKEY$
IF a$"" THEN
IF asc(a$)=13 THEN
soma=soma+(8-j):EXIT LOOP
ELSE
LOCATE (j-1)*2+5,38:PRINT CHR$(218)+CHR$(196)+CHR$(191)
LOCATE (j-1)*2+6,38:PRINT CHR$(192)+CHR$(196)+CHR$(217)
DECR j:IF j THEN j=7
END IF
END IF
LOOP
NEXT n
t=1
IF soma=120 THEN t=6
IF soma=100 AND somax THEN t=5
IF soma=80 AND somad THEN t=4
IF soma=60 AND somaP THEN t=3
IF soma=30 AND soma<< THEN t=2
CLS
CALL Caixa (1,1,0,7,"RESULTADOS")
LOCATE 10,1:PRINT "SOMA DOS PONTOS: ";soma;" (EM UM MAXIMO DE 140 PONTOS)"
PRINT:PRINT "TIPO DE PERSONALIDADE: ";tipo$(t)
LOCATE 22,1:CALL InterrompeTela
CLS
LINE INPUT "MAIS ALGUEM VAI RESPONDER AO QUESTIONARIO (S/N) ? ";r$
IF UCASE$(LEFT$(r$,1))="S" THEN GOTO Questionario
Fim:
CLS:END
DATA "Nao se incomoda de deixar coisas temporariamente inacabadas"
DATA "Tem que acabar as coisas depois que comeca"
DATA "Calmo e sem pressa por causa de compromissos"
DATA "Nunca se atrasa para compromissos"
DATA "Nao competitivo"
DATA "Altamente competitivo"
DATA "Ouve bem, deixa os outros acabarem de falar"
DATA "Antecipa os outros na conversa (interrompe, acaba as frases para os outros"
DATA "Nunca tem pressa, mesmo quando pressionado"
DATA "Sempre com pressa"
DATA "Capaz de esperar calmamente"
DATA "Inquieto enquanto espera"
DATA "Pachorrento"
DATA "Sempre a toda velocidade"
DATA "Pega uma coisa para fazer de cada vez"
DATA "Tenta fazer mais de uma coisa ao mesmo tempo"
DATA "Lento e ponderado ao falar"
DATA "Vigoroso e convincente ao falar (gesticula muito)"
DATA "Preocupado em satisfazer a si mesmo, nao aos outros"
DATA "Quer o reconhecimento dos outros por servico bem feito"
DATA "Faz as coisas devagar"
DATA "Faz as coisas sempre depressa (comer, andar, etc.)
DATA "Paciente, fleumatico"
DATA "Impetuoso"
DATA "Expressa sentimentos abertamente"
DATA "Guarda para si todos os sentimentos"
DATA "Tem grande n£mero de interesses"
DATA "Tem poucos interesses fora do servico"
DATA "Satisfeito com o emprego atual"
DATA "Ambicioso, quer progredir depressa no emprego"
DATA "Nunca se fixa prazos"
DATA "Fixa prazos para si mesmo com frequencia"
DATA "Senso limitado de responsabilidade"
DATA "Sempre se sente responsavel"
DATA "Nunca avalia as coisas numericamente"
DATA "Muitas vezes avalia desempenho em termos numericos (quantos)"
DATA "Displicente no trabalho"
DATA "Leva o trabalho muito a serio, faz serao, leva trabalho para casa"
DATA "Pouco meticuloso"
DATA "Muito meticuloso (cuidado e exigencia com pormenores)"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB InterrompeTela
PRINT "PRESSIONE [ENTER] PARA CONTINUAR]";
x$=INPUT$(1)
END SUB
SUB Caixa (l%,c%,f%,b%,m$)
COLOR f%,b%
LOCATE l%,c%
PRINT CHR$(218)+STRING$(77,196)+CHR$(191)
PRINT CHR$(179)+STRING$(77," ")+CHR$(179)
PRINT CHR$(192)+STRING$(77,196)+CHR$(217)
LOCATE l%+1,40-LEN(m$)/2
PRINT m$
COLOR 7,0
END SUB
Voltar ao artigo
Copyright (c) 1995 Renato M.E. Sabbatini