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.
    
    Full 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

    
    Tento postup ukazuje abecedu, kdyz je ukazatel mysi nastaven. Pokud je ukazatel mysi posunut, pismena abecedy jsou skryta. To trochu zkrasluje program, dava "profesionalni" vzhled.
    
     Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label23_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label24_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label26_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label28_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label29_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label30_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label31_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label32_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label33_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label34_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label35_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label36_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label37_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label38_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label39_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label40_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label41_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub Private Sub Label42_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label_Visible End Sub
    
    Mnoho jednoduchych stejnych akci pro ruzne Label - zmenit barvu pozadi. Muzete jej nahradit cyklem, ve kterem jsou prvky typu trideny Label
    
     Private Sub Label2_Click() 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label2.Caption = "?" Then Label2.BackStyle = 1 Label2.BackColor = &H80FFEE lb = 2 'Prideleny Label2 End If End Sub Private Sub Label3_Click() 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label3.Caption = "?" Then Label3.BackStyle = 1 Label3.BackColor = &H80FFEE lb = 3 'Prideleny Label3 End If End Sub Private Sub Label4_Click() 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label4.Caption = "?" Then Label4.BackStyle = 1 Label4.BackColor = &H80FFEE lb = 4 'Prideleny Label4 End If End Sub Private Sub Label5_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label5.Caption = "?" Then Label5.BackStyle = 1 Label5.BackColor = &H80FFEE lb = 5 'Prideleny Label5 End If End Sub Private Sub Label6_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label6.Caption = "?" Then Label6.BackStyle = 1 Label6.BackColor = &H80FFEE lb = 6 'Prideleny Label6 End If End Sub Private Sub Label7_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label7.Caption = "?" Then Label7.BackStyle = 1 Label7.BackColor = &H80FFEE lb = 7 'Prideleny Label7 End If End Sub Private Sub Label8_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label8.Caption = "?" Then Label8.BackStyle = 1 Label8.BackColor = &H80FFEE lb = 8 'Prideleny Label8 End If End Sub Private Sub Label9_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label9.Caption = "?" Then Label9.BackStyle = 1 Label9.BackColor = &H80FFEE lb = 9 'Prideleny Label9 End If End Sub Private Sub Label10_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label10.Caption = "?" Then Label10.BackStyle = 1 Label10.BackColor = &H80FFEE lb = 10 'Prideleny Label10 End If End Sub Private Sub Label11_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label11.Caption = "?" Then Label11.BackStyle = 1 Label11.BackColor = &H80FFEE lb = 11 'Prideleny Label11 End If End Sub Private Sub Label12_Click() On Error Resume Next 'Vybrat bunku s anglickym pismenem 'Zrusit vyber bunek UnClick_Label If Label12.Caption = "?" Then Label12.BackStyle = 1 Label12.BackColor = &H80FFEE lb = 12 'Prideleny Label12 End If 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 >>