|
Programovaci ucebnice
Programovaci navody a priklady
Czech edition
Po precteni celeho slovniku do pole B() obsahuje kazdy prvek pole jeden radek slovniku. Kazda polozka obsahuje 4 slova oddelena carkami.
Je nutne rozdelit prvky pole B() na 4 elementy a zapsat do jineho maleho pole A(). V tomto poli budou pouze 4 prvky 0-3 - ReDim A(3)
Private Sub Split_String()
'On Error Resume Next
ReDim A(3)
'Rozdelit radek na slova - do pole A ()
Funkce Split(B(x), ",") rozdeluje kazdy prvek do 4 novych prvku. Zde "," je stitek, podle ktereho je jeden prvek oddelen od druheho.
A() = Split(B(x), ",") 'Oddelovac, kterym jsme retezec rozdelili na slova - carka
Text1.Text = A(0)
Je jasne, ze A (0) je slovo, ktere se ma naucit. A prvek A (3) je preklad do rustiny. Pokud vezmeme A (2), pak bude preklad do cestiny.
Label1.Caption = A(0) 'Deutsche slovo
Label2.Caption = A(3) 'Russian slovo
End Sub
Naucte se cizi slova
Nize si muzete stahnout vsechny soubory projektu. V souboru Form1.frm jsou komentare napsany v cestine.
VB Project
1. Form1.frm
2. Form1.frx
3. Project1.vbp
4. Project1.vbw
5. dictionary.txt
Free content
Pouzivaji se pouze standardni jazykove funkce VB. Program muzete snadno prenest do novych verzi programovaciho jazyka - VB.NET a Visual Studio.
Preklad do cestiny se provadi Google Translate. Omlouvame se, pokud se vyskytly chyby.
VB6
Source Code >> Prectete si vice >>
Naucte se cizi slova
|
|