Visual Basic

'variables needed to create and output file
       Dim fileReader As StreamReader
       Dim input As FileStream
       Dim inputData As String
       Dim count As Integer

       input = New FileStream("cards.txt", FileMode.Open, FileAccess.Read)
       'get file containing cards

       fileReader = New StreamReader(input)
       Dim cards(0 To 52) As String
       inputData = fileReader.ReadLine()
       cards = inputData.Split(","c)


       For count = 0 To cards.Length - 1
           'add user entered values to list box
           lstCards.Items.Add(cards(count))
           lstCards.ColumnWidth = 30


       Next    'end for

<br />
Imports System<br />
Imports System.IO.Ports<br />
<br />
Public Class Form1<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
       <br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        SerialPort1.Open()<br />
        RichTextBox1.Text = ""<br />
        RichTextBox1.Text = SerialPort1.ReadExisting()<br />
        SerialPort1.Close()<br />
    End Sub<br />
End Class