Liebe Leute,
Problem:
Alle Morsenachrichten einer festen Länge z.B. 5 sollen erzeugt werden. Strich - hat Breite 2 und der Punkt . die Breite 1
Zwei Prozeduren habe ich entwickelt, sollten dasselbe liefern, tun sie aber nicht. Warum? - In Delphi/Pascal hatte ich das Problem nicht.
Gruß
Delphi-Umsteiger
Problem:
Alle Morsenachrichten einer festen Länge z.B. 5 sollen erzeugt werden. Strich - hat Breite 2 und der Punkt . die Breite 1
Zwei Prozeduren habe ich entwickelt, sollten dasselbe liefern, tun sie aber nicht. Warum? - In Delphi/Pascal hatte ich das Problem nicht.
Gruß
Delphi-Umsteiger
VB.NET-Quellcode
- Public Class Form1
- Private Sub BtStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStart.Click
- Dim Laenge As Double = TbGesLaenge.Text
- Dim Kombinationen As String = ""
- LbAnzeige.Items.Clear()
- MorseWort(Kombinationen, Laenge)
- LbAnzeige.Items.Add(" Methode mit Stringanweisungen: ")
- MorseWort2(Kombinationen, Laenge)
- End Sub
- Sub MorseWort(ByVal Kombis As String, ByVal laenge As Double)
- If laenge <= 0 Then LbAnzeige.Items.Add(Kombis)
- If laenge >= 2 Then MorseWort(Kombis & "- ", laenge - 2)
- If laenge >= 1 Then MorseWort(Kombis & ". ", laenge - 1)
- End Sub
- Sub MorseWort2(ByRef Kombis As String, ByVal laenge As Double)
- If laenge <= 0 Then LbAnzeige.Items.Add(Kombis)
- If laenge >= 2 Then
- Kombis &= "- "
- laenge = laenge - 2
- MorseWort2(Kombis, laenge)
- End If
- If laenge >= 1 Then
- Kombis &= ". "
- laenge = laenge - 1
- MorseWort2(Kombis, laenge)
- End If
- End Sub
- End Class