fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
	Dim public deltaPCT_D AS Decimal() = {0,0,0,0,0,0,0}
 
Public Function setMaxUnderlying(ByVal uVal AS Decimal, ByVal  UDTVal AS String) AS Decimal
 
Select Case UDTVal
	Case "BOXED"
		deltaPCT_D(0) =deltaPCT_D(0) + uVal
	Case "CREDIT LONG"
		deltaPCT_D(1) =deltaPCT_D(1) + uVal
	Case "CREDIT SHORT"
		deltaPCT_D(2) =deltaPCT_D(2) + uVal
	Case "CURRENCY"
		deltaPCT_D(3) =deltaPCT_D(3) + uVal
	Case "LONG"
		deltaPCT_D(4) =deltaPCT_D(4) + uVal
	Case "SHORT"
		deltaPCT_D(5) =deltaPCT_D(5) + uVal
	Case "TAX"
		deltaPCT_D(6) =deltaPCT_D(6) + uVal
End Select
 
return uVal
End Function 
 
Public Function getSumUnderlying(ByVal UDTVal AS String) AS Decimal
 
Dim sumVal as Decimal = 0
 
Select Case UDTVal
	Case "BOXED"
		sumVal =deltaPCT_D(0)
	Case "CREDIT LONG"
		sumVal =deltaPCT_D(1)
	Case "CREDIT SHORT"
		sumVal =deltaPCT_D(2)
	Case "CURRENCY"
		sumVal =deltaPCT_D(3)
	Case "LONG"
		sumVal =deltaPCT_D(4)
	Case "SHORT"
		sumVal =deltaPCT_D(5)
	Case "TAX"
		sumVal =deltaPCT_D(6)/2
End Select
 
return sumVal            
End Function 
	End Sub
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.


/home/rd5UgV/prog.vb (5,12) : Error VBNC30203: Not valid as identifier.
Error recovery not implemented yet.
/home/rd5UgV/prog.vb (5,12) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/rd5UgV/prog.vb (5,12) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/rd5UgV/prog.vb (52,9) : Error VBNC90019: Expected 'Class'.
Error recovery not implemented yet.
/home/rd5UgV/prog.vb (52,9) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/rd5UgV/prog.vb (52,9) : Error VBNC30203: Not valid as identifier.
/home/rd5UgV/prog.vb (53,10) : Error VBNC30203: Not valid as identifier.
There were 7 errors and 0 warnings.
Compilation took 00:00:00.6204340

Standard output is empty