[ create a new paste ] login | about

Link: http://codepad.org/XGOvfwbE    [ raw code | output | fork ]

C, pasted on Dec 2: 
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

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        video.Pause()
        Dim rec As CRHReco.PreviewWindow

        If count4 = 0 Then
            rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_w * 1000000)
            rec.ShowDialog()
            rec.Dispose()
        Else
            If wcount = 1 Then
                rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Start_lu * 1000000, sceanes(count).Start_w * 1000000)
                rec.ShowDialog()
                rec.Dispose()
            ElseIf lucount = 1 Then
                rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_lu * 1000000, sceanes(count).Start_v * 1000000, sceanes(count).Start_lu * 1000000)
                rec.ShowDialog()
                rec.Dispose()
            ElseIf vcount = 1 Then
                rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_v * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_v * 1000000)
                rec.ShowDialog()
                rec.Dispose()
            Else
                rec = New CRHReco.PreviewWindow(sceanes(count).Name, sceanes(count).Start_w * 1000000, sceanes(count).Finish_v * 1000000, sceanes(count).Start_w * 1000000)
                rec.ShowDialog()
                rec.Dispose()
            End If
            End If
    End Sub


Output: 
1

Line 3: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'Sub'


Create a new paste based on this one


Comments: