Anonymní profil Aleš – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Aleš – Programujte.comAnonymní profil Aleš – Programujte.com

 
Hledat
Rozšířené hledání ›
Nové články
14. 9.Hybridní inteligentní systémy 2
21. 1.Jak vést kvalitně tým v IT oboru: Naprogramujte si ty správné manažerské kvality
16. 6.Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum
27. 3.Společnost Facebook ohlašuje změny ve fungování skupin. Chce zachovat jejich bezpečnost
11. 9.Konference: Moderní informační systémy podporují automatizaci
24. 8.Nebezpečí ukrytá v USB: z nuly na škvarek za pět sekund
Stavba Laser Arény
Laser Game Brno

Příspěvky odeslané z IP adresy 88.102.250.–

gastonx
Visual Basic › Jde to i obráceně ?
9. 4. 2014   #189125

Jojo. Funguje to přesně.. :) Malá a velká písmena v text3 neřeším.. Nejde ještě něak nastavit aby to s písmenama bralo i čísla a Otazník ...... ? :) Něco jiného než jen Integer nebo String ? :)
gastonx
Visual Basic › Jde to i obráceně ?
9. 4. 2014   #189119

#13 pee-jay_cz
Krása... Teď vlastně stačí tyto 2 kódy spojit do hromady. aby fundgovalo jak překládání na morseovku tak překládání z ní ? Bude to něak dohromady fungovat ? :)
gastonx
Visual Basic › Jde to i obráceně ?
9. 4. 2014   #189115

#11 pee-jay_cz
To se povedlo nádherně.. :) Zmizelo asi 13 z 16 chyb.. další 2 byly přepsat na textbox... a teď tam je poslední chyba s tím       Trgt = Trgt & Code     Tam to zase hlásí "Warning 1 Variable 'Trgt' is used before it has been assigned a value. A null reference exception could result at runtime."  
gastonx
Visual Basic › Jde to i obráceně ?
9. 4. 2014   #189111

#4 pee-jay_cz
Mě ten kód tedy nejde rozchodi. -_- Asi  jsem natvrdlý ale hlásí mi to 16 chyb..  

If Splt(i) = " " Then Char = " " Tady jsou hned 2 problémy - Char' is a type and cannot be used as an expression.  A to znaménko = je prý také špatně.. :( Nevím co s tím..
gastonx
Visual Basic › Jde to i obráceně ?
8. 4. 2014   #189074

Dobrý den potřeboval bych ještě pomoci. Kód mi pracuje tak že překládá .. ale jen na jednu stranu.. šlo by jakýmkoli způsobem udělat aby to překládalo i obráceně ? Klidně v jiném formu.. :) Děkuji za rady.  

