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

    
    Sleduje bunky, do kterych je treba umistit pismena namisto znaku "?"
    
     Private Sub SetLetter() On Error Resume Next 'Napiste anglicke pismeno namisto znamenka "?" 'TRL() As Integer Pole cisel i z Print_Letter(), do kterych jsou zapsany znacky "?" 'UTRL As Integer Ukazatel v poli TRL() na aktualni Label do ktereho vlozite pismeno 'UTRLE As String Pismeno pro pridani do aktualni bunky se znamenkem "?" If TRL(UTRL) = 1 Then Label2.Caption = UTRLE If TRL(UTRL) = 2 Then Label3.Caption = UTRLE If TRL(UTRL) = 3 Then Label4.Caption = UTRLE If TRL(UTRL) = 4 Then Label5.Caption = UTRLE If TRL(UTRL) = 5 Then Label6.Caption = UTRLE If TRL(UTRL) = 6 Then Label7.Caption = UTRLE If TRL(UTRL) = 7 Then Label8.Caption = UTRLE If TRL(UTRL) = 8 Then Label9.Caption = UTRLE If TRL(UTRL) = 9 Then Label10.Caption = UTRLE If TRL(UTRL) = 10 Then Label11.Caption = UTRLE If TRL(UTRL) = 11 Then Label12.Caption = UTRLE UTRL = UTRL + 1 'Vybrat dalsi bunku pole TRL Text1.Text = UBound(TRL()) 'Kolik znaku "?" - podivejme se na kontrolu prace programu If UTRL > UBound(TRL) - 1 Then UTRL = 0 NextLetterBColor End Sub
    
    Kdy jsme dali anglicke pismeno do bunky misto "?"pozadi bunky bude bile. Soucasne musite zmenit barvu pozadi dalsi bunky, ve ktere je "?"
    
     Private Sub NextLetterBColor() On Error Resume Next 'Zmena barvy pozadi pro dalsi znak "?" If TRL(UTRL) = 1 Then Label2.BackColor = &H89FAE3 If TRL(UTRL) = 2 Then Label3.BackColor = &H89FAE3 If TRL(UTRL) = 3 Then Label4.BackColor = &H89FAE3 If TRL(UTRL) = 4 Then Label5.BackColor = &H89FAE3 If TRL(UTRL) = 5 Then Label6.BackColor = &H89FAE3 If TRL(UTRL) = 6 Then Label7.BackColor = &H89FAE3 If TRL(UTRL) = 7 Then Label8.BackColor = &H89FAE3 If TRL(UTRL) = 8 Then Label9.BackColor = &H89FAE3 If TRL(UTRL) = 9 Then Label10.BackColor = &H89FAE3 If TRL(UTRL) = 10 Then Label11.BackColor = &H89FAE3 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 >>