Visual Basic

Public Declare Function DirectoryNumToTapiDevice Lib "tapihlpr" ( _
    ByVal hlineApp As Integer, ByVal szDN As String) As Integer

Public SysOptions As tSysOptsRec

Public iSystemStatus As Short

' Per call data elements
Public iMaxChannel As Short
Public iMinChannel As Short
Public CallData() As tCallDataRec

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click<br />
        txtResult.Text = NumberToString(CDbl(txtNumber.Text))<br />
    End Sub<br />
<br />
    ' Return a word representation of the whole number value.<br />
    Private Function NumberToString(ByVal num As Double) As String<br />
        ' Remove any fractional part.<br />
        num = Int(num)<br />
<br />
        ' If the number is 0, return zero.<br />
        If num = 0 Then Return "zero"<br />
<br />
        Static groups() As String = {"", "thousand", "million", "billion", "trillion", "quadrillion", "?", "??", "???", "????"}<br />
        Dim result As String = ""<br />
<br />
        ' Process the groups, smallest first.<br />
        Dim quotient As Double<br />
        Dim remainder As Integer<br />
        Dim group_num As Integer = 0<br />
        Do While num > 0<br />
            ' Get the next group of three digits.<br />
            quotient = Int(num / 1000)<br />
            remainder = CInt(num - quotient * 1000)<br />
            num = quotient<br />
<br />
            ' Convert the group into words.<br />
            result = GroupToWords(remainder) & _<br />
                " " & groups(group_num) & ", " & _<br />
                result<br />
<br />
            ' Get ready for the next group.<br />
            group_num += 1<br />
        Loop<br />
<br />
        ' Remove the trailing ", ".<br />
        If result.EndsWith(", ") Then<br />
            result = result.Substring(0, result.Length - 2)<br />
        End If<br />
<br />
        Return result.Trim()<br />
    End Function<br />
<br />
    ' Convert a number between 0 and 999 into words.<br />
    Private Function GroupToWords(ByVal num As Integer) As String<br />
        Static one_to_nineteen() As String = {"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eightteen", "nineteen"}<br />
        Static multiples_of_ten() As String = {"twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"}<br />
<br />
        ' If the number is 0, return an empty string.<br />
        If num = 0 Then Return ""<br />
<br />
        ' Handle the hundreds digit.<br />
        Dim digit As Integer<br />
        Dim result As String = ""<br />
        If num > 99 Then<br />
            digit = num \ 100<br />
            num = num Mod 100<br />
            result = one_to_nineteen(digit) & " hundred"<br />
        End If<br />
<br />
        ' If num = 0, we have hundreds only.<br />
        If num = 0 Then Return result.Trim()<br />
<br />
        ' See if the rest is less than 20.<br />
        If num < 20 Then<br />
            ' Look up the correct name.<br />
            result &= " " & one_to_nineteen(num)<br />
        Else<br />
            ' Handle the tens digit.<br />
            digit = num \ 10<br />
            num = num Mod 10<br />
            result &= " " & multiples_of_ten(digit - 2)<br />
<br />
            ' Handle the final digit.<br />
            If num > 0 Then<br />
                result &= " " & one_to_nineteen(num)<br />
            End If<br />
        End If<br />
<br />
        Return result.Trim()<br />
    End Function<br />
<br />
End Class<br />