[EX] Tester ses reflexes (petit jeu)

[Max5]

Hello !

Voici un petit "jeu" de rien du tout pour tester ses reflexes visuel et/ou auditif.
Je l'ai fait vite fait hier dés que j'en ai eu l'idée.
Les scores sont sauvegardés dans des fichiers textes tout simplement.

Pour ma part je suis prés de 2x plus rapide en auditif...

Et vous ? ^^

► Afficher le texteLe Code

Code : Tout sélectionner

;~ Version d'Autoit : 3.2.12.1
;~ Auteur : Max5
;~ Programme : Reflex_01
;~ Version : 1.0

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <String.au3>
#Include <Misc.au3>

Opt("GUIOnEventMode", 1)

HotKeySet("z", "Quitter")
Func Quitter()
    Exit
EndFunc

$TypeForm = GUICreate("Type", 109, 88, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "TypeFormClose")
$ButtonVisu = GUICtrlCreateButton("Visuel", 12, 8, 83, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ButtonVisu, "TestVisu")
$ButtonAudit = GUICtrlCreateButton("Auditif", 12, 48, 83, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ButtonAudit, "TestAudit")
GUISetState(@SW_SHOW, $TypeForm)

$VisuForm = GUICreate("Test Visuel", 227, 129, -1, -1)
GUICtrlCreateLabel("Appuyez sur 'K' au changement de couleur...", 8, 8, 215, 17)
$Color = GUICtrlCreateEdit("", 8, 32, 209, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_HIDE, $VisuForm)


$AuditForm = GUICreate("Test Auditif", 210, 34, -1, -1)
$Label1 = GUICtrlCreateLabel("Appuyez sur 'D' en entendant le BEEP...", 8, 8, 194, 17)
GUISetState(@SW_HIDE, $AuditForm)

While 1
    Sleep(250)
WEnd


Func TestVisu()
    
    GUISetState(@SW_SHOW, $VisuForm)
    
    $Attente = Random(3, 23)
    
    Sleep($Attente * 1000)
    
    GUICtrlSetBkColor($Color, 0x0000FF)
    
    $TimerInit = TimerInit()
    
    Do
        Sleep(1)
    Until _IsPressed(_StringToHex("K"))
    
    $reflexTPS = TimerDiff($TimerInit)/1000
    MsgBox(64, "Temps de réponse visuel", $reflexTPS & " secondes")
    
    GUISetState(@SW_HIDE, $VisuForm)
    GUICtrlSetBkColor($Color, 0xFF0000)
    
    FileWriteLine("ScoreVisu.txt", $reflexTPS & " secondes")
    
EndFunc


Func TestAudit()
    
    GUISetState(@SW_SHOW, $AuditForm)
    
    $Attente = Random(3, 23)
    
    Sleep($Attente * 1000)
    
    Beep(500, 50)
    
    $TimerInit = TimerInit()
    
    Do
        Sleep(1)
    Until _IsPressed(_StringToHex("D"))
    
    $reflexTPS = TimerDiff($TimerInit)/1000
    MsgBox(64, "Temps de réponse auditive", $reflexTPS & " secondes")
    
    GUISetState(@SW_HIDE, $AuditForm)
    GUICtrlSetBkColor($Color, 0xFF0000)
    
    FileWriteLine("ScoreAudit.txt", $reflexTPS & " secondes")
    
EndFunc


Func TypeFormClose()
    Exit
EndFunc
 

[Tlem]

Idem (2 fois plus rapide en auditif).

$TypeForm => N'auriez vous pas déjà programmé en Delphi ou en C++ ?

[timmalos]

Pas mal du tout ton petit jeu
Je met mes scores, je pense que vous avez du faire beaucoup mieux , mais je suis constant c'est deja ca


Visuel :

0.337787065115818 secondes
0.337720296853371 secondes
0.337804106387823 secondes

Audio:

0.244761275525241 secondes
0.244647015193272 secondes
0.244567198756541 secondes

[jbnh]

En tant que boloss de profession si vous voyez ce que je veux dire mes résultats sont pas brillants c'est pourquoi je ne les afficherai pas (en plus je reviens de l'entrainement :c ) Mais sinon super chouette

[tolf]