Public Class Form1


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Dim i As Integer
        Dim Code As String

        TextBox2.Text = ""

        For i = 1 To Len(TextBox1.Text)

            Code = ""
            If Mid$(TextBox1.Text, i, 1) = "a" Then Code = ".-"
            If Mid$(TextBox1.Text, i, 1) = "á" Then Code = ".-"
            If Mid$(TextBox1.Text, i, 1) = "b" Then Code = "-..."
            If Mid$(TextBox1.Text, i, 1) = "c" Then Code = "-.-."
            If Mid$(TextBox1.Text, i, 1) = "č" Then Code = "-.-."
            If Mid$(TextBox1.Text, i, 1) = "d" Then Code = "-.."
            If Mid$(TextBox1.Text, i, 1) = "ď" Then Code = "-.."
            If Mid$(TextBox1.Text, i, 1) = "é" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "e" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "ě" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "f" Then Code = "..-."
            If Mid$(TextBox1.Text, i, 1) = "g" Then Code = "--."
            If Mid$(TextBox1.Text, i, 1) = "h" Then Code = "...."
            If Mid$(TextBox1.Text, i, 1) = "ch" Then Code = "----"
            If Mid$(TextBox1.Text, i, 1) = "i" Then Code = ".."
            If Mid$(TextBox1.Text, i, 1) = "í" Then Code = ".."
            If Mid$(TextBox1.Text, i, 1) = "j" Then Code = ".---"
            If Mid$(TextBox1.Text, i, 1) = "k" Then Code = "-.-"
            If Mid$(TextBox1.Text, i, 1) = "l" Then Code = ".-.."
            If Mid$(TextBox1.Text, i, 1) = "m" Then Code = "--"
            If Mid$(TextBox1.Text, i, 1) = "n" Then Code = "-."
            If Mid$(TextBox1.Text, i, 1) = "ň" Then Code = "-."
            If Mid$(TextBox1.Text, i, 1) = "o" Then Code = "---"
            If Mid$(TextBox1.Text, i, 1) = "ó" Then Code = "---"
            If Mid$(TextBox1.Text, i, 1) = "p" Then Code = ".--."
            If Mid$(TextBox1.Text, i, 1) = "q" Then Code = "--.-"
            If Mid$(TextBox1.Text, i, 1) = "r" Then Code = ".-."
            If Mid$(TextBox1.Text, i, 1) = "ř" Then Code = ".-."
            If Mid$(TextBox1.Text, i, 1) = "s" Then Code = "..."
            If Mid$(TextBox1.Text, i, 1) = "š" Then Code = "..."
            If Mid$(TextBox1.Text, i, 1) = "t" Then Code = "-"
            If Mid$(TextBox1.Text, i, 1) = "ť" Then Code = "-"
            If Mid$(TextBox1.Text, i, 1) = "u" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "ú" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "ů" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "v" Then Code = "...-"
            If Mid$(TextBox1.Text, i, 1) = "w" Then Code = ".--"
            If Mid$(TextBox1.Text, i, 1) = "x" Then Code = "-..-"
            If Mid$(TextBox1.Text, i, 1) = "y" Then Code = "-.--"
            If Mid$(TextBox1.Text, i, 1) = "ý" Then Code = "-.--"
            If Mid$(TextBox1.Text, i, 1) = "z" Then Code = "--.."
            If Mid$(TextBox1.Text, i, 1) = "ž" Then Code = "--.." 'Konec (malá písmena)
            If Mid$(TextBox1.Text, i, 1) = "A" Then Code = ".-"
            If Mid$(TextBox1.Text, i, 1) = "Á" Then Code = ".-"
            If Mid$(TextBox1.Text, i, 1) = "B" Then Code = "-..."
            If Mid$(TextBox1.Text, i, 1) = "C" Then Code = "-.-."
            If Mid$(TextBox1.Text, i, 1) = "Č" Then Code = "-.-."
            If Mid$(TextBox1.Text, i, 1) = "D" Then Code = "-.."
            If Mid$(TextBox1.Text, i, 1) = "Ď" Then Code = "-.."
            If Mid$(TextBox1.Text, i, 1) = "E" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "É" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "Ě" Then Code = "."
            If Mid$(TextBox1.Text, i, 1) = "F" Then Code = "..-."
            If Mid$(TextBox1.Text, i, 1) = "G" Then Code = "--."
            If Mid$(TextBox1.Text, i, 1) = "H" Then Code = "...."
            If Mid$(TextBox1.Text, i, 1) = "CH" Then Code = "----"
            If Mid$(TextBox1.Text, i, 1) = "I" Then Code = ".."
            If Mid$(TextBox1.Text, i, 1) = "Í" Then Code = ".."
            If Mid$(TextBox1.Text, i, 1) = "J" Then Code = ".---"
            If Mid$(TextBox1.Text, i, 1) = "K" Then Code = "-.-"
            If Mid$(TextBox1.Text, i, 1) = "L" Then Code = ".-.."
            If Mid$(TextBox1.Text, i, 1) = "M" Then Code = "--"
            If Mid$(TextBox1.Text, i, 1) = "N" Then Code = "-."
            If Mid$(TextBox1.Text, i, 1) = "Ň" Then Code = "-."
            If Mid$(TextBox1.Text, i, 1) = "O" Then Code = "---"
            If Mid$(TextBox1.Text, i, 1) = "Ó" Then Code = "---"
            If Mid$(TextBox1.Text, i, 1) = "P" Then Code = ".--."
            If Mid$(TextBox1.Text, i, 1) = "Q" Then Code = "--.-"
            If Mid$(TextBox1.Text, i, 1) = "R" Then Code = ".-."
            If Mid$(TextBox1.Text, i, 1) = "Ř" Then Code = ".-."
            If Mid$(TextBox1.Text, i, 1) = "S" Then Code = "..."
            If Mid$(TextBox1.Text, i, 1) = "Š" Then Code = "..."
            If Mid$(TextBox1.Text, i, 1) = "T" Then Code = "-"
            If Mid$(TextBox1.Text, i, 1) = "Ť" Then Code = "-"
            If Mid$(TextBox1.Text, i, 1) = "U" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "Ú" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "Ů" Then Code = "..-"
            If Mid$(TextBox1.Text, i, 1) = "V" Then Code = "...-"
            If Mid$(TextBox1.Text, i, 1) = "W" Then Code = ".--"
            If Mid$(TextBox1.Text, i, 1) = "X" Then Code = "-..-"
            If Mid$(TextBox1.Text, i, 1) = "Y" Then Code = "-.--"
            If Mid$(TextBox1.Text, i, 1) = "Ý" Then Code = "-.--"
            If Mid$(TextBox1.Text, i, 1) = "Z" Then Code = "--.."
            If Mid$(TextBox1.Text, i, 1) = "Ž" Then Code = "--.." 'konec (velká písmena)
            If Mid$(TextBox1.Text, i, 1) = " " Then Code = "|" 'mezera mezi slovy
            '...
            If Code <> "" Then
                TextBox2.Text = TextBox2.Text & Code
                If i < Len(TextBox1.Text) And Code <> "|" Then
                    TextBox2.Text = TextBox2.Text & "|"
                End If
            End If

        Next i

    End Sub


