754原则训练流程能力 -ahk辅助出题与统计

[nilmomo]

刷到通过754训练计算能力或流程能力的视频
相关短视频链接
754就是7分钟内完成5道四位数乘以四位数的题目, 用ahk写了个相关的脚本

#Requires AutoHotkey v2.0
 #Warn
ov1 := Random(1000, 9999)
ov2 := Random(1000, 9999)
ov3 := Random(1000, 9999)
ov4 := Random(1000, 9999)
ov5 := Random(1000, 9999)
ov6 := Random(1000, 9999)
ov7 := Random(1000, 9999)
ov8 := Random(1000, 9999)
ov9 := Random(1000, 9999)
ov10 := Random(1000, 9999)

question := ov1 " * " ov2 "`n" ov3 " * " ov4 "`n" ov5 " * " ov6 "`n" ov7 " * " ov8 "`n" ov9 " * " ov10 "`n"
answers := ov1 " * " ov2 "=" ov1 * ov2 "`n" ov3 " * " ov4 "=" ov3 * ov4 "`n" ov5 " * " ov6 "=" ov5 * ov6 "`n" ov7 " * " ov8 "=" ov7 * ov8 "`n" ov9 " * " ov10 "=" ov9 * ov10 "`n"

start := FormatTime(A_Now, "yyyyMMddHHmmss")
start2 := FormatTime(A_Now, "yyyy年MM月dd日 HH:mm:ss")

SetTimer ChangeButtonNames1, 50
choose := Msgbox(question "`n" start2,"754计算" , 4 )
if choose = "Yes"  ; 完成
{
    finish := FormatTime(A_Now, "yyyyMMddHHmmss")
    seconds := DateDiff(finish, start, "Seconds")
    timecost := Round(seconds / 60) "分" Mod(seconds, 60) "秒"



SetTimer ChangeButtonNames2, 50
    varr := MsgBox(answers "`n计算耗时: " timecost, "计算结果", 6)
    if varr = "Cancel" ; 全对
        {
        FileAppend start2  "  " timecost "   ✔✔✔✔✔`n", "754计算统计.txt", "utf-8"
        Exit
    }
    else varr := "Try Again" ;有错
    {
        MyMenu := Menu()
        MyMenu.Add "✘", MenuHandler
        MyMenu.Add "✘✘", MenuHandler
        MyMenu.Add "✘✘✘", MenuHandler
        MyMenu.Add "✘✘✘✘", MenuHandler
        MyMenu.Add "✘✘✘✘✘", MenuHandler
        MyMenu.Show
        Exit
    }
    else ;取消
    {
    Exit
}
}
else
{
    Exit
}

MenuHandler(Item, *){
   FileAppend start2  "  " timecost "   " Item " `n", "754计算统计.txt", "utf-8"
Exit
}

ChangeButtonNames1()
{
    if !WinExist("754计算")
        return  ; Keep waiting.
    SetTimer , 0
    WinActivate
    ControlSetText "&完成", "Button1"
    ControlSetText "&取消", "Button2"
}


ChangeButtonNames2()
{
    if !WinExist("计算结果")
        return  ; Keep waiting.
    SetTimer , 0
    WinActivate
    ControlSetText "&全对", "Button1"
    ControlSetText "&有错", "Button2"
    ControlSetText "&取消退出", "Button3"
}