J'ai rajouté la possibilité de calculer les scores moyens, et j'ai un peu réduit le temps d'apparition de l'événement (parce que 23 secondes c'est un peu trop ) :

► Afficher le textecode modifié

Code : Tout sélectionner

;~ Version d'Autoit : 3.2.12.1
;~ Auteur : Max5
;~ Programme : Reflex_01
;~ Version : 1.0

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <String.au3>
#Include <Misc.au3>

Opt("GUIOnEventMode", 1)

HotKeySet("z", "Quitter")
Func Quitter()
    Exit
EndFunc

$TypeForm = GUICreate("Type", 109, 128, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "TypeFormClose")
$ButtonVisu = GUICtrlCreateButton("Visuel", 12, 8, 83, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ButtonVisu, "TestVisu")
$ButtonAudit = GUICtrlCreateButton("Auditif", 12, 48, 83, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ButtonAudit, "TestAudit")
$ButtonHighScores = GUICtrlCreateButton("Scores", 12, 88, 83, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ButtonHighScores, "GetScores")
GUISetState(@SW_SHOW, $TypeForm)

$VisuForm = GUICreate("Test Visuel", 227, 129, -1, -1)
GUICtrlCreateLabel("Appuyez sur 'K' au changement de couleur...", 8, 8, 215, 17)
$Color = GUICtrlCreateEdit("", 8, 32, 209, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_HIDE, $VisuForm)


$AuditForm = GUICreate("Test Auditif", 210, 34, -1, -1)
$Label1 = GUICtrlCreateLabel("Appuyez sur 'D' en entendant le BEEP...", 8, 8, 194, 17)
GUISetState(@SW_HIDE, $AuditForm)

While 1
    Sleep(250)
WEnd


Func TestVisu()
    GUISetState(@SW_SHOW, $VisuForm)
    
    $Attente = Random(3, 13)
    
    Sleep($Attente * 1000)
    
    GUICtrlSetBkColor($Color, 0x0000FF)
    
    $TimerInit = TimerInit()
    
    Do
        Sleep(1)
    Until _IsPressed(_StringToHex("K"))
    
    $reflexTPS = TimerDiff($TimerInit)/1000
    MsgBox(64, "Temps de réponse visuel", $reflexTPS & " secondes")
    
    GUISetState(@SW_HIDE, $VisuForm)
    GUICtrlSetBkColor($Color, 0xFF0000)
    
    FileWriteLine("ScoreVisu.txt", $reflexTPS & " secondes")
EndFunc


Func TestAudit()
    GUISetState(@SW_SHOW, $AuditForm)
    
    $Attente = Random(3, 13)
    
    Sleep($Attente * 1000)
    
    Beep(500, 50)
    
    $TimerInit = TimerInit()
    
    Do
        Sleep(1)
    Until _IsPressed(_StringToHex("D"))
    
    $reflexTPS = TimerDiff($TimerInit)/1000
    MsgBox(64, "Temps de réponse auditive", $reflexTPS & " secondes")
    
    GUISetState(@SW_HIDE, $AuditForm)
    GUICtrlSetBkColor($Color, 0xFF0000)
    
    FileWriteLine("ScoreAudit.txt", $reflexTPS & " secondes")
EndFunc


Func GetScores()
    Local $fl_visu, $fl_audit, $somme_visu, $min_visu = 1000, $max_visu = 0, $somme_audit, $min_audit = 1000, $max_audit = 0, $i_visu, $i_audit, $ligne, $score
    
    $fl_visu = FileOpen("ScoreVisu.txt", 0)
    $i_visu = 1
    $somme_visu = 0
    While 1
        $ligne = FileReadLine($fl_visu, $i_visu)
        If StringRight($ligne, 9) <> " secondes" Then ExitLoop
        $score = StringTrimRight($ligne, 9)
        $somme_visu += $score
        If $score < $min_visu Then $min_visu = $score
        If $score > $max_visu Then $max_visu = $score
        $i_visu += 1
    WEnd
    FileClose($fl_visu)
    
    $fl_audit = FileOpen("ScoreAudit.txt", 0)
    $i_audit = 1
    $somme_audit = 0
    While 1
        $ligne = FileReadLine($fl_audit, $i_audit)
        If StringRight($ligne, 9) <> " secondes" Then ExitLoop
        $score = StringTrimRight($ligne, 9)
        $somme_audit += $score
        If $score < $min_audit Then $min_audit = $score
        If $score > $max_audit Then $max_audit = $score
        $i_audit += 1
    WEnd
    FileClose($fl_audit)
    MsgBox(0,"Scores", "Moyenne visuelle : " & Round($somme_visu * 1000 / $i_visu, 3) & " ms" & @CRLF & "Min visuel : " & $min_visu & @CRLF & "Max visuel : " & $max_visu & @CRLF & @CRLF & "Moyenne auditive : " & Round($somme_audit * 1000 / $i_audit, 3) & " ms" & @CRLF & "Min auditif : " & $min_audit & @CRLF & "Max auditif : " & $max_audit & @CRLF & @CRLF & "Rapport visuel / auditif : " & Round(($somme_visu * $i_audit) / ($somme_audit * $i_visu), 3))
EndFunc


Func TypeFormClose()
    Exit
EndFunc

Sinon, voici mes scores :

Code : Tout sélectionner

visuel :
0.414363836744614 secondes
0.30419536561211 secondes
0.552177162181227 secondes
0.349031790353243 secondes
0.389056150991257 secondes
0.335298480672823 secondes
0.308915239227332 secondes
0.360501404508115 secondes

auditif:
0.221264993176507 secondes
0.344782088226297 secondes
0.340329287660862 secondes
0.221593526551559 secondes
0.22215979963934 secondes
0.284780048860959 secondes
0.298649688717421 secondes
0.252351066965215 secondes

[Max5]

Idem (2 fois plus rapide en auditif).

En effet normalement ça se retrouve chez tout le monde.

La vitesse de la lumière est certes plus rapide que celle du son, mais le décodage de l'influx puis la transmission au cerveau est plus rapide avec l'oreille que l'œil. (pour des raisons physiologique que je n'expliciterai pas ici ^^)

