Beste vorgehensweise für einen "Zeichenübersetzer"

Shimoyo · 18. Januar 2014, 10:10

Hallo,
ich stecke ein wenig fest mit einem Schulprojekt und hoffe ihr könnt mir einen Schubs in die richtige richtung geben.

Ich soll einen "Morsezeichen-übersetzter" konstruieren. Dieser sollte folgendes können.

1. Buchstaben in Moresezeichen umwandeln
2. Morsezeichen in Buchstaben umwandeln
3. die Morsezeichen als audio wiedergeben

Ich weiß nun nicht welche Vorgehensweise die beste/einfachste wäre.

ich glaube ich könnte das mit folgendem lösen:

1. if than-statment (if "a" than "*-")
2.
mit arrays (ein array mit Buchstaben, ein mit morsezeichen und den
"such den buchstaben, merk dir die Zahl des buchstabens und gebe den
wert des Zweiten arrays aus der dem gleichen Wert entspricht.")
3. mit einem case-statement?

Ich würde mich sehr über Kommentare freuen.

Liebe Grüße
Simone

~blaze~ · 18. Januar 2014, 10:25

Hi
ich würde es mit einem Dictionary(Of Char, MorseChar) und einem Dictionary(Of MorseChar, Char) machen. MorseCharacter ist eine Klasse oder Struktur, die das gesendete Morsezeichen codiert und das Dictionary als private statische Variable beinhaltet, sodass du über zwei statische Funktionen darauf zugreifen kannst: GetChar und GetMorseChar.
Falls es eine Regel gibt, nach der die Morsezeichen aus den zugehörigen Buchstaben codiert werden, kannst du natürlich auch eine Funktion dafür schreiben.
Für die einzelnen Teilzeichen eines Morsezeichens könntest du bspw. ein Enum verwenden, sodass sich MorseChar als Array von Enum-Einträgen darstellen lässt - oder aber eben als feste Zahl an Enum-Werten.

Was für eine Ausgabe als Audio soll das übrigens genau sein? Möchtest du dafür zwei Wavedateien verwenden und den System.Media.SoundPlayer oder den Ton zur Laufzeit generieren?

Gruß
~blaze~

Shimoyo · 18. Januar 2014, 11:10

Vielen dank ~blaze~, jetzt habe ich ein Richtung in die ich arbeiten kann.

Für die Audio wollte ich jedem morsezeichen eine abfolge von system.console.Beep zuweisen (ich habe insgeheim gedacht, man könnte es auf die gleiche Art machen wie die zeichenumwandlung, nur das statt andere Zeichen der output sound ist).
Allerdings habe ich mich damit noch nicht weiter befasst. Ich bin erstmal froh wenn ich das mit den Zeichen zum funktionieren bringe.

Shimoyo · 19. Januar 2014, 18:08

Hallo,

das mit den Zeichen umwandeln habe ich hinbekommen aber ich habe keine ahnung wie das mit den system.console.beep gehen soll.

Ich wollte:

"*" = system.console.beep(264,400)
"-" = system.console.beep(264,800)

Kann mir jemand ein tip geben?

EDIT:
Falls jemand sich für meine bisherige lösung interressiert:

VB.NET-Quellcode

Public Class transformer
Private CharToMorseDict As Dictionary(Of Char, String)
Private MorseToCharDict As Dictionary(Of String, Char)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pCharToMorseDict()
pMorseToCharDict()
sound.Visible = False
End Sub
Public Sub pCharToMorseDict()
CharToMorseDict = New Dictionary(Of Char, String)
CharToMorseDict.Add(Chr(65), " *- ")
CharToMorseDict.Add(Chr(66), " -*** ")
CharToMorseDict.Add(Chr(67), " -*-* ")
CharToMorseDict.Add(Chr(68), " -** ")
CharToMorseDict.Add(Chr(69), " * ")
CharToMorseDict.Add(Chr(70), " **-* ")
CharToMorseDict.Add(Chr(71), " --* ")
CharToMorseDict.Add(Chr(72), " **** ")
CharToMorseDict.Add(Chr(73), " ** ")
CharToMorseDict.Add(Chr(74), " *--- ")
CharToMorseDict.Add(Chr(75), " -*- ")
CharToMorseDict.Add(Chr(76), " *-** ")
CharToMorseDict.Add(Chr(77), " -- ")
CharToMorseDict.Add(Chr(78), " -* ")
CharToMorseDict.Add(Chr(79), " --- ")
CharToMorseDict.Add(Chr(80), " --- ")
CharToMorseDict.Add(Chr(81), " --*- ")
CharToMorseDict.Add(Chr(82), " *-* ")
CharToMorseDict.Add(Chr(83), " *** ")
CharToMorseDict.Add(Chr(84), " - ")
CharToMorseDict.Add(Chr(85), " **- ")
CharToMorseDict.Add(Chr(86), " ***- ")
CharToMorseDict.Add(Chr(87), " *-- ")
CharToMorseDict.Add(Chr(88), " -**- ")
CharToMorseDict.Add(Chr(89), " -*-- ")
CharToMorseDict.Add(Chr(90), " --** ")
CharToMorseDict.Add(Chr(198), " *-*- ")
CharToMorseDict.Add(Chr(216), " ---* ")
CharToMorseDict.Add(Chr(229), " *--*- ")
End Sub
Public Sub pMorseToCharDict()
MorseToCharDict = New Dictionary(Of String, Char)
MorseToCharDict.Add(" *- ", Chr(65))
MorseToCharDict.Add(" -*** ", Chr(66))
MorseToCharDict.Add(" -*-* ", Chr(67))
MorseToCharDict.Add(" -** ", Chr(68))
MorseToCharDict.Add(" * ", Chr(69))
MorseToCharDict.Add(" **-* ", Chr(70))
MorseToCharDict.Add(" --* ", Chr(71))
MorseToCharDict.Add(" **** ", Chr(72))
MorseToCharDict.Add(" ** ", Chr(73))
MorseToCharDict.Add(" *--- ", Chr(74))
MorseToCharDict.Add(" -*- ", Chr(75))
MorseToCharDict.Add(" *-** ", Chr(76))
MorseToCharDict.Add(" -- ", Chr(77))
MorseToCharDict.Add(" -* ", Chr(78))
MorseToCharDict.Add(" --- ", Chr(79))
MorseToCharDict.Add(" *--* ", Chr(80))
MorseToCharDict.Add(" --*- ", Chr(81))
MorseToCharDict.Add(" *-* ", Chr(82))
MorseToCharDict.Add(" *** ", Chr(83))
MorseToCharDict.Add(" - ", Chr(84))
MorseToCharDict.Add(" **- ", Chr(85))
MorseToCharDict.Add(" ***- ", Chr(86))
MorseToCharDict.Add(" *-- ", Chr(87))
MorseToCharDict.Add(" -**- ", Chr(88))
MorseToCharDict.Add(" -*-- ", Chr(89))
MorseToCharDict.Add(" --** ", Chr(90))
MorseToCharDict.Add(" *-*- ", Chr(198))
MorseToCharDict.Add(" ---* ", Chr(216))
MorseToCharDict.Add(" *--*- ", Chr(229))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
rtb.Text = rtb.Text.ToUpper
For Each bogstave As Char In CharToMorseDict.Keys
Dim morse As String = CharToMorseDict.Item(bogstave)
rtb.Text = rtb.Text.Replace((bogstave), morse)
Next
sound.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each tegn As String In MorseToCharDict.Keys
Dim buchstabe As Char = MorseToCharDict.Item(tegn)
rtb.Text = rtb.Text.Replace(tegn, buchstabe)
Next
sound.Visible = False
End Sub
Private Sub sound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sound.Click
'Hier fehlt ein befehl
End Sub
End Class

faxe1008 · 19. Januar 2014, 18:16

Warum verwendest du zwei Dictionarys, es genügt doch eines vollkommen.

RodFromGermany · 19. Januar 2014, 18:23

@Shimoyo:: In VB werden Char's so dargestellt:

VB.NET-Quellcode

Dim a As Char = "a"c
Dim b As Char = "b"c
Dim c As Char = "c"c

~blaze~ · 19. Januar 2014, 18:24

@faxe1008: Um's hin-und-her zu übersetzen?

Was du aber machen könntest: Schreibe eine Methode, die ein Paar zugehöriger Buchstaben beiden Dictionaries hinzufügt. Es wäre außerdem geschickter, den Text durchzugehen und dort die Buchstaben aus dem Dictionary herauszufischen und nicht andersherum, finde ich. Dadurch verhinderst du ungültige Zeichen und du musst nicht auf Keys zurückgreifen. Effizienter wird's außerdem auch nochmal. Das könnte man dann anhand eines System.Text.StringBuilders machen.
Für die Beeps gehst du einfach alle Morsezeichen durch und frägst ab, ob es sich um ein * oder ein - handelt und beepst das entsprechende. Laut MSDN wird die Methode übrigens nicht von 64-Bit-Systemen unterstützt.

Gruß
~blaze~

Shimoyo · 19. Januar 2014, 18:25

Ich bin blutige anfängerin und bin froh (und stolz) das ich überhaupt mit dictionaies arbeiten konnte.

ich bin aber immer für verbesserungen zu haben. wie kann ich den das dictionary "rückwerts" verwenden?

VB.NET-Quellcode

for each element in dic.Items
dim buchstaben as Char = morseToCharDict.key(element)
rtb.Text = rtb.Text.Replace(element, buchstabe)

~blaze~ · 19. Januar 2014, 18:29

So:

VB.NET-Quellcode

Dim output As New System.Text.StringBuilder()

For Each c As Char In input

output.Append(...)

Next

MessageBox.Show(output.ToString())

... musst du durch was ersetzen? Du kannst auch direkt auf Strings arbeiten, aber das vermeidet man normal, weil es relativ ineffizient ist.

Gruß
~blaze~

faxe1008 · 19. Januar 2014, 18:30

@~blaze~: Eben, ich finde es besser eine Methode zuschreiben durch die du den Key durch Value und umgekehrt bekommst als zwei Dictionaries zu befüllen

~blaze~ · 19. Januar 2014, 18:32

Nope, das meinte ich nicht.

Wobei ich meinen Vorschlag vielleicht für Anfänger zuschneiden hätte können. Weißt du was, lass das mit dem StringBuilder weg, das passt schon so, wie es ist.

Gruß
~blaze~

Shimoyo · 19. Januar 2014, 18:36

und ich war so stolz auf meine Arbeit

Ich bin jetzt ziemlich verwirrt aber ich werde mal versuchen ein paar Vorschläge umzusetzen.

Vielen Dank schonmal.

RushDen · 19. Januar 2014, 19:07

Vielleicht hilft dir das auch:

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MessageBox.Show(Translator.CharCode("..-.")) 'Gibt "F" wieder
MessageBox.Show(Translator.MorseCode("F"c)) 'Gibt "..-." wieder
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show(String.Join(" ", TextBox1.Text.Select(Function(item) Translator.MorseCode(item)))) 'Gibt den Morsecode für das eingebene Wort in der Textbox wieder (Format: X Y Z)
End Sub
End Class
Public Class Translator
Shared Sub New()
Dim CharCodes = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim MorseCodes = {".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."}
For items = 0 To CharCodes.Length - 1
AddCharToMorse(CharCodes(items), MorseCodes(items))
Next
End Sub
Public Shared ReadOnly Property MorseCode(ByVal input As Char) As String
Get
If Not codeToChar.ContainsKey(input) Then Return Nothing
Return codeToChar(input)
End Get
End Property
Public Shared ReadOnly Property CharCode(ByVal morseCode As String) As Char
Get
If Not codeToChar.ContainsValue(morseCode) Then Return Nothing
Return codeToChar.Where(Function(item) item.Value = morseCode).FirstOrDefault.Key
End Get
End Property
Public Shared Sub PlayAudio(ByVal morse As String)
For Each item In morse
Select Case item
Case "."c
'Spiele kurzen Ton ab
Case "-"c
'Spiele langen Ton ab
End Select
Next
End Sub
Protected Shared Sub AddCharToMorse(ByVal input As Char, ByVal morse As String)
If codeToChar.ContainsKey(input) Then Return
codeToChar.Add(input, morse)
End Sub
Protected Shared codeToChar As New Dictionary(Of Char, String)
End Class

Shimoyo · 19. Januar 2014, 19:45

Wow!

Vielen Dank für deine ganze Arbeit RushDen.

Das hilft mir sehr.

ErfinderDesRades · 19. Januar 2014, 21:00

ich hab doch auch sowas...

VB.NET-Quellcode

Imports System.Threading
Public Class frmMorser
Private Sub AnyMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TestToolStripMenuItem.Click
Dim beeping = New Action(Of String)(AddressOf BeepCode)
beeping.BeginInvoke(RichTextBox1.Text, AddressOf beeping.EndInvoke, Nothing)
End Sub
Private Sub BeepCode(code As String)
Const timeUnit = 100
For Each c In code
Select Case c
Case "."c
Console.Beep(1000, timeUnit)
Case "-"c
Console.Beep(1000, 3 * timeUnit)
Case "#"c
Thread.Sleep(3 * timeUnit)
End Select
Thread.Sleep(timeUnit)
Next
End Sub
End Class

Shimoyo · 19. Januar 2014, 21:57

Ich habe es geschaft!!

(Auch wenn ich den sound selber nicht hören kann weil ich Linux als Betriebssystem habe.

)

Ach wenn Jemand der sich auskennt die Augen verdrehen würde, habe ich nur Teile verwendet die ich vollständig verstanden habe.

Vielen dank für eure hilfe!

vb-checker · 19. Januar 2014, 22:12

Tipp: Das Morsealphabet passt super in einen Binärbaum, siehe dieses Bild: upload.wikimedia.org/wikipedia…c/ca/Morse_code_tree3.png (das ist die englische Version, das deutsche Alphabet hat auch noch ein paar Sonderzeichen, die in den Baum passen)

Damit findest du den richtigen Buchstaben beim Lesen von Morsecode viel schneller als beim Durchlaufen einer Liste/eines Dictionaries.

Shimoyo · 20. Januar 2014, 09:26

Danke vb-checker.

Ich hatte das gesehen, aber ich habe (noch) keine Ahnung wie ich das gebrauchen könnte.

Aber ich lerne fleißig

ErfinderDesRades · 20. Januar 2014, 12:59

brauchst du auch nicht.

vb-checker · 20. Januar 2014, 14:18

Idealerweise hast du eine Klasse, die dir einen Binärbaum abbildet. Den fütterst du mit den Daten und er sagt dir dann das Ergebnis. Aber das wird zu aufwändig. Du kannst die Verzweigungen einfach mit IF-Verzweigungen nachbilden. Selbst dann ist das im Mittel kürzer als eine Liste.

Beste vorgehensweise für einen "Zeichenübersetzer"

Beste vorgehensweise für einen "Zeichenübersetzer"

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Skybird schrieb:

Skybird schrieb:

Ähnliche Themen

7 Benutzer haben hier geschrieben