Una sub che converte numeri in lettere

Post date: Feb 6, 2012 8:31:18 PM

convertire numeri in lettere

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim numero As String = TextBox1.Text

TextBox1.Text = ""

Dim x As Integer = Len(numero)

For r = x To 1 Step -1

If r = 2 And Mid$(StrReverse(numero), r, 1) = "2" Then

TextBox1.Text = TextBox1.Text + "venti"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "3" Then

TextBox1.Text = TextBox1.Text + "trenta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "4" Then

TextBox1.Text = TextBox1.Text + "quaranta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "5" Then

TextBox1.Text = TextBox1.Text + "cinquanta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "6" Then

TextBox1.Text = TextBox1.Text + "sessanta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "7" Then

TextBox1.Text = TextBox1.Text + "settanta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "8" Then

TextBox1.Text = TextBox1.Text + "ottanta"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "9" Then

TextBox1.Text = TextBox1.Text + "novanta"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "1" Then

TextBox1.Text = TextBox1.Text + "uno"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "2" Then

TextBox1.Text = TextBox1.Text + "due"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "3" Then

TextBox1.Text = TextBox1.Text + "tre"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "4" Then

TextBox1.Text = TextBox1.Text + "quattro"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "5" Then

TextBox1.Text = TextBox1.Text + "cinque"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "6" Then

TextBox1.Text = TextBox1.Text + "sei"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "7" Then

TextBox1.Text = TextBox1.Text + "sette"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "8" Then

TextBox1.Text = TextBox1.Text + "otto"

ElseIf r = 1 And Mid$(StrReverse(numero), r, 1) = "9" Then

TextBox1.Text = TextBox1.Text + "nove"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "1" Then

TextBox1.Text = TextBox1.Text + "cento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "2" Then

TextBox1.Text = TextBox1.Text + "duecento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "3" Then

TextBox1.Text = TextBox1.Text + "trecento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "4" Then

TextBox1.Text = TextBox1.Text + "quattrocento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "5" Then

TextBox1.Text = TextBox1.Text + "cinquecento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "6" Then

TextBox1.Text = TextBox1.Text + "seicento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "7" Then

TextBox1.Text = TextBox1.Text + "settecento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "8" Then

TextBox1.Text = TextBox1.Text + "ottocento"

ElseIf r = 3 And Mid$(StrReverse(numero), r, 1) = "9" Then

TextBox1.Text = TextBox1.Text + "novecento"

ElseIf r = 2 And Mid$(StrReverse(numero), r, 1) = "1" Then

If Mid$(StrReverse(numero), r - 1, 1) = "1" Then

TextBox1.Text = TextBox1.Text + "undici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "2" Then

TextBox1.Text = TextBox1.Text + "dodici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "3" Then

TextBox1.Text = TextBox1.Text + "tredici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "4" Then

TextBox1.Text = TextBox1.Text + "quattordici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "5" Then

TextBox1.Text = TextBox1.Text + "quindici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "6" Then

TextBox1.Text = TextBox1.Text + "sedici"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "7" Then

TextBox1.Text = TextBox1.Text + "diciassette"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "8" Then

TextBox1.Text = TextBox1.Text + "diciotto"

ElseIf Mid$(StrReverse(numero), r - 1, 1) = "9" Then

TextBox1.Text = TextBox1.Text + "diciannove"

End If

r = 0

End If

Next

End Sub

Prelevato da: http://www.niktorthenat.com/