How to Print the ASCII Character Set in Visual Basic (75857)

MORE INFORMATION

Windows supports a second character set, referred to as the OEM character set. This is generally the character set used internally by MS-DOS for screen display at the MS-DOS prompt. The character codes 32 to 127 are usually identical for the OEM, ASCII, and ANSI character sets. The ANSI characters represented by the remaining character codes (codes 0 to 31 and 128 to 255) are generally different from characters represented by the OEM and ASCII character sets. However, the OEM and ASCII character sets are identical for these ranges. Under the ASCII and OEM character sets, the character codes 128 to 255 correspond to the extended ASCII character set, which includes line drawing characters, graphics characters, and special symbols. The characters represented by this range of character codes generally differ between the ASCII (or OEM) and ANSI character sets.

To change the selected font from ANSI to the OEM ASCII font, you must get a handle to the OEM character set by calling GetStockObject. When this handle is passed as an argument to SelectObject, the ANSI font will be replaced by the OEM ASCII font. This API function also returns the handle to the font object previously used. Once you finish displaying the desired characters, you should call SelectObject again to reselect the original font object.

NOTE: There is also an API function called DeleteObject. This function need not be called to delete a stock object. The purpose of this API function is to delete objects loaded with the API function GetObject.

Here is the syntax for the functions:

GetStockObject% (nIndex%)

nIndex%

Return Value

SelectObject% (hDC%, hObject%)

hDC%

hObject%

Return Value

Step-by-Step Example

The following example steps demonstrate how to create a program that prints ASCII characters.

1. Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.
2. Add a command button (Command1) to Form1.
3. Add the following code to the General Declarations section of Form1:

      ' Enter each Declare statement on one, single line.
      Declare Function GetStockObject% Lib "GDI" (ByVal nIndex%)
      Declare Function SelectObject% Lib "GDI" (ByVal hDC%, ByVal hObject%)
      Declare Function TextOut Lib "GDI" (ByVal hDC As Integer,
         ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String,
         ByVal nCount As Integer) As Integer
   
   						

4. Place the following code in the Command1 click event procedure:

      Sub Command1_Click ()
   
         Const OEM_FIXED_FONT = 10
         Const PIXEL = 3
   
         Dim hOEM As Integer   '*handle the OEM Font Object
         Dim Y, H As Single
   
         '*save the scale mode so that you can reset later
         Saved% = Form1.ScaleMode
   
         '*alter the current scale mode
         Form1.ScaleMode = PIXEL
   
         '* get the character height and subtract the external leading
         H = Form1.TextHeight(Chr$(200)) - 1
   
         '* get the handle to the desired font
         hOEM = GetStockObject(OEM_FIXED_FONT)
   
         '* select the object relating to the font handle
         PreviousObject% = SelectObject%(Form1.hDC, hOEM)
   
         '* if successful then print the desired characters.
         If PreviousObject% Then
   
            '* establish border
            Edge$ = "0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 "
   
            '* initialize output location
            xMark = 10
            yMark = 10
   
            '* position cursor & print top border
            Form1.CurrentX = xMark
            Form1.CurrentY = yMark
            '* print top ruler edge
            T$ = "  " + Edge$ + "  "
            ret% = TextOut(Form1.hDC, yMark, xMark, T$, Len(T$))
   
            '* Cycle through 256 characters beginning at character 0
            For Row% = 0 To 15
   
               '* prep left border
               T$ = Mid$(Edge$, (Row% * 2) + 1, 2)
   
               '* assemble string of characters
               For Col% = 0 To 15
                   Ch = (Row% * 16) + Col%
                   T$ = T$ + Chr$(Ch) + " "
               Next
   
               '* prep right border
               T$ = T$ + Mid$(Edge$, (Row% * 2) + 1, 2)
   
               '* prepare for display at next row
               xMark = xMark + H
   
               '* print the assembled string of characters
               ret% = TextOut(Form1.hDC, yMark, xMark, T$, Len(T$))
   
            Next
   
            '* prepare for display at next row
            xMark = xMark + H
   
            '* print bottom border
            T$ = "  " + Edge$ + "  "
            ret% = TextOut(Form1.hDC, yMark, xMark, T$, Len(T$))
   
            '* reinstate the previous font
            hOEM = SelectObject(Form1.hDC, PreviousObject%)
   
         Else
   
            '* SelectObject was unsuccessful
            MsgBox "Couldn't Find OEM Fonts", 48
   
         End If
   
         '* reset the scale mode
         Form1.ScaleMode = Saved%
   
      End Sub
   
   						

5. From the Run menu, choose Start.
6. Click the Command1 button.

When the Command1 button is clicked or selected, a small box with a double border will be drawn in the upper-left corner of the screen. The box is drawn using characters associated with the extended ASCII character set.

ASCII and ANSI Character Sets

For a listing of the ASCII and ANSI character sets, see the Visual Basic Help menu.

American Standard Code for Information Interchange (ASCII) is the 7-bit character set widely used to represent letters and symbols found on a standard United States keyboard. The ASCII character set is the same as the first 128 characters (0 to 127) in the American National Standards Institute (ANSI) character set. The ANSI character set uses all 8 bits in a byte, and includes 256 characters (0 to 255). Characters 128 to 255 are sometimes called the extended-ASCII characters.