Visual Basic

Graphics g=myPaintEventArgs.Graphics;
g.DrawImage(...);
g.DrawString(myText, myFont, ...);

using (Graphics g=Graphics.FromImage(myImage)) {
    g.DrawString(myText, myFont, ...);
}
myImage.Save(...);

Dave Kreskowiak wrote:

ubiquitous homework assignment

<br />
=SpellNumber(32.50)<br />

<br />
<br />
Option Explicit<br />
 <br />
'****************<br />
' Main Function *<br />
'****************<br />
Function SpellNumber(ByVal MyNumber)<br />
    Dim Dollars, Cents, Temp<br />
    Dim DecimalPlace, Count<br />
 <br />
    ReDim Place(9) As String<br />
    Place(2) = " Thousand "<br />
    Place(3) = " Million "<br />
    Place(4) = " Billion "<br />
    Place(5) = " Trillion "<br />
 <br />
    ' String representation of amount<br />
    MyNumber = Trim(Str(MyNumber))<br />
 <br />
    ' Position of decimal place 0 if none<br />
    DecimalPlace = InStr(MyNumber, ".")<br />
    'Convert cents and set MyNumber to dollar amount<br />
    If DecimalPlace > 0 Then<br />
        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))<br />
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))<br />
    End If<br />
 <br />
    Count = 1<br />
    Do While MyNumber <> ""<br />
       Temp = GetHundreds(Right(MyNumber, 3))<br />
       If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars<br />
          If Len(MyNumber) > 3 Then<br />
             MyNumber = Left(MyNumber, Len(MyNumber) - 3)<br />
        Else<br />
            MyNumber = ""<br />
        End If<br />
        Count = Count + 1<br />
    Loop<br />
 <br />
    Select Case Dollars<br />
        Case ""<br />
            Dollars = "No Dollars"<br />
        Case "One"<br />
            Dollars = "One Dollar"<br />
        Case Else<br />
            Dollars = Dollars & " Dollars"<br />
    End Select<br />
 <br />
    Select Case Cents<br />
        Case ""<br />
            Cents = " and No Cents"<br />
        Case "One"<br />
            Cents = " and One Cent"<br />
        Case Else<br />
            Cents = " and " & Cents & " Cents"<br />
    End Select<br />
 <br />
    SpellNumber = Dollars & Cents<br />
End Function<br />
 <br />
'*******************************************<br />
' Converts a number from 100-999 into text *<br />
'*******************************************<br />
Function GetHundreds(ByVal MyNumber)<br />
    Dim Result As String<br />
 <br />
    If Val(MyNumber) = 0 Then Exit Function<br />
    MyNumber = Right("000" & MyNumber, 3)<br />
 <br />
    'Convert the hundreds place<br />
    If Mid(MyNumber, 1, 1) <> "0" Then<br />
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "<br />
    End If<br />
 <br />
    'Convert the tens and ones place<br />
    If Mid(MyNumber, 2, 1) <> "0" Then<br />
        Result = Result & GetTens(Mid(MyNumber, 2))<br />
    Else<br />
        Result = Result & GetDigit(Mid(MyNumber, 3))<br />
    End If<br />
 <br />
    GetHundreds = Result<br />
End Function<br />