Что нового

Тренажер irregular verbs (неправильные глаголы)

ahjkcfout7

Знающий
Сообщения
26
Репутация
6
AutoIt: 3.
Версия: 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

Автор(ы):
 
Автор
A

ahjkcfout7

Знающий
Сообщения
26
Репутация
6
усовершенствованная версия. база слов 204...похоже самая большая что нашел...Так же программа считает количество правильных\не правильных ответов...могут встречаться ошибки...
Код:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>

Dim $verb[204]
$verb[0] = 'abide, пребывать. терпеть. соблюдать,aboded abotton, abode(abided)'
$verb[1] = 'arise 	возникать, появляться 	arose 	arisen'
$verb[2] = 'awake, будить. проснутся, awoke, awoke awoken, awake'
$verb[3] = 'bear, нести. родить, bore borne, bore born, bought'
$verb[4] = 'be, быть, was/were been, was will, were will'
$verb[5] = 'beat, бить, beat beaten, beat, bet'
$verb[6] = 'bear, нести. рожать,bore born, bore, bore '
$verb[7] = 'bet, держать пари, bet,beted, betten(beted)'
$verb[8] = 'become, становиться, became become, become, became becommen'
$verb[9] = 'befall, случится, befell befallen, befall befallen, befalt befallen'
$verb[10] = 'begin, начинать, began begun, began begin, began beginnen'
$verb[11] = 'bend, сгибаться, bent, bend, bent benden'
$verb[12] = 'beseech, умолять. упрашивать, besought, beseech, beseech beseechen'
$verb[13] = 'bid I, предлагать цену, bid, bid bidden, bade bidden'
$verb[14] = 'bid II, велеть, bade bidden, bid, bit'
$verb[15] = 'bind, связывать, bound, bint, bind'
$verb[16] = 'bite, кусать, bit bitten, bote bitten, bote bit'
$verb[17] = 'bleed, кровоточить, bled, blet, bleed'
$verb[18] = 'blow, дуть, blew blown, blew, blow'
$verb[19] = 'break, ломать, broke broken, brought, braught'
$verb[20] = 'breed, выращивать, bred, bret, breed'
$verb[21] = 'bring, приносить, brought, brang brung, bringt'
$verb[22] = 'broadcast, вещать по радио. телевидению, broadcast (broadcasted, broadcost broadcosted, broadcast broadcasten'
$verb[23] = 'build, строить, built, build, build builden'
$verb[24] = 'burn, жечь, burnt, burn, burned burn'
$verb[25] = 'burst, разрозится. взрываться, burst, bursted burst, burst bursted'
$verb[26] = 'buy, покупать, bought, baught, buy'
$verb[27] = 'cast, бросать, cast, casted cast, caught'
$verb[28] = 'catch, ловить, caught, cought, cought coughten'
$verb[29] = 'chide, бранить, chid, chode chidden, chit'
$verb[30] = 'choose, выбирать, chose chosen, chost, chest'
$verb[31] = 'cling, льнуть, clung, cling, clang clung'
$verb[32] = 'clothe, одеть, clothed, clought, clought clothen'
$verb[33] = 'come, приходить, came come, come, came commen'
$verb[34] = 'cost, стоить, cost, cought, caught'
$verb[35] = 'creep, ползти, crept, creept, creep'
$verb[36] = 'cut, резать, cut, cutted cut, cut cutten'
$verb[37] = 'dare, сметь(посметь),durst(dared) dared, darought, dare darren'
$verb[38] = 'dive, нырять. погружаться, dove(dived) dived, dove dove, dive diven'
$verb[39] = 'do, делать, did done, was were, did gone'
$verb[40] = 'deal, иметь дело, dealt, deal, delt'
$verb[41] = 'dig, копать, dug, dag dug, dig'
$verb[42] = 'draw, тянуть, drew drawn, drew drewn, draw drawn'
$verb[43] = 'dream, мечтать, dreamt, dremt, dream'
$verb[44] = 'drink, пить, drank drunk, drunk, drank drinken'
$verb[45] = 'drive, ехать, drove driven, drave drove, drave driven'
$verb[46] = 'dwell, обитать, dwelt, dwell, dwellt'
$verb[47] = 'eat, есть, ate eaten, eat eaten, eat'
$verb[48] = 'fall, падать, fell fallen, felt, fall fallen'
$verb[49] = 'feed, кормить, fed, fet, feet'
$verb[50] = 'feel, чувствовать, felt, fell fallen, fell fellen'
$verb[51] = 'fight, сражаться, fought, fight, fight fighten'
$verb[52] = 'find, находить, found, faund, find finden'
$verb[53] = 'fit, годиться, fit, fitted fit, fit fitted'
$verb[54] = 'flee, убежать, fled, fleed, flee'
$verb[55] = 'fling, бросать, flung, flang flung, fling'
$verb[56] = 'fly, летать, flew flown, flought, flow flewn'
$verb[57] = 'forbear, воздерживаться, forbore forborne, forbore forborn, forbeared'
$verb[58] = 'forbid, запретить, forbade forbidden, forbede forbidden, forbid forbidden'
$verb[59] = 'forecast,п редсказывать. предугадывать,forecast forecast, forecasted, forecost'
$verb[60] = 'foresee, предвидеть,foresaw foreseen, foresee, foreseed '
$verb[61] = 'foretell, предсказывать. прогнозировать, foretold, foretald, foretold foretollen'
$verb[62] = 'forget, забывать, forgot forgotten, forgot, forget'
$verb[63] = 'forgive, просить, forgave forgiven, forgive forgiven, forgeve forgiven'
$verb[64] = 'forsake, покидать, forsook forsaken, forsoke forsaken, forsook'
$verb[65] = 'freeze, замерзать, froze frozen, frezt, freezt'
$verb[66] = 'get, получать, got got, get, got getten'
$verb[67] = 'give, давать, gave given, gave give, gave gived'
$verb[68] = 'gild, позолотить, gilt, golt golt, gilt giltten'
$verb[69] = 'grind, молоть, ground, graund, grint'
$verb[70] = 'grow, расти, grew grown, grow grown, grew grewn'
$verb[71] = 'hang, висеть, hung, hangt, hang'
$verb[72] = 'hew, рубить. тесать, hewed, khow khown, hew'
$verb[73] = 'hear, слышать, heard, heart, heard hearen'
$verb[74] = 'hide, прятать, hid hidden, hit, hode hidden'
$verb[75] = 'hit, ударять. попасть, hit, hitted hit, hit hitten'
$verb[76] = 'hold, держать, held, holt, helt'
$verb[77] = 'hurt, причинять боль, hurt, hurted hurt, hurt hurted'
$verb[78] = 'keep, хранить, kept, keept, kought'
$verb[79] = 'kneel, становиться на колени, knelt, kneel, kneelt'
$verb[80] = 'know, знать, knew known, knew knewn, know known'
$verb[81] = 'knit, вязать, плести, knit(knitted) knit(knitted), knit knitten,knited knitten'
$verb[82] = 'lay, класть, laid, lay lain, lade laden'
$verb[83] = 'lead, вести, led, lead, let'
$verb[84] = 'lean, оперется. прислонится, leant, leand, leant leanted'
$verb[85] = 'leave, оставлять, left, lost, leave leaven'
$verb[86] = 'lend, одалживать, lent, lend, lend lenden'
$verb[87] = 'let, позволять. дать, let, letted let, let letten'
$verb[88] = 'lie, лежать, lay lain, laid, lie'
$verb[89] = 'light, освещать. зажечь, lit, light, light lighten'
$verb[90] = 'lose, терять, lost, left, loose loosen'
$verb[91] = 'make, делать, made, maid, made maiden'
$verb[92] = 'mean, значить. подразумевать, meant, mean, meaned mean'
$verb[93] = 'meet, встречать, met, meet, met metten'
$verb[94] = 'mishear, ослышатся, misheard, misheart, misheart mishearten'
$verb[95] = 'misgive,внушать недоверия(опасения),misgave misgiven,misgive misgiveen, misgived'
$verb[96] = 'mishit, промахнуться, mishit,mishit mishitten, mishited'
$verb[97] = 'mislay, класть не на место, mislaid, mislayed,mislaid mislaiden'
$verb[98] = 'misread, неправильно истолковывать(читать),misread,misread misreaden,misrad'
$verb[99] = 'misunderstand,неправильно понимать,misunderstood,misunderstand misunderstood, misunderstand'
$verb[100] = 'mistake, ошибаться, mistook mistaken, mistaked, mistake mistaken'
$verb[101] = 'mislead, ввести в заблуждение, misled, misleat, misleat mishearten'
$verb[102] = 'misspell, писать с орфографическими ошибками, misspelt, misspelled, misspell'
$verb[103] = 'mow, косить (траву), mowed mown, mew mown, mow mewn'
$verb[104] = 'offset, возмещать. компенсировать, 	offset 	offset'
$verb[105] = 'outbid, перебивать цену, outbid, outbit,outbit outbitten'
$verb[106] = 'outdo,превосходить, outdid outdone, outdo, outdoes '
$verb[107] = 'outrun, перегонять. опережать,outran outrun,outran, outrun'
$verb[108] = 'overcome, преодолеть. победить, overcame overcome,overcame,overcome'
$verb[109] = 'overdraw, превышать кредит. перерасходовать, overdrew overdrawn,overdrew,overdrawn'
$verb[110] = 'pay, платить, paid, paught, pay'
$verb[111] = 'plead, умолять. просить о помощи, pled (pleaded), plad pled (pleaded), pled pletten'
$verb[112] = 'put, класть, put, putted put, put putten'
$verb[113] = 'quit, выходить.покидать.бросать,quit (quitted),	quid (quitted), quit quitten'
$verb[114] = 'read, читать, read, reat, rode readden'
$verb[115] = 'reset, делать сброс. возвращать в исходное состояние, reset, resed, resought'
$verb[116] = 'rid, избавлять,rid, rad, ride riden'
$verb[117] = 'ride, ехать, rode ridden, rode roden, rid ridden'
$verb[118] = 'ring, звонить, rang rung, ring, rung'
$verb[119] = 'rise, подниматься, rose risen, rose rosen, rise risen'
$verb[120] = 'rive, расщеплять, rived riven, rove riven, rive riven'
$verb[121] = 'run, бегать, ran run, run, ran'
$verb[122] = 'saw, говорить, sawed sawn, sought, sawd sawn'
$verb[123] = 'say, говорить, said, saught, say'
$verb[124] = 'see, видеть, saw seen, saw, see seen'
$verb[125] = 'seek, искать, sought, seek, saught'
$verb[126] = 'sell, продавать, sold, solt, sold solden'
$verb[127] = 'send, посылать, sent, send, send senden'
$verb[128] = 'set, устанавливать, set, setted set, set setten'
$verb[129] = 'sew, шить,sewed sewn(sewed), sewed sewen, sew'
$verb[130] = 'shave, бриться,shaved shaven(shaved), shove shoven, shave'
$verb[131] = 'shear, стричь, sheared shorn(sheared), shorn, shorn sheared'
$verb[132] = 'shoot, стрелять,shot, shoted, shoot'
$verb[133] = 'shake, трясти, shook shaken, shoke shaken, shoke shaked'
$verb[134] = 'shed, проливать, shed, shet, shod shodden'
$verb[135] = 'shine, сиять, shone, shone shinnen, shine shined'
$verb[136] = 'shoe, обувать, shod, shot, shought'
$verb[137] = 'shoot, стрелять, shot, shot shotten, shought'
$verb[138] = 'show, показывать, showed shown, show shown, show'
$verb[139] = 'shrink, сокращаться, shrank shrunk, shrink, shrunk'
$verb[140] = 'shut, закрывать, shut, shutted shut, shut shutten'
$verb[141] = 'sing, петь, sang sung, sing, sung'
$verb[142] = 'sink, опускаться, sank sunk, sink, sunk'
$verb[143] = 'sit, сидеть, sat, sat sitten, sit'
$verb[144] = 'slay, убивать, slew slain, slaught, slaid slain'
$verb[145] = 'sleep, спать, slept, sleep, sleept'
$verb[146] = 'slide, скользить, slid, slit, slode slidden'
$verb[147] = 'sling, швырнуть, slung, slang slung, sling'
$verb[148] = 'slink, красться, slunk, slank slunk, slink'
$verb[149] = 'slit, раздирать вдоль, slit, slat, slat slut'
$verb[150] = 'smell, пахнуть, smelt, smell, smellt'
$verb[151] = 'smite, ударять, smote smitten, smoot smitten, smit'
$verb[152] = 'speak, говорить, spoke spoken, spaught, speakt'
$verb[153] = 'speed, ускорять, sped, spet, speed speeden'
$verb[154] = 'spell, произносить или писать по буквам, spelt(spelled),spell spelt(spelled),spell'
$verb[155] = 'spill, разлить,spilt(spilled),spill spilt(spilled), spill'
$verb[156] = 'spend, тратить, spent, spend, spend spenden'
$verb[157] = 'spin, прясть, spun, span spun, spint'
$verb[158] = 'spit, плевать, spat, spat sput, spit'
$verb[159] = 'split, раскладывать расщеплять, split, splat, splat splut'
$verb[160] = 'spoil, портить, spoilt(spoiled),spoil spoilt(spoiled),spoil'
$verb[161] = 'spread, распространять, spread, spraught, sprode spreadden'
$verb[162] = 'spring, вскакивать, sprang sprung, spring, sprung'
$verb[163] = 'stand, стоять, stood, stod, staught'
$verb[164] = 'steal, воровать, stole stolen, stelt, stole stealen'
$verb[165] = 'stick, приклеивать, stuck, stack stuck, stick'
$verb[166] = 'sting, жалить, stung, stang stung, sting'
$verb[167] = 'stink, вонять, stank stunk, stunk, stank stunken'
$verb[168] = 'stride, шагать, strode stridden, strit, strod'
$verb[169] = 'strike, ударять, struck, stroke striken, strack struck'
$verb[170] = 'string, натягивать, strung, strang strung, string'
$verb[171] = 'strive, стараться, strove striven, strove stroven, strive striven'
$verb[172] = 'swear, клясться, swore sworn, swore sworne, swear swore'
$verb[173] = 'sweep, мести, swept, sweept, sweep'
$verb[174] = 'swell, вздуваться, swelled swollen, swelt, swoll swollen'
$verb[175] = 'swim, плавать, swam swum, swim, swum'
$verb[176] = 'swing, качать, swung, swang swung, swing'
$verb[177] = 'take, брать, took taken, took, tought'
$verb[178] = 'teach, учить, taught, tought, teacht'
$verb[179] = 'tear, рвать, tore torn, tore tearen, tear'
$verb[180] = 'tell, сказать, told, tolt, tought'
$verb[181] = 'think, думать, thought, think, thaught'
$verb[182] = 'thrive, процветать, throve thriven, throve throven, thrive thriven'
$verb[183] = 'throw, бросать, threw thrown, throw thrown, throwed thrown'
$verb[184] = 'thrust, толкать, thrust, thrusted thrust, thrust thrusted'
$verb[185] = 'tread, ступать, trod trodden, trod, treat'
$verb[186] = 'undercut, подрезать. сбивать цены, undercut, undercut undercutten, undercuted'
$verb[187] = 'undergo, подвергаться, претерпевать, underwent 	undergone, undergo,undergo underwent'
$verb[188] = 'understand, понимать, understood, understand understood,understand'
$verb[189] = 'undo, отменять, уничтожать. расстегивать,undid 	undone, undo, undoes'
$verb[190] = 'uphold, поддерживать. утверждать,upheld, uphold	upheld,uphold'
$verb[191] = 'upset,опрокинуть. расстроиться,upset, upsat, upset upsetten'
$verb[192] = 'waylay,	перехватывать. подстерегать, waylaid, waylay waylaid, waylay'
$verb[193] = 'wed, жениться. выходить/выдавать замуж,	wed wed (wedded), wed weden, wed wedent'  ;?????
$verb[194] = 'wet, мочить. увлажнять, wet(wetted) wet(wetted),wet wetten, wot'
$verb[195] = 'withstand, противостоять, withstood, withstand, withstand withstood'
$verb[196] = 'wake, просыпаться, woke woken, woke waken, waked waken'
$verb[197] = 'wear, носить, wore worn, wear, wore worne'
$verb[198] = 'weave, ткать, wove woven, weavt, wove weaven'
$verb[199] = 'weep, плакать, wept, weept, weep'
$verb[200] = 'win, выигрывать, won, wan wun, wun'
$verb[201] = 'wind, крутить, wound, wint, wind winden'
$verb[202] = 'wring, скручивать, wrung, wrang wrung, wring'
$verb[203] = '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("", 585, 210)
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], '"',"") & StringReplace($rndf_spl[2],'"',""), $w, $h,350)
$right_ = 0
$wrong_ = 0

