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
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCURpbSBwdWJsaWMgZGVsdGFQQ1RfRCBBUyBEZWNpbWFsKCkgPSB7MCwwLDAsMCwwLDAsMH0KClB1YmxpYyBGdW5jdGlvbiBzZXRNYXhVbmRlcmx5aW5nKEJ5VmFsIHVWYWwgQVMgRGVjaW1hbCwgQnlWYWwgIFVEVFZhbCBBUyBTdHJpbmcpIEFTIERlY2ltYWwKClNlbGVjdCBDYXNlIFVEVFZhbAoJQ2FzZSAiQk9YRUQiCgkJZGVsdGFQQ1RfRCgwKSA9ZGVsdGFQQ1RfRCgwKSArIHVWYWwKCUNhc2UgIkNSRURJVCBMT05HIgoJCWRlbHRhUENUX0QoMSkgPWRlbHRhUENUX0QoMSkgKyB1VmFsCglDYXNlICJDUkVESVQgU0hPUlQiCgkJZGVsdGFQQ1RfRCgyKSA9ZGVsdGFQQ1RfRCgyKSArIHVWYWwKCUNhc2UgIkNVUlJFTkNZIgoJCWRlbHRhUENUX0QoMykgPWRlbHRhUENUX0QoMykgKyB1VmFsCglDYXNlICJMT05HIgoJCWRlbHRhUENUX0QoNCkgPWRlbHRhUENUX0QoNCkgKyB1VmFsCglDYXNlICJTSE9SVCIKCQlkZWx0YVBDVF9EKDUpID1kZWx0YVBDVF9EKDUpICsgdVZhbAoJQ2FzZSAiVEFYIgoJCWRlbHRhUENUX0QoNikgPWRlbHRhUENUX0QoNikgKyB1VmFsCkVuZCBTZWxlY3QKCnJldHVybiB1VmFsCkVuZCBGdW5jdGlvbiAKICAKUHVibGljIEZ1bmN0aW9uIGdldFN1bVVuZGVybHlpbmcoQnlWYWwgVURUVmFsIEFTIFN0cmluZykgQVMgRGVjaW1hbAoKRGltIHN1bVZhbCBhcyBEZWNpbWFsID0gMAoKU2VsZWN0IENhc2UgVURUVmFsCglDYXNlICJCT1hFRCIKCQlzdW1WYWwgPWRlbHRhUENUX0QoMCkKCUNhc2UgIkNSRURJVCBMT05HIgoJCXN1bVZhbCA9ZGVsdGFQQ1RfRCgxKQoJQ2FzZSAiQ1JFRElUIFNIT1JUIgoJCXN1bVZhbCA9ZGVsdGFQQ1RfRCgyKQoJQ2FzZSAiQ1VSUkVOQ1kiCgkJc3VtVmFsID1kZWx0YVBDVF9EKDMpCglDYXNlICJMT05HIgoJCXN1bVZhbCA9ZGVsdGFQQ1RfRCg0KQoJQ2FzZSAiU0hPUlQiCgkJc3VtVmFsID1kZWx0YVBDVF9EKDUpCglDYXNlICJUQVgiCgkJc3VtVmFsID1kZWx0YVBDVF9EKDYpLzIKRW5kIFNlbGVjdAoKcmV0dXJuIHN1bVZhbCAgICAgICAgICAgIApFbmQgRnVuY3Rpb24gCglFbmQgU3ViCkVuZCBDbGFzcw==
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