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.
    
    Publikuji kompletni zdrojovy kod, aby zkuseni programatori mohli vytvorit dobre programy pro vyuku cizich jazyku. Nebo aby zacinajici programatori ziskali dobre zkusenosti s programovanim a nasli dobrou praci.
    
    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

    Kdyz jsme si precetli textovy soubor (slovnik), pak kazdy radek obsahuje cizi slovo (anglicke) a 3 preklady - nemcina, rustina, cestina jazyky. Rusky preklad nemusi byt spravne zobrazen, pokud v pocitaci nejsou zadne CYRILLIC pisma.
    Dalsim kodem je vyber nahodneho retezce slovniku (nahodne slovo)
    
     Private Sub Select_String() 'Vyberte radek nahodne Randomize X = CInt(Int((t * Rnd()) + 0)) End Sub
    
    Nyni musi byt retezec rozdelen na 4 slova-anglictina, nemcina, rustina a Cestina.
    
    Private Sub Split_String() On Error Resume Next 'Rozdelit radek na slova A() = Split(B(X), ",") 'Znak "," se pouziva jako oddelovac mezi slovy ve slovniku '''Text1.Text = A(0) Label13.Caption = A(0) 'English 'Napiste zvyraznena slova Label14.Caption = CZ & ": " & A(1) Label15.Caption = RU & ": " & A(2) Label16.Caption = DE & ": " & A(3) End Sub
    
    
    
     Private Sub Letters_Eng() On Error Resume Next g = Len(A(0)) 'Delka anglickeho slova v radku souboru dictionary.txt, ktere ucime ''''''''''''''''Text1.Text = Text1.Text & g & " h=" & h & " hh=" & hh '---------------------------------------------- 'Vymazat bunky s pismeny Label2.Caption = "" Label3.Caption = "" Label4.Caption = "" Label5.Caption = "" Label6.Caption = "" Label7.Caption = "" Label8.Caption = "" Label9.Caption = "" Label10.Caption = "" Label11.Caption = "" Label12.Caption = "" '---------------------------------------------- 'Tato cast programu muze byt provedena elegantneji. 'Zarovnejte pismena ve stredu bunek. Celkem 11 bunek If g = 1 Then ln = 5 'Posunuti + 5 od zacatku bunek If g = 2 Then ln = 4 If g = 3 Then ln = 4 If g = 4 Then ln = 3 If g = 5 Then ln = 3 If g = 6 Then ln = 2 If g = 7 Then ln = 2 If g = 8 Then ln = 1 If g = 9 Then ln = 1 If g = 10 Then ln = 0 If g = 11 Then ln = 0 '---------------------------------------------- Print_Letter 'Napiste pismena do bunek Do While hh = 2 Print_Letter 'Napiste pismena do bunek Loop hh = 2 End Sub

    Muzete dat pismeno v cizim slove v bunce, ktera je zvyraznena zelene.
    Staci kliknout na pozadovane pismeno abecedy
    
    NEXT Source Code >>