$TypeForm => N'auriez vous pas déjà programmé en Delphi ou en C++ ?

J'ai déjà nagé un peu dans ces 2 langages mais en l'occurrence, le nom de la variable est une simple coïncidence. ^^
$TypeForm car c'est la "Form" où l'on peut choisir le "Type" de test que l'on veut faire (visuel ou auditif).

et j'ai un peu réduit le temps d'apparition de l'événement (parce que 23 secondes c'est un peu trop ) :

En même temps c'est fait exprès, pour ne pas s'habituer à un interval trop court et donc fausser les résultat en appuyant par anticipation et non lors de l'apparition du signal.

[tolf]

En même temps, entre 3 et 13 secondes, il reste assez de marge

[Yogui]

je me suis déchirer (bon vendredi soir et de garde au taff j'ai du temp :p)


ScoreVisu
0.234190658309925 secondes

ScoreAudit
0.172088631376334 secondes

[L4crymal]

Visuel : 0.233373724872854 sec =>nouveau record=> 0.219535164385418 sec
Audio : 0.0783244099459568 sec ( je suis très nerveux sur le beep de autoit, cela me donne un spasme dès que je l'entent donc reflex ultra rapide )

[timmalos]

Je sors d'une lecon d'auto ecole et je me suis rappelé de ce petit programme... Resultat surprenant, par rapport a mes anciens resultats marqués plus hauts, J'ai divisé en 6 mois pratiquement par 2 mon temps de reaction Visuel et Auditif, l'Auditif restant 2.065 fois plus rapide que le visuel :
J'ai Min 0.2438 En Visu et 0.1196 en Auditif
Contre 0.3377 et 0.2445 Il y a 6 mois

C'est ce qu'on appelle une belle progression, ou peut etre est ce le matin et que la conduite m'a emoustillée les sens , on peut faire des observations

[AirPE]

Euuuh...
Je viens de tester le jeu et pour l'auditif j'ai:
0.0103894489383427 secondes

soit je suis méga rapide!! soit il y a un bug!

pour la vision j'ai:
0.349810101563187 secondes
0.280770251526381 secondes

[timmalos]

Wahoo, j'espère que c'est un bug et que ca vient des ordinateurs la difference qu'il peut y avoir (Ca fait une reelle difference entre mes 2 ordinateurs le Beep est vraiment plus long sur l'un et la meme personne à 5 dixieme de plus) soir tu travaille Dans un lasergame

[AirPE]

Ah nan je travaille pas dans un lasergame et je suis plutôt du genre à avoir des réflexes moyens!
C'est sûrement un bug mais c'est quand même étonnant! Je trouve que l'écart est assez important pour un PC! Je sais pas ça a dû se produire lors d'un lag infime ou une sieste de la part de mon PC!
sinon pas mal ce petit test de réflexe!

[timmalos]

Y'a une autre solution, c'est que tu aies appuyé avant sur la touche, ca correspond a peu près a ce temps la. Quand on le fait plusieurs fois, on a envie d'appuyer avant et le programme ne tient pas compte de ca, donc c'est peut etre ca.

[pirmax]

Bonsoir !

Pas mal comme petit programme, je suis débutant en AutoIt, j'éspère compter sur vous pour m'aider
Artemis inscrit aussi sur ce forum a créé les programmes nécessaire au site EuroPartage.com.

Voici mon score en photo :



Merci,
Maxence

[tolf]

1.44 ms en auditif, j'y crois pas trop