$right = GUICtrlCreateLabel("0",2*$w , 9*$h, 30)
GUICtrlSetColor(-1, 0x22B14C); green
$wrong = GUICtrlCreateLabel("0",5*$w ,9*$h, 30)
GUICtrlSetColor(-1, 0xFF0000); red

;~ $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  True
	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); red
				$wrong_ += 1
			Else
				GUICtrlSetBkColor($iRadio1, 0x22B14C); green
				$right_ += 1
			 EndIf
				$inp = $rndf_spl[1]&" "&$rndf_spl[3]  &@CRLF & $inp
;~ 			GUICtrlSetData($inputt, @CR&$inp)
			GUICtrlSetData($right, $right_)
			GUICtrlSetData($wrong, $wrong_)
			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); red
				$wrong_ += 1
			Else
				GUICtrlSetBkColor($iRadio2, 0x22B14C); green
				$right_ += 1
			EndIf
				$inp = $rndf_spl[1]&" "&$rndf_spl[3]&@CRLF &$inp
;~ 			GUICtrlSetData($inputt, @CR&$inp)
			GUICtrlSetData($right, $right_)
			GUICtrlSetData($wrong, $wrong_)
			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); red
				$wrong_ += 1
			Else
				GUICtrlSetBkColor($iRadio3, 0x22B14C); green
				$right_ += 1
			EndIf
			$inp = $rndf_spl[1]&" "&$rndf_spl[3]&@CRLF &$inp
;~ 			GUICtrlSetData($inputt, @CR&$inp)
			GUICtrlSetData($right, $right_)
			GUICtrlSetData($wrong, $wrong_)
			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], '"',"") & StringReplace($rndf_spl[2],'"',""))
;~  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)
	;~ GUICtrlSetData($right, $right_)
	;~ GUICtrlSetData($wrong, $wrong_)
	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
 
Автор темы Похожие темы Форум Ответы Дата
L Стол заказов 9
Верх