End Class
Aleš
C / C++ › C++ s OpenGL - Nepřekládá (n…
19. 4. 2013   #175217

#6 KIIV
Jsou v MiniGW v lib a hlavičkové soubory jsou v include - jelikož mam verzi portable je to v obou složkách
Jinak sem tam vložil ten kod od ingiraxo a taky nic ...
Aleš
C / C++ › C++ s OpenGL - Nepřekládá (n…
19. 4. 2013   #175214

#4 ingiraxo
přidával sem je v kompileru ...  v části linker sem to tam dával
Ramisha
.NET › Konzultace v C#
17. 3. 2013   #172945

Ahoj lidi, 

chtěla bych někoho z vás poprosit, jestli byste mi nedali pár rad ohledně C# třeba přes ICQ nebo FB. Dělám maturitní práci a  jsem docela amatér, tak by se mi hodilo pár rad :). 
Děkuji moc :)
Kharsh
C / C++ › Prosím pomoc - šikmý vrh
3. 3. 2011   #139591

Potřeboval bych poradit, jak vytvořit program šikmý vrh + náhodný cíl (c++). Vstupní hodnoty rychlost + úhel.

Výstupní hodnoty výpis bodů po 0,01 sekundě, které se mají uložit do souboru a následně aby šly otevřít v excelu.

Absolutně nevím, jak mám začít. Našel jsem si samozřejmě potřebné vzorečky na výpočet souřadnic X a Y. Ty bych ještě zvládl nějak zvládl, ale nevím potřebné cykly a vůbec jak to tam všechno zakomponovat, aby to sledovalo průběh toho letu.

Pokud by mi někdo prosím poradl, jak mám začít, bylo by to super. Dík.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 2003–2024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý