rqyiNhX0

1Imports System
2Imports System.Threading
3Imports System.Diagnostics
4Imports System.IO.Ports
5Imports System.ComponentModel
6Imports System.Xml
7Imports System.Speech
8Imports System.Speech.Synthesis
9Imports System.Media
10Imports System.Runtime.InteropServices
11
12Public Class MainScreen
13    Private PlayingWav As Boolean = False
14    Private Const MM_MCINOTIFY As Integer = 953
15    Dim myPort As Array
16    Dim FilePath As String = Application.StartupPath & "\MyXML.xml"
17    Dim AudioPath As String = Application.StartupPath & "\Beep.wav"
18    Dim ds As DataSet = New DataSet("ds")
19    Dim dt As DataTable = ds.Tables.Add("DriverData")
20    Dim dt1 As DataTable = ds.Tables.Add("RaceData")
21    Dim dt2 As New DataTable("ChampionshipData")
22    Dim LiveData As DataTable = ds.Tables.Add("LiveData")
23    Dim LiveDataView As DataView
24    Dim DriverDataView As DataView
25    Dim RaceHistoryView As DataView
26    Dim LaptimesHistoryView As DataView
27    Dim udtNew As Student
28    Dim NumberOfDrivers As Integer
29    Dim RaceName As String
30    Dim TimeLeft As Date
31    Dim CountDownFrom As TimeSpan
32    Dim Speaker As New SpeechSynthesizer
33    Dim StopWatch As New Stopwatch()
34    Dim StopwatchDictionary As New Dictionary(Of String, Stopwatch)
35    Dim TimespanDictionary As New Dictionary(Of String, TimeSpan)
36    Dim ElapsedTimeDictionary As New Dictionary(Of String, String)
37    Dim PracticeModeStopwatchDictionary As New Dictionary(Of String, Stopwatch)
38    Dim PracticeModeTimespanDictionary As New Dictionary(Of String, TimeSpan)
39    Dim PracticeModeElapsedTimeDictionary As New Dictionary(Of String, String)
40    Dim PracticeModeElapsedLaps As New Dictionary(Of String, Integer)
41    Dim RaceTimeSpan As TimeSpan
42    Dim RaceTimeLeft As TimeSpan
43    Dim RaceElapsedTime As String
44    Dim PrintBitmap As Bitmap
45    Dim TodayDate As Date = Date.Today()
46    Dim TodaysDate As String = TodayDate.ToString("MM_dd_yyyy")
47    Dim averageTime1 As Decimal
48    Dim averageTime2 As Decimal
49    Dim averageTime3 As Decimal
50    Dim averageTime4 As Decimal
51    Dim asdss As DataSet
52    Dim RaceModeBool As Boolean = False
53    Dim PracticeModeBool As Boolean = False
54    Dim PracticeStarted As Boolean = False
55    Dim dss As New DataSet
56    Dim dt3 As DataTable = dss.Tables.Add("dt3")
57    Dim dv As DataView
58
59    Private Sub MainScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' on mainscreen load
60        myPort = SerialPort.GetPortNames() ' get all used COM Ports
61        AvailablePortsComboBox.Items.AddRange(myPort) ' add COM ports to combobox
62        CheckFile() ' jump to checkfile function
63    End Sub
64
65    Private Sub CheckFile()
66        If IO.File.Exists(FilePath) Then
67            ds.ReadXml(FilePath)
68            Debug.WriteLine("File Exists")
69
70        Else
71
72            ' Set up our XmlWriter settings.
73            Dim settings As New XmlWriterSettings()
74            settings.Indent = True
75
76            ' Initialize the XmlWriter.
77            Dim XmlWrt As XmlWriter = XmlWriter.Create(FilePath, settings)
78
79            With XmlWrt
80                ' Write the Xml declaration.
81                .WriteStartDocument()
82                ' Write a comment.
83                .WriteComment("Xml example.")
84
85                ' Write the root element.
86                .WriteStartElement("People")
87
88                ' Start our first person.
89                .WriteStartElement("Person")
90                ' Give this person the attribute ID of 1.
91                .WriteAttributeString("ID", "1")
92
93                ' The person nodes.
94                .WriteStartElement("Name")
95                .WriteString("Bob")
96                .WriteEndElement()
97
98                .WriteStartElement("Age")
99                .WriteString("28")
100                .WriteEndElement()
101
102                .WriteStartElement("Weight")
103                .WriteString("180")
104                .WriteEndElement()
105                ' The end of this person.
106                .WriteEndElement()
107
108                ' Next person.
109                .WriteStartElement("Person")
110                .WriteAttributeString("ID", "2")
111
112                .WriteStartElement("Name")
113                .WriteString("Julie")
114                .WriteEndElement()
115
116                .WriteStartElement("Age")
117                .WriteString("34")
118                .WriteEndElement()
119
120                .WriteStartElement("Weight")
121                .WriteString("125")
122                ' The end of this person.
123                .WriteEndElement()
124                ' The end of People.
125                .WriteEndElement()
126
127                ' Close the XmlTextWriter.
128                .WriteEndDocument()
129                .Close()
130            End With
131            ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
132            ds.ReadXml(FilePath)
133        End If
134
135        If dt.Columns.Count = 0 Then
136            Debug.WriteLine("creating table junk")
137
138            dt.Columns.Add(New DataColumn("FirstName", GetType(String)))
139            dt.Columns.Add(New DataColumn("LastName", GetType(String)))
140            dt.Columns.Add(New DataColumn("ID", Type.[GetType]("System.Int32")))
141
142            dt1.Columns.Add(New DataColumn("Class", GetType(String)))
143            dt1.Columns.Add(New DataColumn("FirstName", GetType(String)))
144            dt1.Columns.Add(New DataColumn("LastName", GetType(String)))
145            dt1.Columns.Add(New DataColumn("ID", GetType(String)))
146            dt1.Columns.Add(New DataColumn("Date", GetType(String)))
147            dt1.Columns.Add(New DataColumn("FinishingPos", GetType(String)))
148            dt1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
149            dt1.Columns.Add(New DataColumn("RaceType", GetType(String)))
150            dt1.Columns.Add(New DataColumn("RaceNumber", GetType(String)))
151            ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
152
153            'dt2.Columns.Add(New DataColumn("Class", GetType(String)))
154            'dt2.Columns.Add(New DataColumn("LastName", GetType(String)))
155            'dt2.Columns.Add(New DataColumn("Name", GetType(String)))
156            'dt2.Columns.Add(New DataColumn("Points", GetType(String)))
157
158        Else
159        End If
160        ds.ReadXml(FilePath)
161        DriverDataView = New DataView(ds.Tables("DriverData"))
162        DriverDataDataGridView.DataSource = Nothing ' clear the datasource
163        DriverDataDataGridView.DataSource = DriverDataView ' assign datasource
164        DriverDataDataGridView2.DataSource = DriverDataView
165    End Sub
166
167
168    Private Sub EnterDriverButton_Click(sender As Object, e As EventArgs) Handles EnterDriverButton.Click
169
170        ds.Clear()
171        ds.ReadXml(FilePath)
172        Dim r As DataRow = dt.NewRow()
173        Dim FirstNameTextBoxString As String = FirstNameTextBox.Text
174        Dim LastNameTextBoxString As String = LastNameTextBox.Text
175        Dim UniqueIDTextBoxString As String = UniqueIDTextBox.Text
176        FirstNameTextBox.Clear()
177        LastNameTextBox.Clear()
178        UniqueIDTextBox.Clear()
179        r("FirstName") = FirstNameTextBoxString
180        r("LastName") = LastNameTextBoxString
181        r("ID") = UniqueIDTextBoxString
182        dt.Rows.Add(r)
183
184        ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
185        ds.Clear()
186        ds.ReadXml(FilePath)
187        DriverDataView = New DataView(ds.Tables("DriverData"))
188        DriverDataDataGridView.DataSource = Nothing ' clear the datasource
189        DriverDataDataGridView.DataSource = DriverDataView
190        DriverDataDataGridView2.DataSource = DriverDataView
191    End Sub
192
193    Private Sub AddDriverButton_Click(sender As Object, e As EventArgs) Handles AddDriverButton.Click
194        Dim First As String ' First Name string variable
195        Dim Last As String ' Last Name string variable
196        Dim ID As String ' ID string variable
197        Dim IList As String ' string result variable
198        First = DriverDataDataGridView.CurrentRow.Cells(0).Value.ToString() ' get first name
199        Last = DriverDataDataGridView.CurrentRow.Cells(1).Value.ToString() 'get last name
200        ID = DriverDataDataGridView.CurrentRow.Cells(2).Value.ToString() ' get ID
201        IList = First & " " & Last & " " & ID ' build IList string result
202        DriverListListBox.Items.Add(IList) ' add IList string to DriverListBox (Enter into race)
203    End Sub
204
205    Private Sub RemoveDriverButton_Click(sender As Object, e As EventArgs) Handles RemoveDriverButton.Click
206        DriverListListBox.Items.Remove(DriverListListBox.SelectedItem) ' remove selected driver from DriverListBox (Remove from race)
207
208    End Sub
209
210    Private Sub SearchTextBox_TextChanged(sender As Object, e As EventArgs) Handles SearchTextBox.TextChanged
211        BindingSource1.DataSource = dt ' import dt data into bindingsource1
212        DriverDataDataGridView.DataSource = BindingSource1 ' set DriverDataDataGridView = BindingSource1
213        BindingSource1.Filter = String.Format("FirstName LIKE '%{0}%'", SearchTextBox.Text) ' Filter
214    End Sub
215
216    Private Sub DeleteDriverButton_Click(sender As Object, e As EventArgs) Handles DeleteDriverButton.Click
217        ds.ReadXml(FilePath)
218
219        Dim itemColumns As DataRowCollection = dt.Rows
220        itemColumns(0).Delete()
221        itemColumns(2).Delete()
222        itemColumns(3).Delete()
223        itemColumns(5).Delete()
224
225        ' Accept changes on others.
226        dt.AcceptChanges()
227
228        ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
229    End Sub
230
231    Private Sub CreateRaceButton_Click(sender As Object, e As EventArgs) Handles CreateRaceButton.Click
232        NumberOfDrivers = DriverListListBox.Items.Count ' get number of drivers entered for race
233        ShuffleDrivers(DriverListListBox) ' shuffle the drivers randomly
234        CreateRaces() ' go to CreateRaces function
235    End Sub
236
237    Public Structure Student
238        Public RaceType As String
239        Public RaceNumber As Integer
240    End Structure
241
242
243
244    Private Sub ShuffleDrivers(ByVal DriverList As System.Windows.Forms.ListBox)
245        Dim Random As New System.Random ' create randomizer
246        Dim ArrayList As New System.Collections.ArrayList(DriverList.Items) ' create arraylist of entered drivers
247
248        DriverList.BeginUpdate() ' pause driverlist updates
249        DriverList.Items.Clear() ' clear driverlist
250
251        While ArrayList.Count > 0 ' while drivers left to be randomly chosen
252            Dim Index As System.Int32 = Random.Next(0, ArrayList.Count) ' select random driver in arraylist
253            DriverList.Items.Add(ArrayList(Index)) ' add randomly selected driver to driverlist
254            ArrayList.RemoveAt(Index) ' remove selected driver from arraylist
255        End While
256
257        DriverList.EndUpdate() ' driverlist updateable
258    End Sub
259
260
261    Public Function CreateRaces() As Student
262        Select Case NumberOfDrivers
263            Case 1
264                'A main
265                Dim af As DataSet = New DataSet("af") ' need better name
266                Dim A1 As DataTable = ds.Tables.Add("A_Main")
267                A1.Columns.Add(New DataColumn("Date", GetType(String)))
268                A1.Columns.Add(New DataColumn("Class", GetType(String)))
269                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
270                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
271                A1.Columns.Add(New DataColumn("ID", GetType(String)))
272                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
273                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
274                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
275                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
276                A1.Columns.Add(New DataColumn("RaceLength", GetType(String)))
277
278                Dim TodayDate As Date = Date.Today()
279                Dim strDate As String = TodayDate.ToString("MM\/dd\/yyyy")
280                Dim r1 As DataRow = A1.NewRow()
281                Dim blah10 As String = "" 'Blank for first row
282                Dim blah11 As String = "" 'Blank for first row
283                Dim blah12 As String = "" 'Blank for first row
284                Dim blah13 As String = ClassComboBox.SelectedItem
285                Dim blah14 As String = strDate
286                Dim blah15 As String = "" 'Blank for first row
287                Dim blah16 As Boolean = False
288                Dim blah17 As String = "A Main"
289                Dim blah18 As String = "0:0" & RaceLengthTextBox.Text & ":00"
290
291                r1("FirstName") = blah10
292                r1("LastName") = blah11
293                r1("ID") = blah12
294                r1("Class") = blah13
295                r1("Date") = blah14
296                r1("StartPos") = blah15
297                r1("FinishPos") = blah16
298                r1("RaceFinished") = blah16
299                r1("RaceName") = blah17
300                r1("RaceLength") = blah18
301                A1.Rows.Add(r1)
302
303                Dim i As Integer = 1
304                For Each item As String In DriverListListBox.Items
305                    Dim r123 As DataRow = A1.NewRow()
306                    Dim strArr() As String
307                    strArr = item.Split(" ")
308                    r123("StartPos") = i
309                    r123("FirstName") = strArr(0)
310                    r123("LastName") = strArr(1)
311                    r123("ID") = strArr(1)
312                    A1.Rows.Add(r123)
313                    i = i + 1
314                Next
315                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
316                DriverListListBox.Items.Clear()
317            Case 2
318                'A main
319                Dim TodayDate As Date = Date.Today()
320                Dim strDate As String = TodayDate.ToString("MM_dd_yyyy")
321                Dim blah13 As String = ClassComboBox.SelectedItem
322                Dim blah17 As String = "A_Main_1"
323                Dim af As DataSet = New DataSet("af") ' need better name
324                Dim asd As String = strDate & "_" & blah13 & "_" & blah17
325                Dim A1 As DataTable = ds.Tables.Add(asd) 'create unique race name
326                A1.Columns.Add(New DataColumn("Date", GetType(String)))
327                A1.Columns.Add(New DataColumn("Class", GetType(String)))
328                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
329                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
330                A1.Columns.Add(New DataColumn("ID", GetType(String)))
331                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
332                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
333                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
334                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
335
336
337
338                Dim r1 As DataRow = A1.NewRow()
339                Dim blah10 As String = "" 'Blank for first row
340                Dim blah11 As String = "" 'Blank for first row
341                Dim blah12 As String = "" 'Blank for first row
342
343                Dim blah14 As String = strDate
344                Dim blah15 As String = "" 'Blank for first row
345                Dim blah16 As Boolean = False
346
347
348                r1("FirstName") = blah10
349                r1("LastName") = blah11
350                r1("ID") = blah12
351                r1("Class") = blah13
352                r1("Date") = blah14
353                r1("StartPos") = blah15
354                r1("FinishPos") = blah16
355                r1("RaceFinished") = blah16
356                r1("RaceName") = blah17
357
358                A1.Rows.Add(r1)
359
360                Dim i As Integer = 1
361                For Each item As String In DriverListListBox.Items
362                    Dim r123 As DataRow = A1.NewRow()
363                    Dim strArr() As String
364                    strArr = item.Split(" ")
365                    r123("StartPos") = i
366                    r123("FirstName") = strArr(0)
367                    r123("LastName") = strArr(1)
368                    A1.Rows.Add(r123)
369                    i = i + 1
370                Next
371                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
372                'ComboBox6.Items.Add(blah13 & "_" & blah18)
373            Case 3
374                'A main
375
376                Dim blah13 As String = ClassComboBox.SelectedItem ' get selected class
377                Dim blah18 As String = "A_Main_1" ' race type
378                'Dim af As DataSet = New DataSet("af") ' future dataset for seperate file
379                Dim asd As String = TodaysDate & "_" & blah13 & "_" & blah18 'create unique race name
380                Dim A1 As DataTable = ds.Tables.Add(asd) 'create unique race name
381
382                A1.Columns.Add(New DataColumn("Date", GetType(String)))
383                A1.Columns.Add(New DataColumn("Class", GetType(String)))
384                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
385                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
386                A1.Columns.Add(New DataColumn("ID", GetType(String)))
387                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
388                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
389                A1.Columns.Add(New DataColumn("RaceFinished", GetType(Boolean)))
390                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
391                A1.Columns.Add(New DataColumn("RaceLength", GetType(TimeSpan)))
392
393                Dim r1 As DataRow = A1.NewRow()
394                Dim blah10 As String = "" 'Blank for first row
395                Dim blah11 As String = "" 'Blank for first row
396                Dim blah12 As String = "" 'Blank for first row
397                Dim blah14 As String = TodaysDate
398                Dim blah15 As String = "" 'Blank for first row
399                Dim blah16 As String = 0
400                Dim blah17 As Boolean = False
401                'Dim blah19 As String = "00:" & RaceLengthTextBox.Text.ToString & ":00"
402                Dim dubbs As Double = CDbl(RaceLengthTextBox.Text)
403                Dim time4 As TimeSpan = TimeSpan.FromMinutes(dubbs)
404
405                r1("FirstName") = blah10
406                r1("LastName") = blah11
407                r1("ID") = blah12
408                r1("Class") = blah13
409                r1("Date") = blah14
410                r1("StartPos") = blah15
411                r1("FinishPos") = blah16
412                r1("RaceFinished") = blah17
413                r1("RaceName") = blah18
414                r1("RaceLength") = time4
415                A1.Rows.Add(r1)
416
417                Dim i As Integer = 1
418                For Each item As String In DriverListListBox.Items
419                    Dim r123 As DataRow = A1.NewRow()
420                    Dim strArr() As String
421                    strArr = item.Split(" ")
422                    r123("StartPos") = i
423                    r123("FirstName") = strArr(0)
424                    r123("LastName") = strArr(1)
425                    r123("ID") = strArr(2)
426                    A1.Rows.Add(r123)
427                    i = i + 1
428                Next
429                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema) ' eventually write to seperate file
430                RaceListComboBox.Items.Add(blah13 & "_" & blah18) ' add race to selectable list
431            Case 4
432                'A main
433                Dim af As DataSet = New DataSet("af") ' need better name
434                Dim A1 As DataTable = ds.Tables.Add("A_Main")
435                A1.Columns.Add(New DataColumn("Date", GetType(String)))
436                A1.Columns.Add(New DataColumn("Class", GetType(String)))
437                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
438                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
439                A1.Columns.Add(New DataColumn("ID", GetType(String)))
440                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
441                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
442                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
443                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
444
445                Dim TodayDate As Date = Date.Today()
446                Dim strDate As String = TodayDate.ToString("MM\/dd\/yyyy")
447                Dim r1 As DataRow = A1.NewRow()
448                Dim blah10 As String = "" 'Blank for first row
449                Dim blah11 As String = "" 'Blank for first row
450                Dim blah12 As String = "" 'Blank for first row
451                Dim blah13 As String = ClassComboBox.SelectedItem
452                Dim blah14 As String = strDate
453                Dim blah15 As String = "" 'Blank for first row
454                Dim blah16 As Boolean = False
455                Dim blah17 As String = "A Main"
456
457                r1("FirstName") = blah10
458                r1("LastName") = blah11
459                r1("ID") = blah12
460                r1("Class") = blah13
461                r1("Date") = blah14
462                r1("StartPos") = blah15
463                r1("FinishPos") = blah16
464                r1("RaceFinished") = blah16
465                r1("RaceName") = blah17
466                A1.Rows.Add(r1)
467
468                Dim i As Integer = 1
469                For Each item As String In DriverListListBox.Items
470                    Dim r123 As DataRow = A1.NewRow()
471                    Dim strArr() As String
472                    strArr = item.Split(" ")
473                    r123("StartPos") = i
474                    r123("FirstName") = strArr(0)
475                    r123("LastName") = strArr(1)
476                    A1.Rows.Add(r123)
477                    i = i + 1
478                Next
479                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
480            Case 5
481                'Bmain
482                'Amain
483                'A main
484                Dim af As DataSet = New DataSet("af") ' need better name
485                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
486                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
487                Dim B1 As DataTable = ds.Tables.Add("B_Main")
488                Dim A1 As DataTable = ds.Tables.Add("A_Main")
489                H1.Columns.Add(New DataColumn("Date", GetType(String)))
490                H1.Columns.Add(New DataColumn("Class", GetType(String)))
491                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
492                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
493                H1.Columns.Add(New DataColumn("ID", GetType(String)))
494                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
495                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
496                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
497                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
498                H2.Columns.Add(New DataColumn("Date", GetType(String)))
499                H2.Columns.Add(New DataColumn("Class", GetType(String)))
500                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
501                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
502                H2.Columns.Add(New DataColumn("ID", GetType(String)))
503                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
504                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
505                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
506                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
507                B1.Columns.Add(New DataColumn("Date", GetType(String)))
508                B1.Columns.Add(New DataColumn("Class", GetType(String)))
509                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
510                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
511                B1.Columns.Add(New DataColumn("ID", GetType(String)))
512                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
513                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
514                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
515                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
516                A1.Columns.Add(New DataColumn("Date", GetType(String)))
517                A1.Columns.Add(New DataColumn("Class", GetType(String)))
518                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
519                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
520                A1.Columns.Add(New DataColumn("ID", GetType(String)))
521                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
522                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
523                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
524                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
525                Dim i As Integer = 1
526                'Heat1
527                For a = 1 To 3
528                    Dim item As String
529                    Dim r123 As DataRow = H1.NewRow()
530                    Dim strArr() As String
531                    item = DriverListListBox.Items(i).ToString()
532                    strArr = item.Split(" ")
533                    r123("StartPos") = i
534                    r123("FirstName") = strArr(0)
535                    r123("LastName") = strArr(1)
536                    H1.Rows.Add(r123)
537                    i = i + 1
538                Next
539                'Heat2
540                For a = 4 To 5
541                    Dim item As String
542                    Dim r123 As DataRow = H2.NewRow()
543                    Dim strArr() As String
544                    item = DriverListListBox.Items(i).ToString()
545                    strArr = item.Split(" ")
546                    r123("StartPos") = i
547                    r123("FirstName") = strArr(0)
548                    r123("LastName") = strArr(1)
549                    H2.Rows.Add(r123)
550                    i = i + 1
551                Next
552                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
553            Case 6
554                'Bmain
555                'Amain
556                Dim af As DataSet = New DataSet("af") ' need better name
557                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
558                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
559                Dim B1 As DataTable = ds.Tables.Add("B_Main")
560                Dim A1 As DataTable = ds.Tables.Add("A_Main")
561                H1.Columns.Add(New DataColumn("Date", GetType(String)))
562                H1.Columns.Add(New DataColumn("Class", GetType(String)))
563                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
564                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
565                H1.Columns.Add(New DataColumn("ID", GetType(String)))
566                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
567                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
568                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
569                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
570                H2.Columns.Add(New DataColumn("Date", GetType(String)))
571                H2.Columns.Add(New DataColumn("Class", GetType(String)))
572                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
573                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
574                H2.Columns.Add(New DataColumn("ID", GetType(String)))
575                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
576                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
577                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
578                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
579                B1.Columns.Add(New DataColumn("Date", GetType(String)))
580                B1.Columns.Add(New DataColumn("Class", GetType(String)))
581                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
582                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
583                B1.Columns.Add(New DataColumn("ID", GetType(String)))
584                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
585                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
586                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
587                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
588                A1.Columns.Add(New DataColumn("Date", GetType(String)))
589                A1.Columns.Add(New DataColumn("Class", GetType(String)))
590                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
591                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
592                A1.Columns.Add(New DataColumn("ID", GetType(String)))
593                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
594                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
595                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
596                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
597                Dim i As Integer = 1
598                'Heat1
599                For a = 1 To 3
600                    Dim item As String
601                    Dim r123 As DataRow = H1.NewRow()
602                    Dim strArr() As String
603                    item = DriverListListBox.Items(i).ToString()
604                    strArr = item.Split(" ")
605                    r123("StartPos") = i
606                    r123("FirstName") = strArr(0)
607                    r123("LastName") = strArr(1)
608                    H1.Rows.Add(r123)
609                    i = i + 1
610                Next
611                'Heat2
612                For a = 4 To 6
613                    Dim item As String
614                    Dim r123 As DataRow = H2.NewRow()
615                    Dim strArr() As String
616                    item = DriverListListBox.Items(i).ToString()
617                    strArr = item.Split(" ")
618                    r123("StartPos") = i
619                    r123("FirstName") = strArr(0)
620                    r123("LastName") = strArr(1)
621                    H2.Rows.Add(r123)
622                    i = i + 1
623                Next
624                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
625            Case 7
626                'Bmain
627                'Amain
628                Dim af As DataSet = New DataSet("af") ' need better name
629                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
630                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
631                Dim B1 As DataTable = ds.Tables.Add("B_Main")
632                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
633                Dim A1 As DataTable = ds.Tables.Add("A_Main")
634                H1.Columns.Add(New DataColumn("Date", GetType(String)))
635                H1.Columns.Add(New DataColumn("Class", GetType(String)))
636                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
637                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
638                H1.Columns.Add(New DataColumn("ID", GetType(String)))
639                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
640                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
641                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
642                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
643                H2.Columns.Add(New DataColumn("Date", GetType(String)))
644                H2.Columns.Add(New DataColumn("Class", GetType(String)))
645                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
646                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
647                H2.Columns.Add(New DataColumn("ID", GetType(String)))
648                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
649                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
650                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
651                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
652                B1.Columns.Add(New DataColumn("Date", GetType(String)))
653                B1.Columns.Add(New DataColumn("Class", GetType(String)))
654                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
655                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
656                B1.Columns.Add(New DataColumn("ID", GetType(String)))
657                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
658                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
659                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
660                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
661                B2.Columns.Add(New DataColumn("Date", GetType(String)))
662                B2.Columns.Add(New DataColumn("Class", GetType(String)))
663                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
664                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
665                B2.Columns.Add(New DataColumn("ID", GetType(String)))
666                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
667                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
668                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
669                B2.Columns.Add(New DataColumn("RaceName", GetType(String)))
670                A1.Columns.Add(New DataColumn("Date", GetType(String)))
671                A1.Columns.Add(New DataColumn("Class", GetType(String)))
672                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
673                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
674                A1.Columns.Add(New DataColumn("ID", GetType(String)))
675                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
676                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
677                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
678                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
679                Dim i As Integer = 1
680                'Heat1
681                For a = 1 To 4
682                    Dim item As String
683                    Dim r123 As DataRow = H1.NewRow()
684                    Dim strArr() As String
685                    item = DriverListListBox.Items(i).ToString()
686                    strArr = item.Split(" ")
687                    r123("StartPos") = i
688                    r123("FirstName") = strArr(0)
689                    r123("LastName") = strArr(1)
690                    H1.Rows.Add(r123)
691                    i = i + 1
692                Next
693                'Heat2
694                For a = 5 To 7
695                    Dim item As String
696                    Dim r123 As DataRow = H2.NewRow()
697                    Dim strArr() As String
698                    item = DriverListListBox.Items(i).ToString()
699                    strArr = item.Split(" ")
700                    r123("StartPos") = i
701                    r123("FirstName") = strArr(0)
702                    r123("LastName") = strArr(1)
703                    H2.Rows.Add(r123)
704                    i = i + 1
705                Next
706                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
707            Case 8
708                'Bmain
709                'Amain
710                Dim af As DataSet = New DataSet("af") ' need better name
711                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
712                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
713                Dim B1 As DataTable = ds.Tables.Add("B_Main")
714                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
715                Dim A1 As DataTable = ds.Tables.Add("A_Main")
716                H1.Columns.Add(New DataColumn("Date", GetType(String)))
717                H1.Columns.Add(New DataColumn("Class", GetType(String)))
718                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
719                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
720                H1.Columns.Add(New DataColumn("ID", GetType(String)))
721                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
722                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
723                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
724                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
725                H2.Columns.Add(New DataColumn("Date", GetType(String)))
726                H2.Columns.Add(New DataColumn("Class", GetType(String)))
727                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
728                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
729                H2.Columns.Add(New DataColumn("ID", GetType(String)))
730                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
731                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
732                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
733                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
734                B1.Columns.Add(New DataColumn("Date", GetType(String)))
735                B1.Columns.Add(New DataColumn("Class", GetType(String)))
736                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
737                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
738                B1.Columns.Add(New DataColumn("ID", GetType(String)))
739                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
740                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
741                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
742                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
743                B2.Columns.Add(New DataColumn("Date", GetType(String)))
744                B2.Columns.Add(New DataColumn("Class", GetType(String)))
745                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
746                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
747                B2.Columns.Add(New DataColumn("ID", GetType(String)))
748                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
749                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
750                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
751                B2.Columns.Add(New DataColumn("RaceName", GetType(String)))
752                A1.Columns.Add(New DataColumn("Date", GetType(String)))
753                A1.Columns.Add(New DataColumn("Class", GetType(String)))
754                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
755                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
756                A1.Columns.Add(New DataColumn("ID", GetType(String)))
757                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
758                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
759                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
760                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
761                Dim i As Integer = 1
762                'Heat1
763                For a = 1 To 4
764                    Dim item As String
765                    Dim r123 As DataRow = H1.NewRow()
766                    Dim strArr() As String
767                    item = DriverListListBox.Items(i).ToString()
768                    strArr = item.Split(" ")
769                    r123("Position") = i
770                    r123("FirstName") = strArr(0)
771                    r123("LastName") = strArr(1)
772                    H1.Rows.Add(r123)
773                    i = i + 1
774                Next
775                'Heat2
776                For a = 5 To 8
777                    Dim item As String
778                    Dim r123 As DataRow = H2.NewRow()
779                    Dim strArr() As String
780                    item = DriverListListBox.Items(i).ToString()
781                    strArr = item.Split(" ")
782                    r123("Position") = i
783                    r123("FirstName") = strArr(0)
784                    r123("LastName") = strArr(1)
785                    H2.Rows.Add(r123)
786                    i = i + 1
787                Next
788                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
789            Case 9
790                'Heat1
791                'Heat2
792                'Heat3
793                'Bmain
794                'Bmain
795                'Cmain
796                'Amain
797                'Bmain
798                'Amain
799                Dim af As DataSet = New DataSet("af") ' need better name
800                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
801                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
802                Dim H3 As DataTable = ds.Tables.Add("Heat_2")
803                Dim B1 As DataTable = ds.Tables.Add("B_Main")
804                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
805                Dim C1 As DataTable = ds.Tables.Add("C_Main")
806                Dim A1 As DataTable = ds.Tables.Add("A_Main")
807                H1.Columns.Add(New DataColumn("Date", GetType(String)))
808                H1.Columns.Add(New DataColumn("Class", GetType(String)))
809                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
810                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
811                H1.Columns.Add(New DataColumn("ID", GetType(String)))
812                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
813                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
814                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
815                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
816                H2.Columns.Add(New DataColumn("Date", GetType(String)))
817                H2.Columns.Add(New DataColumn("Class", GetType(String)))
818                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
819                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
820                H2.Columns.Add(New DataColumn("ID", GetType(String)))
821                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
822                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
823                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
824                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
825                H3.Columns.Add(New DataColumn("Date", GetType(String)))
826                H3.Columns.Add(New DataColumn("Class", GetType(String)))
827                H3.Columns.Add(New DataColumn("FirstName", GetType(String)))
828                H3.Columns.Add(New DataColumn("LastName", GetType(String)))
829                H3.Columns.Add(New DataColumn("ID", GetType(String)))
830                H3.Columns.Add(New DataColumn("StartPos", GetType(String)))
831                H3.Columns.Add(New DataColumn("FinishPos", GetType(String)))
832                H3.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
833                H3.Columns.Add(New DataColumn("RaceName", GetType(String)))
834                B1.Columns.Add(New DataColumn("Date", GetType(String)))
835                B1.Columns.Add(New DataColumn("Class", GetType(String)))
836                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
837                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
838                B1.Columns.Add(New DataColumn("ID", GetType(String)))
839                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
840                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
841                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
842                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
843                B2.Columns.Add(New DataColumn("Date", GetType(String)))
844                B2.Columns.Add(New DataColumn("Class", GetType(String)))
845                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
846                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
847                B2.Columns.Add(New DataColumn("ID", GetType(String)))
848                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
849                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
850                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
851                B2.Columns.Add(New DataColumn("RaceName", GetType(String)))
852                C1.Columns.Add(New DataColumn("Date", GetType(String)))
853                C1.Columns.Add(New DataColumn("Class", GetType(String)))
854                C1.Columns.Add(New DataColumn("FirstName", GetType(String)))
855                C1.Columns.Add(New DataColumn("LastName", GetType(String)))
856                C1.Columns.Add(New DataColumn("ID", GetType(String)))
857                C1.Columns.Add(New DataColumn("StartPos", GetType(String)))
858                C1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
859                C1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
860                C1.Columns.Add(New DataColumn("RaceName", GetType(String)))
861                A1.Columns.Add(New DataColumn("Date", GetType(String)))
862                A1.Columns.Add(New DataColumn("Class", GetType(String)))
863                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
864                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
865                A1.Columns.Add(New DataColumn("ID", GetType(String)))
866                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
867                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
868                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
869                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
870                Dim i As Integer = 1
871                'Heat1
872                For a = 1 To 3
873                    Dim item As String
874                    Dim r123 As DataRow = H1.NewRow()
875                    Dim strArr() As String
876                    item = DriverListListBox.Items(i).ToString()
877                    strArr = item.Split(" ")
878                    r123("Position") = i
879                    r123("FirstName") = strArr(0)
880                    r123("LastName") = strArr(1)
881                    H1.Rows.Add(r123)
882                    i = i + 1
883                Next
884                'Heat2
885                For a = 4 To 6
886                    Dim item As String
887                    Dim r123 As DataRow = H2.NewRow()
888                    Dim strArr() As String
889                    item = DriverListListBox.Items(i).ToString()
890                    strArr = item.Split(" ")
891                    r123("Position") = i
892                    r123("FirstName") = strArr(0)
893                    r123("LastName") = strArr(1)
894                    H2.Rows.Add(r123)
895                    i = i + 1
896                Next
897                'Heat3
898                For a = 7 To 9
899                    Dim item As String
900                    Dim r123 As DataRow = H3.NewRow()
901                    Dim strArr() As String
902                    item = DriverListListBox.Items(i).ToString()
903                    strArr = item.Split(" ")
904                    r123("Position") = i
905                    r123("FirstName") = strArr(0)
906                    r123("LastName") = strArr(1)
907                    H3.Rows.Add(r123)
908                    i = i + 1
909                Next
910                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
911            Case 10
912                'Heat1
913                'Heat2
914                'Heat3
915                'Bmain
916                'Bmain
917                'Cmain
918                'Amain
919                Dim af As DataSet = New DataSet("af") ' need better name
920                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
921                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
922                Dim H3 As DataTable = ds.Tables.Add("Heat_2")
923                Dim B1 As DataTable = ds.Tables.Add("B_Main")
924                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
925                Dim C1 As DataTable = ds.Tables.Add("C_Main")
926                Dim A1 As DataTable = ds.Tables.Add("A_Main")
927                H1.Columns.Add(New DataColumn("Date", GetType(String)))
928                H1.Columns.Add(New DataColumn("Class", GetType(String)))
929                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
930                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
931                H1.Columns.Add(New DataColumn("ID", GetType(String)))
932                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
933                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
934                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
935                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
936                H2.Columns.Add(New DataColumn("Date", GetType(String)))
937                H2.Columns.Add(New DataColumn("Class", GetType(String)))
938                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
939                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
940                H2.Columns.Add(New DataColumn("ID", GetType(String)))
941                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
942                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
943                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
944                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
945                H3.Columns.Add(New DataColumn("Date", GetType(String)))
946                H3.Columns.Add(New DataColumn("Class", GetType(String)))
947                H3.Columns.Add(New DataColumn("FirstName", GetType(String)))
948                H3.Columns.Add(New DataColumn("LastName", GetType(String)))
949                H3.Columns.Add(New DataColumn("ID", GetType(String)))
950                H3.Columns.Add(New DataColumn("StartPos", GetType(String)))
951                H3.Columns.Add(New DataColumn("FinishPos", GetType(String)))
952                H3.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
953                H3.Columns.Add(New DataColumn("RaceName", GetType(String)))
954                B1.Columns.Add(New DataColumn("Date", GetType(String)))
955                B1.Columns.Add(New DataColumn("Class", GetType(String)))
956                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
957                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
958                B1.Columns.Add(New DataColumn("ID", GetType(String)))
959                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
960                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
961                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
962                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
963                B2.Columns.Add(New DataColumn("Date", GetType(String)))
964                B2.Columns.Add(New DataColumn("Class", GetType(String)))
965                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
966                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
967                B2.Columns.Add(New DataColumn("ID", GetType(String)))
968                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
969                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
970                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
971                B2.Columns.Add(New DataColumn("RaceName", GetType(String)))
972                C1.Columns.Add(New DataColumn("Date", GetType(String)))
973                C1.Columns.Add(New DataColumn("Class", GetType(String)))
974                C1.Columns.Add(New DataColumn("FirstName", GetType(String)))
975                C1.Columns.Add(New DataColumn("LastName", GetType(String)))
976                C1.Columns.Add(New DataColumn("ID", GetType(String)))
977                C1.Columns.Add(New DataColumn("StartPos", GetType(String)))
978                C1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
979                C1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
980                C1.Columns.Add(New DataColumn("RaceName", GetType(String)))
981                A1.Columns.Add(New DataColumn("Date", GetType(String)))
982                A1.Columns.Add(New DataColumn("Class", GetType(String)))
983                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
984                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
985                A1.Columns.Add(New DataColumn("ID", GetType(String)))
986                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
987                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
988                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
989                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
990                Dim i As Integer = 1
991                'Heat1
992                For a = 1 To 4
993                    Dim item As String
994                    Dim r123 As DataRow = H1.NewRow()
995                    Dim strArr() As String
996                    item = DriverListListBox.Items(i).ToString()
997                    strArr = item.Split(" ")
998                    r123("Position") = i
999                    r123("FirstName") = strArr(0)
1000                    r123("LastName") = strArr(1)
1001                    H1.Rows.Add(r123)
1002                    i = i + 1
1003                Next
1004                'Heat2
1005                For a = 5 To 7
1006                    Dim item As String
1007                    Dim r123 As DataRow = H2.NewRow()
1008                    Dim strArr() As String
1009                    item = DriverListListBox.Items(i).ToString()
1010                    strArr = item.Split(" ")
1011                    r123("Position") = i
1012                    r123("FirstName") = strArr(0)
1013                    r123("LastName") = strArr(1)
1014                    H2.Rows.Add(r123)
1015                    i = i + 1
1016                Next
1017                'Heat3
1018                For a = 8 To 10
1019                    Dim item As String
1020                    Dim r123 As DataRow = H3.NewRow()
1021                    Dim strArr() As String
1022                    item = DriverListListBox.Items(i).ToString()
1023                    strArr = item.Split(" ")
1024                    r123("Position") = i
1025                    r123("FirstName") = strArr(0)
1026                    r123("LastName") = strArr(1)
1027                    H3.Rows.Add(r123)
1028                    i = i + 1
1029                Next
1030                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
1031            Case 11
1032                'Heat1
1033                'Heat2
1034                'Heat3
1035                'Bmain
1036                'Bmain
1037                'Cmain
1038                'Amain
1039                Dim af As DataSet = New DataSet("af") ' need better name
1040                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
1041                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
1042                Dim H3 As DataTable = ds.Tables.Add("Heat_2")
1043                Dim B1 As DataTable = ds.Tables.Add("B_Main")
1044                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
1045                Dim C1 As DataTable = ds.Tables.Add("C_Main")
1046                Dim A1 As DataTable = ds.Tables.Add("A_Main")
1047                H1.Columns.Add(New DataColumn("Date", GetType(String)))
1048                H1.Columns.Add(New DataColumn("Class", GetType(String)))
1049                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1050                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
1051                H1.Columns.Add(New DataColumn("ID", GetType(String)))
1052                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1053                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1054                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1055                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1056                H2.Columns.Add(New DataColumn("Date", GetType(String)))
1057                H2.Columns.Add(New DataColumn("Class", GetType(String)))
1058                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
1059                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
1060                H2.Columns.Add(New DataColumn("ID", GetType(String)))
1061                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
1062                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1063                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1064                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
1065                H3.Columns.Add(New DataColumn("Date", GetType(String)))
1066                H3.Columns.Add(New DataColumn("Class", GetType(String)))
1067                H3.Columns.Add(New DataColumn("FirstName", GetType(String)))
1068                H3.Columns.Add(New DataColumn("LastName", GetType(String)))
1069                H3.Columns.Add(New DataColumn("ID", GetType(String)))
1070                H3.Columns.Add(New DataColumn("StartPos", GetType(String)))
1071                H3.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1072                H3.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1073                H3.Columns.Add(New DataColumn("RaceName", GetType(String)))
1074                B1.Columns.Add(New DataColumn("Date", GetType(String)))
1075                B1.Columns.Add(New DataColumn("Class", GetType(String)))
1076                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1077                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
1078                B1.Columns.Add(New DataColumn("ID", GetType(String)))
1079                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1080                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1081                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1082                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1083                B2.Columns.Add(New DataColumn("Date", GetType(String)))
1084                B2.Columns.Add(New DataColumn("Class", GetType(String)))
1085                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
1086                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
1087                B2.Columns.Add(New DataColumn("ID", GetType(String)))
1088                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
1089                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1090                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1091                B2.Columns.Add(New DataColumn("RaceName", GetType(String)))
1092                C1.Columns.Add(New DataColumn("Date", GetType(String)))
1093                C1.Columns.Add(New DataColumn("Class", GetType(String)))
1094                C1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1095                C1.Columns.Add(New DataColumn("LastName", GetType(String)))
1096                C1.Columns.Add(New DataColumn("ID", GetType(String)))
1097                C1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1098                C1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1099                C1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1100                C1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1101                A1.Columns.Add(New DataColumn("Date", GetType(String)))
1102                A1.Columns.Add(New DataColumn("Class", GetType(String)))
1103                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1104                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
1105                A1.Columns.Add(New DataColumn("ID", GetType(String)))
1106                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1107                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1108                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1109                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1110                Dim i As Integer = 1
1111                'Heat1
1112                For a = 1 To 4
1113                    Dim item As String
1114                    Dim r123 As DataRow = H1.NewRow()
1115                    Dim strArr() As String
1116                    item = DriverListListBox.Items(i).ToString()
1117                    strArr = item.Split(" ")
1118                    r123("Position") = i
1119                    r123("FirstName") = strArr(0)
1120                    r123("LastName") = strArr(1)
1121                    H1.Rows.Add(r123)
1122                    i = i + 1
1123                Next
1124                'Heat2
1125                For a = 5 To 8
1126                    Dim item As String
1127                    Dim r123 As DataRow = H2.NewRow()
1128                    Dim strArr() As String
1129                    item = DriverListListBox.Items(i).ToString()
1130                    strArr = item.Split(" ")
1131                    r123("Position") = i
1132                    r123("FirstName") = strArr(0)
1133                    r123("LastName") = strArr(1)
1134                    H2.Rows.Add(r123)
1135                    i = i + 1
1136                Next
1137                'Heat3
1138                For a = 9 To 11
1139                    Dim item As String
1140                    Dim r123 As DataRow = H3.NewRow()
1141                    Dim strArr() As String
1142                    item = DriverListListBox.Items(i).ToString()
1143                    strArr = item.Split(" ")
1144                    r123("Position") = i
1145                    r123("FirstName") = strArr(0)
1146                    r123("LastName") = strArr(1)
1147                    H3.Rows.Add(r123)
1148                    i = i + 1
1149                Next
1150                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
1151            Case 12
1152                'Heat1
1153                'Heat2
1154                'Heat3
1155                'Bmain
1156                'Bmain
1157                'Bmain
1158                'Cmain
1159                'Amain
1160                Dim af As DataSet = New DataSet("af") ' need better name
1161                Dim H1 As DataTable = ds.Tables.Add("Heat_1")
1162                Dim H2 As DataTable = ds.Tables.Add("Heat_2")
1163                Dim H3 As DataTable = ds.Tables.Add("Heat_2")
1164                Dim B1 As DataTable = ds.Tables.Add("B_Main")
1165                Dim B2 As DataTable = ds.Tables.Add("B_Main_2")
1166                Dim B3 As DataTable = ds.Tables.Add("B_Main_3")
1167                Dim C1 As DataTable = ds.Tables.Add("C_Main")
1168                Dim A1 As DataTable = ds.Tables.Add("A_Main")
1169                H1.Columns.Add(New DataColumn("Date", GetType(String)))
1170                H1.Columns.Add(New DataColumn("Class", GetType(String)))
1171                H1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1172                H1.Columns.Add(New DataColumn("LastName", GetType(String)))
1173                H1.Columns.Add(New DataColumn("ID", GetType(String)))
1174                H1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1175                H1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1176                H1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1177                H1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1178                H2.Columns.Add(New DataColumn("Date", GetType(String)))
1179                H2.Columns.Add(New DataColumn("Class", GetType(String)))
1180                H2.Columns.Add(New DataColumn("FirstName", GetType(String)))
1181                H2.Columns.Add(New DataColumn("LastName", GetType(String)))
1182                H2.Columns.Add(New DataColumn("ID", GetType(String)))
1183                H2.Columns.Add(New DataColumn("StartPos", GetType(String)))
1184                H2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1185                H2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1186                H2.Columns.Add(New DataColumn("RaceName", GetType(String)))
1187                H3.Columns.Add(New DataColumn("Date", GetType(String)))
1188                H3.Columns.Add(New DataColumn("Class", GetType(String)))
1189                H3.Columns.Add(New DataColumn("FirstName", GetType(String)))
1190                H3.Columns.Add(New DataColumn("LastName", GetType(String)))
1191                H3.Columns.Add(New DataColumn("ID", GetType(String)))
1192                H3.Columns.Add(New DataColumn("StartPos", GetType(String)))
1193                H3.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1194                H3.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1195                H3.Columns.Add(New DataColumn("RaceName", GetType(String)))
1196                B1.Columns.Add(New DataColumn("Date", GetType(String)))
1197                B1.Columns.Add(New DataColumn("Class", GetType(String)))
1198                B1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1199                B1.Columns.Add(New DataColumn("LastName", GetType(String)))
1200                B1.Columns.Add(New DataColumn("ID", GetType(String)))
1201                B1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1202                B1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1203                B1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1204                B1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1205                B2.Columns.Add(New DataColumn("Date", GetType(String)))
1206                B2.Columns.Add(New DataColumn("Class", GetType(String)))
1207                B2.Columns.Add(New DataColumn("FirstName", GetType(String)))
1208                B2.Columns.Add(New DataColumn("LastName", GetType(String)))
1209                B2.Columns.Add(New DataColumn("ID", GetType(String)))
1210                B2.Columns.Add(New DataColumn("StartPos", GetType(String)))
1211                B2.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1212                B2.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1213                B3.Columns.Add(New DataColumn("RaceName", GetType(String)))
1214                B3.Columns.Add(New DataColumn("Date", GetType(String)))
1215                B3.Columns.Add(New DataColumn("Class", GetType(String)))
1216                B3.Columns.Add(New DataColumn("FirstName", GetType(String)))
1217                B3.Columns.Add(New DataColumn("LastName", GetType(String)))
1218                B3.Columns.Add(New DataColumn("ID", GetType(String)))
1219                B3.Columns.Add(New DataColumn("StartPos", GetType(String)))
1220                B3.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1221                B3.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1222                B3.Columns.Add(New DataColumn("RaceName", GetType(String)))
1223                C1.Columns.Add(New DataColumn("Date", GetType(String)))
1224                C1.Columns.Add(New DataColumn("Class", GetType(String)))
1225                C1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1226                C1.Columns.Add(New DataColumn("LastName", GetType(String)))
1227                C1.Columns.Add(New DataColumn("ID", GetType(String)))
1228                C1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1229                C1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1230                C1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1231                C1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1232                A1.Columns.Add(New DataColumn("Date", GetType(String)))
1233                A1.Columns.Add(New DataColumn("Class", GetType(String)))
1234                A1.Columns.Add(New DataColumn("FirstName", GetType(String)))
1235                A1.Columns.Add(New DataColumn("LastName", GetType(String)))
1236                A1.Columns.Add(New DataColumn("ID", GetType(String)))
1237                A1.Columns.Add(New DataColumn("StartPos", GetType(String)))
1238                A1.Columns.Add(New DataColumn("FinishPos", GetType(String)))
1239                A1.Columns.Add(New DataColumn("RaceFinished", GetType(String)))
1240                A1.Columns.Add(New DataColumn("RaceName", GetType(String)))
1241                Dim i As Integer = 1
1242                'Heat1
1243                For a = 1 To 4
1244                    Dim item As String
1245                    Dim r123 As DataRow = H1.NewRow()
1246                    Dim strArr() As String
1247                    item = DriverListListBox.Items(i).ToString()
1248                    strArr = item.Split(" ")
1249                    r123("Position") = i
1250                    r123("FirstName") = strArr(0)
1251                    r123("LastName") = strArr(1)
1252                    H1.Rows.Add(r123)
1253                    i = i + 1
1254                Next
1255                'Heat2
1256                For a = 5 To 8
1257                    Dim item As String
1258                    Dim r123 As DataRow = H2.NewRow()
1259                    Dim strArr() As String
1260                    item = DriverListListBox.Items(i).ToString()
1261                    strArr = item.Split(" ")
1262                    r123("Position") = i
1263                    r123("FirstName") = strArr(0)
1264                    r123("LastName") = strArr(1)
1265                    H2.Rows.Add(r123)
1266                    i = i + 1
1267                Next
1268                'Heat3
1269                For a = 9 To 12
1270                    Dim item As String
1271                    Dim r123 As DataRow = H3.NewRow()
1272                    Dim strArr() As String
1273                    item = DriverListListBox.Items(i).ToString()
1274                    strArr = item.Split(" ")
1275                    r123("Position") = i
1276                    r123("FirstName") = strArr(0)
1277                    r123("LastName") = strArr(1)
1278                    H3.Rows.Add(r123)
1279                    i = i + 1
1280                Next
1281                ds.WriteXml(FilePath, XmlWriteMode.WriteSchema)
1282            Case Else
1283                MessageBox.Show("Not between 1 and 12, inclusive")
1284        End Select
1285
1286        udtNew.RaceType = "Johny"
1287        udtNew.RaceNumber = 12
1288        Return udtNew
1289
1290    End Function
1291
1292    Private Sub StartRaceButton_Click(sender As Object, e As EventArgs) Handles StartRaceButton.Click
1293        Dim TodayDate As Date = Date.Today() 'Get Date
1294        Dim strDate As String = TodayDate.ToString("MM_dd_yyyy") 'Convert Date from type Date to String
1295
1296        Dim ii As Decimal = 0 'Increments each loop through to create unique datatable name
1297        For Each row22 As DataRow In LiveData.Rows 'loop through rows
1298
1299            Dim DateString As String = strDate 'Date
1300            Dim RaceListComboBoxSelectedItemString As String = RaceListComboBox.SelectedItem.ToString() 'Race
1301            Dim LiveDataFirstName As String = LiveData.Rows(ii)("FirstName") 'First Name
1302            Dim LiveDataLastName As String = LiveData.Rows(ii)("LastName") 'Last Name
1303            Dim datasetName As String = strDate & "_" & RaceListComboBoxSelectedItemString & "_" & LiveDataFirstName & "_" & LiveDataLastName 'build dataset name string Date_Race_FirstName_LastName
1304
1305            'asdss = New DataSet(datasetName) ' eventually create nw dataset for seperate file
1306            Dim laptimes As DataTable = ds.Tables.Add(datasetName) ' create unique datatable
1307            'Dim laptimes As DataTable = New DataTable(datasetName) ' create unique datatable old
1308            laptimes.Columns.Add(New DataColumn("LapNumber", GetType(String))) ' create lap number column
1309            laptimes.Columns.Add(New DataColumn("LapTime", GetType(String))) ' create laptime column
1310            '.Tables.Add(laptimes)
1311            Dim gki As DataRow = laptimes.NewRow() ' create new row
1312            laptimes.Rows.Add(gki) ' add new row
1313            StopwatchDictionary(LiveData.Rows(ii)("ID") & "_" & "Stopwatch").Start() ' start each driver's unique stopwatch
1314            Debug.WriteLine("stopwatch started") 'debug
1315            ii += 1 ' increment to cycle through each driver in race
1316        Next row22
1317        ds.WriteXml(FilePath, XmlWriteMode.WriteSchema) ' save to file
1318
1319        TimeLeft = DateTime.Now.Add(CountDownFrom) ' shows time length of race
1320        CountDown()
1321        'RaceTimeRemainingLabel.Text = "30 seconds" add countdown here!!!
1322        Timer1.Start() ' start the race!
1323        StartRaceButton.Enabled = False ' disable start race button
1324        StopWatch.Start() ' start race overall stopwatch (debug)
1325    End Sub
1326
1327    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
1328        RaceTimeLeft = TimeLeft.Subtract(DateTime.Now) ' update race time remaining
1329        If RaceTimeLeft.TotalMilliseconds > 0 Then ' race continues
1330            RaceTimeRemainingLabel.Text = RaceTimeLeft.ToString("mm\:ss") ' update racetimeremaininglabel
1331            Speaker.Rate = 0
1332            Speaker.Volume = 100
1333            Speaker.SpeakAsync(RaceTimeRemainingLabel.Text)
1334        Else ' race ends
1335            'Timer1.Stop()
1336            RaceTimeRemainingLabel.Text = "Time's up!"
1337            'MessageBox.Show("You didn't finish in time.", "Sorry!")
1338            StartRaceButton.Enabled = True
1339        End If
1340
1341        RaceTimeSpan = StopWatch.Elapsed
1342
1343        Dim loopcount As Integer
1344        For Each row77 As DataRow In LiveData.Rows 'loop through rows
1345            'Debug.WriteLine("doing hard time")
1346            TimespanDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Timespan") = StopwatchDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Stopwatch").Elapsed
1347            'Debug.WriteLine(StopwatchDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Stopwatch").Elapsed)
1348            ElapsedTimeDictionary(LiveData.Rows(loopcount)("ID") & "_" & "ElapsedTime") = String.Format("{0:00}:{1:00}.{2:00}", TimespanDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Timespan").Minutes, TimespanDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Timespan").Seconds, TimespanDictionary(LiveData.Rows(loopcount)("ID") & "_" & "Timespan").Milliseconds)
1349            'Debug.WriteLine(ElapsedTimeDictionary(LiveData.Rows(loopcount)("ID") & "_" & "ElapsedTime"))
1350        Next row77
1351        'ts1 = StopWatch1.Elapsed
1352        'ts2 = StopWatch2.Elapsed
1353        'ts3 = StopWatch3.Elapsed
1354        'ts4 = StopWatch4.Elapsed
1355        RaceElapsedTime = String.Format("{0:00}:{1:00}.{2:00}", RaceTimeSpan.Minutes, RaceTimeSpan.Seconds, RaceTimeSpan.Milliseconds)
1356        'elapsedTime1 = String.Format("{0:00}:{1:00}.{2:00}", ts1.Minutes, ts1.Seconds, ts1.Milliseconds)
1357        'elapsedTime2 = String.Format("{0:00}:{1:00}.{2:00}", ts2.Minutes, ts2.Seconds, ts2.Milliseconds)
1358        'elapsedTime3 = String.Format("{0:00}:{1:00}.{2:00}", ts3.Minutes, ts3.Seconds, ts3.Milliseconds)
1359        'elapsedTime4 = String.Format("{0:00}:{1:00}.{2:00}", ts4.Minutes, ts4.Seconds, ts4.Milliseconds)
1360        RaceElapsedTimeLabel.Text = RaceElapsedTime
1361        If LiveData.Rows.Count > 0 Then
1362            Dim qq As DataRow = LiveData.Select("Position = '1'").FirstOrDefault()
1363            If Not qq Is Nothing Then
1364                'searchedValue = row.Item("ColumnName2")
1365                If TimespanDictionary(qq("ID") & "_" & "Timespan").TotalSeconds >= 1 Then
1366                    qq("CurrentTime") = ElapsedTimeDictionary(qq("ID") & "_" & "ElapsedTime")
1367                    'LiveData.Rows.Add(ry)
1368                End If
1369            End If
1370        End If
1371        If LiveData.Rows.Count >= 1 Then
1372            Dim ww As DataRow = LiveData.Select("Position = '2'").FirstOrDefault()
1373            If Not ww Is Nothing Then
1374                'searchedValue = row.Item("ColumnName2")
1375                If TimespanDictionary(ww("ID") & "_" & "Timespan").TotalSeconds >= 1 Then
1376                    ww("CurrentTime") = ElapsedTimeDictionary(ww("ID") & "_" & "ElapsedTime")
1377                    'LiveData.Rows.Add(ry)
1378                End If
1379            End If
1380        End If
1381        If LiveData.Rows.Count >= 2 Then
1382            Dim ee As DataRow = LiveData.Select("Position = '3'").FirstOrDefault()
1383            If Not ee Is Nothing Then
1384                'searchedValue = row.Item("ColumnName2")
1385                If TimespanDictionary(ee("ID") & "_" & "Timespan").TotalSeconds >= 1 Then
1386                    ee("CurrentTime") = ElapsedTimeDictionary(ee("ID") & "_" & "ElapsedTime")
1387                    'LiveData.Rows.Add(ry)
1388                End If
1389            End If
1390        End If
1391        If LiveData.Rows.Count >= 3 Then
1392            Dim rr As DataRow = LiveData.Select("Position = '4'").FirstOrDefault()
1393            If Not rr Is Nothing Then
1394                'searchedValue = row.Item("ColumnName2")
1395                If TimespanDictionary(rr("ID") & "_" & "Timespan").TotalSeconds >= 1 Then
1396                    rr("CurrentTime") = ElapsedTimeDictionary(rr("ID") & "_" & "ElapsedTime")
1397                    'LiveData.Rows.Add(ry)
1398                End If
1399            End If
1400        End If
1401        'ry("CurrentTime") = elapsedTime
1402
1403        LiveDataView = New DataView(ds.Tables("LiveData"))
1404
1405        'DataGridView1.Rows.Clear()
1406        'DriverDataDataGridView.DataSource = Nothing
1407        'DataGridView1.Sort(DataGridView1.Columns(2), ListSortDirection.Ascending) 'change to position column eventually
1408        LiveDataGridView.BeginInvoke(New InvokeDelegate(AddressOf InvokeMethod))
1409        ' DataGridView1.DataSource = view1
1410        'DataGridView1.AutoResizeColumns()
1411    End Sub
1412
1413    Private Sub ConnectButton_Click(sender As Object, e As EventArgs) Handles ConnectButton.Click
1414        Dim SelectedCOM As String
1415        SelectedCOM = AvailablePortsComboBox.SelectedItem
1416        Dim mySerialPort As New SerialPort(SelectedCOM)
1417        If (SelectedCOM <> "") Then
1418            mySerialPort.BaudRate = 9600
1419            mySerialPort.Parity = Parity.None
1420            mySerialPort.StopBits = StopBits.One
1421            mySerialPort.DataBits = 8
1422            mySerialPort.Handshake = Handshake.None
1423            mySerialPort.RtsEnable = True
1424            mySerialPort.DtrEnable = True
1425            mySerialPort.NewLine = vbCr
1426            mySerialPort.ReadTimeout = 10000
1427            mySerialPort.WriteTimeout = 10000
1428            AddHandler mySerialPort.DataReceived, AddressOf DataReceivedHandler
1429
1430            mySerialPort.Open()
1431            Debug.WriteLine("Connecting to " & SelectedCOM)
1432        Else
1433            MsgBox("Select a COM port first")
1434        End If
1435
1436    End Sub
1437
1438    Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs) ' removed shared
1439        Dim sndPing As New SoundPlayer(My.Resources.Beep)
1440        sndPing.Play()
1441        Dim sp As SerialPort = CType(sender, SerialPort)
1442        Dim indata As String = sp.ReadLine() 'get serial data
1443        Dim stuff As Integer
1444        Dim success As Boolean = Integer.TryParse(indata, stuff)
1445        If success Then
1446            If RaceModeBool = True Then
1447                Dim ry As DataRow()
1448                LiveDataGridView.MultiSelect = False
1449                ry = LiveData.Select("ID  = '" & stuff & "'") ' select row based on indata
1450                If Not ry Is Nothing Then 'check
1451
1452                    Debug.WriteLine("selected row") 'debug
1453                    For Each row33 In ry ' for selected livedata row...
1454                        Debug.WriteLine("row selected") 'debug
1455                        Debug.WriteLine(row33("ID") & "_" & "Timespan")
1456                        Debug.WriteLine(TimespanDictionary(row33("ID") & "_" & "Timespan").TotalSeconds)
1457                        If TimespanDictionary(row33("ID") & "_" & "Timespan").TotalSeconds >= 1 Then ' debounce check
1458                            Debug.WriteLine("rownsadasdno") 'debug
1459                            Debug.WriteLine(TimespanDictionary(row33("ID") & "_" & "Timespan").Seconds) 'debug
1460                            Dim TodaysDateString As String = TodaysDate 'Date
1461                            Dim RaceListComboBoxSelectedItemString As String
1462                            RaceListComboBox.Invoke(Sub()
1463                                                        RaceListComboBoxSelectedItemString = RaceListComboBox.SelectedItem '.ToString()
1464                                                    End Sub)
1465
1466                            'Dim Dim RaceListComboBoxSelectedItemString As String As String = ComboBox6.SelectedItem.ToString() 'Race
1467                            Dim FirstName As String = row33("FirstName") 'First Name
1468                            Dim LastName As String = row33("LastName") 'Last Name
1469                            Dim datasetName2 As String = TodaysDate & "_" & RaceListComboBoxSelectedItemString & "_" & FirstName & "_" & LastName 'build search datatable name string Date_Race_FirstName_LastName
1470
1471                            Dim hh As DataRow = ds.Tables(datasetName2).NewRow() 'add to live data datatable
1472                            hh("LapNumber") = row33("Laps") 'get lap number
1473                            hh("LapTime") = ElapsedTimeDictionary(row33("ID") & "_" & "ElapsedTime") ' get lap time
1474                            ds.Tables(datasetName2).Rows.Add(hh) ' save to datatable
1475                            Debug.WriteLine("saved laptime???") 'debug
1476                            RaceElapsedTime = String.Format("{0:00}:{1:00}.{2:00}", RaceTimeSpan.Minutes, RaceTimeSpan.Seconds, RaceTimeSpan.Milliseconds)
1477                            StopwatchDictionary(row33("ID") & "_" & "Stopwatch").Restart()
1478                            row33("Laps") = row33("Laps") + 1 'increment laps
1479
1480                            Dim seconds As Decimal = TimespanDictionary(row33("ID") & "_" & "Timespan").TotalSeconds
1481                            averageTime1 = row33("Laps") / seconds ' elapsedTime is converted to Double, and value contains the Double value now
1482                            Debug.WriteLine(seconds) 'debug
1483                            Debug.WriteLine(averageTime1) 'debug
1484
1485                            row33("AverageTime") = averageTime1 'do math
1486                            Debug.WriteLine("doin math") 'debug
1487
1488                            Dim i As Decimal = 1 'position variable
1489                            For Each row22 As DataRow In LiveData.Rows 'loop through rows
1490                                Debug.WriteLine("sorting rows") 'debug
1491                                row22("Position") = i 'assign position
1492                                i += 1 'increment
1493                            Next row22
1494
1495                        End If
1496                    Next
1497                End If
1498                LiveDataGridView.BeginInvoke(New InvokeDelegate(AddressOf InvokeMethod))
1499            ElseIf PracticeStarted = True Then
1500
1501                Try
1502                    Debug.WriteLine("add practice time") 'debug
1503                    PracticeModeTimespanDictionary.Item(indata) = PracticeModeStopwatchDictionary.Values(indata).Elapsed
1504                    Debug.WriteLine(PracticeModeStopwatchDictionary.Values(indata).Elapsed) 'debug
1505                    Debug.WriteLine(PracticeModeTimespanDictionary.Item(indata)) 'debug
1506                    Debug.WriteLine("add practice time") 'debug
1507                    PracticeModeStopwatchDictionary.Values(indata).Restart()
1508                    Debug.WriteLine(PracticeModeStopwatchDictionary.Values(indata).Elapsed) 'debug
1509                    Debug.WriteLine("add practice time") 'debug
1510                    PracticeModeElapsedTimeDictionary(indata) = String.Format("{0:00}:{1:00}.{2:00}", PracticeModeTimespanDictionary.Item(indata).Minutes, PracticeModeTimespanDictionary.Item(indata).Seconds, PracticeModeTimespanDictionary.Item(indata).Milliseconds)
1511                    Debug.WriteLine(PracticeModeElapsedTimeDictionary.Item(indata)) 'debug
1512                    Debug.WriteLine("add practice time") 'debug
1513                    'PracticeModeElapsedLaps(indata) = PracticeModeElapsedLaps.Values(indata) + 1
1514                    Debug.WriteLine(PracticeModeElapsedLaps.Values(indata)) 'debug
1515                    Dim blaf As Integer = PracticeModeElapsedLaps.Values(indata)
1516                    blaf += 1
1517                    Debug.WriteLine(blaf)
1518                    PracticeModeElapsedLaps(indata) = blaf
1519                    Debug.WriteLine(PracticeModeElapsedLaps.Item(indata)) 'debug
1520                    Debug.WriteLine("add practice time") 'debug
1521                    Debug.WriteLine("dataview") 'debug
1522                    'dv = New DataView(dss.Tables(0))
1523                Catch
1524                End Try
1525
1526                Try
1527                    If PracticeStarted = True Then
1528                        Debug.WriteLine("update practice dataview") 'debug
1529                        Dim newRow As DataRow = dt3.NewRow()
1530
1531                        Dim list As New List(Of String)(PracticeModeElapsedLaps.Keys)
1532
1533                        ' Loop over each string.
1534                        Dim str As String
1535                        For Each str In list
1536                            ' Print string and also Item(string), which is the value.
1537                            Debug.WriteLine("{0}:{1}", str, PracticeModeElapsedLaps.Item(str))
1538                        Next
1539
1540                        newRow("ID") = indata
1541                        newRow("Lap") = PracticeModeElapsedLaps.Item(indata)
1542                        newRow("Time") = PracticeModeElapsedTimeDictionary.Item(indata)
1543                        'dt3.Rows.InsertAt(newRow, 0)
1544                        dt3.Rows.Add(newRow)
1545                        'newRow.EndEdit()
1546                        'dv.Sort = "product_id"
1547                        dv = New DataView(dss.Tables("dt3"))
1548                        UpdateTextBox(dv)
1549                        'PracticeDataGridView.DataSource = Nothing
1550                        'PracticeDataGridView.DataSource = dv
1551                    ElseIf PracticeModeBool = False Then
1552                    End If
1553                Catch
1554                End Try
1555            Else
1556
1557            End If
1558
1559            'Dim arr() As Decimal = {averageTime1, averageTime2, averageTime3, averageTime4}
1560            'Array.Sort(arr)
1561
1562            'Dim row22 As DataRow
1563
1564            'DataGridView1.Sort(DataGridView1.Columns(2), ListSortDirection.Ascending) 'change to position column eventually
1565            'DataGridView1.DataSource = view1
1566            'DataGridView1.AutoResizeColumns()
1567
1568            Debug.WriteLine(indata)
1569        End If
1570    End Sub
1571    Private Sub UpdateTextBox(ByVal phone_number As DataView)
1572        If Me.InvokeRequired Then
1573            Dim args() As DataView = {phone_number}
1574            Me.Invoke(New Action(Of DataView)(AddressOf UpdateTextBox), args)
1575
1576            Return
1577        End If
1578        'Label_caller.Text = phone_number
1579        PracticeDataGridView.DataSource = Nothing
1580        PracticeDataGridView.DataSource = dt3
1581    End Sub
1582    Delegate Sub InvokeDelegate()
1583
1584    'Private Sub Invoke_Click(sender As Object, e As EventArgs)
1585    '    DataGridView1.BeginInvoke(New InvokeDelegate(AddressOf InvokeMethod))
1586    'End Sub 'Invoke_Click
1587
1588    Public Sub InvokeMethod()
1589        LiveDataGridView.DataSource = LiveDataView
1590        LiveDataGridView.Sort(LiveDataGridView.Columns(6), ListSortDirection.Ascending)
1591        LiveDataGridView.AutoResizeColumns()
1592    End Sub 'InvokeMethod
1593
1594    Private Sub RaceResultsPrintButton_Click(sender As Object, e As EventArgs) Handles RaceResultsPrintButton.Click
1595        Dim height As Integer
1596        RaceResultsDataGridView.Height = RaceResultsDataGridView.RowCount * RaceResultsDataGridView.RowTemplate.Height
1597        PrintBitmap = New Bitmap(Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height)
1598        RaceResultsDataGridView.DrawToBitmap(PrintBitmap, New Rectangle(0, 0, Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height))
1599        PrintPreviewDialog1.Document = PrintDocument1
1600        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
1601        PrintPreviewDialog1.ShowDialog()
1602        RaceResultsDataGridView.Height = height
1603    End Sub
1604
1605    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
1606        e.Graphics.DrawImage(PrintBitmap, 0, 0)
1607        Dim rectPrint As RectangleF = e.PageSettings.PrintableArea
1608        If Me.RaceResultsDataGridView.Height - rectPrint.Height > 0 Then e.HasMorePages = True
1609    End Sub
1610
1611    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles RaceResultsSearchButton.Click
1612        ds.ReadXml(FilePath)
1613        Dim SearchDate As String = RaceResultsDateTimePicker.Value.ToString("MM_dd_yyyy")
1614        Dim SearchClass As String = RaceResultsClassComboBox.SelectedItem
1615        Dim SearchRaceName As String = RaceResultsRaceComboBox.SelectedItem
1616        Dim SearchString As String = SearchDate & "_" & SearchClass & "_" & SearchRaceName
1617        Label19.Text = SearchString
1618        RaceHistoryView = New DataView(ds.Tables(SearchString))
1619        'DriverDataDataGridView.Rows.Clear()
1620        'DriverDataDataGridView.DataSource = Nothing
1621        RaceResultsDataGridView.DataSource = RaceHistoryView
1622    End Sub
1623
1624    Public Sub RaceListComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RaceListComboBox.SelectedIndexChanged
1625        Dim Search As String = TodaysDate & "_" & RaceListComboBox.SelectedItem.ToString()
1626        Dim r123 As DataRow = (ds.Tables(Search)).Rows(0)
1627        Dim r1234 As DataRow = (ds.Tables(Search)).Rows(1)
1628        Dim r12345 As DataRow = (ds.Tables(Search)).Rows(2)
1629        Dim r123456 As DataRow = (ds.Tables(Search)).Rows(3)
1630        LiveData.Columns.Add(New DataColumn("Position", GetType(String)))
1631        LiveData.Columns.Add(New DataColumn("Laps", GetType(Int16)))
1632        LiveData.Columns.Add(New DataColumn("FirstName", GetType(String)))
1633        LiveData.Columns.Add(New DataColumn("LastName", GetType(String)))
1634        LiveData.Columns.Add(New DataColumn("ID", GetType(String)))
1635        LiveData.Columns.Add(New DataColumn("FastLap", GetType(String)))
1636        'LiveData.Columns.Add(New DataColumn("Lap", GetType(String))) not sure what this is for
1637        LiveData.Columns.Add(New DataColumn("CurrentTime", GetType(String)))
1638        LiveData.Columns.Add(New DataColumn("AverageTime", GetType(Decimal)))
1639
1640        If ds.Tables(Search).Rows.Count >= 2 Then
1641            'If Not r123.IsNull("FirstName") Then
1642            ClassLabel1.Text = r123("Class") 'add to live data 
1643            RaceNameLabel.Text = r123("RaceName") 'add to live data 
1644            CountDownFrom = r123("RaceLength") 'add to live data
1645            TimeLeft = DateTime.Now.Add(CountDownFrom)
1646            RaceTimeLeft = TimeLeft.Subtract(DateTime.Now)
1647            RaceTimeRemainingLabel.Text = RaceTimeLeft.ToString("mm\:ss") 'add to live data
1648
1649
1650        End If
1651        If ds.Tables(Search).Rows.Count >= 2 Then ' One Driver
1652
1653            'If Not r1234.IsNull("FirstName") Then
1654            Dim rw As DataRow = LiveData.NewRow() 'add to live data datatable
1655            rw("Position") = (ds.Tables(Search)).Rows(1)("StartPos")
1656            rw("FirstName") = (ds.Tables(Search)).Rows(1)("FirstName")
1657            rw("LastName") = (ds.Tables(Search)).Rows(1)("LastName")
1658            rw("Laps") = 0
1659            rw("ID") = (ds.Tables(Search)).Rows(1)("ID")
1660            LiveData.Rows.Add(rw)
1661        End If
1662        If ds.Tables(Search).Rows.Count >= 3 Then ' Two Drivers
1663            'If Not r12345.IsNull("FirstName") Then
1664            Dim rx As DataRow = LiveData.NewRow() 'add to live data datatable
1665            rx("Position") = (ds.Tables(Search)).Rows(2)("StartPos")
1666            rx("FirstName") = (ds.Tables(Search)).Rows(2)("FirstName")
1667            rx("LastName") = (ds.Tables(Search)).Rows(2)("LastName")
1668            rx("Laps") = 0
1669            rx("ID") = (ds.Tables(Search)).Rows(2)("ID")
1670            LiveData.Rows.Add(rx)
1671        End If
1672        If ds.Tables(Search).Rows.Count >= 4 Then ' Three Drivers
1673            'If Not r123456.IsNull("FirstName") Then
1674            Dim ry As DataRow = LiveData.NewRow() 'add to live data datatable
1675            ry("Position") = (ds.Tables(Search)).Rows(3)("StartPos")
1676            ry("FirstName") = (ds.Tables(Search)).Rows(3)("FirstName")
1677            ry("LastName") = (ds.Tables(Search)).Rows(3)("LastName")
1678            ry("Laps") = 0
1679            ry("ID") = (ds.Tables(Search)).Rows(3)("ID")
1680            LiveData.Rows.Add(ry)
1681        End If
1682        If ds.Tables(Search).Rows.Count >= 5 Then ' Four Drivers
1683            'If Not r123456.IsNull("FirstName") Then
1684            Dim rz As DataRow = LiveData.NewRow() 'add to live data datatable
1685            rz("Position") = (ds.Tables(Search)).Rows(4)("StartPos")
1686            rz("FirstName") = (ds.Tables(Search)).Rows(4)("FirstName")
1687            rz("LastName") = (ds.Tables(Search)).Rows(4)("LastName")
1688            rz("Laps") = 0
1689            rz("ID") = (ds.Tables(Search)).Rows(4)("ID")
1690            LiveData.Rows.Add(rz)
1691        End If
1692        For Each row22 As DataRow In LiveData.Rows 'loop through rows
1693            Debug.WriteLine("sorting rows") 'debug
1694            Dim StopwatchName As String = row22("ID") & "_" & "Stopwatch"
1695            CreateStopwatch(StopwatchName)
1696            Dim TimespanName As String = row22("ID") & "_" & "Timespan"
1697            CreateTimespan(TimespanName)
1698            Dim ElapsedTimeName As String = row22("ID") & "_" & "ElapsedTime"
1699            CreateElapsedTime(TimespanName)
1700        Next row22
1701
1702
1703        LiveDataView = New DataView(ds.Tables("LiveData"))
1704        'DriverDataDataGridView.Rows.Clear()
1705        'DriverDataDataGridView.DataSource = Nothing
1706        ' DataGridView1.Columns("AverageTime").Visible = False 'afaifiuff
1707        LiveDataGridView.DataSource = LiveDataView
1708    End Sub
1709
1710
1711
1712    Private Sub LaptimesSearchButton_Click(sender As Object, e As EventArgs) Handles LaptimesSearchButton.Click
1713        ds.ReadXml(FilePath)
1714        Dim SearchDate As String = LaptimesDateTimePicker.Value.ToString("MM_dd_yyyy")
1715        Dim SearchClass As String = LaptimesClassComboBox.SelectedItem
1716        Dim SearchRaceName As String = LaptimesRaceComboBox.SelectedItem
1717        Dim SearchString As String = SearchDate & "_" & SearchClass & "_" & SearchRaceName
1718        Label2.Text = SearchString
1719        LaptimesHistoryView = New DataView(ds.Tables(SearchString))
1720        'DriverDataDataGridView.Rows.Clear()
1721        'DriverDataDataGridView.DataSource = Nothing
1722        LaptimesDataGridView.DataSource = RaceHistoryView
1723    End Sub
1724
1725    Private Sub EraseFilesButton_Click_1(sender As Object, e As EventArgs) Handles EraseFilesButton.Click
1726        My.Computer.FileSystem.DeleteFile(FilePath,
1727        FileIO.UIOption.AllDialogs,
1728        FileIO.RecycleOption.DeletePermanently,
1729        FileIO.UICancelOption.DoNothing)
1730        CheckFile()
1731    End Sub
1732
1733    Public Sub CreateStopwatch(ggg As String)
1734        StopwatchDictionary.Add(ggg, New Stopwatch)   ' Adds the "blue" pseudo-variable
1735    End Sub
1736
1737    Public Sub CreateTimespan(hjh As String)
1738        TimespanDictionary.Add(hjh, New TimeSpan)   ' Adds the "blue" pseudo-variable
1739    End Sub
1740
1741    Public Sub CreateElapsedTime(fgf As String)
1742        Dim nnn As String = ""
1743        ElapsedTimeDictionary.Add(fgf, nnn)   ' Adds the "blue" pseudo-variable
1744    End Sub
1745
1746    Private Sub SaveResultsButton_Click(sender As Object, e As EventArgs) Handles SaveResultsButton.Click
1747        StopwatchDictionary.Clear() ' reset stopwatch l;ibrary for next race
1748    End Sub
1749
1750    Private Sub LaptimesPrintButton_Click(sender As Object, e As EventArgs) Handles LaptimesPrintButton.Click
1751        Dim height As Integer
1752        RaceResultsDataGridView.Height = RaceResultsDataGridView.RowCount * RaceResultsDataGridView.RowTemplate.Height
1753        PrintBitmap = New Bitmap(Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height)
1754        RaceResultsDataGridView.DrawToBitmap(PrintBitmap, New Rectangle(0, 0, Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height))
1755        PrintPreviewDialog1.Document = PrintDocument1
1756        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
1757        PrintPreviewDialog1.ShowDialog()
1758        RaceResultsDataGridView.Height = height
1759    End Sub
1760    Private Sub CountDown()
1761        Speaker.Rate = 0
1762        Speaker.Volume = 100
1763        Speaker.SpeakAsync("drivers ready")
1764        Thread.Sleep(3000)
1765        Speaker.SpeakAsync("three")
1766        Thread.Sleep(1000)
1767        Speaker.SpeakAsync("two")
1768        Thread.Sleep(1000)
1769        Speaker.SpeakAsync("one")
1770        Thread.Sleep(1700)
1771        Dim sndPing As New SoundPlayer(My.Resources.Beep)
1772        sndPing.Play()
1773        'Debug.WriteLine(Speaker.State)
1774        'SystemSounds.Asterisk.Play()
1775        '    PlayBackgroundSoundFile()
1776    End Sub
1777
1778    Private Sub PracticeButton_Click(sender As Object, e As EventArgs)
1779
1780    End Sub
1781
1782    Private Sub PracticeFilterTextBox_TextChanged(sender As Object, e As EventArgs) Handles PracticeFilterTextBox.TextChanged
1783        BindingSource2.DataSource = dt3 ' import dt data into bindingsource1
1784        PracticeDataGridView.DataSource = BindingSource2 ' set DriverDataDataGridView = BindingSource1
1785        BindingSource2.Filter = String.Format("FirstName LIKE '%{0}%'", SearchTextBox.Text) ' Filter
1786    End Sub
1787
1788    Public Sub PracticeModeCreateStopwatch(ggg As String)
1789        PracticeModeStopwatchDictionary.Add(ggg, New Stopwatch)   ' Adds the "blue" pseudo-variable
1790        Debug.WriteLine("created stopwatch" + ggg) 'debug
1791    End Sub
1792
1793    Public Sub PracticeModeCreateTimespan(hjh As String)
1794        PracticeModeTimespanDictionary.Add(hjh, New TimeSpan)   ' Adds the "blue" pseudo-variable
1795        Debug.WriteLine("created timespan") 'debug
1796    End Sub
1797
1798    Public Sub PracticeModeCreateElapsedTime(fgf As String)
1799        Dim nnn As String = ""
1800        PracticeModeElapsedTimeDictionary.Add(fgf, nnn)   ' Adds the "blue" pseudo-variable
1801        Debug.WriteLine("created elapsed time") 'debug
1802    End Sub
1803
1804    Public Sub PracticeModeCreateLapCounter(fgf As String)
1805        Dim nnn As Integer = 1
1806        PracticeModeElapsedLaps.Add(fgf, nnn)   ' Adds the "blue" pseudo-variable
1807        Debug.WriteLine("created lap counter") 'debug
1808    End Sub
1809
1810    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
1811        'Dim First As String ' First Name string variable
1812        'Dim Last As String ' Last Name string variable
1813        Dim ID As String ' ID string variable
1814        'Dim IList As String ' string result variable
1815        'First = DriverDataDataGridView2.CurrentRow.Cells(0).Value.ToString() ' get first name
1816        'Last = DriverDataDataGridView2.CurrentRow.Cells(1).Value.ToString() 'get last name
1817        ID = DriverDataDataGridView2.CurrentRow.Cells(2).Value.ToString() ' get ID
1818        PracticeModeCreateStopwatch(ID)
1819        PracticeModeCreateTimespan(ID)
1820        PracticeModeCreateElapsedTime(ID)
1821        PracticeModeCreateLapCounter(ID)
1822        Debug.WriteLine(PracticeModeStopwatchDictionary(ID)) 'debug
1823        Debug.WriteLine(PracticeModeTimespanDictionary(ID)) 'debug
1824        Debug.WriteLine(PracticeModeElapsedTimeDictionary(ID)) 'debug
1825        Debug.WriteLine(PracticeModeElapsedLaps(ID)) 'debug
1826
1827        'IList = First & " " & Last & " " & ID ' build IList string result
1828        'DriverListListBox.Items.Add(IList) ' add IList string to DriverListBox (Enter into race)
1829    End Sub
1830
1831    Private Sub PracticeButton_Click_1(sender As Object, e As EventArgs) Handles PracticeButton.Click
1832        If PracticeStarted = False Then
1833            PracticeButton.BackColor = Color.Green
1834            PracticeStarted = True
1835        ElseIf PracticeStarted = True Then
1836            PracticeButton.BackColor = Color.Red
1837            PracticeStarted = False
1838        End If
1839
1840        dt3 = New DataTable("PracticeMode")
1841        dt3.Clear()
1842        dt3.Columns.Add("ID", GetType(Integer))
1843        dt3.Columns.Add("Lap", GetType(String))
1844        dt3.Columns.Add("Time", GetType(String))
1845
1846
1847    End Sub
1848
1849    Private Sub PracticePrintButton_Click(sender As Object, e As EventArgs) Handles PracticePrintButton.Click
1850        Dim height As Integer
1851        RaceResultsDataGridView.Height = RaceResultsDataGridView.RowCount * RaceResultsDataGridView.RowTemplate.Height
1852        PrintBitmap = New Bitmap(Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height)
1853        RaceResultsDataGridView.DrawToBitmap(PrintBitmap, New Rectangle(0, 0, Me.RaceResultsDataGridView.Width, Me.RaceResultsDataGridView.Height))
1854        PrintPreviewDialog1.Document = PrintDocument1
1855        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
1856        PrintPreviewDialog1.ShowDialog()
1857        RaceResultsDataGridView.Height = height
1858    End Sub
1859
1860    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
1861        If CheckBox1.Checked Then
1862            PracticeModeBool = True
1863        End If
1864        If Not CheckBox1.Checked Then
1865            PracticeModeBool = False
1866        End If
1867    End Sub
1868
1869
1870End Class