1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

    Private Sub optInPlayResult_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                Handles optInPlayResult0.CheckedChanged, optInPlayResult1.CheckedChanged, optInPlayResult2.CheckedChanged, _
                        optInPlayResult3.CheckedChanged, optInPlayResult4.CheckedChanged, optInPlayResult5.CheckedChanged, _
                        optInPlayResult6.CheckedChanged, optInPlayResult7.CheckedChanged, optInPlayResult8.CheckedChanged, _
                        optInPlayResult9.CheckedChanged, optInPlayResult10.CheckedChanged, optInPlayResult11.CheckedChanged
 
        Dim button As RadioButton = DirectCast(sender, RadioButton)
        If button.Checked = False Then
            butSave.Enabled = False
            Exit Sub
        End If
 
        Dim idx As Integer
 
        idx = -1
        If sender Is optInPlayResult0 Then idx = BALL_IN_PLAY_RESULT_OUT
        If sender Is optInPlayResult1 Then idx = BALL_IN_PLAY_RESULT_1B
        If sender Is optInPlayResult2 Then idx = BALL_IN_PLAY_RESULT_2B
        If sender Is optInPlayResult3 Then idx = BALL_IN_PLAY_RESULT_3B
        If sender Is optInPlayResult4 Then idx = BALL_IN_PLAY_RESULT_HR
        If sender Is optInPlayResult5 Then idx = BALL_IN_PLAY_RESULT_FC
        If sender Is optInPlayResult6 Then idx = BALL_IN_PLAY_RESULT_DP
        If sender Is optInPlayResult7 Then idx = BALL_IN_PLAY_RESULT_ERROR
        If sender Is optInPlayResult8 Then idx = BALL_IN_PLAY_RESULT_SF
        If sender Is optInPlayResult9 Then idx = BALL_IN_PLAY_RESULT_SH
        If sender Is optInPlayResult10 Then idx = BALL_IN_PLAY_RESULT_S_ON_BASE
        If sender Is optInPlayResult11 Then idx = BALL_IN_PLAY_RESULT_HRO
 
        If idx = -1 Then
            Exit Sub
        End If
 
        butSave.Enabled = True
 
        bipPlay.BallInPlayResult = idx
        If idx = BALL_IN_PLAY_RESULT_OUT Or idx = BALL_IN_PLAY_RESULT_FC Or idx = BALL_IN_PLAY_RESULT_DP Or _
                        idx = BALL_IN_PLAY_RESULT_SF Or idx = BALL_IN_PLAY_RESULT_SH Or _
                        idx = BALL_IN_PLAY_RESULT_S_ON_BASE Then
            bipPlay.DefensiveSequence = PBPDefensiveSequence(bipPlay.DefensiveSequence)
            RedrawInPlayLocation()
            ' on a fielder's choice, runner ends up on 1st
            If idx = BALL_IN_PLAY_RESULT_FC Or idx = BALL_IN_PLAY_RESULT_S_ON_BASE Then
                bipPlay.FinalBase = 1
            End If
        End If
        If idx >= BALL_IN_PLAY_RESULT_1B And idx <= BALL_IN_PLAY_RESULT_HR Then
            bipPlay.FinalBase = idx
            If idx = BALL_IN_PLAY_RESULT_HR Then
                bipPlay.OnBaseFlags = 2 ^ ON_BASE_FLAGS_EARNED_RUN
            End If
        End If
        If idx = BALL_IN_PLAY_RESULT_ERROR Then
            bipPlay.Errors = PBPDefensiveSequence(bipPlay.Errors, True)
        End If
 
        lblFinalBase.Visible = (idx = BALL_IN_PLAY_RESULT_ERROR)
        cboFinalBase.Visible = (idx = BALL_IN_PLAY_RESULT_ERROR)
        If cboFinalBase.SelectedIndex = -1 Then cboFinalBase.SelectedIndex = 0
 
    End Sub