fork(2) download
copy 
  1. Option Strict On
  2.  
  3. Option Explicit On
  4.  
  5. Imports System.Math
  6.  
  7. Public Class Airports
  8.  
  9.  
  10.  
  11.     Structure Airport 'Record
  12.  
  13.         Dim ID As String
  14.  
  15.         Dim City As String
  16.  
  17.         Dim Lat As String
  18.  
  19.         Dim Lon As String
  20.  
  21.     End Structure
  22.  
  23.  
  24.  
  25.     'Internal variables for current Airport records
  26.  
  27.     Dim ID1Integer As Integer
  28.  
  29.     Dim Lat1Double As Double
  30.  
  31.     Dim Lon1Double As Double
  32.  
  33.     Dim ID2Integer As Integer
  34.  
  35.     Dim Lat2Double As Double
  36.  
  37.     Dim Lon2Double As Double
  38.  
  39.  
  40.  
  41.     'Array of all Airport records
  42.  
  43.     Dim Hubs(2) As Airport
  44.  
  45.  
  46.  
  47.     Private Sub Airports_Load(ByVal sender As Object, _
  48.  
  49.                 ByVal e As System.EventArgs) Handles Me.Load
  50.  
  51.  
  52.  
  53.         'Load small sample of airport hubs into Hubs array
  54.  
  55.         Hubs(0).ID = "ATL"
  56.  
  57.         Hubs(0).City = "Atlanta"
  58.  
  59.         Hubs(0).Lat = "33° 38' 22"" N"
  60.  
  61.         Hubs(0).Lon = "84° 25' 41"" W"
  62.  
  63.         Hubs(1).ID = "BOS"
  64.  
  65.         Hubs(1).City = "Boston"
  66.  
  67.         Hubs(1).Lat = "42° 21' 42"" N"
  68.  
  69.         Hubs(1).Lon = "71° 0' 42"" W"
  70.  
  71.         Hubs(2).ID = "CLE"
  72.  
  73.         Hubs(2).City = "Cleveland"
  74.  
  75.         Hubs(2).Lat = "41° 24' 27"" N"
  76.  
  77.         Hubs(2).Lon = "81° 51' 4"" W"
  78.  
  79.         'Load ID1ComboBox List
  80.  
  81.         For IndexInteger As Integer = 0 To 2
  82.  
  83.             ID1ComboBox.Items.Add(Hubs(IndexInteger).ID)
  84.  
  85.         Next
  86.  
  87.  
  88.  
  89.         'Load ID2ComboBox List
  90.  
  91.         For IndexInteger As Integer = 0 To 2
  92.  
  93.             ID2ComboBox.Items.Add(Hubs(IndexInteger).ID)
  94.  
  95.         Next
  96.  
  97.  
  98.  
  99.     End Sub
  100.  
  101.  
  102.  
  103.     Private Sub ID1ComboBox_SelectedIndexChanged(ByVal sender As System.Object, _
  104.  
  105.                 ByVal e As System.EventArgs) Handles ID2ComboBox.SelectedIndexChanged
  106.  
  107.         IDInteger = ID1ComboBox.SelectedIndex
  108.  
  109.         CityTextBox.Text = Hubs(ID1Integer).City
  110.  
  111.         Lat1TextBox.Text = Hubs(ID1Integer)..Lat
  112.  
  113.         Lon1TextBox.Text = Hubs(ID1Integer).Long
  114.  
  115.     End Sub
  116.  
  117.  
  118.  
  119.     Private Sub ID2ComboBox_SelectedIndexChanged(ByVal sender As System.Object, _
  120.  
  121.                 ByVal e As System.EventArgs) Handles ID1ComboBox.SelectedIndexChanged
  122.  
  123.         IDInteger = ID2ComboBox.SelectedIndex
  124.  
  125.         CityTextBox.Text = Hubs(ID2Integer).City
  126.  
  127.         Lat2TextBox.Text = Hubs(ID2Integer)..Lat
  128.  
  129.         Lon2TextBox.Text = Hubs(ID2Integer).Long
  130.  
  131.     End Sub
  132.  
  133.  
  134.  
  135.  
  136.  
  137.     Private Sub Calc1Button_Click(ByVal sender As System.Object, _
  138.  
  139.                 ByVal e As System.EventArgs) Handles Calc1Button.Click
  140.  
  141.         Dim degrees As Double
  142.  
  143.         Dim minutes As Double
  144.  
  145.         Dim seconds As Double
  146.  
  147.         Dim StartPtr, StopPtr As Integer
  148.  
  149.         StartPtr = 0
  150.  
  151.         StopPtr = Hubs(ID2Integer).Lat.IndexOf("°", StartPtr)
  152.  
  153.         degrees = Convert.ToDouble(Hubs(ID1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  154.  
  155.         StartPtr = StopPtr + 1
  156.  
  157.         StopPtr = Hubs(ID1Integer).Lat.IndexOf("'", StartPtr)
  158.  
  159.         minutes = Convert.ToDouble(Hubs(ID1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  160.  
  161.         StartPtr = StopPtr + 1
  162.  
  163.         StopPtr = Hubs(ID1Integer).Lat.IndexOf(""", StartPtr)
  164.  
  165.         seconds = Convert.ToDouble(Hubs(ID1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  166.  
  167.         StartPtr = StopPtr + 1
  168.  
  169.         '1 degree = 60 minutes
  170.  
  171.         '1 minute = 60 seconds
  172.  
  173.         Lat1Double = degrees + minutes / 60.0 + seconds / 360.0
  174.  
  175.         Lat1TextBox.Text = Lat1Double.ToString("F5")
  176.  
  177.         StartPtr = 0
  178.  
  179.         StopPtr = Hubs(ID2Integer).Long.IndexOf("°", StartPtr)
  180.  
  181.         degrees = Convert.ToDouble(Hubs(ID1Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  182.  
  183.         StartPtr = StopPtr + 1
  184.  
  185.         StopPtr = Hubs(ID1Integer).Long.IndexOf("'", StartPtr)
  186.  
  187.         minutes = Convert.ToDouble(Hubs(ID1Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  188.  
  189.         StartPtr = StopPtr + 1
  190.  
  191.         StopPtr = Hubs(ID1Integer).Long.IndexOf(""", StartPtr)
  192.  
  193.         seconds = Convert.ToDouble(Hubs(ID1Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  194.  
  195.         StartPtr = StopPtr + 1
  196.  
  197.         '1 degree = 60 minutes
  198.  
  199.         '1 minute = 60 seconds
  200.  
  201.         Lon1Double = degrees + minutes / 60.0 + seconds / 360.0
  202.  
  203.         Lon1TextBox.Text = Lon1Double.ToString("F5")
  204.  
  205.     End Sub
  206.  
  207.  
  208.  
  209.     Private Sub Calc2Button_Click(ByVal sender As System.Object, _
  210.  
  211.                 ByVal e As System.EventArgs) Handles Calc2Button.Click
  212.  
  213.         Dim degrees As Double
  214.  
  215.         Dim minutes As Double
  216.  
  217.         Dim seconds As Double
  218.  
  219.         Dim StartPtr, StopPtr As Integer
  220.  
  221.         StartPtr = 0
  222.  
  223.         StopPtr = Hubs(ID1Integer).Lat.IndexOf("°", StartPtr)
  224.  
  225.         degrees = Convert.ToDouble(Hubs(ID2Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  226.  
  227.         StartPtr = StopPtr + 1
  228.  
  229.         StopPtr = Hubs(ID2Integer).Lat.IndexOf("'", StartPtr)
  230.  
  231.         minutes = Convert.ToDouble(Hubs(ID2Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  232.  
  233.         StartPtr = StopPtr + 1
  234.  
  235.         StopPtr = Hubs(ID2Integer).Lat.IndexOf(""", StartPtr)
  236.  
  237.         seconds = Convert.ToDouble(Hubs(ID2Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  238.  
  239.         '1 degree = 60 minutes
  240.  
  241.         '1 minute = 60 seconds
  242.  
  243.         Lat2Double = degrees + minutes / 60.0 + seconds / 360.0
  244.  
  245.         Lat2TextBox.Text = Lat2Double.ToString("F5")
  246.  
  247.         StartPtr = 0
  248.  
  249.         StopPtr = Hubs(ID1Integer).Long.IndexOf("°", StartPtr)
  250.  
  251.         degrees = Convert.ToDouble(Hubs(ID2Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  252.  
  253.         StartPtr = StopPtr + 1
  254.  
  255.         StopPtr = Hubs(ID2Integer).Long.IndexOf("'", StartPtr)
  256.  
  257.         minutes = Convert.ToDouble(Hubs(ID2Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  258.  
  259.         StartPtr = StopPtr + 1
  260.  
  261.         StopPtr = Hubs(ID2Integer).Long.IndexOf(""", StartPtr)
  262.  
  263.         seconds = Convert.ToDouble(Hubs(ID2Integer).Lon.Substring(StartPtr, StopPtr - StartPtr))
  264.  
  265.         StartPtr = StopPtr + 1
  266.  
  267.         '1 degree = 60 minutes
  268.  
  269.         '1 minute = 60 seconds
  270.  
  271.         Lon2Double = degrees + minutes / 60.0 + seconds / 360.0
  272.  
  273.         Lon2TextBox.Text = Lon2Double.ToString("F5")
  274.  
  275.  
  276.  
  277.     End Sub
  278.  
  279.  
  280.  
  281.     Private Sub CalcDistanceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcDistanceButton.Click
  282.  
  283.         Const R As Double = 3958.761 'mean Earth radius in miles
  284.  
  285.         Dim Lat1, Lat2, Lon1, Lon2 As Double
  286.  
  287.         'Convert angles to radians
  288.  
  289.         '180 degrees = Pi radians
  290.  
  291.         Lat1 = Lat1Double * PI / 360.0
  292.  
  293.         Lat2 = Lat2Double * PI / 360.0
  294.  
  295.         Lon1 = Long1Double * PI / 360.0
  296.  
  297.         Lon2 = Long2Double * PI / 360.0
  298.  
  299.         'Spherical law of cosines:     
  300.  
  301.  
  302.  
  303.         DistanceTextBox.Text = (Acos(Sine(Lat1).Sine(Lat2) + Cos(Lat1).Cos(Lat2).Cos(Long2 - Long1)).R).ToString("F0")
  304.  
  305.     End Sub
  306.  
  307. End Class
  308.  
  309.  
  310.  
  311.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/mIeJBL/prog.vb (111,46): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseIdentifierOrKeywordWithTypeArguments(vbnc.ParsedObject Parent)
   at vbnc.Parser.ParseMemberAccessExpression(vbnc.ParsedObject Parent, vbnc.Expression FirstExpression)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (111,46): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseMemberAccessExpression(vbnc.ParsedObject Parent, vbnc.Expression FirstExpression)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (127,46): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseIdentifierOrKeywordWithTypeArguments(vbnc.ParsedObject Parent)
   at vbnc.Parser.ParseMemberAccessExpression(vbnc.ParsedObject Parent, vbnc.Expression FirstExpression)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (127,46): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseMemberAccessExpression(vbnc.ParsedObject Parent, vbnc.Expression FirstExpression)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (163,62) : error VBNC30648: String constants must end with a double quote.
/home/mIeJBL/prog.vb (165,1) : error VBNC90019: Expected ')'.
/home/mIeJBL/prog.vb (165,1): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseInvocationOrIndexExpression(vbnc.ParsedObject Parent, vbnc.Expression First)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (191,63) : error VBNC30648: String constants must end with a double quote.
/home/mIeJBL/prog.vb (193,1) : error VBNC90019: Expected ')'.
/home/mIeJBL/prog.vb (193,1): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseInvocationOrIndexExpression(vbnc.ParsedObject Parent, vbnc.Expression First)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (235,62) : error VBNC30648: String constants must end with a double quote.
/home/mIeJBL/prog.vb (237,1) : error VBNC90019: Expected ')'.
/home/mIeJBL/prog.vb (237,1): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseInvocationOrIndexExpression(vbnc.ParsedObject Parent, vbnc.Expression First)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
/home/mIeJBL/prog.vb (261,63) : error VBNC30648: String constants must end with a double quote.
/home/mIeJBL/prog.vb (263,1) : error VBNC90019: Expected ')'.
/home/mIeJBL/prog.vb (263,1): Compiler error around this location, the compiler hasn't implemented the error message, nor error recovery, so the compiler will probably crash soon.
   at vbnc.Helper.ErrorRecoveryNotImplemented(Span Location)
   at vbnc.Parser.ParseInvocationOrIndexExpression(vbnc.ParsedObject Parent, vbnc.Expression First)
   at vbnc.Parser.ParseIdentifier(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExponent(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseUnaryPlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMultDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseIntDiv(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseMod(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParsePlusMinus(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseConcat(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseBitshift(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseComparison(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseNot(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseAnd_AndAlso(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseOr_OrElse_Xor(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseExpression(vbnc.ExpressionParseInfo Info)
   at vbnc.Parser.ParseCodeBlock(vbnc.ParsedObject Parent, Boolean IsOneLiner)
   at vbnc.Parser.ParseSubDeclaration(vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info)
   at vbnc.Parser.ParseTypeMembers(vbnc.TypeDeclaration Parent)
   at vbnc.Parser.ParseClassDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseTypeDeclaration(vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace)
   at vbnc.Parser.ParseAssemblyMembers(vbnc.AssemblyDeclaration Parent, System.String RootNamespace)
   at vbnc.Parser.ParseAssemblyDeclaration(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Parser.Parse(System.String RootNamespace, vbnc.AssemblyDeclaration assembly)
   at vbnc.Compiler.Compile_Parse()
   at vbnc.Compiler.Compile()
   at vbnc.Compiler.Compile(System.String[] CommandLine)
   at vbnc.Main.Main(System.String[] CmdArgs)
There were 8 errors and 0 warnings.
Compilation took 00:00:00.6705380
stdout
copy 
Standard output is empty
https://ideone.com/DO9N9w
language:
VB.NET (mono-3.10)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!