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

    Jedna se o zakladni postup programu-vytvari cizi slovo na obrazovce, kontroluje slovo, ktere jste vytvorili.
    Tam muze byt nekolik obtiznych mist k pochopeni VB source code. To je zpusobeno omezenimi programovaciho jazyka Visual Basic
    
     Private Sub Print_Letter() On Error Resume Next 'Napiste pismena ciziho slova do bunek 'q = 0 'V poli TRL() jeste nejsou zadne hodnoty ReDim TRL(0) 'Deklarovat velikost pole pro i z postupu Print_Letter(), do ktere jsou umisteny znacky ? For i = 1 To g 'g - pocet bunek s pismeny na poli Form1 e = Mid(A(0), i, 1) i = i + ln 'Pridat posun od zacatku radku bunek do pole Form1 - zalezi na poctu pismen v cizim slove 'Text1.Text = Text1.Text & i 'Bunky, do kterych jsou napsana anglicka pismena 'Zapiseme hodnoty do pole CorrectWord 'Zkontrolujte anglicke slovo vytvorene v bunkach (ktere jste vytvorili) Replace_Letter 'Nahradit pismeno znakem "?" If h = 1 Then e = "?" If e = "?" Then Question 'Zapsat cisla bunek, ve kterych je znacka umistena "?" If ETR = 0 Then EN = i 'Cislo bunky s prvnim znamenim "?" - ZVYRAZNETE BARVU POZADI 'V teto bunce Napiste pismeno prekladu ''If ETR = 0 Then Text1.Text = Text1.Text & EN ETR = 1 'Zadne dalsi kontroly If EN = 1 Then Label2.BackColor = &H89FAE3 If EN = 1 Then Label2.BackStyle = 1 If EN = 2 Then Label3.BackColor = &H89FAE3 If EN = 2 Then Label3.BackStyle = 1 If EN = 3 Then Label4.BackColor = &H89FAE3 If EN = 3 Then Label4.BackStyle = 1 If EN = 4 Then Label5.BackColor = &H89FAE3 If EN = 4 Then Label5.BackStyle = 1 If EN = 5 Then Label6.BackColor = &H89FAE3 If EN = 5 Then Label6.BackStyle = 1 If EN = 6 Then Label7.BackColor = &H89FAE3 If EN = 6 Then Label7.BackStyle = 1 If EN = 7 Then Label8.BackColor = &H89FAE3 If EN = 7 Then Label8.BackStyle = 1 If EN = 8 Then Label9.BackColor = &H89FAE3 If EN = 8 Then Label9.BackStyle = 1 If EN = 9 Then Label10.BackColor = &H89FAE3 If EN = 9 Then Label10.BackStyle = 1 If EN = 10 Then Label11.BackColor = &H89FAE3 If EN = 10 Then Label11.BackStyle = 1 End If If h = 1 Then hh = 1 'Byl tam symbol "?" do Label If i = 1 Then Label2.Caption = e If i = 2 Then Label3.Caption = e If i = 3 Then Label4.Caption = e If i = 4 Then Label5.Caption = e If i = 5 Then Label6.Caption = e If i = 6 Then Label7.Caption = e If i = 7 Then Label8.Caption = e If i = 8 Then Label9.Caption = e If i = 9 Then Label10.Caption = e If i = 10 Then Label11.Caption = e If i = 11 Then Label12.Caption = e i = i - ln 'Upravit posun pro cyklus Next i 'Text1.Text = TRL(1) & TRL(2) & TRL(3) & TRL(4) & TRL(5) & TRL(6) & TRL(7) & TRL(8) & TRL(9) & TRL(10) & TRL(11) ''qen = UBound(TRL) ''Text1.Text = TRL(0) Text1.Text = TRL(0) & "*" & TRL(1) & "*" & TRL(2) & "*" & TRL(3) & "*" & TRL(4) & "*" & TRL(5) & "*" End Sub
    
    Kdyz spustite program, uvidite cizi slovo s vynechanymi pismeny. Misto chybejicich pismen jsou znaky "?". Musite kliknout mysi na pismeno abecedy a bude zapsana misto "?". Seznam pozic "?" zaznamenano zde
    
     Private Sub Question() On Error Resume Next 'Vytvorit radu cisel i pro ktere jsou znacky "?" ReDim Preserve TRL(UBound(TRL) + 1) 'Pridat rozmer pole na 1 TRL(q) = i 'Zapsat ID (promennou) i bunky anglicke yalovy, ve ktere je znacka "?" q = q + 1 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 >>