Teste de QI

[JoséQuintas]

Vi na internet, foi chamado de teste de QI.

Consegui montar em Harbour, console, pra uso com o mouse.
Falta melhorar o visual, tá ruim.
Ficou interessante.

[Euclides]

Lagal, JoséQuintas!
Eu brinquei com algo assim há mais ou menos 25 anos... (o programa BASIC deve estar em algum disquete meu de 5,1/4)
Se tiver algum tempo no fim de semana talvez o converta para FiveWin (um xBrwose c/ array ficaria 'beleza' na primeira parte)
Mas... será que não está faltando um enunciado? ( o primeiro seria: "O Norueguês vive na primeira casa.")
Ela poderia ser eliminada mas aí teria mais "tentativas e erro".
Só que neste caso (no seu programa), a consistência (o "X") de "O Norueguês vive ao lado da casa Azul." deve aceitar ao lado",
tanto à direita quanto à esquerda. (no programa só coloca "x" se o "Norueguês" estiver à esquerda).
Tamusai, Euclides

[JoséQuintas]

Item 9

Código: Selecionar todos

      @ Row() + 1, 0 SAY "(" + acOpcao[ 9 ]  + ") O norueguês vive na primeira casa"

Checagem do Norueguês do lado da casa azul, está errado mesmo:

Código: Selecionar todos

      IF ( acCasa[ nNumCasa, CASA_NACIONALIDADE ] == "Norueguês" .AND. acCasa[ nNumCasa + 1, CASA_COR ] == "Azul" ) .OR. ;
         ( acCasa[ nNumCasa, CASA_NACIONALIDADE + 1 ] == "Norueguês" .AND. acCasa[ nNumCasa, CASA_COR ] == "Azul" )
         acOpcao[ 14 ] := "X"
      ENDIF

Na segunda linha é nNumCasa + 1, e não, CASA_NACIONALIDADE + 1

[Euclides]

... para não dizer que não falei das flores...
O programa está em FiveWin (fácimente convertível para HMG)
Para compilar, BUILDH.BAT ou BUILDX.BAT da pasta SAMPLES
É isso aí...
Euclides

testiqh.rar

(988.93 KiB) Baixado 98 vezes

[JoséQuintas]

Acho que vai acabar tendo mais variações.
Só pra registrar os visuais até agora.
Lembrando que cada LIB tem mais opções de visuais e cores.

Tela console

Tela fivewin

[JoséQuintas]

Um leve toque da gtwvg - pushbutton

[JoséQuintas]

Tudo usando pushbutton.
Mas agora, as pistas somem/reaparecem, dependendo se estão resolvidas ou não.

Como tudo faz parte do Harbour padrão, não anexei o EXE.

Tive que mover a seleção pra parte sem pushbutton, porque texto não cobre pushbutton, e sem ver opção não dá pra selecionar... rs

Nota: seria mais interessante usar o controle estilo achoice, existe na wvg, mas não faz parte do meu uso normal.