fork download

copy

Public Class Form1
   Public course, grade As String
   Public gpa, creditHours, totalGradePoints, totalCreditHours, gradePoints, gradePointsFactor As Double
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      Do
         course = InputBox(" Enter course name or EXIT to exit ")
         If course.ToUpper = "EXIT" Then
            Exit Do
         End If
         creditHours = InputBox("Enter credit hours for this course")
         totalCreditHours += creditHours
         grade = InputBox("Enter course grade")
         grade = grade.ToUpper
         gradePointsFactor = grades()
         gradePoints = creditHours * gradePointsFactor
         totalGradePoints += gradePoints
         ListBox1.Items.Add(course & " " & creditHours & " " & grade & " " & gradePoints)
      Loop
      gpa = totalGradePoints / totalCreditHours
      ListBox1.Items.Add(" ")
      ListBox1.Items.Add(" ")
      ListBox1.Items.Add("Your total course hours were " & totalCreditHours & ", and your total grade points were " & totalGradePoints)
      ListBox1.Items.Add("Your GPA is " & gpa)
   End Sub
   Function As Integer grades()
      'Dim GradePoints As Double 
      If grade = "A" Then
         gradePointsFactor = 4
      ElseIf grade = "A-" Then
         gradePointsFactor = 3.7
      ElseIf grade = "B+" Then
         gradePointsFactor = 3.33
      ElseIf grade = "B" Then
         gradePointsFactor = 3
      ElseIf grade = "B-" Then
         gradePointsFactor = 2.7
      ElseIf grade = "C+" Then
         gradePointsFactor = 2.3
      ElseIf grade = "C" Then
         gradePointsFactor = 2
      ElseIf grade = "C-" Then
         gradePointsFactor = 1.7
      ElseIf grade = "D+" Then
         gradePointsFactor = 1.3
      ElseIf grade = "D" Then
         gradePointsFactor = 1
      ElseIf grade = "D-" Then
         gradePointsFactor = 0.7
      ElseIf grade = "F" Then
         gradePointsFactor = 0
      End If
      Return gradePointsFactor
   End Function
End Class
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


Error recovery not implemented yet.
/home/bOdPCe/prog.vb (25,30) : Error VBNC99999: vbnc crashed nearby this location in the source code.
/home/bOdPCe/prog.vb (25,30) : Error VBNC99999: Unexpected error: Object reference not set to an instance of an object
  at vbnc.Parser.ParseFunctionSignature (vbnc.ParsedObject Parent) [0x000bb] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Members).vb:328 
  at vbnc.Parser.ParseFunctionDeclaration (vbnc.TypeDeclaration Parent, vbnc.ParseAttributableInfo Info) [0x00031] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Members2).vb:305 
  at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent, vbnc.MemberDeclarations Members) [0x003f9] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1397 
  at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent) [0x0000c] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1322 
  at vbnc.Parser.ParseClassDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00147] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:84 
  at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00010] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1436 
  at vbnc.Parser.ParseAssemblyMembers (vbnc.AssemblyDeclaration Parent, System.String RootNamespace, vbnc.MemberDeclarations declarations) [0x001a8] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1482 
  at vbnc.Parser.ParseAssemblyDeclaration (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00092] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:433 
  at vbnc.Parser.Parse (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00002] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:58 
  at vbnc.Compiler.Compile_Parse () [0x0006d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:363 
Compilation took 00:00:00.6268360

Standard output is empty