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 Visual Basic kod
    
    
    Zobrazit priklad - PDF file >>
    

    
Image

    
    Velmi jednoduchy postup-nastavime barvu prvku programu
    
     Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '''''''''''''''''''''''''''Text1.Text = "Timer=" & Timer1.Enabled Label17.ForeColor = &H89FAE3 Label18.ForeColor = &H89FAE3 Label19.ForeColor = &H89FAE3 Label20.ForeColor = &H89FAE3 Label21.ForeColor = &H89FAE3 Label22.ForeColor = &H89FAE3 Label23.ForeColor = &H89FAE3 Label24.ForeColor = &H89FAE3 Label25.ForeColor = &H89FAE3 Label26.ForeColor = &H89FAE3 Label27.ForeColor = &H89FAE3 Label28.ForeColor = &H89FAE3 Label29.ForeColor = &H89FAE3 Label30.ForeColor = &H89FAE3 Label31.ForeColor = &H89FAE3 Label32.ForeColor = &H89FAE3 Label33.ForeColor = &H89FAE3 Label34.ForeColor = &H89FAE3 Label35.ForeColor = &H89FAE3 Label36.ForeColor = &H89FAE3 Label37.ForeColor = &H89FAE3 Label38.ForeColor = &H89FAE3 Label39.ForeColor = &H89FAE3 Label40.ForeColor = &H89FAE3 Label41.ForeColor = &H89FAE3 Label42.ForeColor = &H89FAE3 Label13.ForeColor = &HC0C0C0 Label13.FontBold = False Label13.BackColor = &HFFFF& End Sub
    
    Kontrola spravnosti ciziho slova se provadi. Pokud se shoduje s puvodnim slovem, pak muzete stahnout dalsi cizi slovo ze slovniku. Zde se primitivne opakuje totez pro ruzne bunky. Muzete prochazet objekty typu Label ve smycce.
    
     Private Sub Label17_Click() UTRLE = "A" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label18_Click() UTRLE = "B" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label19_Click() UTRLE = "C" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label20_Click() UTRLE = "D" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label21_Click() UTRLE = "E" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label22_Click() UTRLE = "F" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label23_Click() UTRLE = "G" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label24_Click() UTRLE = "H" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label25_Click() UTRLE = "I" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label26_Click() UTRLE = "J" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label27_Click() UTRLE = "K" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label28_Click() UTRLE = "L" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label29_Click() UTRLE = "M" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label30_Click() UTRLE = "N" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label31_Click() UTRLE = "O" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label32_Click() UTRLE = "P" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label33_Click() UTRLE = "Q" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label34_Click() UTRLE = "R" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label35_Click() UTRLE = "S" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label36_Click() UTRLE = "T" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label37_Click() UTRLE = "U" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label38_Click() UTRLE = "V" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label39_Click() UTRLE = "W" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label40_Click() UTRLE = "X" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label41_Click() UTRLE = "Y" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT End Sub Private Sub Label42_Click() UTRLE = "Z" NoBackColor 'Odstranit barvu pozadi bunky s anglickym pismenem SetLetter 'Zkontrolujte, zda a pokud je to spravne, prejdete na dalsi slovo ControlTXT 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 >>