Free VB ebook - Vsechny karty flashcards pouzivaji specialni algoritmy pro trenink pameti, ktere je cini velmi zajimavymi a efektivnimi. Nove algoritmy uceni jsou mym konickem. Je to velka, slozita a velmi zajimava vec. Ale pro kazdy algoritmus muzete vytvorit tisice karet. Je to jednoduche, kdyz vite, jak to udelat. To trva hodne casu. Kdyz je volny cas, snazim se vytvaret programy pro zapamatovani cizich slov.
    
    Budeme i nadale zvazovat zdrojovy kod programu.
    
    Source Code ZIP >>  NEXT Source Code >>
    

     Portable program Program na VB cte textovy soubor (slovnik). Kazdy radek slovniku obsahuje jedno slovo ve 4 jazycich - Anglictine , Rustine, Nemcine, Cestine. Retezec ze slovniku je vybran nahodne.
    Budeme i nadale analyzovat zdrojovy kod
    
    
    Zobrazit priklad - PDF file >>
    

    
Image

    Studovane slovo neni zobrazeno uplne. Nektera pismena jsou nahrazena znakem "?". Kdyz date pismeno, musite zkontrolovat, zda se slovo ukazalo spravne.
    Je-li cizi slovo je sestaven spravne (uhodli jste vsechna pismena), zobrazit napis " Ano " a stahnout dalsi slovo ze slovniku.
    
     Private Sub ControlTXT() On Error Resume Next 'Kontrola spravnosti slozeneho slova 'A(0) obsahuje studovane anglicke slovo 'Text1.Text = Text1.Text & CStr(ln + 1) 'Vytvorime anglicke slovo z pismen Label ens = ens + Label2.Caption ens = ens + Label3.Caption ens = ens + Label4.Caption ens = ens + Label5.Caption ens = ens + Label6.Caption ens = ens + Label7.Caption ens = ens + Label8.Caption ens = ens + Label9.Caption ens = ens + Label10.Caption ens = ens + Label11.Caption ens = ens + Label12.Caption 'Text1.Text = ens If A(0) = ens Then Yes_Visible 'Zobrazit napis Yes If A(0) = ens Then Command1_Click 'Stahnout dalsi slovo ze slovniku End Sub
    
    Zobrazit napis " Yes " bude pomoci casovace. Udelame napis viditelny a povolime casovac, ktery po kratke dobe skryje napis.
    
     Private Sub Yes_Visible() On Error Resume Next 'Zobrazit napis Yes! Label44.Visible = True Timer1.Enabled = True 'Povolit casovac, ktery skryje napis Yes! End Sub

    
    Pokud neco neni jasne ve zdrojovem kodu, napiste. mobilex880 @ gmail.com (Odstranit mezery). Predmet zpravy by mel byt "== e-TextBook". E-maily s dalsimi tematy jsou odstraneny i SPAM
    
    NEXT Source Code >>