Free VB ebook - V jazyce Visual Basic 6 muzete rychle psat programy mnohem rychleji nez v jinych programovacich jazycich. Muzete vytvaret programy na VB 2-3 krat rychleji.
    
    Zvazte napriklad zdrojovy kod programu pro vyuku cizich jazyku. Program simuluje pouziti karticky pro zapamatovani cizich jazyku - nemecky, rusky a anglicky. Slovnik pro program je jednoduchy textovy soubor, ktery muzete upravit v NOTEPAD
    
    Download ZIP >>  FULL List >>  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.
    1. Modul - Cteni souboru slovniku dictionary.txt
    
    
    Zobrazit priklad - PDF file >>
    

    
Image

    Ve slove, ktere si musite zapamatovat, jsou nektera pismena nahrazena znamenkem "?"
    
     X = 0 Y = 0 lb = 0 'Ktery Label je urcen pro anglicke pismeno hh = 2 'Zadne znamky "?" protoze jeste nebyla zadna slova. ReDim B(0) 'Formalne urcime velikost pole = 0 Open "D:\Visual_Basic_Project\DeutscheSprache\dictionary.txt" For Input As #1 'Prectete si slovnik Do Until EOF(1) 'Provedte az do konce textoveho souboru - EOF Line Input #1, B(UBound(B)) ReDim Preserve B(UBound(B) + 1) Loop 'Opakovat Close ReDim Preserve B(UBound(B) - 1) g = Join(B, Chr(13) + Chr(10)) 'Obsah souboru ''Text1.Text = g 'Zobrazit prectennesy slovnik t = UBound(B) + 1 'Kolik radku ve slovniku dictionary.txt 'Posledni radek pouzivame jako adresu WEB - proto-pocitame o jeden radek mene t = UBound(B) 'Celkem radku ve slovniku dictionary.txt nnt = UBound(B) 'Posledni radek slovniku-adresa webu Form1.Caption = Form1.Caption & " " & B(nnt) 'Zapiseme adresu webu do zahlavi programu
    
    Zde si muzete vybrat, ktery cizi jazyk se ucit. Je to velmi pohodlne.
    
     '----------------------------------------------------- 'Predposledni radek slovniku - seznam jazyku nmt = UBound(B) - 1 nstr = B(nmt) 'Retezec slovniku se seznamem jazyku 'Analyzujeme retezec a zvyraznime prvni pole U() = Split(nstr, ",") Label1.Caption = U(0) 'Zapsat jazyk do formulare CZ = U(1) 'Czech RU = U(2) 'Russian DE = U(3) 'Deutsche '-----------------------------------------------------
    
    Select_String 'Volani procedury-vyberte retezec nahodne Split_String 'Volani procedury - rozdelit radek na slova Letters_Eng 'Volani procedury- Zvyraznit a psat pismena Z anglickeho slova - Pokud se ucime anglicky Select_String 'Volani procedury-vyberte retezec nahodne End Sub

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