Morseovka - Jak na to? – Visual Basic – Fórum – Programujte.com

Čau, dostal jsem za úkol převést 5 slov které uživatel zadá do morseovky za použití cyklů a polí. Vůbec netuším jak na to.

Umím akorát převést 1 písmeno stylem "Pokud uživatel zadá "A" tak se do řetězce zapíše .-" . S celým slovem mi to samozřejmně nefunguje, musel bych si do morseovky přeložit všechna slova na světě. 

    Sub main()
        Dim pismeno As String, morseovka As String
        pismeno = InputBox("Vložte náhodné písmeno")
        If pismeno = "A" Then
            Morseovka = Morseovka + ".-"
        End If
        MsgBox(morseovka)
    End Sub

Dá se nějak celé zadané slovo převést na jednotlivá písmena která bych potom mohl porovnat s tabulkou morseovky? Nebo nějaký lepší postup? Díky

To je zase to VBA, že?

Tak ten řetězec projdeš, jednotlivé znaky dostaneš funkcí mid a pro výpočet indexu do pole můžeš použít funkci asc. 

for i = 1 to len(vstup)
	znak = mid(vstup, i, 1)
	index = asc(ucase(znak)) - asc("A")
	if index >= 0 and index < len(tabulka) then
		kod = tabulka(index)
	else
		kod = znak ' co neumime zkonvertovat, nechame byt
	end if
	vystup = vystup + kod
next i

Jen na doplnění podle vzoru od gna:
 - v morzeovce mohou být i čísla 
- a znaky se v psané podobě morzeovky oddělují myslím mezerou nebo lomítkem

dik, funguje. A ne uz jsem povysil do visual studia.

#4 Dumbo
Tak pokud je to VB.NET, tak tam jde string indexovat jako pole a taky projít pomocí for each.

For i = 0 To vstup.Length - 1
	... vstup(i)
Next

For Each znak As Char in vstup
    ...
Next