ahjkcfout7
Знающий
- Сообщения
- 26
- Репутация
- 6
AutoIt: 3.
Версия: 3.3.8.1
Категория: Элементы GUI, Разное
Снимок:
Описание:
Приступил к изучению неправильных глаголов английского языка. Появился вопрос: как проверить мои знания? Написал программу, которая вобщем ето делает. Может кому и пригодится...
Код/Пример:
Автор(ы):
Версия: 3.3.8.1
Категория: Элементы GUI, Разное
Снимок:
Описание:
Приступил к изучению неправильных глаголов английского языка. Появился вопрос: как проверить мои знания? Написал программу, которая вобщем ето делает. Может кому и пригодится...
Код/Пример:
Код:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <String.au3>
Local $verb[146]
$verb[0] = '"shed", "проливать", "shed", "shet", "shod shodden"'
$verb[1] = '"slit", "раздирать вдоль", "slit", "slat", "slat slut"'
$verb[2] = '"split", "расщеплять", "split", "splat", "splat splut"'
$verb[3] = '"read", "читать", "read", "reat", "rode readden"'
$verb[4] = '"spread", "распространять", "spread", "spraught", "sprode spreadden"'
$verb[5] = '"burst", "взрываться", "burst", "bursted burst", "burst bursted"'
$verb[6] = '"cast", "бросать", "cast", "casted cast", "caught"'
$verb[7] = '"cost", "стоить", "cost", "cought", "caught"'
$verb[8] = '"cut", "резать", "cut", "cutted cut", "cut cutten"'
$verb[9] = '"fit", "годиться", "fit", "fitted fit", "fit fitted"'
$verb[10] = '"hit", "ударять", "hit","hitted hit","hit hitten"'
$verb[11] = '"hurt", "причинять боль", "hurt", "hurted hurt", "hurt hurted"'
$verb[12] = '"let", "позволять", "let", "letted let", "let letten"'
$verb[13] = '"put", "класть", "put", "putted put", "put putten"'
$verb[14] = '"set", "устанавливать", "set", "setted set", "set setten"'
$verb[15] = '"shut", "закрывать", "shut", "shutted shut", "shut shutten"'
$verb[16] = '"thrust", "толкать", "thrust", "thrusted thrust", "thrust thrusted"'
$verb[17] = '"bend", "сгибаться", "bent", "bend", "bent benden"'
$verb[18] = '"cling", "льнуть", "clung", "cling", "clang clung"'
$verb[19] = '"drink", "пить", "drank drunk", "drunk", "drank drinken"'
$verb[20] = '"bind", "связывать", "bound", "bint", "bind"'
$verb[21] = '"run", "бегать", "ran run", "run", "ran"'
$verb[22] = '"become", "становиться", "became become", "become", "became becommen"'
$verb[23] = '"come", "приходить", "came come", "come", "came commen"'
$verb[24] = '"begin", "начинать", "began begun", "began begin", "began beginnen"'
$verb[25] = '"ring", "звонить", "rang rung", "ring", "rung"'
$verb[26] = '"shrink", "сокращаться", "shrank shrunk", "shrink", "shrunk"'
$verb[27] = '"sing", "петь", "sang sung", "sing", "sung"'
$verb[28] = '"sink", "опускаться", "sank sunk", "sink", "sunk"'
$verb[29] = '"spring", "вскакивать", "sprang sprung", "spring", "sprung"'
$verb[30] = '"stink", "вонять", "stank stunk", "stunk", "stank stunken"'
$verb[31] = '"swim", "плавать", "swam swum", "swim", "swum"'
$verb[32] = '"fling", "бросать", "flung", "flang flung", "fling"'
$verb[33] = '"sling", "швырнуть", "slung", "slang slung", "sling"'
$verb[34] = '"slink", "красться", "slunk", "slank slunk", "slink"'
$verb[35] = '"string", "натягивать", "strung", "strang strung", "string"'
$verb[36] = '"stick", "приклеивать", "stuck", "stack stuck", "stick"'
$verb[37] = '"sting", "жалить", "stung", "stang stung", "sting"'
$verb[38] = '"dig", "копать", "dug", "dag dug", "dig"'
$verb[39] = '"swing", "качать", "swung", "swang swung", "swing"'
$verb[40] = '"wring", "скручивать", "wrung", "wrang wrung", "wring"'
$verb[41] = '"hold", "держать", "held", "holt", "helt"'
$verb[42] = '"hang", "висеть", "hung", "hangt", "hang"'
$verb[43] = '"sell", "продавать", "sold", "solt", "sold solden"'
$verb[44] = '"spit", "плевать", "spat", "spat sput", "spit"'
$verb[45] = '"sit", "сидеть", "sat", "sat sitten", "sit"'
$verb[46] = '"tell", "сказать", "told", "tolt", "tought"'
$verb[47] = '"strike", "ударять", "struck", "stroke striken", "strack struck"'
$verb[48] = '"spin", "прясть", "spun", "span spun", "spint"'
$verb[49] = '"win", "выигрывать", "won", "wan wun", "wun"'
$verb[50] = '"take", "брать", "took taken", "took", "tought"'
$verb[51] = '"find", "находить", "found", "faund", "find finden"'
$verb[52] = '"seek", "искать", "sought", "seek", "saught"'
$verb[53] = '"wind", "крутить", "wound", "wint", "wind winden"'
$verb[54] = '"think", "думать", "thought", "think", "thaught"'
$verb[55] = '"catch", "ловить", "caught", "cought", "cought coughten"'
$verb[56] = '"buy", "покупать", "bought", "baught", "buy"'
$verb[57] = '"bring", "приносить", "brought", "brang brung", "bringt"'
$verb[58] = '"fight", "сражаться", "fought", "fight", "fight fighten"'
$verb[59] = '"grind", "молоть", "ground", "graund", "grint"'
$verb[60] = '"teach", "учить", "taught", "tought", "teacht"'
$verb[61] = '"pay", "платить", "paid", "paught", "pay"'
$verb[62] = '"say", "говорить", "said", "saught", "say"'
$verb[63] = '"send", "посылать", "sent", "send", "send senden"'
$verb[64] = '"light", "освещать", "lit", "light", "light lighten"'
$verb[65] = '"make", "делать", "made", "maid", "made maiden"'
$verb[66] = '"shine", "сиять", "shone", "shone shinnen", "shine shined"'
$verb[67] = '"speak", "говорить", "spoke spoken", "spaught", "speakt"'
$verb[68] = '"bleed", "кровоточить", "bled", "blet", "bleed"'
$verb[69] = '"breed", "выращивать", "bred", "bret", "breed"'
$verb[70] = '"build", "строить", "built", "build", "build builden"'
$verb[71] = '"burn", "жечь", "burnt", "burn", "burned burn"'
$verb[72] = '"creep", "ползти", "crept", "creept", "creep"'
$verb[73] = '"deal", "иметь дело", "dealt", "deal", "delt"'
$verb[74] = '"dream", "мечтать", "dreamt", "dremt", "dream"'
$verb[75] = '"dwell", "обитать", "dwelt", "dwell", "dwellt"'
$verb[76] = '"feed", "кормить", "fed", "fet", "feet"'
$verb[77] = '"fall", "падать", "fell fallen", "felt", "fall fallen"'
$verb[78] = '"feel", "чувствовать", "felt", "fell fallen", "fell fellen"'
$verb[79] = '"flee", "убежать", "fled", "fleed", "flee"'
$verb[80] = '"hear", "слышать", "heard", "heart", "heard hearen"'
$verb[81] = '"keep", "хранить", "kept", "keept", "kought"'
$verb[82] = '"kneel", "становиться на колени", "knelt", "kneel", "kneelt"'
$verb[83] = '"lay", "класть", "laid", "lay lain", "lade laden"'
$verb[84] = '"lie", "лежать", "lay lain", "laid", "lie"'
$verb[85] = '"lead", "вести", "led", "lead", "let"'
$verb[86] = '"leave", "оставлять", "left", "lost", "leave leaven"'
$verb[87] = '"lend", "одалживать", "lent", "lend", "lend lenden"'
$verb[88] = '"lose", "терять", "lost", "left", "loose loosen"'
$verb[89] = '"mean", "значить", "meant", "mean", "meaned mean"'
$verb[90] = '"meet", "встречать", "met", "meet", "met metten"'
$verb[91] = '"misspell", "писать с орфографическими ошибками", "misspelt", "misspelled", "misspell"'
$verb[92] = '"shoe", "обувать", "shod", "shot", "shought"'
$verb[93] = '"shoot", "стрелять", "shot", "shot shotten", "shought"'
$verb[94] = '"sleep", "спать", "slept", "sleep", "sleept"'
$verb[95] = '"slide", "скользить", "slid", "slit", "slode slidden"'
$verb[96] = '"smell", "пахнуть", "smelt", "smell", "smellt"'
$verb[97] = '"speed", "ускорять", "sped", "spet", "speed speeden"'
$verb[98] = '"spend", "тратить", "spent", "spend", "spend spenden"'
$verb[99] = '"stand", "стоять", "stood", "stod", "staught"'
$verb[100] = '"sweep", "мести", "swept", "sweept", "sweep"'
$verb[101] = '"weep", "плакать", "wept", "weept", "weep"'
$verb[102] = '"bid I", "предлагать цену", "bid", "bid bidden", "bade bidden"'
$verb[103] = '"bid II", "велеть", "bade bidden", "bid", "bit"'
$verb[104] = '"bite", "кусать", "bit bitten", "bote bitten", "bote bit"'
$verb[105] = '"blow", "дуть", "blew blown", "blew", "blow"'
$verb[106] = '"bear", "носить", "bore born", "bought", "bore borne"'
$verb[107] = '"beat", "бить", "beat beaten", "beat", "bet"'
$verb[108] = '"break", "ломать", "broke broken", "brought", "braught"'
$verb[109] = '"chide", "бранить", "chid", "chode chidden", "chit"'
$verb[110] = '"choose", "выбирать", "chose chosen", "chost", "chest"'
$verb[111] = '"draw", "тянуть", "drew drawn", "drew drewn", "draw drawn"'
$verb[112] = '"drive", "ехать", "drove driven", "drave drove", "drave driven"'
$verb[113] = '"eat", "есть", "ate eaten", "eat eaten", "eat"'
$verb[114] = '"fly", "летать", "flew flown", "flought", "flow flewn"'
$verb[115] = '"forbear", "воздерживаться", "forbore forborne", "forbore forborn", "forbeared"'
$verb[116] = '"forget", "забывать", "forgot forgotten", "forgot", "forget"'
$verb[117] = '"forsake", "покидать", "forsook forsaken", "forsoke forsaken", "forsook"'
$verb[118] = '"freeze", "замерзать", "froze frozen", "frezt", "freezt"'
$verb[119] = '"give", "давать", "gave given", "gave give", "gave gived"'
$verb[120] = '"get", "получать", "got got", "get", "got getten"'
$verb[121] = '"grow", "расти", "grew grown", "grow grown", "grew grewn"'
$verb[122] = '"hide", "прятать", "hid hidden", "hit", "hode hidden"'
$verb[123] = '"know", "знать", "knew known", "knew knewn", "know known"'
$verb[124] = '"mow", "косить (траву)", "mowed mown", "mew mown", "mow mewn"'
$verb[125] = '"ride", "ехать", "rode ridden", "rode roden", "rid ridden"'
$verb[126] = '"rise", "подниматься", "rose risen", "rose rosen", "rise risen"'
$verb[127] = '"rive", "расщеплять", "rived riven", "rove riven", "rive riven"'
$verb[128] = '"see", "видеть", "saw seen", "saw", "see seen"'
$verb[129] = '"shake", "трясти", "shook shaken", "shoke shaken", "shoke shaked"'
$verb[130] = '"show", "показывать", "showed shown", "show shown", "show"'
$verb[131] = '"slay", "убивать", "slew slain", "slaught", "slaid slain"'
$verb[132] = '"smite", "ударять", "smote smitten", "smoot smitten", "smit"'
$verb[133] = '"steal", "воровать", "stole stolen", "stelt", "stole stealen"'
$verb[134] = '"stride", "шагать", "strode stridden", "strit", "strod"'
$verb[135] = '"strive", "стараться", "strove striven", "strove stroven", "strive striven"'
$verb[136] = '"swell", "вздуваться", "swelled swollen", "swelt", "swoll swollen"'
$verb[137] = '"swear", "клясться", "swore sworn", "swore sworne", "swear swore"'
$verb[138] = '"thrive", "процветать", "throve thriven", "throve throven", "thrive thriven"'
$verb[139] = '"throw", "бросать", "threw thrown", "throw thrown", "throwed thrown"'
$verb[140] = '"tear", "рвать", "tore torn", "tore tearen", "tear"'
$verb[141] = '"tread", "ступать", "trod trodden", "trod", "treat"'
$verb[142] = '"wake", "просыпаться", "woke woken", "woke waken", "waked waken"'
$verb[143] = '"wear", "носить", "wore worn", "wear", "wore worne"'
$verb[144] = '"weave", "ткать", "wove woven", "weavt", "wove weaven"'
$verb[145] = '"write", "писать", "wrote written", "wrote writ", "writ"'
;~ $crypt_file = "c:/temp.txt"
;~ $Array_file = FileRead(FileOpen($crypt_file, 0))
;~ $yyy = StringSplit($Array_file, @CRLF)
;~ $yyy = _ArrayClearEmpty($yyy)
;~ For $i=1 To UBound($yyy)-1
;~ ConsoleWrite("$verb[" & $i-1 & "] = '" & $yyy[$i] & "'"& @CR)
;~ Next
$h=20
$w=20
$Win = GUICreate("", 685, 250, 350, 180)
GUISetFont(15,400)
$rndf = Random(0, UBound($verb)-1, 1)
$inputt = GUICtrlCreateEdit("", 20*$w, $h, 275, 220, -1)
$rndf_spl = StringSplit($verb[$rndf], ",")
$en = GUICtrlCreateLabel(StringReplace($rndf_spl[1], '"',""), $w, $h,100)
$ru = GUICtrlCreateLabel(StringReplace($rndf_spl[2],'"',""), 6*$w, $h,200)
$nU = _UniqArray(3,5)
If StringInStr(StringTrimLeft($rndf_spl[3],1), " ")=0 Then $rndf_spl[3] = $rndf_spl[3]&" "&$rndf_spl[3]
If StringInStr(StringTrimLeft($rndf_spl[4],1), " ")=0 Then $rndf_spl[4] = $rndf_spl[4]&" "&$rndf_spl[4]
If StringInStr(StringTrimLeft($rndf_spl[5],1), " ")=0 Then $rndf_spl[5] = $rndf_spl[5]&" "&$rndf_spl[5]
$rndf_spl[3] = StringReplace($rndf_spl[3],'"','')
$rndf_spl[4] = StringReplace($rndf_spl[4],'"','')
$rndf_spl[5] = StringReplace($rndf_spl[5],'"','')
$q1=$rndf_spl[$nU[0]]
$q2=$rndf_spl[$nU[1]]
$q3=$rndf_spl[$nU[2]]
$iRadio1 = GUICtrlCreateRadio($q1, $w, 3*$h,300)
$iRadio2 = GUICtrlCreateRadio($q2, $w, 5*$h,300)
$iRadio3 = GUICtrlCreateRadio($q3, $w, 7*$h,300)
GUISetState(@SW_SHOW, $win)
$inp=""
While 1
Global $msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $iRadio1 And BitAND(GUICtrlRead($iRadio1), $GUI_CHECKED) = $GUI_CHECKED
If Not StringCompare($q1, $rndf_spl[3])=0 Then
GUICtrlSetBkColor($iRadio1, 0xFF0000)
Else
GUICtrlSetBkColor($iRadio1, 0x22B14C)
EndIf
$inp = $rndf_spl[1]&" "&$rndf_spl[3] &@CRLF & $inp
GUICtrlSetData($inputt, @CR&$inp)
Sleep(500)
Random_()
Case $msg = $iRadio2 And BitAND(GUICtrlRead($iRadio2), $GUI_CHECKED) = $GUI_CHECKED
If Not StringCompare($q2, $rndf_spl[3])=0 Then
GUICtrlSetBkColor($iRadio2, 0xFF0000)
Else
GUICtrlSetBkColor($iRadio2, 0x22B14C)
EndIf
$inp = $rndf_spl[1]&" "&$rndf_spl[3]&@CRLF &$inp
GUICtrlSetData($inputt, @CR&$inp)
Sleep(500)
Random_()
Case $msg = $iRadio3 And BitAND(GUICtrlRead($iRadio3), $GUI_CHECKED) = $GUI_CHECKED
If Not StringCompare($q3, $rndf_spl[3])=0 Then
GUICtrlSetBkColor($iRadio3, 0xFF0000)
Else
GUICtrlSetBkColor($iRadio3, 0x22B14C)
EndIf
$inp = $rndf_spl[1]&" "&$rndf_spl[3]&@CRLF &$inp
GUICtrlSetData($inputt, @CR&$inp)
Sleep(500)
Random_()
EndSelect
WEnd
Func Random_()
$rndf = Random(0, UBound($verb)-1, 1)
;~ $rndf_spl = StringSplit(StringReplace($verb[$rndf],'"',""), ",")
$rndf_spl = StringSplit($verb[$rndf], ",")
GUICtrlSetData($en, StringReplace($rndf_spl[1], '"',""))
GUICtrlSetData($ru, StringReplace($rndf_spl[2],'"',""))
$nU = _UniqArray(3,5)
If StringInStr(StringTrimLeft($rndf_spl[3],1), " ")=0 Then $rndf_spl[3] = $rndf_spl[3]&" "&$rndf_spl[3]
If StringInStr(StringTrimLeft($rndf_spl[4],1), " ")=0 Then $rndf_spl[4] = $rndf_spl[4]&" "&$rndf_spl[4]
If StringInStr(StringTrimLeft($rndf_spl[5],1), " ")=0 Then $rndf_spl[5] = $rndf_spl[5]&" "&$rndf_spl[5]
$rndf_spl[3] = StringReplace($rndf_spl[3],'"','')
$rndf_spl[4] = StringReplace($rndf_spl[4],'"','')
$rndf_spl[5] = StringReplace($rndf_spl[5],'"','')
$q1=$rndf_spl[$nU[0]]
$q2=$rndf_spl[$nU[1]]
$q3=$rndf_spl[$nU[2]]
GUICtrlSetData($iRadio1, $q1)
GUICtrlSetData($iRadio2, $q2)
GUICtrlSetData($iRadio3, $q3)
GUICtrlSetState($iRadio1, $GUI_UNCHECKED)
GUICtrlSetState($iRadio2, $GUI_UNCHECKED)
GUICtrlSetState($iRadio3, $GUI_UNCHECKED)
GUICtrlSetBkColor($iRadio1, 0xF0F0F0)
GUICtrlSetBkColor($iRadio2, 0xF0F0F0)
GUICtrlSetBkColor($iRadio3, 0xF0F0F0)
EndFunc
Func _UniqArray($iMin, $iMax)
Local $iR
Local $iU = $iMax - $iMin, $iT = 0
Local $aI[$iU + 1], $aO[$iU + 1]
For $i = $iMin To $iMax
$aI[$iT] = $i
$iT += 1
Next
For $i = 0 To $iU
$iR = Random(0, $iU - $i, 1)
$aO[$i] = $aI[$iR]
For $k = $iR To $iU - $i - 1
$aI[$k] = $aI[$k + 1]
Next
Next
Return SetError(0, 0, $aO)
EndFunc
Func _ArrayClearEmpty($a_Array, $i_SubItem = 0, $i_Start = 0)
If Not IsArray($a_Array) Or UBound($a_Array, 0) > 2 Then Return SetError(1, 0, 0)
Local $i_Index = -1
Local $i_UBound_Row = UBound($a_Array, 1) - 1
Local $i_UBound_Column = UBound($a_Array, 2) - 1
If $i_UBound_Column = -1 Then $i_UBound_Column = 0
If $i_SubItem > $i_UBound_Column Then $i_SubItem = 0
If $i_Start < 0 Or $i_Start > $i_UBound_Row Then $i_Start = 0
Switch $i_UBound_Column + 1
Case 1
Dim $a_TempArray[$i_UBound_Row + 1]
If $i_Start Then
For $i = 0 To $i_Start - 1
$a_TempArray[$i] = $a_Array[$i]
Next
$i_Index = $i_Start - 1
EndIf
For $i = $i_Start To $i_UBound_Row
If String($a_Array[$i]) Then
$i_Index += 1
$a_TempArray[$i_Index] = $a_Array[$i]
EndIf
Next
If $i_Index > -1 Then
ReDim $a_TempArray[$i_Index + 1]
Else
Return SetError(2, 0, 0)
EndIf
Case 2
Dim $a_TempArray[$i_UBound_Row + 1][$i_UBound_Column + 1]
If $i_Start Then
For $i = 0 To $i_Start - 1
For $j = 0 To $i_UBound_Column
$a_TempArray[$i][$j] = $a_Array[$i][$j]
Next
Next
$i_Index = $i_Start - 1
EndIf
For $i = $i_Start To $i_UBound_Row
If String($a_Array[$i][$i_SubItem]) Then
$i_Index += 1
For $j = 0 To $i_UBound_Column
$a_TempArray[$i_Index][$j] = $a_Array[$i][$j]
Next
EndIf
Next
If $i_Index > -1 Then
ReDim $a_TempArray[$i_Index + 1][$i_UBound_Column + 1]
Else
Return SetError(2, 0, 0)
EndIf
EndSwitch
Return SetError(0, $i_UBound_Row - $i_Index, $a_TempArray)
EndFunc
Автор(ы):