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 VB zdrojovy kod programu pro studium cizich slov.
    
    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

    
    Jednoduchy postup. Zmenime pozadi bunek na bilou. Muzete psat jinym zpusobem. Prochazet vsechny bunky ve smycce. Pokud jste zvedavi
    
     Private Sub NoBackColor() 'Odstranit barvu pozadi bunky s anglickym pismenem Label2.BackColor = &HFFFFFF Label2.BackColor = &HFFFFFF Label3.BackColor = &HFFFFFF Label4.BackColor = &HFFFFFF Label5.BackColor = &HFFFFFF Label6.BackColor = &HFFFFFF Label7.BackColor = &HFFFFFF Label8.BackColor = &HFFFFFF Label9.BackColor = &HFFFFFF Label10.BackColor = &HFFFFFF Label11.BackColor = &HFFFFFF Label12.BackColor = &HFFFFFF End Sub
    
    Nahradime nektera pismena v cizim slove "?". Pouzivame dva generatory nahodnych cisel, aby byla nahrada nahodnejsi.
    
     Private Sub Replace_Letter() 'Vymente pismena za znaky "?" Randomize h = CInt(Int((2 * Rnd()) + 0)) Randomize h = CInt(Int((2 * Rnd()) + 0)) 'Pokud h = 1 pak nahradit "?" 'Pokud h = 2 pak nenahrazuje "?" 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 >>