Heyyy,
ich verstehe nicht wie ich das machen soll ... Wir programmieren gerade etwas, was die Zahlen ausschreiben soll, z.b. 1 = eins, 23 = dreiundzwanzig ..Ich brauche dringend hilfeeeee
was ist hier dran falsch ?
Verschoben. ~Trade
ich verstehe nicht wie ich das machen soll ... Wir programmieren gerade etwas, was die Zahlen ausschreiben soll, z.b. 1 = eins, 23 = dreiundzwanzig ..Ich brauche dringend hilfeeeee
was ist hier dran falsch ?
VB.NET-Quellcode
- Class MainWindow
- Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
- Dim zahl As String, zahlwort As String
- zahl = textBox.Text
- label.Content = einerwort(zahl)
- label.Content = zweistellig(zahl)
- label.Content = zehn_bis_neunzehn(zahl)
- label.Content = zehnerwort(zahl)
- End Sub
- Function einerwort(ziffer As String) As String
- Dim rueck As String
- Select Case ziffer
- Case "0" : rueck = ""
- Case "1" : rueck = "eins"
- Case "2" : rueck = "zwei"
- Case "3" : rueck = "drei"
- Case "4" : rueck = "vier"
- Case "5" : rueck = "fünf"
- Case "6" : rueck = "sechs"
- Case "7" : rueck = "sieben"
- Case "8" : rueck = "acht"
- Case "9" : rueck = "neun"
- End Select
- einerwort = rueck
- End Function
- Function zweistellig(ziffern As String) As String
- Dim einer As String, zehner As String
- einer = Right(ziffern, 1)
- zehner = Right(ziffern, 1)
- If zehner = "1" Then
- zweistellig = einerwort(einer) & zehn_bis_neunzehn(ziffern)
- ElseIf zehner = "0" Then
- zweistellig = einerwort(einer)
- Else zweistellig = einerwort(einer) & zehnerwort(zehner)
- End If
- End Function
- Function zehn_bis_neunzehn(ziffern As String) As String
- Dim ziffer, zahl As String, rueck As String
- ziffer = Right(ziffern, 1)
- Select Case ziffer
- Case "1" : rueck = "zehn"
- Case "1" : rueck = "elf"
- Case "2" : rueck = "zwölf"
- Case "3" : rueck = "dreizehn"
- Case "4" : rueck = "vierzehn"
- Case "5" : rueck = "fünfzehn"
- Case "6" : rueck = "sechszehn"
- Case "7" : rueck = "siebzehn"
- Case "8" : rueck = "achtzehn"
- Case "9" : rueck = "neunzehn"
- End Select
- zehn_bis_neunzehn = rueck
- End Function
- Function zehnerwort(ziffer As String) As String
- Dim rueck As String
- Select Case ziffer
- Case "0" : rueck = ""
- Case "1" : rueck = "zehn"
- Case "2" : rueck = "zwanzig"
- Case "3" : rueck = "dreißig"
- Case "4" : rueck = "vierzig"
- Case "5" : rueck = "fünfzig"
- Case "6" : rueck = "sechzig"
- Case "7" : rueck = "siebzig"
- Case "8" : rueck = "achtzig"
- Case "9" : rueck = "neunzig"
- End Select
- zehnerwort = rueck
- End Function
- End Class
Verschoben. ~Trade
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()